f 


<»//•/<« 


^ yf'/tf/t' 


473423 


11*10*66 


* 1800A 

JOB  53-238-00 

NANSTONE, 

time: 

11:25.7 

3103 

11  10  66 

- 

cccccccc 

3104 

11  10  66 

cccccccc 

# 

VJL  NANSTONE 

473423A 

YJL  system  FOR 

BL«2:  REVISION!  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10*  1966 

A73A23A  YJL  SYSTEM  FOR  BL<2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10*  1966  (MAIN) 


L ASSEMBLY  AND  OPERATION  INFORMATION  USER'S  OWN  PAGE  NO. 


R0001 

VERB  IN) ORMAT I ON . 

R0002 

REGJLAR  VERBS 

R0003 

01 

DISPLAY  OCTAL  COMP  1 (Rl) 

ROOOA 

02 

DISPLAY  OCTAL  COMP  2 (Rl) 

R0005 

03 

DISPLAY  OCTAL  COMP  3 (Rl.) 

RC006 

0 A 

DISPLAY  OCTAL  COMP  1,2  <R1»R2> 

RG007 

05 

DISPLAY  OCTAL  COM?  1,2,3  (R1»R2,R3) 

R0008 

06 

DECIMAL  DISPLAY 

R0009 

07 

DP  DECIMAL  DISPLAY  (R1,R2) 

R0010 

10 

SPARE 

R001 1 

11 

MONITOR  OCT  COMP  1 (Rl) 

R0012 

12 

MONITOR  OCT  COMP  2 (Rl) 

ROO 1 3 

13 

MONITOR  OCT  COMP  3 (Rl) 

R001A 

1A 

MONITOR  OCT  COMP  1,2  (Rl) 

ROO  1 5 

15 

MONITOR  OcT  COMP  1,2,3  (R1,R2. 

R 3 ) 

ROO  1 6 

16 

MONITOR  DECIMAL 

ROO  1 7 

17 

MONITOR  DP  DECIMAL  (Rl,R2) 

ROO  1 8 

20 

SPARE 

R0019 

21 

LOAD  COMP  1 (Rl) 

R0020 

22 

LOAD  COMP  2 ( R2 ) 

R0021 

23 

LOAD  COMP  3 (R3 ) 

R0022 

2 A 

LOAD  COMP  1,2  ( R 1 »R2 ) 

R0023 

25 

LOAD  COMP  1,2,3  (R1,R2,R3) 

R002A 

26 

SPAKE 

R0025 

27 

FIXED  MEMORY  DISPLAY 

R0026 

30 

REQUEST  EXECUTIVE 

R0027 

31 

REQUEST  WAITLIST 

R0028 

32 

C(K2>  INTO  R3  * C ( R 1 ) INTO  R2 

R0029 

33 

PROCEED  WITHOUT  DATA 

R0030 

3 A 

TERMINATE  CURRENT  fEST  OR  LOAD 

REQUlST 

R0031 

35 

TEST  LIGHTS 

R0032 

36 

FRESH  START 

R0033 

37 

CHANGE  MAJOR  MODE 

R003A 

END 

OF  REGULAR  VERBS 

R0035 

extfnded  verbs 

R0036 

AD 

zero  (Used  with  nouns  20,  ad,  and 

70 

R0037 

A 1 

COARSE  ALIGN  (USED  WITH  NOJNS  20, 

AO 

R0038 

A2 

FINE  ALIGN  I MU 

R0039 

A3 

LOAD  I MU  ATTITUDE  ERROR  METERS 

ROO  AO 

AA 

illegal  verb 

R00A1 

A5 

COMMAND  LR  TO  POSITION  2 

R00A2 

A6 

SAMPLE  RADAR  ONCt  PER  SECOND 

R00A3 

A 7 

PER) ORM  LfM  FC5  TEST 

ROOAA 

50 

P LEASE  PERFORM 

AND  70) 


PAGE  1 
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L ASSEMBLY  AnD  OPERATION  INFORMATION  USER'S  OWN  PAGE  NO.  2 


R0045 

51 

PLEASE  MARK 

R0046 

52 

PLEASE  MARK  Y 

R0047 

53 

PLEASE  MARK  X OR  Y 

R00A8 

5A 

PJLSE  TORQUE  GYROS 

R00A9 

55 

ALIGN  TIME 

R0050 

56 

PERFORM  BANKSUM 

R0051 

57 

PERFORM  SYSTEM  TEST 

R0052 

63 

ILLEGAL  VERB 

R0053 

61 

ILLEGAL  VERB 

R005A 

62 

SCAN  LEM  INBITS 

R0055 

63 

INITIALIZE  AGS 

R0056 

6 A 

ILLtGAL  VERB 

R0057 

65 

ILLEGAL  VERB 

R0058 

66 

ILLEGAL  VERB 

R0059 

67 

ILLEGAL  VERB 

R0060 

73 

ILLEGAL  VERB 

R0061 

71 

ILLEGAL  VERB 

R0062 

72 

ILLEGAL  VERB 

R0063 

73 

rhc  used  For  minimum  impulse 

R006A 

7 A 

RHC  USED  FOR  RATE 

COMMAND 

R0065 

75 

DIGI JAL  AUTOPILOT 

WIDE  DEADBAND 

R0066 

76 

DIGITAL  AUTOPILOT 

NARROW  DEADBAND 

R0067 

77 

ILLEGAL  VERB 

A73A23A  YJL  SYSTEM  EOR  BLK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10*  1966  (MAIN) 


L ASSEMBLY  AND  OPERATION  INFORMATION  USER'S  OWN  PAGE  NO.  3 


P0068 

R0070 

R0071 

D0H7? 

NORMAL  NOUNS 

00  NOT  IN  JSE 

01  SPECIFY  MACHINE  ADDRESS  (-RACTIONAL) 
n:  sapriFY  MaCHTNF  ADDRFSS  (WHOLE) 

scale  and  decimal  point 

(.XXXXX) 
(XXXXX. ) 

r\UU  I 6 

R0073 

03 

SPECIFY  MACHINE  ADDRESS  (DEGREES) 

(XXX.XXDEGREES) 

R007A 

OA 

specify  machine  address  hours) 

(XXX.XXHOURS) 

Rnnvs 

SPECIFY  MACHINE  ADDRESS  (SECONDS) 

( XXX  » XX seconds ) 

IN  (J  \J  ( J 

R0076 

U J 
06 

SPECIFY  MACHINE  ADDRESS  (GYRO  DEGREES) 

(XX.XXXDEGREES) 

R0077 

07 

SPARE 

R0078 

1 0 

CHANNEL  TO  BE  SPECIFIED 

R0079 

11 

SPARE 

R0080 

12 

SPARE 

R008  1 

1 3 

SPARE 

R0082 

1A 

SPARE 

R0083 

15 

INCREMENT  MACHINE  ADDRESS 

(OCTAL  ONLY) 

R008  A 

1 6 

TIME  SECONDS 

(XXX.XXSECONDS) 

R0085 

17 

time  HOURS 

(XXX.XXHOURS) 

R0086 

20 

I CDU 

(XXX.XXDEGREES) 

R0087 

2 1 

P I PAS 

(XXXXX. PULSES) 

R0088 

22 

NEW  ANGLES  I 

(XXX.XXDEGREES) 

R0089 

23 

DELTA  ANGLES  1 

(XXX.XXDEGREES) 

R0090 

2 A 

DELTA  TIME  (SECONDS) 

(XXX.XXSECONDS) 

R0091 

25 

CHECKLIST 

(XXXXX. ) 

R0092 

26 

PRIO/DELAY*  ADRES*  6BC0N 

(OCTAL  ONLY) 

R0093 

27 

SELF  TEST  ON/OFF  SWITCH 

(XXXXX. ) 

R009A 

30 

SI AR  NUMBERS 

(XXXXX. ) 

R0095 

31 

FAiLREG.  SFAIL*  ERCOUNT 

(OCTAL  ONLY) 

R0096 

32 

DECISION  TIME  (MIDCOURSE) 

(xxx.xxhours  (Internal  units  = weeks)) 

R0098 

33 

EPHrMERIS  TIME  (MIDCOURSE) 

(XXX.XXHOURS  (INTERNAL  UNITS  = WEEKS)) 

R0100 

3 A 

measured  quantity  (midcourse) 

(XXXX.XKILOMETERS) 

R0101 

35 

INBIT  MESSAGE 

(OCTAL  ONLY) 

RO 102 

36 

LANDMARK  DATA  1 

(OCTAL  ONLY) 

R0103 

37 

LANDMARK  DATA  2 

(OCTAL  ONLY) 

R010A 

AD 

rendezvous  radar  angles  ( tRunion, shaft) 

(XXX.XXDEGREES) 

R0105 

A 1 

NEW  RENDEZVOUS  RADAR  ANGLES  ( TRuN 1 ON  .SHAFT ) 

(XXX.XXDEGREES) 

RO  1 06 

A2 

adt  rotation  angles 

(XXX.XXDEGREES) 

RO  107 

A3 

AOT  detent  CODE 

(XXXXX. ) 

R0108 

AA 

FORWARD  VELOCITY*  LATERAL  VELOCITY 

(XXXXX. FEET/SEC) 

RO  1 09 

A5 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES 

(XXXXX. DEG/SEC) 

R0110 

A6 

SPARE 

R0111 

A7 

SPARE 

R0112 

50 

SPARE 

R0113 

51 

SPARE 

R011A 

52 

GYRO  BIAS  DRIFT 

(.BBXXXXXMlLLIRAD/SEC) 

R01 16 

53 

GYRO  INPUT  AXIS  ACCELERATION  DRIFT 

( .BBXXXXX (MI LLIRAD/SEC) / (CM/SEC  SeC) ) 

R0118 

5 A 

GYRO  spin  axis  acceleration  drift 

( .BBXXXXX (MI LLIRAD/SEC) / (CM/SEC  SeC) ) 

RO  1 20 

END 

OF  NORMAL  NOUNS 

PAGE  3 
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L assembly  and  operation  information 


USER'S  O^N  PAGE  NO.  A 


R0121 

R0123 

R0125 

R0127 

R0129 

RO 1 3 1 
R0133 
RO  1 35 
R0137 
RO  1 39 
RO  1 A 1 
R01A2 
RO  1 44 
R0IA5 
R01A7 
R01A9 
R0151 
R0153 
R0155 
RO  1 57 
RO  1 59 


MIXED  NOUNS 

55  landing  radar  altiiude,  t 

56  LANDING  RADAR  VELX,  TIME 

57  LANDING  RADAR  VELY,  TIME 

60  LANDING  RADAR  VELZ,  TIME 

61  TARGET  AZIMUTH  AND  ELEVAT 

62  RENDEZVOUS  RADAR  RANGE,  T 

63  RENDEZVOUS  RADAR  RANGE  RA 
6 A INITIAL  ALTITUDE,  FINAL  A 

65  SAMPLED  TIME  (HOURS  AND  S 

(FETCHED  IN  INTERRUPT 

66  SYSTEM  TEST  RESULTS 

67  DELTA  GYRO  ANGLES 

70  OPTICAL  TRACKER  ANGLES  (A 

71  desired  OPTICAL  tracklr  A 

72  DELTA  POSITION 


73  DELTA  VELOCITY 
7 A MEASUREMENT  DATA  (MIDCOUR 

75  MEASUREMENT  DEVIATIONS  (M 

76  POSITION  VECTOR 

77  VELOCITY  VECTOR 


IME  (SECONDS) 
(SECONDS) 

(SECONDS) 

(SECONDS) 

ION 

RUN I ON,  SHAFT 
TE,  TRUNION,  SHAFT 

LTITUDE,  alt.  rate 

ECOiNDS) 

) 


ZIMUTH,  ELEVATION) 
NSLES  (AZ,  ELEV) 


SE) 

IDCOURSe) 


scale  AND  DECIMAL  POINT 
(XXXXX.Fee  r , XXX.XXSEC) 

(xxxxx. feet/sec,  xxx.xxsec) 

(XXXXX. FEET/SEC,  XXX.XXSEC) 

(XXXXX. FEET/SEC,  XXX.XXSEC) 

(XXX.XXDEG,  XX.XXXDEG) 

(XXXXXB.FEET,  XXX.XXDEG,  XXX.XXDEG) 

(XXXXX. Feet/Sec,  XXX.XXDEG,  XXX.XXDEG) 

(xxxxx. feet,  xxxxx. feet,  xxxxx. feet/seo 

( XXX . XXHoURS , XXX.XXSEC) 

(XXXXX.,  .xxxxx,  xxxxx.) 

(XX.XXXDEG  FOR  EACH) 

(XXX.XXDEG,  XXX.XXDEG) 

(XXX.XXDEG,  XXX.XXDEG) 

(XXXX.XKILOMETERS  FOR  EACH) 

(XXXX.XMETERS/SEC  FOR  EACH) 

(XXX. XXHOURS  (INTERNAL  UNI  TS  = WEE<S)  , XXXX.XKILOMETERS, 
(XXXX.XKILOMETERS,  XXXX  .XMETER5/SEC , XXXX.XKILOMETERS) 

(XXXX.XKILOMETERS  FOR  EACH) 

(XXXX.XMETERS/SEC  FOR  EACH) 


4 


XXXXX. 
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AsSfcMBLY  and  operation  information 


USER'S  OWN  PAGE  NO* 


P0161 

TABLE  OF 

ERROR  CODES 

R0162 

OPTICS  SUB-SYSTEM 

R0163 

00105 

MARK  BUTTONS  NOT  AVAILABLE 

RO 1 6A 

00111 

MARK  IS  MISSING  AFTER)  ENTER 

R0165 

00112 

mark  not  being  accepted 

RO 1 66 

00113 

NO  INBITS 

R0167 

001 1 A 

MARK  MADE  BUT  NOT  DESIRED 

RO  1 68 

00115 

X MARK  NOT  MADE 

R0169 

1 MU  SUB- 

SYSTEM 

R0170 

00207 

iss  turn-on  Request  not  present  for  90 

R0171 

00210 

IMJ  NOT  OPERATING 

RO  1 72 

00211 

COARSE  ALIGN  ERROR 

R0173 

00212 

PIPA  FAIL  BUT  PIPA  IS  NOT  BEING  USED 

RO  1 7 A 

00213 

IMU  NOT  OPERATING  WITH  TURN-ON  REQUEST 

RO  1 75 

002  1 A 

PROGRAM  USING  IMU  WHEN  TURNED  OFF 

RO  1 93 

PROCEDURAL  difficulty 

R019A 

OOAOl 

desired  gimbal  angles  yield  gimbal  lock 

RO  1 95 

OOA02 

STAR  OUT  OF  FlELD  OF  YIEW 

RO  1 96 

O0AO3 

STAR  OUT  OF  FIELD  OF  VIEW 

RO  197 

RADAR  ERRORS 

RO  1 98 

00501 

RADAR  ANTENNA  OUT  OF  LIMITS 

RO  1 99 

00502 

BAD  RADAR  GIMBAL  ANS.E  INPUTS 

R0200 

00503 

RADAR  ANTENNA  DESIGNATE  FAIL 

R0201 

00510 

RADAR  AUTO  DESCRETE  NOT  PRESENT 

R0202 

0051 A 

RADAR  GOES  OUT  OF  AJ10  MODE  WHILE  BEING 

R0203 

00520 

NO  RADAR  RUPT  EXPECTED 

R020A 

00521 

RADAR  DATA  COULD  NOT  BE  READ 

R0205 

00522 

WRONG  LR  POSITION 

R0206 

00523 

LR  ANTENNA  DID  NOT  MAKE  IT 

R0207 

0052  A 

BAD  RADAR  TARGET 

R0208 

COMPJIEr 

hardware  malfunctions 

R0209 

01102 

AGC  SELF  TEST  ERROR 

R0210 

01103 

UNUSED  CCS  branch  execjted  . ARORT 

R0211 

01105 

DOWNLINK  TOO  FAST 

R0212 

01106 

UPLINK  TOO  FAST 

R0213 

LIST  OVERFLOWS  ( ALL  ABORTS  ) 

473423A  Y JL  SYSTEM  FOR  BLK2 ! REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L ASSEM3LY  AND  OPERATION  INFORMATION  USER'S  OWN  PAGE  NO.  6 


R0214 

R0215 

R0216 

R0217 

R0218 

R0219 

01201 

01202 

01203 

01206 

01207 

01210 

EXECUTIVE  OVERFLOW-NO  VAC  AREAS 
EXECUTIVE  OVERFLOW-NO  CORE  SETS 
WAITLIST  OVERFLOW-TOD'  MANY  TASKS 
KEYBOARD  AND  DISPLAY  WAITING  LINE  OVERFLOW 
NO  VAC  AREA  FOR  MARKS 

TWO  PROGRAMS  USING  DEVICE  AT  SAME  TIME 

R0220 

INTERPRETER  ERRORS 

R0221 

R0222 

01301 

01302 

ARCSIN-ARCCOS  INPUT  ANGLE  TOO  LARGE.  ABORT 
SORT  CALLED  WITH  NEGATIVE  ARGUMENT  . ABORT 

R0223 

DISPLAY 

ALARMS 

R0224 

R022S 

R0226 

01400 

01410 

01411 

pitch  and/or  roll  trim  fail  is  on  (shown  with  V50N25). 

TEMPORARY  JET  FAIL 

CD J DOES  NOT  AGREE  WiTH  COMMAND  10  1 DEGREE 

R0227 

keyboarl  and  display  program 

R0228 

R0229 

01501 

SYSTEM 

KEYBOARD  and  display  ALARM  during  internal  USE (NVSUB) .abort 
TEST  ALARMS 

R0230 

R0231 

01600 

01601 

drift  test  overflow  alarm 

some  error  in  gyro  tdrduing  during  drift  test  or  compasss 

473423A  YJL  SySTEM  FOR  BLK2 : REVISION  12  OF  PROGRAM  AURORA  By  DAp  GROUP 


L ERASABLE  assignments 

0001 

0002 

0003 

0004 

0005 

0006 
0007 

A0008 

0009 

0010 
0011 
0012 
0013 
00  1 A 

0015 

0016 

0017 

0018 
0019 


0020 

0021 

0022 

0023 

002  A 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

003  A 

0035 

0036 

0037 

0038 

0039 
00  AO 
OOA  1 
00A2 
00A3 
OOAA 
00A5 


0000 

A 

EQUALS 

0 

0001 

L 

equals 

1 

0002 

Q 

EQUALS 

2 

0003 

EBANK 

EQUALS 

3 

OOOA 

FBANK 

EQUALS 

A 

0005 

Z 

equals 

5 

0006 

BBANK 

equals 

6 

0010 

arupt 

EQUALS 

10 

0011 

LRUPT 

EQUALS 

11 

0012 

QRUPT 

equals 

12 

0013 

SAMPTIME 

equals 

13 

0015 

ZRUPT 

EQUALS 

15 

0016 

BANKRUPT 

EQUALS 

16 

0017 

BRUPT 

equals 

17 

0020 

CYR 

EQUALS 

20 

0021 

SR 

EQUALS 

21 

0022 

CYL 

equals 

22 

0023 

EDOP 

equals 

23 

002  A 

TIME2 

equals 

24 

0025 

TIME1 

EQUALS 

25 

0026 

T1ME3 

EQUALS 

26 

0027 

TIMEA 

EQUALS 

27 

0030 

TIME5 

EQUALS 

30 

0031 

TIME6 

EQUALS 

31 

0032 

CDUX 

equals 

32 

0033 

CDUY 

EQUALS 

33 

00  3 A 

CDUZ 

equals 

34 

0035 

OPTY 

EQUALS 

35 

0036 

OPTX 

EQUALS 

36 

0037 

PIPAX 

equals 

37 

OOAO 

PIPAY 

EQUALS 

40 

OOA  1 

PIPAZ 

EQUALS 

41 

OOA2 

BMAGX 

EQUALS 

42 

00A2 

RuiCP 

equals 

42 

00A3 

BMAGY 

equals 

43 

00A3 

RaCy 

equals 

43 

OOAA 

BMAGZ 

equals 

44 

OOAA 

RaCR 

EQUALS 

44 

00A5 

INLINK 

EQUALS 

45 

00A6 

RNRAD 

EQUALS 

46 

00A7 

GYROCTR 

EQUALS 

47 

00A7 

GYROCMD 

equals 

47 

0050 

CDUXCMD 

equals 

50 

0051 

CDUYCMD 

EQUALS 

51 

NOV  10*  1966  (MAIN)  PAGE  7 


USER'S  OWN  PAGE  NO.  1 


L AND  Q ARE  BOTH  CHANNELS  AND  REGISTERS. 


ADJACENT  TO  FBANK  AND  BBANK  FOR  DXCH  Z 
(DTCB)  AND  DXCH  FBANK  ( DTCF ) . 

REGISTER  7 IS  A ZERO-SOURCE*  USED  BY  ZL. 

INTERRUPT  STORAGE. 


SAMPLED  TIME  1 6 2. 

< 1 3 AND  1A  ARE  SPARES.) 
USUALLY  HOLDS  FBANK  OR  BBANK. 
RESUME  ADDRESS  AS  WELL. 


EDITS  INTERPRETIVE  OPERATION  CODE  PAIRS 
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L E3ASA3LE  ASSIGNMENTS 


USER'S  OWN  page  NO.  2 


0046 

0052 

CDUZCMD 

equals 

52 

0047 

0053 

OPTYCMD 

EQUALS 

53 

0048 

0054 

OPTXCMD 

equals 

54 

0049 

0055 

EMSD 

equals 

55 

0050 

0055 

THRUST 

EQUALS 

55 

0051 

0056 

LEMONM 

EQUALS 

56 

0052 

0057 

OJTLINK 

equals 

57 

0053 

0060 

ALTM 

EQUALS 

60 

0054 

0055 

0067 

0067  0067 

NEW JOB 

SETLOC 

ERASE 

67 

decoded  register  for  night-watchman  alm. 

0056 

0042 

LVSUUARE 

EQUALS 

34D 

SQUARE  OF  VECTOR  INPUT  TO  ABVAL  AND  UNIT 

0057 

0044 

LV 

EQUALS 

36D 

length  OF  VECTOR  INPUT  TO  UNIT. 

0058 

0046 

Xl 

EQUALS 

38D 

INTERPRETiVE  SPECIAL  REGISTERS  RELATIVE 

0059 

0047 

X2 

equals 

39D 

TO  THE  WORK  AREA. 

0060 

0050 

si 

EQUALS 

40D 

0061 

0051 

S2 

EQUALS 

4 1 D 

0062 

0052 

QPRET 

equals 

42D 
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ERASA3LE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  3 


P0063  GENERAL  ERASABLE  ASSIGNMENTS. 


0064 

0061 

SETLOC  61 

R0065 

INTERPRETIVE  SWITCH  RESERVATIONS. 

0066  0061  0064  STATE  ERASE  +3  60  SWITCHES  PRESENTLY. 


R0067 

INTERPRETIVE  SWITCH  BIT  ASSIGNMENTS: 

0068 

0000 

wmatflag 

EQUALS 

0 

0069 

0001 

JSWITCH 

equals 

1 

0070 

0002 

MIDFLAG 

equals 

2 

0071 

0003 

M30NFLA6 

equals 

3 

0072 

0004 

NBSMBIT 

EQUALS 

4 

0073 

0005 

COAROFIN 

EQUALS 

5 

0074 

0006 

BODYFLAG 

EQUALS 

6 

0075 

0007 

1 MUSE 

EQUALS 

7 

0076 

0010 

RRUSE 

EQUALS 

8D 

0077 

0011 

RRNBSW 

equals 

9D 

0078 

0012 

LOKONSW 

equals 

10D 

R0079  ENID  OF  SWITCH  ASSIGNMENTS 


R0080 

THE 

FOLLOWING  SET  COMPRISES  THE 

interrupt  temporary  storage 

POO 

R008  1 

ANY 

OF  these  MAY  Be 

JStD  AS  TEMPORARIES 

during 

INTERRUPT 

OR 

WITH  INTERRUPT  inhibited,  the  itemp  series 

R0083 

IS  l 

jsed 

DURING  CALLS  TO  THE 

EXECUTIVE  AND  WAITLIST  - THE 

ruptregs 

ARE 

NOT. 

0085 

0065 

0065 

I TEMPI 

ERASE 

0086 

REF 

1 

0065 

WAITEXIT 

equals 

I TEMP  1 

0087 

REF 

2 

LAST 

9 

0065 

EXECTEM1 

equals 

I TEMP  1 

0088 

0066 

0066 

ITEMP2 

erase 

0089 

REF- 

1 

0066 

waitbank 

EQUALS 

ITEMP2 

0090 

REF 

2 

LAST 

9 

0066 

EXECTEM2 

equals 

I TEMP2 

0091 

0070 

SETLOC 

70 

0092 

0070 

0070 

ITEMP3 

erase 

0093 

REF 

1 

0070 

RJPTSTOR 

equals 

ITEMP3 

0094 

REF 

2 

LAST 

9 

0070 

WAIT  ADR 

equals 

ITEMP3 

0095 

REF 

3 

LAST 

9 

0070 

NEWPRIO 

equals 

ITEMP3 

0096 

0071 

0071 

ITEMP4 

ERASE 

0097 

REF 

1 

0071 

LOCCTR 

EQUALS 

ITEMP4 

0098 

REF 

2 

LAST 

9 

0071 

WAITTEMP 

equals 

ITEMP4 

0099 

0072 

0072 

I TEMP 5 

ERASE 
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L 

0100 

0101 
AO  102 

ERASA3LE  ASSIGNMENTS 
REF  1 

0073 

0072 

0073 

newloc 

ITEMP6 

NEWLOC+i 

EQUALS 

ERASE 

EQUALS 

ITEMP5 

ITEMP6 

USER'S  OWN  PAGE  NO.  A 

DP  ADDRESS, 

0103 

007A 

007A 

RUPTREG1 

ERASE 

010A 

0075 

0075 

RUPTREG2 

ERASE 

0105 

0076 

0076 

RUPTREG3 

ERASE 

0106 

0077 

0077 

RUPTREGA 

ERASE 

0107 

REF 

1 

0077 

KEYTEMPl 

equals 

RUPTRtGA 

0108 

REF 

2 

LAST 

10 

0077 

DSRUPTEM 

equals 

RUPTREGA 

R0109 

the 

FOLLOWING 

ARE  E><E^ 

jtive  temporaries 

WHICH  1 

may  be  used 

between  ccs  newjob  inquiries. 

0111 

0100 

0100 

INTB15+ 

erase 

REFLECTS  15TH  bit  of  indexable  addresses 

0112 

REF 

1 

0100 

DSEXIT 

= 

INTB15+ 

RETURN  FOR  DsPIN 

0113 

REF 

2 

LAST 

10 

0100 

EX  ITEM 

INTB15+ 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 

01 1A 

REF 

3 

LAST 

10 

0100 

BLANKRLT 

= 

INTB15+ 

RETURN  FOR  2BLANK 

0115 

0101 

0101 

INTBIT  IS 

erase 

SIMILAR  TO  ABOVE. 

0116 

REF- 

1 

0101 

WRDRLT 

= 

INTBIT15 

RETURN  FOR  5BLANK 

0117 

REF 

2 

LAST 

10 

0101 

WDRET 

z 

INTBIT15 

RETURN  FOR  dspwd 

0118 

REF 

3 

LAST 

10 

0101 

decret 

5 

INTBIT15 

RETURN  FOR  PUTCOM ( DEC  LOAD) 

0119 

REF- 

A 

LAST 

10 

0101 

21/22RLG 

INTBIT15 

TEMP  FOR  CHARIN 

R0120 

the 

REGISTERS 

between 

ADDRWD  AND  PRIORlT 

Y MUST 

stay  in 

tHe 

FOLLOWING  ORDtR  FOR  INTERPRETIVE  TRACE. 

0122 

0102 

0102 

ADDRWD 

erase 

12  BI1  INTERPRETIVE  OPERAND  SUB-ADDRESS. 

0123 

0103 

0103 

POLISH 

erase 

HOLDS  CADR  MADE  FROM  POLISH  ADDRESS. 

0 1 2 A 

REF 

1 

0103 

UPDATRET 

= 

POLISH 

return  FOR  updatnn,  updatvb 

0125 

REF 

2 

LAST 

10 

0103 

CHAR 

= 

POLISH 

TEMP  FOR  CHARIN 

0126 

REF- 

3 

LAST 

10 

0103 

ERCNT 

z 

POLISH 

COUNTER  FOR  ERROR  LIGHT  RESET 

0127 

REF 

A 

last 

10 

0103 

DECOUNT 

5 

POLISH 

COUNTER  FOR  SCALING  AND  DISPLAY  (DEC) 

0128 

010A 

010A 

FIXLOC 

erase 

WORK  AREA  ADDRESS. 

0129 

0105 

0105 

OVFIND 

erase 

SET  NON-ZERO  ON  OVERFLOW. 

0130 

0106 

0113 

VBUF 

erase 

*5 

TEMPORARY  STORAGE  USED  FOR  VECTORS. 

0131 

REF 

1 

0106 

SGNON 

z 

VBUF 

TEMP  FOR  ♦ »-  ON 

0132 

REF 

2 

LAST 

10 

0106 

NOUNTEM 

z 

VBUF 

COUNTER  FOR  M1XN0UN  FETCH 

0133 

REF 

3 

LAST 

10 

0106 

DISTEM 

= 

VBUF 

COUNTER  FOR  OCTAL  DISPLAY  VERBS 

0 1 3 A 

REF 

A 

LAST 

10 

0106 

dectem 

= 

VBUF 

COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 

0135 

REF 

5 

LAST 

10 

0107 

SGNOFF 

— 

VBUF 

+ 1 

TEMP  FOR  +*-  ON 

0136 

REF 

6 

LAST 

10 

0107 

NVTEMP 

= 

VBUF 

+ 1 

TEMP  FOR  NVSuB 

0137 

REF 

7 

LAST 

10 

0107 

SFTEMPl 

= 

VBUF 

♦ 1 

STORAGE  FOR  SF  CONST  HI  PAR T ( =SFTEMP2- 1 ) 

0138 

REF- 

8 

LAST 

10 

0110 

CODE 

— 

VBUF 

+ 2 

FOR  DSPIN 

0139 

REF 

9 

LAST 

10 

0110 

SFTEMP2 

= 

VBUF 

+ 2 

STORAGE  FOR  SF  CONST  LO  PART ( =SFTEMP 1 + 1 ) 

473423a 

YJL 

system  for 

BLI42J 

REVISION 

12  oF  program  aurora  by  dap  group 
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l 

ERASA3LL 

assignments 

USER'S  OWN  PAGE  NO.  5 

0140 

REF 

10 

LAST 

10 

0111 

MIXTEMP 

r 

VBUF 

+ 3 

FOR  mixnoun  data 

0141 

REF 

11 

LAST 

11 

0111 

SIGNRET 

= 

VBUF 

+ 3 

RETURN  FOR  ON 

R0 1 42 

ALSO 

VlTVTf-MP+l 

= VBllF+4.  mixt 

+ ? ; VBUF  + 5 . 

0143 

0114 

0116 

buf 

erase 

+ 2 

TEMPORARY  SCALAR  STORAGE. 

0144 

0117 

0120 

BUF2 

ERASF 

+ 1 

0145 

REF 

l 

0114 

indexloc 

EQUALS 

BUF 

CONTAINS  ADDRESS  OF  SPECIFIED  INDEX. 

0146 

REF 

2 

LAST 

11 

0114 

SwWORD 

equals 

BUF 

address  of  switch  word. 

0147 

REF 

3 

LAST 

11 

0115 

SWBIT 

equals 

BUF  +l 

SWITCH  BII  WITHIN  SWITCH  WORD. 

0148 

0121 

0121 

MPTEMP 

erase 

TEMPORARY  USED  IN  MULTIPLY  AND  SHIFT. 

0149 

0122 

0122 

DOTINC 

erase 

COMPONENT  INCREMENT  FOR  DOT  SUBROUTINE. 

0150 

REF 

1 

0122 

DVSIGN 

equals 

DOTINC 

DETERMINES  SIGN  OF  DDV  RESULT. 

0151 

REF 

2 

LAST 

11 

0122 

ESCAPE 

equals 

DOTINC 

USED  IN  ARCSIN/ARCCOS. 

0152 

REF 

3 

LAST 

11 

0122 

ENTRET 

= 

DOTINC 

EXIT  FROM  ENTER 

0153 

0123 

0123 

DOTRET 

erase 

RETURN  FROM  DOT  SUBROUTINE. 

0154 

REF 

1 

0123 

dvnormct 

EQUALS 

DOTRET 

DIVIDEND  NORMALIZATION  COUNT  IN  DDV. 

0155 

REF 

2 

LAST 

11 

0123 

ESCAPE2 

equals 

DOTRET 

ALTERNATE  ARCSIN/ARCCOS  SWITCH. 

0156 

REF 

3 

LAST 

11 

0123 

WDCNT 

= 

DOTRET 

CHAR  COUNTER  FOR  DSPWD 

0157 

REF 

4 

LAST 

11 

0123 

INREL 

s 

DOTRET 

INPUT  BUFFER  SELECTOR  ( X.Y.Z,  REG  ) 

0158 

0124 

0124 

MATINC 

ERASE 

VECTOR  INCREMENT  IN  MXV  AND  VXM. 

0159 

REF 

1 

0124 

MAXDVSW 

equals 

MATINC 

+0  IF  DP  QUOTIENT  IS  NEAR  ONE  - ELSE  -1. 

0160 

REF 

2 

LAST 

11 

0124 

POLYCNT 

equals 

MATINC 

POLYNOMIAL  LOOP  COUNTER 

0161 

REF 

3 

LAST 

11 

0124 

DSPMMTEM 

E 

MATINC 

DSPCOUNT  SAVE  FOR  DSPMM 

0162 

REF 

4 

LAST 

11 

0124 

MIXBR 

~ 

MATINC 

indicator  for  mixed  or  normal  NOUN 

0163 

0125 

0125 

TEM1 

ERASE 

EXEC  TEMP 

0164 

REF 

1 

0125 

POLYRET 

= 

TEMl 

0165 

REF 

2 

LAST 

11 

0125 

DSREL 

= 

TEMl 

rel  address  FOR  DSPIN 

0166 

0126 

0126 

TEM2 

erase 

EXEC  TEMP 

0167 

REF 

1 

0126 

dsmag 

TEM2 

MAGNITUDE  STORE  FOR  DSPIN 

0168 

REF 

2 

LAST 

11 

0126 

I DADDTLM 

= 

TEM2 

MIXNOUN  INDIRECT  ADDRESS  STORAGE 

0169 

0127 

0127 

TEM3 

ERASE 

EXEC  TEMP 

0170 

REF 

1 

0127 

COUNT 

TEM3 

FOR  DSPIN 

0171 

0130 

0130 

TEM4 

erase 

EXEC  TEMP 

0172 

REF 

1 

0130 

LSTPTR 

TEM4 

LIST  POINTER  FOR  GRABUSY 

0173 

REF 

2 

LAST 

11 

0130 

RELRET 

= 

TEM4 

RETURN  FOR  ReLDSP 

0174 

REF 

3 

LAST 

11 

0130 

FREERET 

s 

TEM4 

return  for  freedsp 

0175 

0131 

0131 

TEM5 

ERASE 

EXEC  TEMP 

0176 

REF 

1 

0131 

NOUNADD 

= 

TEM5 

TEMP  STORAGE  FOR  NOUN  ADDRESS 

0177 

0132 

0132 

nnadtem 

ERASE 

temp  for  noun  address  table  entry 

0178 

0133 

0133 

NNTYPTEM 

erase 

TEMP  FOR  NOUN  TYPE  TAbLE  ENTRY 

0179 

0134 

0134 

IDADlTEM 

erase 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY(MIXNN) 
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l 

erasable  assignments 

USER'S  OWN  PAGE  NO.  6 

AO  1 80 

MUST  = IDAD2TEM-1,  = I DAD3TEM-2 . 

0181 

0135 

0135 

1DAD2TEM 

ERASE 

temp  for  indir  adress  table  entry(Mixnn) 

AO  1 82 

MUST  = 1 DAD  1 T EM+ 1 , = 1 DAD3TEM-1 . 

0183 

0136 

0136 

IDAD3TEM 

erase 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY (MIXNN) 

A0184 

MUST  = IDAD1TEM  + 2 , = I DAD2TEM+ 1 , 

0185 

0137 

0137 

RUTMXTEM 

erase 

TEMP  FOR  SF  ROUT  TABLE  ENTRY (MIxNN  ONLY) 

R0186 

STORAGE  USED 

BY  THE 

EXECUTIVE. 

0187 

0140 

0146 

MPAC 

erase  +6 

MULTI-PURPOSE  ACCUMULATOR. 

0188 

0147 

0147 

MODE 

erase 

+1  FOR  TP.  +0  FOR  DP,  OR  -1  FOR  VECTOR. 

0189 

0150 

0150 

LOC 

erase 

location  associated  with  job. 

0190 

0151 

0151 

BANKSET 

erase 

USUALLY  CONTAINS  BBANK  SETTING, 

0191 

0152 

0152 

PUSHLOC 

ERASE 

WORD  OF  PACKED  I NTERPRE I I V E PARAMETERS. 

0192 

0153 

0153 

PRIORITY 

erase 

PRIORITY  OF  PRESENT  JOB  AND  WORK  AREA. 

0193 

0154 

0263 

ERASE  +71D 

SEVEN  SETS  OF  12  REGISTERS  EACH. 

473423A  YJL  SYSTEM  FOR  B|_K2:  REVISION!  12  OF  PROGRAM  AURORA  BY  DAP 
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P0194 

THE  FOLLOWING  REGISTERS  ARE  R 

ESERVED  FOR 

: PINBALL 

R0195 

RESERVED  FOR  PINBALL  EXECUTIV 

E ACTION 

0196 

0264 

0264 

DSPCOUNT 

erase 

0197 

0265 

0265 

DECBRNCH 

erase 

0198 

0266 

0266 

VERBREG 

ERASE 

0199 

0267 

0267 

N3UNREG 

erase 

0200 

0270 

0270 

XREG 

erase 

0201 

0271 

0271 

YREG 

erase 

0202 

0272 

0272 

ZREG 

erase 

0203 

0273 

0273 

XREGLP 

erase 

0204 

0274 

0274 

YREGLP 

erase 

0205 

0275 

0275 

ZREGLP 

ERASE 

0206 

0276 

0276 

MODREG 

ERASE 

0207 

0277 

0277 

DSPLOCK 

erase 

0208 

0300 

0300 

REQRET 

erase 

0209 

0301 

0301 

loadstat 

erase 

0210 

0302 

0302 

CLPASS 

erase 

0211 

0303 

0303 

NOUT 

erase 

0212 

0304 

0304 

NOUNCADR 

ERASE 

0213 

0305 

0305 

MONSAVE 

ERASE 

02  1 A 

0306 

0306 

MONSAVE  1 

erase 

0215 

0307 

0322 

DSPTAB 

ERASE 

0216 

0323 

0323 

CADRSTOR 

ERASE 

0217 

0324 

0324 

GRABLOCK 

ERASE 

0218 

0325 

0325 

NVQTEM 

erase 

A0219 

0220 

0326 

0326 

NVBNKTEM 

erase 

A0221 

0222 

0327 

0331 

DSPL1ST 

erase 

0223 

0332 

0332 

EXTVBACT 

erase 

0224 

0333 

0335 

DSPTEM1 

erase 

0225 

0336 

0340 

DSPTEM2 

erase 

R0226 

END  OF  eRASAbLeS  RESERVED  for 

PlNbALL  EXECUTIVE  A 

CTION 

R0227 

reserved  for  pinball  interrupt 

ACTION 

0228 

0341 

0341 

DSPCNT 

erase 

0229 

A0230 

0342 

0342 

UPLOCK 

erase 

R0231 

end  OF  ERASABLES  RESERVED  for 

PINBALL  I 

nteRpupt 

ACTION 

r0232  DAP  STORAGE  IN  NON-5WI  TCHED  ERASABLE. 


GROUP 
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DISPLAY  POSITION  INDICATOR 
♦DEC,  - DEC.  OCT  INDICATOR 
VERB  CODE 
NOUN  CODE 


R 1 

INPUT  BUFFER 

R2 

INPUT  BUFFER 

R3 

INPUT  BUFFER 

LO 

PART  OF  XREG 

(FOR 

DEC 

CONV 

ONLY) 

LO 

PART  OF  YREG 

(FOR 

DEC 

CONV 

ONLY) 

LO 

PART  OF  ZREG 

(FOR 

DEC 

CONV 

ONLY) 

MODE  CODE 

KEYBOARD/SUBROUTINE  CALL  INTERLOCK 
RETURN  REGISTER  FOR  LOAD 
STATUS  INDICATOR  FOR  LOADTST 
PASS  INDICATOR  CLEAR 
ACTIVITY  COUNTER  FOR  DSPTAB 
MACHINE  CADR  FOR  NOUN 
N/V  CODE  FOR  MONITOR,  (s  M0NSAVE1-1) 
NOUNCADR  FOR  MON  I TOR (MA  I BS ) =MONSAVE  +1 
ID  0-10D.  DISPLAY  PANEL  BUFF.  11D.  C/S  LTS. 

ENDIDLE  STORAGE 

INTERNAL  INTERLOCK  FOR  DISPLAY  SYSTEM 
NVSUB  STORAGE  FOR  CALLING  ADDRESS 
MUST  = NVBNKTEM-1 
NVSUB  STORAGE  FOR  CALLING  BANK 
MUST  = NVUTEM+ 1 

+2  WAITING  LIST  FOR  DSP  SYST  INTERNAL  USE 

EXTENDED  VERB  ACTIVITY  INTERLOCK 
+2  BUFFER  STORAGE  AREA  1 (MOSTLY  FOR  TIME) 

+2  BUFFER  STORAGE  AREA  2 (MOSTLY  FOR  DEO 


COUNTER  FOR  DSPOUT 

BIT1  = UPLINK  INTERLOCK  (ACTIVATED  BY 

reception  of  a bad  message  in  uplink) 
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L ERASA3LE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  8 


0233 

0234 

REF 

1 

0343 

0344 

0343 

T6L0C 

T6ADR 

ERASE 

equals 

+ 1 

T6L0C 

0235 

0236 

REF 

1 

0345 

0346 

0345 

T5L0C 

T5ADR 

ERASE 

EQUALS 

+ 1 

T5L0C 

473423A 


P0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 


0249 

0250 


R0251 


0252 

0253 

0254 

0255 

0256 

0257 

0258 


0259 

0260 
0261 
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ERASABLE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  9 

ASSIGNMENTS  FOR  T4RUPT  PROGRAM 


0347 

0350 

0347 

0350 

T4L0C 

DSRUPTSW 

ERASE 

ERASE 

0351 

0351 

D IDF  LG 

ERASE 

0352 

0353 

ALT 

ERASE 

+ 1 

0354 

0354 

ALTRATE 

ERASE 

0355 

0356 

FINALT 

erase 

♦ 1 

(MAY  NOT  BE  REQUIRED  FOR  FLIGHTS). 

0357 

0357 

LGYRO 

ERASE 

0360 

0360 

FORVEL 

ERASE 

0361 

0361 

LATVEL 

ERASE 

0362 

0362 

LAST YCMD 

ERASE 

0363 

0363 

LASTXCMD 

ERASE 

0364 

0365 

ALTSAVE 

ERASE 

♦ 1 

0366 

0366 

LMPCMD 

ERASE 

END  OF  14RUPT  ASSIGNMENTS 


0367 

0367 

IM0DES30 

erase 

0370 

0370 

I M0DES33 

ERASE 

0371 

0373 

MODECADR 

ERASE 

♦ 2 

REF 

1 

0371 

IMUCADR 

EQUALS 

MODECADR 

REF 

2 

LAST 

15 

0372 

AOTCADR 

equals 

MODECADR 

♦ 1 

REF 

1 

0372 

OPTCADR 

equals 

AOlCADR 

REF 

3 

LAST 

15 

0373 

RADCADR 

equals 

MODECADR 

+ 2 

0374 

0374 

MARKSTAT 

erase 

0375 

0375 

XYMARK 

ERASE 

0400 

setloc 

400 
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P0262 

temporary  phony  assignments  to 

<EEP  PINBALL  FROM 

HAVING 

bad  assemblies 

0263 

0400 

0402 

THETAD 

ERASE 

♦2 

0264 

0403 

0 A 1 0 

DELVX 

ERASE 

+ 5 

R0265 

END  OF  PHONY  ASSIGNMENTS 

R0266 

DOWNLINK  LIST 

ADDRESS 

• 

0267 

0411 

0411 

DNLST  ADR 

ERASE 

R0268 

AGS  DJMMY  ID  WORD 

0269 

0412 

0412 

AGSWORD 

ERASE 

R0270 

RADAR  ERASABLE 

0271 

0413 

0413 

radmodes 

ERASE 

0272 

0414 

0414 

SAMPLIM 

ERASE 

0273 

0415 

0416 

SAMPLSUM 

ERASE 

+ 1 

0274 

REF  1 

0415 

SAMPSUM 

equals 

SAMPLSUM 

0275 

0417 

0420 

OPTYHOLD 

ERASE 

♦ 1 

0276 

0421 

0422 

TIMEHOLD 

ERASE 

+ 1 

0277 

REF  2 LAST  16 

0415 

rrtarget 

equals 

SAMPLSUM 

HALF  UNIT  VECTOR  IN  SM  OR  NB  AXES. 

0278 

0423 

0424 

TaNG 

erase 

+ 1 

DESIRED  TRUNNION  AND  SHAFT  ANGLES. 

0279 

REF  1 

0423 

modea 

equals 

tang 

0280 

0425 

0426 

MODES 

erase 

♦ 1 

DODES  CLOBBERS  TANG  +2. 

0281 

REF  1 

0425 

NSAMP 

EQUALS 

MODEB 

0282 

0427 

0427 

DESRET 

ERASE 

0283 

REF  1 

0427 

OLDATAGD 

EQUALS 

DESRET 

USED  IN  DATA  READING  ROUTINES. 

02  84 

0430 

0430 

descount 

ERASE 

R0285 

END  OF  RADAR  ERASABLE 

ASS1GNME 

NTS 

0286 

0431 

0431 

VAC1USE 

ERASE 

0287 

0432 

0504 

VAC  1 

ERASE 

+ 42D 

0288 

0505 

0505 

VAC2USE 

ERASE 

0289 

0506 

0560 

VAC2 

ERASE 

+ 42D 

0290 

0561 

0561 

VAC3USE 

ERASE 

0291 

0562 

0634 

VAC3 

ERASE 

+ 42D 

0292 

0635 

0635 

VAC4USE 

ERASE 

0293 

0636 

0710 

VAC4 

ERASE 

+ 42D 

0294 

0711 

0711 

VAC5USE 

ERASE 

0295 

0712 

0764 

VAC5 

ERASE 

♦ 42D 

R02951 

unswitched  erasable  storage  assignments 

FOR  THE  1 

DAP 

02952 

0765 

0765 

DAPBOOLS 

ERASE 

02953 

0766 

0767 

T6NEXT 

ERASE 

♦ 1 

02954 

0770 

0772 

T6NEXTJT 

ERASE 

♦ 2 

02955 

0773 

0773 

DELAYCTR 

ERASE 

R02956 

THESE  ARE  WRITTEN  INTO 

FROM  SE 

VERAL  PROGRAMS 

4 7 3 4 2 3 A 

YJL  SYSTEM  FOR  BLK2!  REVISION 

12 

of  program  aurora  by  dap  group 
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erasable  assignments 

USER ' 5 OWN  PAGE  NO.  11 

02957 

0774 

0774 

CDUXD 

ERASE 

02958 

0775 

0775 

CDUYD 

ERASE 

02959 

0776 

0776 

CDUZD 

ERASE 

0296 

1000 

SETLOC 

1000 

R0297 

ERAS A3Lt  STORAGE  FOR  AVERAGE 

s integrator 

0298 

1000 

1005 

RN 

ERASE 

+ 5 

0299 

1006 

1013 

VN 

ERASE 

♦ 5 

0300 

1014 

1014 

NSHIFT 

ERASE 

0301 

1015 

1015 

XSHIFT 

ERASE 

0302 

1016 

1023 

UN1TR 

ERASF 

+ 5 

0303 

1024 

1031 

UNITW 

ERASE 

+ 5 

0304 

1032 

1033 

rmag 

ERASE 

♦1 

0305 

1034 

1035 

RMAG5Q 

ERASE 

+ 1 

0306 

1036 

1043 

GRAVITY 

ERASF 

+ 5 

0307 

1044 

1051 

DELV 

ERASE 

+ 5 

0308 

1052 

1053 

DELTAT 

ERASE 

+ 1 

0309 

1054 

1061 

RN1 

ERASE 

+ 5 

0310 

1062 

1067 

VN  1 

ERASE 

+ 5 

R0312 

WAITLIST  REPEAT  F LAS 

! 

0313 

1070 

1070 

RUPTAGN 

ERASE 

0314 

REF  1 

1070 

KEYTEMP2 

5 

RUPTAGN 

TEMP  FOR  KEYRUpT,  UpRUpT 

R0315 

PHASE  TABLE  AND  RESTART 

counter. 

0316 

1071 

1071 

-PHASEO 

ERASE 

0317 

1072 

1072 

PHASEO 

ERASE 

0318 

1073 

1073 

-PHASE1 

ERASE 

0319 

1074 

1074 

PHASE  1 

ERASE 

0320 

1075 

1075 

-PHASE2 

ERASE 

0321 

1076 

1076 

PHASE2 

ERASE 

0322 

1077 

1077 

-PHASE3 

ERASE 

0323 

1100 

1100 

PHASE3 

ERASE 

0324 

1101 

1101 

-PHASE4 

ERASE 

0325 

1102 

1102 

PHASE4 

ERASE 

0326 

1103 

1103 

-PHASE5 

ERASE 

0327 

1104 

1104 

PHASE5 

ERASE 

R0328 

erasable  For  single  precision 

SJBRoUtINES, 

0329 

1105 

1105 

HALF  Y 

ERASE 

0330 

1106 

1106 

ROOTRET 

ERASE 

0331 

1107 

1107 

SQRARG 

ERASE 

0332 

REF  1 

1105 

TEMK 

equals 

HALFY 

0333 

REF  1 

1106 

S3 

EQUALS 

ROOTRET 

0334 

1110 

1110 

1/PIPADT 

erase 

IMU  compensation  package 

0335 

REF  1 

1110 

oldbti 

s 

1/PIPADT 

473423A  YJL  SYSTEM  FOR  BLK2 • REVISION!  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


L 

erasable 

ASSIGNMENTS 

R0366 

ASSI 

gnments  reserved 

EXCLUSI*/ 

ELY  FOR  SELF-CHECK 

0367 

1360 

1377 

SELFERAS 

ERASE 

1360  - 1 

0368 

1360 

SELFRET 

E 

1360 

0369 

1361 

SMODE 

£ 

1361 

0370 

1362 

redoctr 

B 

1362 

0371 

1363 

FAILREG 

B 

1363 

0372 

1364 

SFA1L 

B 

1364 

0373 

1365 

ERCOUNT 

B 

1365 

0374 

1366 

SCOUNT 

B 

1366 

0375 

1371 

SKEEP1 

£ 

1371 

0376 

1372 

SKEEP2 

m 

1372 

0377 

1373 

SKEEP3 

z 

1373 

0378 

1374 

SKEEP4 

z 

1374 

0379 

1375 

SKEEP5 

z 

1375 

0380 

1376 

SKEEP6 

z 

1376 

0381 

1377 

SKEEP7 

«* 

1377 

R0382 

waitlist 

TASK  LISTS 

0383 

E3  * 1400 

SETLOC 

1400 

0384 

E3 , 1400 

E3.1407 

LST 1 

ERASE 

+ 7 

0385 

E3.1410 

E3. 1431 

LST  2 

erase 

+ 17D 

R0386 

IMU  COMPENSATION  PARAMETERS: 

0387 

E3, 1432 

E3  1 1432 

PB I ASX 

erase 

03875 

REF 

1 

E3.1432 

pipabias 

£ 

PB 1 ASX 

0388 

t3  * 1433 

E3  * 1433 

PIPASCFX 

erase 

03885 

REF 

1 

E3 , 1433 

PIPASCF 

s 

PIPASCFX 

0389 

E3 , 1434 

E3 , 1434 

PBIASY 

erase 

0390 

E3  » 1435 

E3 , 1435 

PIPASCFY 

erase 

0391 

E3, 1436 

E3  * 1436 

PRIASZ 

ERASE 

0392 

E3, 1437 

E3.1437 

PIPASCFZ 

ERASE 

0393 

E3.1440 

E3  * 1440 

NBDX 

ERASE 

03931 

REF 

1 

E3  * 1440 

GB I ASX 

£ 

NbDX 

03932 

£3,1441 

E3.1441 

NBDY 

ERASE 

03934 

E3 , 1442 

E3  * 1442 

NBDZ 

ERASE 

039^ 

E3 , 1 443 

E3  * 1 443 

ADIAX 

erase 

03942 

E3 , 1444 

E3 , 1 444 

adiay 

ERASE 

03944 

E3 , 1 445 

E3  » 1445 

ADIAZ 

ERASE 

0395 

E3 » 1 446 

E3» 1446 

ADSRAX 

erase 

03952 

E3 , 1 447 

E3 , 1447 

ADSRAy 

ERASE 

03954 

E3  ♦ 1450 

E3 , 1450 

ADSRAZ 

ERASE 

0396 

E3.1451 

E3  * 1456 

GCOMP 

erase 

♦5 
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USER'S  OWN  PAGE  NO.  12 


KEEPS  TRACK  OF  RESTARTS 


DELTA  T'S. 

2CADR  TASK  ADDRESSES. 


PIPA  BIAS  AND  PIPA  SCALE  FACTOR  TERMS 
INTERMIXED. 


GYRO  BIAS  DRIFTS 


ACCELERATION  SENSITIVE  DRIFT  ALONG  THE 
INPUT  AXIS 


acceleration  sensitive  drift  along  the 
spin  reference  axis 


CONTAINS  COMPENSATING  TORQUES 


473423A 


03965 

0397 

0398 

R0399 

0400 
0 AO  1 
0402 

R0403 

0404 

0405 
R0406 

04061 

04062 

04063 

04064 

0407 

0408 

R04081 

04082 

04083 

04084 

04085 

0409 

0410 
R0411 

04 1 3 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 
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ERASABLE  ASSIGNMENTS 


USER'S  OWN  PAGE  NO.  13 


£3,1457  £3,1457  GCOMPSW  ERASE 

REF  i £3,1451  COMMAND  EQUALS  GCOMP 

REF  2 LAST  19  £3,1454  CDUIND  EQUALS  GCOMP  +3 

STORAGE  FOR  RR  TASKS. 

E3  * 1460  E3  * 1 460  RRRET  ERASE 

£3,1461  £3*1461  RDES  ERASE 

£3,1462  E3  * 1462  RR INDEX  ERASE 

AOT  CALIBRATIONS  IN  AZIMUTH  AND  ELEVATION  AT  DETENTS 

E3.1463  £3*1465  AOTAZ  ERASE  +2 

E3.1466  E3.1470  AOTEL  ERASE  +2 

ASSIGNMENTS  FOR  PRESENTLY  UNUSED  NOUNS. 

E3.1471  AZANG  EQUALS  DELETE  WHEN  OPTICAL  TRACKER  NOUNS  GONE. 


E3.1471 

ELANG 

equals 

£3*1471 

DESLOTSY 

equals 

E3.1471 

DESLOTSX 

EQUALS 

£3*1471 

E3.1473 

ROLL 

ERASE 

♦2 

E3  * 1474 

£3*1501 

landmark 

ERASF 

+ 5 

THE 

FOLLOWING 

regs 

ARE  USED  BY 

the  standby  verbs 

E3.1502 

£3*1503 

TIMESAV 

ERASE 

+ 1 

E3  * 1504 

£3*1505 

scalsav 

ERASE 

♦ 1 

£3*1506 

£3.1507 

T 1 MAR 

ERASE 

♦ 1 

E3.1510 

£3*1511 

TIMEDIFF 

ERASE 

+ 1 

£4.1400 

SETLOC 

2000 

E4  * 1400 

E4 , 1 626 

AMEMORY 

ERASE 

♦ 1 50D 

the 

following  a memory 

LOCATIONS  ARE  USED  by  MiD-COURSE 

navi ga i ion; 

REF 

1 

£4*1400 

RRECT 

equals 

AMEMORY 

+ 000D 

REF 

2 

LAST 

19 

E4.1400 

rigntion 

EQUALS 

AMEMORY 

+ 000D 

REF 

3 

LAST 

19 

£4  * 1406 

VRECT 

EQUALS 

AMEMORY 

+ 006D 

REF 

4 

LAST 

19 

E4.1406 

VIGNTION 

EQUALS 

AMEMORY 

+ 006D 

REF 

5 

LAST 

19 

E4*  1414 

TDELTAV 

EQUALS 

AMEMORY 

+ 012D 

REF 

6 

LAST 

19 

£4*141*, 

NEWDLTA V 

EQUALS 

AmEmORY 

+ 0 1 2D 

REF 

7 

LAST 

19 

E4.1422 

TNUV 

equals 

AMEMORY 

+ 018D 

REF 

8 

LAST 

19 

£4*1422 

NEWNUV 

equals 

AMEMORY 

+ 018D 

REF 

9 

LAST 

19 

£4*1430 

RCV 

equals 

AMEMORY 

+ 024D 

REF 

10 

LAST 

19 

E4.1430 

FOUNDR 

equals 

AMEMORY 

+ 024D 

REF 

11 

LAST 

19 

E4  * 1 436 

VC  V 

equals 

AmEMORY 

+ 030D 

REF 

12 

LAST 

19 

£4  * 1436 

FOUNDV 

equals 

AMEMORY 

+ 030D 

REF 

13 

LAST 

19 

E4  * 1 444 

TC 

EQUALS 

AMEMORY 

+ 036D 

REF 

14 

LAST 

19 

£4*1446 

TET 

equals 

AMEMORY 

+ 038D 

REF 

15 

LAST 

19 

£4*1450 

XKEP 

equals 

AMEMORY 

+ 040D 

ref 

16 

LAST 

19 

£4 ♦ 1452 

alphav 

EQUALS 

AMEMORY 

+ 042D 
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L ERASABLE  ASSIGNMENTS  USER'S  OWN  PAGE  NO.  14 


0429 

REF 

17 

LAST 

19 

E4  » 1452 

DELR 

equals 

AMEMORY 

+ 042D 

0430 

REF 

18 

LAST 

20 

E4  * 1 460 

BETAV 

EQUALS 

AMEMORY 

+ 048D 

0431 

REF 

19 

LAST 

20 

E4, 1460 

DELVEL 

EQUALS 

AMEMORY 

+ 048D 

0432 

ref 

20 

LAST 

20 

E4 , 1466 

PHIV 

equals 

AmEMOrY 

+ 054D 

0433 

REF 

21 

LAST 

20 

E4» 1466 

BVECTOR 

EQUALS 

AMEMORY 

+ 054D 

0434 

REF 

22 

LAST 

20 

E4, 1474 

PSIV 

EQUAl  S 

AMEMORY 

+ 060D 

0435 

REF 

23 

LAST 

20 

E4 , 1502 

FV 

EQUALS 

AMEMORY 

+ 066D 

0436 

REF 

24 

LAST 

20 

£4*1510 

VECTAB 

equals 

AMEMORY 

+ 072D 

0437 

REF 

25 

LAST 

20 

E4  * 1 5 10 

TaVEGON 

EQUALS 

AMEMORY 

+ 072D 

0438 

REF 

26 

LAST 

20 

£4,1512 

TRESUME 

EQUALS 

AMEMORY 

+ 074D 

0439 

REF 

27 

LAST 

20 

E4* 1514 

RAVEGON 

EQUALS 

AMEMORY 

+ 076D 

0440 

REF 

28 

LAST 

20 

E4 , 1 522 

vavegon 

equals 

AMEMORY 

+ 0820 

0441 

REF 

29 

LAST 

20 

E4, 1530 

RIG-4SEC 

equals 

AMEMORY 

+ 0880 

0442 

REF 

30 

LAST 

20 

E4 , 1 554 

ALPHAM 

equals 

AMEMORY 

+ 108D 

0443 

REF 

31 

LAST 

20 

E4, 1556 

BETAM 

EQUALS 

AMEMORY 

♦ hod 

0444 

REF 

32 

LAST 

20 

E4 , 1560 

TAU 

EQUALS 

AMEMORY 

+ 112D 

0445 

REF 

33 

LAST 

20 

£4,1560 

GIVENT 

EQUALS 

AMEMORY 

+ 112D 

0446 

REF 

34 

LAST 

20 

E4 , 1 562 

DT/2 

EQUALS 

AMEMORY 

+ 114D 

0447 

REF 

35 

LAST 

20 

E4 , 1 564 

H 

equals 

AMEMORY 

+ 116D 

0448 

REF 

36 

LAST 

20 

E4 , 1 566 

TDEC 

equals 

AMEMORY 

+ 118D 

0449 

REF 

37 

LAST 

20 

E4  1 1 570 

FBRANCH 

EQUAl  5 

AMEMORY 

+ 120D 

0450 

REF 

38 

LAST 

20 

E4 , 1 57 1 

HBRANCH 

EQUALS 

AMEMORY 

+ 121D 

0451 

REF 

39 

LAST 

20 

E4, 1572 

GMODE 

equals 

AMEMORY 

+ 122D 

0452 

REF 

40 

LAST 

20 

E4  * 1 573 

QREADY 

EQUALS 

AMEMORY 

+ 123D 

0453 

ref 

41 

LAST 

20 

E4 , 1 574 

measq 

equals 

AMEMORY 

+ 124D 

0454 

REF 

42 

LAST 

20 

£4,1576 

DELTAQ 

EQUALS 

AMEMORY 

♦ 126D 

0455 

REF 

43 

LAST 

20 

E4 « 1 600 

MEASMODE 

EQUALS 

AMEMORY 

♦ 128D 

0456 

REF 

44 

LAST 

20 

£4,1601 

NVCODE 

equals 

AMEMORY 

+ 129D 

0457 

REF 

45 

LAST 

20 

E4 , 1602 

MIDEXIT 

equals 

AMEMORY 

♦ 130D 

0458 

REF 

46 

LAST 

20 

£4,1602 

DSPRTRN 

equals 

AMEMORY 

+ 130D 

0459 

REF 

47 

LAST 

20 

£4,1603 

INCORPEX 

equals 

AMEMORY 

+ 1 3 ID 

0460 

REF 

48 

LAST 

20 

E4 , 1604 

STEPEXIT 

EQUALS 

AMEMORY 

+ 132D 

0461 

REF 

49 

LAST 

20 

£4,1605 

DIFEQCNT 

EQUALS 

AMEMORY 

+ 133D 

0462 

REF 

50 

LAST 

20 

E4 , 1 605 

NORMGAM 

equals 

AMEMORY 

+ 133D 

0463 

REF 

51 

LAST 

20 

E4 , 1606 

scalea 

EQUALS 

AMEMORY 

+ 134D 

0464 

REF 

52 

LAST 

20 

E4 , 1607 

SCALEB 

EQUALS 

AMEMORY 

+ 135D 

0465 

REF 

53 

LAST 

20 

E4 , 1610 

SCALEDT 

EQUALS 

AMEMORY 

+ 136D 

0466 

REF 

54 

LAST 

20 

£4,1611 

SCALDELT 

EQUALS 

AMEMORY 

♦ 137D 

0467 

REF 

55 

LAST 

20 

E4 , 1 6 1 2 

scaler 

EQUALS 

AMEMORY 

+ 138D 

0468 

REF 

56 

LAST 

20 

E4  * 1613 

YV 

EQUALS 

AMEMORY 

+ 139D 

0469 

REF 

57 

LAST 

20 

E4 , 1 62  1 

Z V 

EQUALS 

AMEMORY 

+ 145D 

0470 

E4, 1627 

£4,1627 

PBODY 

ERASE 

0471 

E4  » 1 630 

E4, 1737 

W 

ERASE 

+ 071D 
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ERASABLE  ASSIGNMENTS  USER'S  OwN  PAGE  NO.  15 


R0472 

the 

FOLLOWING 

erasable 

REGISTERS  are  used  by  the 

entry 

AND  INITIALIZATION  JOB  OF  THE  FCS  TEST  FOR  LEM. 

0474 

REF 

58  LAST 

20 

E4  * 1400 

fcscntr 

equals 

AMEMOKY 

+ 000D 

R0475 

the 

FOLLOWING  ERASABLE 

REGISTERS  ARE 

used  by  the  jetset  task. 

R04751 

(OPTIMUM  PRELAUNCH  a c USES  JETSTEP-JETSTEP  +77D 

FOR  RESTART  PROOF) 

0476 

REF 

59  LAST 

21 

E4»  1401 

XJBUF 

EQUALS 

AMEMORY 

+ 00  ID 

0477 

REF 

60  LAST 

21 

E4. 1402 

YZJBUF 

equals 

AMEMORY 

+ 002D 

0478 

REF 

61  LAST 

21 

E4. 1403 

JFBUF 

EQUALS 

AMEMORY 

+ 003D 

0479 

REF 

62  LAST 

21 

E4 . 1404 

FCNTR 

equals 

AMEMORY 

+ 004D 

0480 

REF 

63  LAST 

21 

E4.1405 

thbuf 

equals 

AMEMORY 

+ Q05D 

0481 

REF 

64  LAST 

21 

E4 . 1 406 

offtmbuf 

equals 

AMEMORY 

+ 006D 

0482 

REF 

65  LAST 

21 

E4.1407 

JETSTEP 

EQUALS 

AMEMORY 

+ 007D 

0483 

REF 

66  LAST 

21 

E4.1410 

NTIMES 

EQUAI  s 

AMEMORY 

+ 008D 

0484 

REF 

67  LAST 

21 

E4.1420 

NEXTTIME 

equals 

AMEMORY 

+ 016D 

0485 

ref 

68  LAST 

21 

E4.1430 

jetonTm 

equals 

AMEMORY 

+ 024D 

0486 

REF 

69  LAST 

21 

E4. 1440 

X JET  S 

EQUALS 

AMEMORY 

+ 032D 

0487 

REF 

70  LAST 

21 

E4  * 1450 

YZ JETS 

EQUALS 

AMEMORY 

+ 040D 

0488 

REF 

71  LAST 

21 

E4  * 1460 

JETOFFTM 

EQUALS 

AMEMORY 

+ 048D 

R0489 

THE  FOLLOWING  ERASABLE  REGISTERS  ARE 

. used  by  the  engine  on-off  task. 

0490 

REF 

72  LAST 

21 

E4. 1470 

engstep 

EQUALS 

AMEMORY 

+ 056D 

0491 

REF 

73  LAST 

21 

E4.1471 

CYLTIMES 

EQUALS 

AMEMORY 

+ 057D 

0492 

REF 

74  LAST 

21 

E4.1474 

NEXTCYLT 

equals 

AMEMORY 

+ 060D 

0493 

REF 

75  LAST 

21 

E4.1477 

OnT i me 

equals 

AMEMORY 

+ 063D 

0494 

REF 

76  LAST 

21 

E4.1502 

OFFTIME 

EQUALS 

AMEMORY 

+ 0 6 6D 

0495 

REF 

77  LAST 

21 

E4 » 1 505 

offtimer 

equals 

AMEMORY 

+ 069D 

R0496 

the 

. FOLLOWING  ERASABLE 

registers  are 

used  by  the  trim 

TASK. 

0497 

REF 

78  LAST 

21 

E4 . 1 5 1 0 

trimstep 

equals 

AMEMORY 

+ 072D 

0498 

REF 

79  LAST 

21 

E4.1511 

numtimes 

equals 

AMEMORY 

+ 073D 

0499 

REF 

80  LAST 

21 

E4 . 1 525 

stepdlyt 

equals 

AMEMORY 

+ 085D 

0500 

REF 

81  LAST 

21 

E4  » 1 54 1 

TRIMONT 

EQUALS 

AMEMORY 

+ 097D 

0501 

REF 

82  LAST 

21 

E4.1555 

TRIMOFFT 

equals 

AMEMORY 

+ 109D 

0502 

REF 

83  LAST 

21 

E4.1571 

TRIMIND 

EQUALS 

AMEMORY 

+ 12  ID 

R0503 

the 

following  erasable 

registers  are 

used  by  the  throttle  task 

0504 

REF 

64  LAST 

21 

E4 . 1605 

thrtstep 

EQUALS 

AMEMORY 

+ 133D 

0505 

REF 

85  LAST 

21 

E4 . 1606 

DOTIMES 

EQUALS 

AMEMORY 

+ 134D 

0506 

REF 

86  LAST 

21 

E4» 1614 

DELAY 

EQUALS 

AMEMORY 

+ 140D 

0507 

REF 

87  LAST 

21 

E4.1622 

thritime 

equals 

AMEMORY 

+ 1460 

0508 

REF 

88  LAST 

21 

E4 » 1 630 

THCOMMl 

equals 

AMEMORY 

+ 152D 

0509 

ref 

89  LAST 

21 

E4.1636 

THC0MM2 

equals 

AMEMORY 

♦ 1580 

R0510 

the 

FOLLOWING 

ERASABLE 

registers  are  used  by  the 

INTERFACE  LOOK 

TASK. 

L 

0511 

0512 

0513 

0514 

0515 

R0516 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

R0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 
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ERASABLE 

ASSIGNMENTS 

REF 

90 

LAST 

21 

E4  * 1644 

30BUF1 

ref 

91 

LAST 

22 

E4*  1650 

30BUF0 

REF 

92 

LAST 

22 

E4  * 1654 

QUITLOOK 

REF 

93 

LAST 

22 

£4*1655 

CHCNTR 

E5  ♦ 1400 

THE 

FOLLOWING 

erasable  locati 

ONS  are  utilized  by 

E5  * 1400 

E5  * 142  1 

XSM 

REF 

1 

E5* 1406 

YSM 

REF 

2 

LAST 

22 

E5  * 1414 

ZSM 

E5.1422 

E5.1443 

XDC 

REF 

1 

E5  * 1 430 

YDC 

REF 

2 

LAST 

22 

E5  * 1436 

ZDC 

REF 

3 

LAST 

22 

E5  * 1 422 

XNB 

REF 

4 

LAST 

22 

E5.1430 

YNB 

REF 

5 

LAST 

22 

E5.1436 

ZNB 

E5.1444 

E5.1465 

STARAD 

£5,1466 

E5.1473 

STAR 

£5,1474 

E5.1475 

SAC 

E5  * 1476 

E5  * 1477 

PAC 

E5.1500 

E5  * 1 50 1 

OGC 

E5  * 1 502 

E5  * 1503 

IGC 

E5  * 1504 

E5  * 1 505 

MGC 

0026 

ZPRIME 

0026 

PDA 

0020 

COSTH 

0022 

SINTH 

0024 

THETA 

0040 

STARM 

USER'S  OWN  PAGE  NO.  16 

EQUALS  AMEMORY  +164D 
EQUALS  AMEMORY  +168D 
EQUALS  AMEMORY  + 172D 
EQUALS  AMEMORY  + 173D 

SETLOC  2400 

THE  in-flight  alignment  routines 


ERA5E 

♦ 17D 
XSM  +6 

ERASF 

XSM  + 1 2D 
+ 17D 
XDC  +6 
XDC  ♦ 1 2D 
XDC 

XDC  +6 

s 

XDC  *■  1 2D 

ERASE 

+ 17D 

ERASE 

♦ 5 

ERASE 

♦ 1 

ERASE 

♦ 1 

ERASE 

♦ 1 

ERASE 

+ 1 

ERASE 

+ 1 

= 

22D 

s 

22D 

= 

16D 

= 

18D 

i 

20D 

32D 

THE  FOLLOWING  ERASABLE  LOCATIONS  ARE  UTILIZED  BY  THE  SYSTEM  TESTS 


Eb 

*1506 

E5 , 1 507 

AZIMUTH 

ERASF 

♦1 

Eb 

*1510 

E5  * 1 5 1 1 

LATITUDE 

ERASE 

+ 1 

Eb 

*1512 

E5.1512 

EROPTN 

ERASE 

E5 

*1513 

E5  * 1 520 

ERVECTOR 

ERASE 

♦ 5 

Eb 

*1521 

E5  * 1 526 

GYROD 

ERASE 

♦ 5 

E5 

*1527 

E5.1527 

LENGTHOT 

ERASE 

Eb 

.1530 

E5  * 1 53 5 

LOSVEC 

ERASE 

♦ 5 

Eb 

*1536 

E5  * 1 536 

NBPQS 

ERASE 

Eb 

,1537 

E5  * 1 537 

NDXCTR 

ERASE 

Eb 

,1540 

E5  * 1 540 

PIPANO 

ERASE 

Eb 

*1541 

£5*1541 

PIPINDEX 

ERASE 

Eb 

*1542 

E5  * 1 543 

PIPNDX 

ERASF 

♦ 1 

E5 

*1544 

E5 , 1 544 

POSITON 

ERASE 

E5 

*1545 

E5  * 1 545 

QPLAC 

ERASE 

47342: 

L 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 

0594 

0595 

0596 

0597 
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ERASA3LE  ASSIGNMENTS 


E5.1546 
E5  ♦ 1 547 
E5* 1550 
E5  * 1 55  1 

£5*1546 
E5  » 1 547 
E5  * 1550 
E5  * 1 55  1 

QPLACE 

□PLACES 

RUN 

STOREPL 

ERASE 

ERASE 

ERASE 

ERASE 

E5 » 1 552 

E5.1552 

SOUTHDR 

ERASE 

E5*  1553 

E5  * 1560 

TaZELl 

ERASE 

+ 5 

E5  * 1561 

E5  * 1562 

TEMPT  I ML 

ERASF 

+ 1 

E5.1563 

E5.1563 

TEST  NO 

ERASE 

E5* 1564 

E5  * 1565 

TMARK 

ERASE 

+ 1 

E5  * 1 566 

E5 « 1 566 

SHAFTA 

ERASE 

E5 « 1567 

E5  * 1567 

TRUNA 

ERASE 

REF 

1 

E5  * 1776 

ZERONDX 

s 

ERCOMP 

+ 5 

E5  * 1 570 

E5  * 1747 

GENPL 

ERASF 

♦ 1 1 ID 

REF 

1 

E5  * 1 570 

cdutimei 

- 

GENPL 

REF 

2 

LAST 

23 

E5  * 1572 

CDUTIMEI 

s 

GENPL 

+ 2 

REF 

3 

LAST 

23 

E5.1574 

CDUDANG 

8 

GENPL 

+ 4 

REF 

4 

LAST 

23 

E5  * 1 575 

CDUREADF 

8 

GENPL 

♦5 

REF 

5 

LAST 

23 

E5.1576 

CDUREApI 

8 

GENPL 

+ 6 

REF 

6 

LAST 

23 

E5  * 1 577 

CDULIMIT 

= 

GENPL 

♦ 7 

REF 

7 

LA5T 

23 

E5  * 1 574 

TEMPADD 

— 

GENPL 

+ 4 

REF 

8 

LAST 

23 

E5  * 1 575 

TEMP 

= 

GENPL 

■*•5 

REF 

9 

LAST 

23 

E5  * 1 576 

NOB  ITS 

= 

GENPL 

+ 6 

REF 

10 

LAST 

23 

E5  * 1 577 

CHAN 

= 

GENPL 

+ 7 

REF 

11 

LAST 

23 

E5  * 1 600 

LOS  1 

Z 

GENPL 

+ 8D 

REF 

12 

LAST 

23 

E5  * 1606 

L0S2 

- 

GENpL 

+ 140 

REF 

13 

LAST 

23 

E5  * 1614 

CALCDIR 

equals 

GENPL 

+ 20D 

REF 

14 

LAST 

23 

E5  * 1 6 1 5 

CDUFLAG 

equals 

GENPL 

+ 210 

ref 

15 

LAST 

23 

E5  * 1616 

gytobetq 

equals 

GENPL 

+ 22D 

REF 

16 

LAST 

23 

E5  * 1617 

OPTNREG 

equals 

GENPL 

+ 230 

REF 

17 

LAST 

23 

E5  * 1 620 

SAVE 

EQUALS 

GENPL 

+ 240 

REF 

18 

LAST 

23 

E5.1623 

SFCONST 1 

EQUALS 

GENPL 

♦ 270 

REF 

19 

LAST 

23 

E 5 * 1 6 2 4 

TIMER 

EQUALS 

GENPL 

+ 280 

REF 

20 

LAST 

23 

E5 » 1626 

DATAPL 

equals 

GENPL 

+ 30D 

ref 

21 

LAST 

23 

E5 ♦ 1 570 

RDSp 

EQUALS 

GENpL 

REF 

22 

LAST 

23 

E5  * 1670 

MASKREG 

EQUALS 

GENPL 

+ 640 

REF 

23 

LAST 

23 

E5  * 1672 

CDUNDX 

equals 

GENPL 

+ 660 

REF- 

24 

LAST 

23 

£5*1673 

RESULT  CT 

equals 

GENPL 

+ 670 

REF 

25 

LAST 

23 

E5» 1676 

COUNTPL 

equals 

GENPL 

♦ 700 

REF 

26 

LAST 

23 

E5 ♦ 1 677 

CDUANG 

equals 

GENPL 

+ 710 

REF 

27 

LAST 

23 

E5  * 1570 

A i NLA 

s 

GENPL 

REF 

1 

E5» 1570 

wango 

equals 

AINLA 

Ref 

2 

LAST 

23 

E5  * 1572 

wangi 

EQUALS 

A I NLA 

+ 20 

REF 

3 

LAST 

23 

E5  * 1 574 

WANGT 

equals 

AINLA 

+ 4D 

USER'S  OWN  PAGE  NO.  17 


THREE  CONSEC  LOC 


FIX  LATER  POSSIBLY  KEEP  1 


110  DEC  OR  156  OCT  LOCATIONS 

VERT  ERATE 
HO 

T 
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L ERASABLE  ASSIGNMENTS  USER'S  OWN  pAGE  NO,  18 


0598 

REF 

1 

E5  * 1 574 

torqndx 

WANGT 

0599 

REF 

4 

LAST 

23 

£5*1576 

DR  I FT T 

EQUALS 

A I NLA 

+ 6D 

EAST  AX 

0600 

ref 

5 

LAST 

24 

E5  * 1600 

ALX1S 

equals 

A 1 NLA 

+ 8D 

IN 

0601 

REF 

6 

LAST 

24 

£5*1601 

CmPXI 

equals 

A I NLA 

+ 9D 

IND 

0602 

REF 

7 

LAST 

24 

E5  * 1602 

ALK 

equals 

A I NLA 

+ 100 

GAINS 

0603 

REF 

8 

LAST 

24 

E5  ’ 1616 

VLAUNS 

equals 

AINLA 

+ 22D 

06031 

REF 

1 

£5*1616 

thetax 

= 

vlauns 

0604 

REF 

9 

LAST 

24 

£5*1620 

WPLATO 

equals 

AINLA 

+ 24D 

0605 

REF 

10 

LAST 

24 

E5  * 1624 

INTY 

equals 

AINLA 

♦28D 

SOUTH  PIP  INTE 

0606 

ref 

11 

LAST 

24 

£5*1626 

AmGZ 

EQUALS 

AiNLA 

+ 300 

EAST  AXIS 

0607 

REF 

12 

LAST 

24 

E5  * 1 630 

INTZ 

equals 

AINLA 

♦ 320 

EAST  PIP  I 

0608 

REF 

13 

LAST 

24 

£5*1632 

ANGY 

EQUALS 

AINLA 

+ 34D 

SOUTH 

06081 

REF 

1 

£5.1624 

THETAN 

= 

INTY 

0609 

REF 

14 

LAST 

24 

£5*1634 

ANGX 

equals 

AINLA 

+ 36D 

VE 

0610 

REF 

15 

last 

24 

E5  * 1636 

drifto 

EQUALS 

AINlA 

+ 38D 

VERT 

0611 

REF 

16 

LAST 

24 

£5*1640 

DRIFTI 

equals 

AINLA 

+ 40D 

SOU 

0612 

REF 

17 

LAST 

24 

E5  * 1 644 

VLAUN 

equals 

AINLA 

+ 440 

LAUNCH 

06121 

REF 

1 

E5  * 1 644 

FILDELV 

s 

VLAUN 

0613 

REF 

18 

LAST 

24 

£5.1646 

AcCWD 

equals 

AINLA 

*•460 

LAUN 

06131 

REF 

1 

£5*1646 

INTVEC 

ACCWD 

0614 

REF 

19 

LAST 

24 

£5*1654 

POSNV 

equals 

AINLA 

+ 520 

LAUNC 

0615 

REF 

20 

LAST 

24 

E5  * 1 656 

DPIPAY 

EQUALS 

AINLA 

+ 54D 

SOUTH 

0616 

REF 

21 

LAST 

24 

E5  * 1 662 

DPIPAZ 

equals 

AINLA 

♦ 580 

NORTH  PIP  INCREMENT 

0617 

REF 

22 

LAST 

24 

E5.1664 

ALT  1M 

equals 

AINLA 

+ 600 

LENG 

0618 

REF 

23 

LAST 

24 

£5*1665 

ALTIMS 

equals 

AINLA 

+ 6 1 D 

INDEX 

0619 

REF 

24 

LAST 

24 

£5*1666 

ALDK 

EQUAl  S 

AINLA 

+ 620 

time  const an 

0620 

REF 

25 

LAST 

24 

E5.1704 

DELM 

EQUALS 

AiNLA 

+ 760 

0621 

REF 

26 

LAST 

24 

E5.1714 

WPLATI 

EQUALS 

AINLA 

+ 84D 

0622 

REF 

27 

LAST 

24 

£5*1716 

GF.OSAVED 

equals 

AINLA 

+ 860 

0623 

REF 

28 

LAST 

24 

E5.1717 

PREMTRXC 

EQUALS 

AINLA 

+ 8 7D 

0624 

REF 

29 

LAST 

24 

£5*1720 

PRELMTRX 

EQUALS 

AINLA 

+ 880 

0625 

REF 

1 

E5 ♦ 1720 

TRANSM1 

SL 

PRELMTRX 

0626 

REF 

30 

LAST 

24 

£5  *1742 

GEOCOMPS 

equals 

AINLA 

+ 106D 

0627 

REF 

31 

LAST 

24 

E5.1743 

gtsopndz 

equals 

AINLA 

+ 107D 

0628 

REF 

32 

LAST 

24 

£5.1744 

1SECXT 

equals 

AINLA 

+ 108D 

0629 

REF 

33 

LAST 

24 

E5.1745 

GTSWTLST 

EQUALS 

AINLA 

+ 109D 

0630 

REF 

34 

LAST 

24 

£5*1746 

ERECTIME 

EQUALS 

AINLA 

+ 110D 

0631 

REF 

35 

LAST 

24 

£5.1747 

GEOMTRX 

equals 

AINLA 

+ 1110 

0632 

REF 

36 

LAST 

24 

E5.1771 

ERCOMP 

EQUALS 

AINLA 

+ 1290 
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L ERASABLE  ASSIGNMENTS  USER’S  OWN  PAGE  NO.  19 


06A7 

0668 

0669 

0832 

REF 

REF 

REF 

28  LAST  23 
1 

2 LAST  25 

E5 , 1570 

BMEMORY 

EQUALS 

genpl 

0A05 
0A07 
E7 , 1 AOO 

DELVY 

DELVZ 

EQUALS 

EQUALS 

seiloc 

DELVX 

DELVX 

3A00 

+ 2 
♦ A 

R0833 

DOWNLINK  STORAGE. 

083A 

0835 

0836 

E7, 1A00 
E7 , 1 AO  1 
E7.1A02 

E7, 1A00 
E7 » 1A01 
E7 , 1 A02 

LDATALST 

dntmgoto 

TMINDEX 

ERASE 

ERASE 

ERASE 

0837 

E7.1A03 

E7 , 1 A30 

DNTMBUFF 

ERASE 

+ 2 ID 

SNAPSHOT  BUFFER. 

R0838 

radar  test 

STORAGE. 

0839 
08  AO 

E 7 , 1 A 3 1 
E7.1A32 

E7 , 1 A3  1 
E7i 1A32 

RTSTDEX 

RTSTMAX 

ERASE 

ERASE 

66  FOR  HI  SPEED,  6 FOR  LOW  SPEED  RR , 

A08A1 
08A2 
08  A3 

E7.1A33 

E7.1A3A 

E7 , 1 A33 
E7  * 1 A3A 

rtstbase 

RTSTLOC 

ERASE 

ERASE 

AND  18  FOR  LOW  SPEED  LR. 
USED  FOR  CYCLIC  SAMPLING. 
GOES  0(6) RTSTMAX 

08AA 

08A5 

A08A6 

REF 

1 

E7 , 1 A35 

E7  * 1 A3A 
E7 , 1 A35 

RSTKLOC 

RSAMPDT 

EQUALS 

ERASE 

RTSTLOC 

PNZ  FOR  CYCLIC  SAMPLING,  -1  FOR  HI  SPEED 

INSERT  +o  here  manually  to  terminate  T si 

08A7 

08A8 

E7.1A36 
E7  1 1 A37 

E7,1A36 
E7 , 1 5A6 

RFA1LCNT 

RSTACK 

ERASE 

ERASE 

♦ 7 ID 

BUFFERS  FOR  RADAR  TESTING. 

R08A9 

0850 

R0851 

AGS 

initialization 
storage  for 

E7 , 1 5A7 
INBIT  SC 

E7, 1602 
ANNER. 

agsbuff 

ERASE 

+ 27D 

0852 

0853 

E 7 ,1603 
E7 ,1606 

E7.1605 

E7.1606 

LAST  30 
MSGCNT 

ERASE 

ERASE 

+ 2 

LAST  SAMPLED  INBITS. 

L 

0001 

0002 

0003 

0004 

0005 

000b 

0007 

0008 

0009 

0010 

0011 

0012 

R0013 
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I NIPUT/OUTPUT  CHANNELS 


ENID  OF  CHANNEL  ASSIGNMENTS 


USER'S  OwN  pAGE  NO,  l 


0003 

HISCALAR 

equals 

3 

0004 

LOSCALAR 

equals 

4 

0010 

OUTO 

equals 

10 

0011 

DSALMOUT 

EQUALS 

11 

0012 

CHAN12 

EQUALS 

12 

0013 

CHAN  1 3 

EQUALS 

13 

0014 

CHAN14 

equals 

14 

0015 

MNKEYIN 

equals 

15 

0016 

NAVKEYIN 

equals 

16 

0033 

CHAN33 

equals 

33 

0034 

DNTM1 

equals 

34 

0035 

DNTM2 

equals 

35 

473423A  VJL  SYSTEM  FOR  BL<2  5 REVISION  12  OF  PROGRAM 


L INTERRUPT  LEAD  INS 


0001 

0002 

0003 

REF 

1 

4000 

4001 

4000 

0 0004  0 
3 4054  1 

0004 

REF 

1 

4002 

56  006 

1 

0005 

REF 

1 

4003 

1 2072 

1 

0006 

REF 

1 

4004 

52  Oil 

0 

0007 

4005 

0 0006 

l 

0008 

REF 

1 

4006 

22  012 

1 

0009 

REF 

1 

4007 

1 4175 

1 

0010 

REF 

2 

LAST 

2? 

4010 

52  Oil 

0 

0011 

4011 

0 0006 

1 

0012 

REF 

2 

LAST 

14 

4012 

3 0346 

0 

0013 

4013 

52  006 

0 

0014 

REF 

3 

LAST 

27 

4014 

52  Oil 

0 

0015 

REF 

1 

4015 

3 4056 

0 

0016 

REF 

2 

LAST 

27 

4016 

56  006 

1 

0017 

REF 

1 

4017 

1 2736 

0 

0018 

REF 

4 

LAST 

27 

4020 

52  Oil 

0 

0019 

REF 

1 

4021 

3 7665 

0 

0020 

REF 

1 

4022 

1 4713 

1 

0021 

REF 

1 

E6 

0022 

REF 

1 

4023 

24006 

1 

0023 

REF- 

5 

LAST 

27 

4024 

52  Oil 

0 

0024 

REF 

1 

4025 

3 4057 

1 

0025 

REF 

3 

LAST 

27 

4026 

56  006 

1 

0026 

REF 

1 

4027 

1 2362 

0 

0027 

REF 

6 

LAST 

27 

4030 

52  Oil 

0 

0028 

REF 

1 

4031 

3 4060 

0 

0029 

REF 

4 

LAST 

27 

4032 

56  006 

1 

0030 

REF 

1 

4033 

1 3161 

0 

0031 

REF 

7 

LAST 

27 

4034 

52  Oil 

0 

0032 

REF 

1 

4035 

3 4057 

1 

0033 

REF 

5 

LAST 

27 

4036 

56  006 

1 

0034 

REF- 

1 

4037 

1 2402 

1 

0035 

REF 

8 

LAST 

27 

4040 

52  Oil 

0 

0036 

REF 

1 

4041 

3 4061 

1 

0037 

REF 

6 

LAST 

27 

4042 

56  006 

1 

0038 

REF 

1 

4043 

1 2047 

1 

0039 

REF 

9 

LAST 

27 

4044 

52  Oil 

0 

0040 

REF 

1 

4045 

3 4062 

1 

T4RPTBB 


A BY  DAP  GROUP 
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SETLOC  4000 

USER’S  OWN  PAGE  NO.  1 

INHINT 
CAF  GOBB 

XCH  BBANK 

TCF  GOPROG 

GO 

DXCH  ARUPT 

EXTEND 

DXCH  QRUPT 

HERE  ON  A T 6 RUPT 

TCF  DOT  6RUPT 

DOT 6RUPT  IS  IN  FIX-F IXED. ( INTR-BANK  COM) 

DXCH  ARUPT 

EXTEND 

T5RUPT 

DCA  T5L0C 

DTCB 

T5L0C  EQUALS  T 5ADR 

DXCH  ARUPT 

CAF  T3RPTBB 

XCH  BBANK 

TCF  T3RUPT 

T3RUPT 

DXCH  ARUPT 

CAF  ZERO 

TCF  T4RUPT 

t6ANK=  Mil 
BBCON  T4RUPTA 

T4RUP1 

DXCH  ARUPT 

CAF  KEYRPTBB 

XCH  BBANK 

TCF  KEYRUPT 1 

KEYRUPT1 

DXCH  ARUPT 

CAF  MKRUPTBB 

XCH  BBANK 

TCF  MARKRUPT 

KEYRUPT  2 

DXCH  ARUPT 

CAF  UPRPTBB 

XCH  BBANK 

TCF  UPRUPT 

UPRUPT 

DXCH  ARUPT 

CAF  DWNRPTBB 

XCH  BBANK 

TCF  DODOWNTM 

DOWNRUPT 

DXCH  ARUPT 
CAF  RDRPTBB 


RADAR  RUPT 
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L INTERRUPT  LEAD  INS 


USER'S  OWN  PAGE  NO.  2 


00 A 1 REF  7 LAST  27  A0A6  56  006  1 XCH  BBANK 

00A2  REF  1 A0A7  1 2707  1 1 CF  RADAREAD 

R00A21  TRAPS  3iB  AND  32  SHOULD  NEVER  BE  SET.  THEREFORE- 


R00A22 

RJPT 

10 

WILL 

ALWAYS 

refer  to 

R00A23 

USE. 

SEE 

GEORGE  ChERRY  FOR  R 

00A3 

REF 

10 

LAST 

27 

A050 

00  AA 

REF 

1 

A05 1 

00A5 

REF 

1 

A052 

00A6 

REF 

1 

A053 

00A7 

REF 

1 

00A8 

REF 

2 

LAST 

27 

A05A 

00A9 

REF 

1 

0050 

REF 

1 

A055 

0051 

REF 

2 

LAST 

28 

0052 

REF 

2 

LAST 

27 

A056 

0053 

REF 

1 

005A 

REF 

2 

LAST 

27 

A057 

0055 

REF 

1 

0056 

REF 

2 

LAST 

27 

A060 

0057 

REF 

2 

LAST 

27 

0058 

REF 

1 

0059 

REF 

2 

LAST 

27 

A06 1 

0060 

REF 

1 

0061 

REF 

2 

LAST 

28 

A062 

006  2 

THc  HAND  CONTROLLER  LPD  OR  MINIMUM  IMPULSE 

tionale  regarding  the  aforesaid. 


52  Oil  0 

dxch 

ARUPT 

3 7656  0 

CAF 

TWO 

5 A 773  0 

TS 

DELAYCTR 

1 A610  0 

TCF 

NOQRSM 

E3 

EBANK= 

LST 1 

2A003  1 

gobb 

BBCON 

GOPROG 

EO 

EBANK= 

T I ME  1 

3A000  0 

T6RPTBB 

BBCON 

RESUME 

E3 

ebank= 

LST  1 

02003  0 

T3RPTBB 

BBCON 

T3RUPT 

EO 

ebank= 

KEYTEMP1 

16000  0 

KEYRPTBB 

BBCON 

KEYRUPT 1 

E3 

ebank= 

AOTAZ 

26003  0 

mkruptbb 

BBCON 

MARKRUPT 

A057 

UdRPTBB 

* 

KEYRPTBB 

E7 

ebank= 

DNTMBUFF 

32007  1 

DwNRpTBEl 

BBCON 

DODOwNT  M 

El 

ebank= 

RADMODES 

20001  1 

RDRPTBB 

BBCON 

RADAREAD 

A063 

ENDINTFF 

equals 

RUPT  10  USED  for  rhc  minimp  mode  only. 

RESTART  USES  EO*  E3 
#**F I X LATER**# 
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L INTLR-BANK  COMMUNICATION 


USER'S  OWN  PAGE  NO.  l 


R0001 

THE 

FOLLOWING 

ROUT  IN 

E CAN  BE  1 

USED  TO  CALL  A SUBROUTINE  IN  ANOTHER  BANK.  IN  THE  BANKCALL  VERSION.  THE 

R0003 

CADR 

OF 

the 

subroutine 

immediately  follows  the 

TC  BANKCALL  INSTRUCTION,  WITH  C(A)  AND  C(L)  PRESERVED. 

0005 

REF 

1 

4063 

SETLOC 

ENDIN IFF 

0006 

REF 

1 

4063 

52  120  0 

BANKCALL 

DXCH 

BUF2 

SAVE  INCOMING  A,L. 

0007 

REF 

1 

4064 

50  002  0 

INDEX 

Q 

PICK  UP  CADR. 

0008 

4065 

3 0000  1 

CA 

0 

0009 

REF 

2 

LAST 

29 

4066 

24  002  0 

1NCR 

Q 

SO  WE  RETURN  TO  THE  LOC.  AFTER  THE  CADR. 

R0010 

SWCALL  IS  IDENTICAL 

io  bankcall.  except 

that  the  cadr  arrives 

IN  A. 

0012 

REF 

1 

4067 

54  001  1 

SWCALL 

TS 

L 

0013 

REF 

1 

4070 

22  004  0 

LXCH 

fbank 

SWITCH  BANKS,  SAVING  RETURN. 

00  1 A 

REF 

1 

4071 

7 6426  0 

MASK 

LOW  10 

GET  SUB-ADDRESS  OF  CADR. 

0015 

REF 

3 

LAST 

29 

4072 

56  002  0 

XCH 

Q 

A ,L  NOW  CONTAINS  DP  RETURN. 

0016 

REF- 

2 

LAST 

29 

4073 

52  120  0 

DXCH 

BUF2 

RESTORING  INPUTS  IF  THIS  IS  A BANKCALL. 

0017 

REF 

4 

LAST 

29 

4074 

50  002  0 

INDEX 

Q 

0018 

4075 

0 2000  0 

TC 

10000 

SETTING  Q TO  SWRETURN. 

0019 

REF 

3 

LAST 

29 

4076 

56  120  1 

SWRETURN 

XCH 

BUF  2 +1 

COMES  HERE  TO  RETURN  TO  CALLER.  C ( A , L ) 

0020 

REF 

2 

LAST 

29 

4077 

56  004  0 

XCH 

fbank 

ARE  PRESERVED  FOR  RETURN. 

0021 

REF 

4 

LAST 

29 

4100 

56  120  1 

XCH 

BUF2  +1 

0022 

ref 

5 

LAST 

29 

4101 

0 0117  0 

TC 

BUF2 

R0023 

THE 

following  routim 

E CAN  Be  USED  AS  A UNILATERAL 

JUMP 

WITH  C(A,L)  PRESERVED 

AND  THE  CADR  IMMEDIATELY 

R0025 

FOLLOWING  THE 

TC 

POSIJUMP  instruction. 

0026 

REF 

5 

LAST 

29 

4102 

56  002  0 POSTJUMP  XCH 

Q 

SAVE  INCOMING 

C (A)  . 

0027 

REF 

1 

4103 

50  000  1 INDEX 

A 

GET  CADR. 

0028 

4104 

3 0000  1 CA 

0 

R0029 

bankjump 

is  the  same 

AS  postuump,  except  that 

THE 

CADR 

ARRIVES  IN  A. 

0031 

REF 

3 

LAST 

29 

4105 

54  004  1 BANK JUMP  TS 

fbank 

0032 

REF 

2 

LAST 

29 

4106 

7 6426  0 MASK 

L0W10 

0033 

REF 

6 

LAST 

29 

4107 

56  002  0 XCH 

Q 

RESTORING  INPUT  C(A)  IF  THIS  WAS  A 

0034 

REF 

7 

LAST 

29 

4110 

50  002  0 INDEX 

Q 

POST JUMP. 

0035 

4111 

1 2000  1 TCF 

10000 
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l i\ite«-bank  communication 


USER'S  OWN  PAGE  NO.  2 


P0036 

THE 

following 

ROUT  I Nl 

- 

SETS 

THE 

RETURN  CAOR  SAVED  BY  SWCALL  or  BAnKCAlL  And  leaves  it  in  A. 

0038 

REF 

3 

LAST 

29 

4112 

3 

6426 

1 

MAKLCADR  CAF 

LOW  1 0 

0039 

REF 

6 

LAST 

29 

4113 

7 

0117 

1 

MASK 

BUF2 

0040 

REF 

7 

LAST 

30 

4114 

6 

0120 

1 

AD 

BUF2  +1 

00  A 1 

REF 

8 

LAST 

29 

4115 

0 

0002 

0 

TC 

Q 

R0042 

the 

following 

ROUTIN 

E OBTAINS 

the  two  words  beginning  at 

the  address  arriving  in  a,  and  leaves 

R0044 

A*L. 

0045 

REF 

2 

LAST 

29 

4116 

54  001 

1 

DATACALL  TS 

L 

0046 

REF 

4 

LAST 

29 

4117 

22  004 

0 

LXCH 

FbANK 

0047 

REF 

1 

4120 

22  121 

0 

LXCH 

MPTEMP 

SAVE  FORMER  BANK. 

0048 

REF 

4 

LAST 

30 

4121 

7 6426 

0 

MASK 

L0W10 

0049 

4122 

0 0006 

1 

EXTEND 

0050 

REF- 

2 

LAST 

29 

4123 

5 0000 

1 

INDEX 

A 

0051 

4124 

3 2001 

1 

DCA 

10000 

0052 

REF 

2 

LAST 

30 

4125 

56  121 

0 

XCH 

MPTEMP 

0053 

REF- 

5 

LAST 

30 

4126 

54  004 

1 

TS 

FBANK 

RESTORE  FBANK. 

0054 

REF 

3 

LAST 

30 

4127 

3 0121 

0 

CA 

MPTEMP 

0055 

REF 

9 

LAST 

30 

4130 

0 0002 

0 

TC 

Q 

973923A 


L 

P0056 

R0058 

R0060 

R0062 

R0069 

ROO65 

R0066 

R0068 

A0069 

A0070 

A0071 

A0072 

R0073 

A0075 

A0076 

A0077 

0078 

0079 

0080 
0081 
0082 
0083 
0089 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
0099 

0095 

0096 

0097 

0098 
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IMTLR-BANK  COMMUNICATION  USER'S  OWN  PAGE  NO.  3 

the  following  subrojiines  provide  to  the  basic  programmer  entry  into  and  return  from  any  interpretive 

CODING  WHICH  DOES  NOT  USE  THE  ENTERING  CONTENTS  OF  Q AND  WHICH  RETURNS  VIA  DANZIG.  C(A)  AND  C(L)  ARE  SAVED. 

user’s  responsibility  to  fill  in  advance  the  appropriate  operand  and  address  registers  used  by  the 
INTERPRETIVE  CODING  SUCH  AS  vpAC,  BUF*  addrwd,  etc.;  AND  TO  CONFIRM  that  the  interpretive  coding  meets  the 

A30VE  RESTRICTIONS  WITH  RESPECT  TO  Q AND  DANZIG. 

U5EPRET  AND  USPRCADR  MUST  NOT  BE  USED  IN  INTERRUPT* 

1.  USePRET  ACCESSES  INTERPRETIVE  CODING  WHICH  can  Be  fNTERED  WITHOUT  CHANGING  FBANK. 
the  CALLING  SEQUENCE  IS  AS  follows: 


L TC  USEPRET 


2.  1 

L + 1 

TC.TCF 

INTPRETX 

TC.TCF  MEANS  TC  OR  TCF 

INTPRETX  IS  THE  INTERPRETIVE  CODING 

RETURN  IS  TO  L + 2 

USPRCADR 

accesses 

INIeRPREI 1 VE  CODING 

1 IN  OTHER 

: THAN 

THe  USER'S 

FBANK.  THE  CALLING  SeQUeNCe  IS  AS  FOLLOWS: 

L 

TC 

USPRCADR 

L+l 

CADR 

INTPRETX 

INTPRETX  IS  THE  INTERPRETIVE  CODING 

RETURN  IS  TO  L+2 

REF 

10 

LAST 

30 

9131 

55  002 

0 

USEPRET 

XCH 

Q 

fetch  q,  SAVING  A 

REF 

1 

9132 

59  150 

1 

TS 

LUC 

L+l  TO  LOC 

REF 

6 

LAST 

30 

9133 

3 0009 

0 

CA 

FBANK 

REF 

1 

9139 

59  151 

0 

TS 

BANKSET 

USERS  BANK  TO  BANK5ET 

REF 

1 

9135 

3 7650 

0 

CA 

B 1 T 8 

REF 

1 

9136 

59  023 

1 

TS 

EDOP 

EXIT  INSTRUCTION  10  EDOP 

REF 

11 

LAST 

31 

9137 

3 0002 

0 

CA 

Q 

RETRIEVE  ORIGINAL  A 

REF 

2 

LAST 

31 

9190 

0 0150 

0 

TC 

LUC 

REF 

3 

LAST 

31 

9191 

59  150 

1 

USPRCADR 

TS 

LOC 

SAVE  A 

REF 

2 

LAST 

31 

9192 

3 7650 

0 

CA 

B I T 8 

REF 

2 

LAST 

31 

9193 

59  023 

1 

TS 

EDOP 

EXIT  INSTRUCTION  TO  EDOP 

REF 

7 

LAST 

31 

9199 

3 0009 

0 

CA 

FBANK 

REF 

2 

LAST 

31 

9195 

59  151 

0 

TS 

BANKSET 

USERS  BANK  TO  BANKSET 

REF 

12 

LAST 

31 

9196 

50  002 

0 

index 

0 

9197 

3 0000 

1 

CA 

0 

REF- 

8 

LAST 

31 

9150 

59  009 

1 

TS 

FBANK 

INTERPRETIVE  BANK  TO  FBANK 

REF 

5 

LAST 

30 

9151 

7 6926 

0 

MASK 

LOW  1 0 

YIELDS  INTERPRETIVE  RELATIVE  ADDRESS 

REF 

13 

LAST 

31 

9152 

55  002 

0 

XCH 

Q 

INTERPRETIVE  ADDRESS  TO  Q,  FETCHING  L+l 

REF 

9 

LAST 

31 

9153 

55  150 

0 

XCH 

LUC 

L+l  TO  LOC,  RETRIEVING  ORIGINAL  A 

REF 

19 

LAST 

31 

9159 

50  002 

0 

INDEX 

Q 

9155 

1 2000 

1 

TCF 

10000 

L 

P0099 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 
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inteR-bank  communication  user's  own  page  no.  4 


the 

FOLLOWING 

ROUjIN 

es  are 

identical  TO 

3ANKCALL  AND  SWCALL 

except  that  they  are  used  in  interrupt. 

REF 

1 

4156 

52  077 

0 

ibnkcall 

DXCH 

RUPTREG3 

USES  RUPTREG3 .4  For  dp  return  address 

REF 

15 

LAST 

31 

4157 

50  002 

0 

INDEX 

Q 

4160 

3 0000 

1 

CAF 

0 

REF 

16 

LAST 

32 

4161 

24  002 

0 

INCR 

Q 

REF 

3 

LAST 

30 

4162 

54  001 

l 

UWCALL 

TS 

L 

REF 

9 

LAST 

31 

4163 

22  004 

0 

LXCH 

FBANK 

REF 

6 

LAST 

31 

4164 

7 6426 

0 

MASK 

LOW  10 

REF 

17 

LAST 

32 

4165 

56  002 

0 

XCH 

0 

REF 

2 

LAST 

32 

4166 

52  077 

0 

DXCH 

RUPTREG3 

REF- 

18 

LAST 

32 

4167 

50  002 

0 

INDEX 

Q 

4170 

0 2000 

0 

TC 

10000 

REF 

3 

LAST 

10 

4171 

56  077 

1 

UWRETRN 

XCH 

RUPTREG4 

REF- 

10 

LAST 

32 

4172 

56  004 

0 

XCH 

FBANK 

REF 

4 

LAST 

32 

4173 

56  077 

1 

XCH 

RUPTREG4 

REF 

3 

LAST 

32 

4174 

0 0076 

0 

TC 

RUPTREG3 
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L INTER-BANK  COMMUNICATION  USER'S  OwN  PAGE  NO.  5 

P0116  T6-RUPT  PROGRAMS. 


R0117 

ENTER 

HERE  AFTER  A T& 

~RUPT.DE 

T ermine 

IF 

IT  is  A 

genuine 

RUPT. 

0118 

REF 

1 

A175 

0 A 1 77 

1 

DOT  6RUPT 

TC 

T 6 JOBCHK 

0119 

REF 

2 

LAST 

28 

A176 

1 A606 

1 

TCF 

RESUME 

R0120 

T 6 JoB 

C.HK 

DETERMINES  IF  T6  = - 

D ( A Tfc 

, RUPT  HAS  OCCURRED 

> OR  IF  T 6 

RO 1 2 1 

eqjals  +0  ( 

T 6 NOT 

countin 

3 DOWN  ) 

OR 

=SOME  POS.OR  NEG,  NUMBER  ( 

R0122 

BEiNG 

decremented 

AND  NO  RJPT  IS  NEEDED  ). 

0123 

REF 

1 

A 1 77 

10  031 

1 

T6J0BCHK 

CCS 

T1ME6 

0 1 2 A 

REF 

19 

LAST 

32 

A200 

0 0002 

0 

TC 

Q 

0125 

REF 

20 

LAST 

33 

A20 1 

0 0002 

0 

TC 

Q 

0126 

REF 

21 

LAST 

33 

A202 

0 0002 

0 

TC 

Q 

R0127 

T 6 JOB 

EXECUTES 

A JET 

state  change  and 

> SETS  UP  ANY  ADDITIONAL  T6  RUP 

RO  1 28 

WWlCP 

. MIGHT 

BE  NECESSARY. 

0129 

REF 

2 

LAST 

27 

A203 

3 7665 

0 

T 6 JOB 

CA 

ZERO 

0130 

REF 

1 

A20A 

56  767 

1 

XCH 

T6NEXT  +1 

0131 

REF- 

2 

LAST 

33 

A205 

56  766 

0 

XCH 

T6NEXT 

0132 

REF 

2 

LAST 

33 

A206 

5 A 031 

1 

TS 

TIME6 

0133 

A207 

0 0006 

1 

EXTEND 

0 1 3 A 

REF 

1 

A210 

1 A230 

0 

3ZF 

T 6ZER0 

0135 

REF- 

1 

A211 

3 76 A 1 

0 

CA 

B I T 1 5 

0136 

A212 

0 0006 

1 

EXTEND 

0137 

A213 

05  013 

0 

WOR 

13 

0138 

REF 

3 

LAST 

33 

A21A 

3 7665 

0 

CA 

ZERO 

0139 

REF 

1 

A215 

56  772 

0 

XCH 

T6NEXTJT  + 2 

01  AO 

REF- 

2 

LAST 

33 

A216 

56  771 

0 

XCH 

T6NEXTJT  +1 

01A1 

REF 

3 

LAST 

33 

A217 

56  770 

1 

XCH 

T6NEXTJT 

0 1 A2 

A220 

0 0006 

1 

WRITEJTS 

extend 

0 1 A3 

REF 

1 

A22  1 

6 A225 

0 

BZMF 

WRITEQR 

01AA 

A222 

0 0006 

1 

EXTEND 

0 1 A5 

A223 

01  006 

0 

WRITE 

6 

0 1 A6 

REF 

22 

LAST 

33 

A22  A 

0 0002 

0 

TC 

Q 

01A7 

A225 

0 0006 

1 

WRITEQR 

extend 

0 1 A8 

A226 

01  005 

0 

WRITE 

5 

0 1 A9 

REF 

23 

LAST 

33 

A227 

0 0002 

0 

1C 

Q 

0150 

REF 

A 

LAST 

33 

A230 

3 0770 

1 

T6ZER0 

CA 

T6NEXTJT 

0151 

REF 

1 

A23  1 

1 A220 

1 

TCF 

WRITEJTS 

0152 

A232 

END  I BNKF 

EQUALS 
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l list-processing  interpreter 


USER'S  OWN  PAGE  NO,  1 


R0001  SECTION  1 DISPATCHER 


R0002 

R0004 

R0006 

Roooe 

Rooio 


rNlRY  TO  THe  INTERPRETER.  INtPReT  SETS  LOC  yn  THe  FIRST  INSTRUCTION,  BANKSeT  TO  THe  FBANK  OF  tHe 
03JECT  INTERPRETIVE  PROGRAM,  AND  INTBIT15  TO  THE  3 1 T 1 5 CONTENTS  OF  FBANK, , INTERPRETIVE  PROGRAMS  MAY  BE  IN 
VIRTUALIY  ALL  BANKS  PReSENT  JNDeR  ANY  SUPeR-BANK  SETTING,  WITH  THE  RESTRICTION  THAT  PROGRAMS  IN  HIGH  BANKS 
(3IT1S  OF  FBANK  s D Do  NOT  R^FeR  TO  LOWBANKS,  AND  VICE-VeRSA.  THE  INTERPRETER  DOES  NOT  SWITCH  SUPeR-BAnK, 
NOR  DOES  IT  SWITCH  eBANKS.  MOST  EBANK  SWITCHING  IS  DONE  BY  THE  EXECUTIVE  PROGRAM, 


0012 


6000 


SETLOC  6000 


o o 
o o 

-T'  UD 

REF 

5 

LAST 

31 

0015 

REF 

11 

LAST 

32 

0016 

REF 

3 

LAST 

31 

0017 

REF 

2 

LAST 

33 

0018 

REF 

5 

LAST 

10 

0019 

REF 

7 

LAST 

32 

0020 

REF 

A 

LAST 

10 

0021 

REF 

1 

0022 

REF 

8 LAST  28 

0023 

REF 

1 

6000 

0 0006 

1 

INTPRET 

extend 

6001 

22  ISO 

0 

3XCH 

LOC 

6002 

3 0004 

o 

+ 2 

CA 

FBANK 

6003 

54  151 

0 

TS 

BANKSET 

6004 

7 7641 

1 

MASK 

BIT15 

600S 

54  101 

0 

TS 

INTBIT15 

6006 

6 6426 

1 

AD 

LOW  10 

6007 

54  100 

1 

TS 

INTB15+ 

6010 

1 6023 

1 

TCF 

NEWOPS 

6011  22  006  1 INTRSM  LXCH  BBANK 

6012  1 6003  0 TCF  INTPRET  +3 


SET  LOC  TO  THE  WORD  FOLLOWING  THE  TC. 

INTERPRETIVE  BRANCHES  FINISH  HERE* 

GET  15TH  BIT  FOR  INDEXABLE  ADDRESSES, 

THIS  VERSION  IS  USED  IN  PROCESSING 
INDEXABLE  FIXED-BANK  ADDRESSES, 

PICK  UP  OP  CODE  PAIR  AND  BEGIN, 

RESUME  SUSPENDED  INTERPRETIVE  JOB 
(ACTUALLY  PART  OF  THE  EXECUTIVE). 


JL 


A73A23A 

Y JL 

SYSTEM  FOR 

CM 

_j 

CD 

1 REVISION 

12  OF  1 

PROGRAM  AURORA  BY 

dap  GROUP 

NOV  10.  1966  (MAIN)  PAGE  35 

L 

LIST 

-processing  interpreter 

USER'S  OWN  PAGE  NO.  z 

P002A 

AT  THE  END 

OF  MOST  INSTRUCTIONS 

>,  CONTROL 

. IS  GIVEN  TO  DANZIG 

TO  DISPATCH  THE  NeXT  OPERATION. 

0026 

REF 

1 

6013 

5 A 1A7 

1 

NEWMODE 

TS 

mode 

PROLOGUE  FOR  MODE-CHANGING  INSTRUCTIONS. 

0027 

REF 

A 

LAST 

3 A 

60 1 A 

3 0151 

1 

DANZIG 

CA 

BANkSET 

SET  FBANk  BEFORE  TESTING  NEWjOB  SO  THAT 

0028 

REF 

12 

LAST 

3A 

6015 

5 A OOA 

1 

TS 

FBANK 

BBANK  MAY  BE  SAVED  DIRECTLY  BY  CHANJOB. 

0029 

REF 

3 

LAST 

31 

6016 

10  023 

1 

NOIBNKSW 

CCS 

EDOP 

SEE  IF  AN  ORDER  CODE  IS  LEFT  OVER  FROM 

0030 

REF 

1 

6017 

1 6032 

1 

TCF 

OP JUMP 

THE  LAST  PAIR  RETRIEVED.  IF  SO,  EXECUTE, 

A0031 

EDOP  IS  SET  TO  ZERO  ON  ITS  RE-EDITING. 

0032 

REF 

1 

6020 

10  067 

1 

CCS 

NEW JOB 

SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 

0033 

REF 

1 

6021 

1 AA12 

0 

TCF 

CHANG2 

PRESENT.  AND  If  SO.  CHANGE  JOBS. 

003A 

REF 

6 

LAST 

3A 

6022 

2 A 150 

0 

1 NCR 

LOC 

ADVANCE  THE  LOCATION  COUNTER. 

0035 

REF 

7 

LAST 

35 

6023 

50  150 

0 

NEWOPS 

INDEX 

LOC 

ENTRY  TO  BEGIN  BY  PICKING  OP  CODE  PAIR. 

0036 

602A 

3 0000 

1 

CA 

0 

MAY  BE  AN  OPCODE  PAIR  OR  A STORE  CODE. 

0037 

REF 

3 

LAST 

30 

6025 

10  000 

0 

CCS 

A 

TEST  SIGN  AND  GET  DABS ( A ) . 

0038 

REF 

1 

6026 

1 63A2 

0 

TCF 

DOSTORE 

PROCESS  STORE  CODE. 

0039 

6027 

00177 

0 

L0W7 

OCT 

177 

00  AO 

REF 

A 

LAST 

35 

6030 

5 A 023 

1 

TS 

EDOP 

OP  CODE  PAIR.  LEAVE  THE  OTHER  IN  EDOP 

OOA 1 

REF 

1 

6031 

7 6027 

0 

MASK 

L0W7 

WHERE  CCS  EDOP  WILL  HONOR  IT  NEXT. 

00A2 

REF 

1 

6032 

5 A 020 

1 

OP JUMP 

TS 

CYR 

LOWWD  ENTERS  HERE  IF  A RIGHT-HAND  OP 

00A3 

REF 

2 

LAST 

35 

6033 

10  020 

1 

CCS 

CYR 

CODE  IS  TO  BE  PROCESSED.  TEST  PREFICES. 

OOAA 

REF 

1 

603  A 

1 6167 

0 

TCF 

0PJUMP2 

TEST  SECOND  PREFIX  blT. 

00  A5 

REF 

I 

6035 

1 6731 

0 

TCF 

EXIT 

+0  OP  CODE  IS  EXIT. 
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P0046 

PROCESS 

ADDRESSES  which  may 

be 

DIRECT, 

INDeXrD 

, or  reference 

the  pushdown  List. 

0048 

REF 

1 

6036 

7 7657 

0 

ADDRESS 

MASK 

Bill 

See  IF  ADDRESS  IS  iNDEXtD.  CYR  CONTAINED 

0049 

ref 

4 

last 

35 

6037 

10  000 

0 

CCS 

A 

400XX , SO  BIT  1 IS  NOW  AS  IT  WAS  IN  CYR. 

0050 

REF 

1 

6040 

1 6073 

1 

TCF 

index 

FORM  INDEXED  ADDRESS. 

0051 

REF 

8 

LAST 

35 

6041 

50  150 

0 

diradres 

INDEX 

LoC 

LOOK  AHEAD  TO  NEXT  WORD  TO  SEE  IF 

0052 

6042 

4 0001 

1 

0CT40001 

cs 

1 

ADDRESS  IS  GIVEN. 

0053 

REF 

5 

LAST 

36 

6043 

10  000 

0 

CCS 

A 

0054 

REF 

1 

6044 

1 6135 

1 

TCF 

PUSHUP 

IF  NOT. 

0055 

6045 

77773 

1 

NEG4 

DEC 

-4 

0056 

REF 

9 

LAST 

36 

6046 

24  150 

0 

I NCR 

LOC 

IF  SO,  TO  SHOW  WE  PICKED  UP  A WORD. 

0057 

REF 

1 

6047 

54  102 

0 

TS 

audrwd 
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L LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  A 


P0058 

FINAL  DIGESTION  OF 

DIRECT  ADDRESSES  OF 

0?  CODES  WITH  01  PREFIX 

IS  DONE  HERE.  IN  EACH  CASE,  THE 

R0060 

REQUIRE! 

12 

BIT  SUB 

-address 

IS  left 

IN 

ADDRWD . WITH  ANY 

REQUIRED  BANK  SWITCHING  DONE  (F  ONLY).  ADDRESSES  LESS 

R0062 

THAN 

A5C 

. ARE 

taken 

to  be  relative  to 

THE  WORK  AREA.  THE 

OP  CODE  IS  NOW 

IN  BITS  1-5  OF  CYR  WITH  bIT  1A  = 1. 

0064 

REF 

1 

6050 

6 6171 

0 

AD 

-endvac 

see  if  address  relative  to  work  area. 

0065 

REF 

6 

LAST 

36 

6051 

10  000 

0 

CCS 

A 

0066 

REF 

1 

6052 

6 623A 

1 

AD 

-enderas 

IF  NOT,  See  if  in  general  erasable. 

0067 

REF 

1 

6053 

1 6060 

0 

TCF 

I ERAST  ST 

0068 

REF 

1 

605A 

3 010A 

1 

NETZERO 

CA 

FIXLOC 

IF  SO,  leave  THE  MODIFIED  ADDRESS  IN 

0069 

REF 

2 

LAST 

36 

6055 

26  102 

0 

ads 

ADDRWD 

ADDRWD  AND  DISPATCH. 

0070 

REF 

3 

LAST 

35 

6056 

50  020 

0 

♦ 2 

INDEX 

CYR 

THIS  INDEX  MAKES  THE  NEXT  INSTRUCTION 

0071 

REF 

1 

6057 

7 623A 

0 

7 

INDJUMP  -1 

TCF  INDJUMP  + OP,  EDITING  CYR. 

0072 

6060 

0 0006 

1 

I ERAST  ST 

EXTEND 

0073 

REF 

1 

6061 

6 6056 

1 

3ZMF 

NETZERO  +2 

GENERAL  ERASABLE  - DISPATCH  IMMEDIATELY. 

007A 

REF 

5 

LAST 

3A 

6062 

6 0100 

0 

FIXEDADR 

AD 

INTB15+ 

FIXED  BANK  ADDRE5S . RESTORE  AND  ADD  B15. 

0075 

ref 

13 

LAST 

35 

6063 

5 A OOA 

1 

+ 1 

TS 

FBANK 

switch  banks  and  leave  sub-address  in 

0076 

REF 

8 

LAST 

3A 

606  A 

7 6A26 

0 

MASK 

LOW  1 0 

ADDRWD  FOR  OPERAND  RETRIEVAL. 

0077 

REF 

1 

6065 

6 76A5 

1 

AD 

2K 

0078 

REF 

3 

LAST 

37 

6066 

5 A 102 

0 

TS 

ADDRWD 

0079 

REF 

A 

LAST 

37 

6067 

50  020 

0 

INDEX 

CYR 

0080 

REF 

2 

LAST 

37 

6070 

7 623A 

0 

7 

INDJUMP  -1 

473423A 


P0061 

R0083 

R0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 

0102 

0103 

0104 


0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 
0119 


0120 

0121 
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LISt-PRoCeSSInG  INTERPRETER  USER'S  OWN  PAGE  NO,  5 

THE  FOLLOWING  ROUTINE  PROCESSES  INTERPRETIVE  INDEXED  ADDRESSES,  An  INTERPRETER  INDEX  REGISTER  MAY 

contain  the  address  of  any  erasable  Register  (0-42  being  relative  to  the  vac  area)  or  any  interpretive  program 


BANK  * 

OR 

ANY 

integer 

IN  THAT 

range* 

REF 

1 

6071 

3 7676 

1 

DODLOAD* 

CAF 

DLOAD* 

STODL*  COMES  HERE  TO  PROCESS  LOAD  ADR. 

REF 

5 

LAST 

37 

6072 

54  020 

1 

TS 

cyr 

(STOVL#  ENTERS  HERE). 

REF 

2 

LAST 

37 

6073 

3 0104 

1 

INDEX 

CA 

fixloc 

SET  UP  INDEX  LOCATION. 

REF 

1 

6074 

54  114 

1 

TS 

indexloc 

REF 

10 

LAST 

36 

6075 

24  150 

0 

INCR 

L0C 

(ADDRESS  ALWAYS  GIVEN). 

REF 

11 

LAST 

38 

6076 

50  150 

0 

index 

LOC 

6077 

4 0000 

0 

CS 

0 

REF 

7 

LAST 

37 

6100 

10  000 

0 

CCS 

A 

INDEX  2 IF  ADDRESS  STORED  COMPLEMENTED. 

REF 

2 

LAST 

38 

6101 

24  114 

0 

INCR 

INDEXLOC 

6102 

1 6103 

1 

NOOP 

REF 

4 

LAST 

37 

6103 

54  102 

0 

TS 

ADDRWD 

14  BIT  ADDRESS  TO  ADDRWD. 

REF 

1 

6104 

7 6232 

0 

MASK 

BANKMASK 

IF  ADDRESS  GREATER  THAN  lK,  ADD  INTBIT15 

6105 

0 0006 

1 

EXTEND 

REF 

1 

6106 

1 6111 

1 

3ZF 

INDEX2 

REF 

6 

LAST 

34 

6107 

3 0101 

1 

CA 

INTBIT  1 5 

REF 

5 

LAST 

38 

6110 

26  102 

0 

ADS 

ADDRWD 

REF 

3 

LAST 

38 

6111 

50  114 

0 

INDEX2 

index 

INDEXLOC 

REF 

1 

6112 

4 0046 

1 

CS 

XI 

REF 

6 

LAST 

38 

6113 

26  102 

0 

ADS 

ADDRWD 

DO  AUGMENT,  IGNORING  AND  CORRECTING  OVF. 

REF 

1 

6114 

7 6231 

0 

MASK 

H i GH9 

SEE  IF  ADDRESS  IS  IN  WORK  AREA. 

6115 

0 0006 

1 

EXTEND 

REF 

1 

6116 

1 6131 

0 

BZF 

INDWORK 

REF 

2 

LAST 

38 

6117 

7 6232 

0 

MASK 

BANKMASK 

SEE  IF  IN  FIXED  BANK. 

6120 

0 0006 

1 

EXTEND 

REF 

1 

6121 

1 6133 

1 

BZF 

INDERASE 

REF 

7 

LAST 

38 

6122 

3 0102 

1 

CA 

ADDRWD 

IN  FIXED  - SWITCH  BANKS  AND  CREATE 

REF 

14 

LAST 

37 

6123 

54  004 

1 

TS 

fbank 

SUB-ADDRESS. 

REF 

9 

LAST 

37 

6124 

7 6426 

0 

MASK 

L0W10 

REF 

2 

LAST 

37 

6125 

6 7645 

1 

AD 

2K 

REF 

8 

LAST 

38 

6126 

54  102 

0 

TS 

ADDRWD 

REF 

6 

LAST 

38 

6127 

50  020 

0 

INDEX 

CYR 

REF 

3 

LAST 

37 

6130 

3 6234 

1 

3 

INDJUMP  -1 

REF 

3 

LAST 

38 

6131 

3 0104 

1 

INDWORK 

CA 

fixloc 

MAKE  ADDRWD  RELATIVE  TO  WORK  AREA. 

REF 

9 

LAST 

38 

6132 

26  102 

0 

ads 

ADDRWD 

REF 

7 

LAST 

38 

6133 

50  020 

0 

indlrase 

index 

CYR 

REF 

4 

LAST 

38 

6134 

3 6234 

1 

3 

INDJUMP  -1 
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L LIST -PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  6 


PO 1 22 

PUSH 

-up  rout  infs,  wh 

-N  NO  OPERAND  ADDRESS  IS  GIVEN,  THE  APPROPRIATE  OPERAND  IS  TAKEN  FROM  THE  PUSH-DOWN 

R0124 

LIST. 

IN 

M05T 

CASES 

the  mode 

OF  THE  RESULT  (VECTOR  OR  SCALAR)  OF  THE  LAST  ARIIHMETIC  OPERATION  PERFORMED 

R0126 

is  the  same  as  the 

TYPE  of  op 

eRand  desired  (all 

ADD/SUBTRACT  ETC.)  . 

EXCEPTIONS  to  this  general  rule  are  listed 

R0128 

below 

(NOTE  THAT  IN 

EVERY  CAS 

E THE  MODE 

register 

is  left 

INTACT): 

R0129 

1* 

VXSC  AND  V/SC  WA\1T  THE  OPPOSITE  TYPE  OF  OPERAND,  E*G»  * 

IF 

the  last  operation  YIELDED  a vector 

R0131 

result* 

vxsc 

WANTS 

a scalar. 

ROl  32 

2. 

THE  LOAD  CODtS  SHOULD  LOAD 

THE  ACCUMULATOR 

independent 

OF 

the  Result  of  the  last  operation,  this 

R0134 

I MCLUDES 

VLOAD * DLOAD,  '[LOAD, 

POOL*  AND 

PDVL  (NO 

PUSHUP 

WITH  SLOAD) 

• 

R0135 

3* 

some  arithmetic 

OPERATIONS 

require 

a standard  type  of 

operand  regardless  of  the  previous  operation. 

RO 137 

THIS 

INCLUDES 

i SIGN 

WANT ING  DP 

AND  TAD  REQUIRING 

tp. 

0138 

REF 

1 

6135 

3 6227  0 

pushup 

CAF 

0CT23 

IF  THE  LOW  5 BITS  OF  CYR  ARE  LESS  THAN 

0139 

REF 

8 

LAST 

38 

6136 

7 0020  1 

MASK 

CYR 

20,  THIS  OP  REQUIRES  SPECIAL  ATTENTION. 

0140 

REF 

1 

6137 

6 6142  0 

AD 

-OCT  10 

(NO  -0)  . 

0141 

REF 

8 

LAST 

38 

6140 

10  000  0 

CCS 

A 

0142 

REF 

1 

6141 

1 6153  1 

TCF 

REGUP 

FOR  ALL  CODES  GREATER  THAN  OCT  7. 

0143 

6142 

77767  1 

-OCT  10 

OCT 

-10 

0144 

REF 

1 

6143 

6 6045  0 

AD 

NEG4 

WE  NOW  HAVE  7 - OP  C0DE(M0D4).  SEE  IF 

0145 

REF 

9 

LAST 

39 

6144 

10  000  0 

CCS 

A 

THE  OP  CODE  (M0D4)  IS  THREE  (REVERSE). 

0146 

REF 

10 

LAST 

39 

6145 

50  000  1 

INDEX 

A 

NO  - THE  MODE  IS  DEFINITE.  PICK  UP  THE 

0147 

REF 

1 

6146 

4 6164  0 

cs 

NO.WDS 

0148 

REF 

2 

LAST 

39 

6147 

1 6155  1 

TCF 

REGUP  +2 

0149 

REF 

2 

LAST 

35 

6150 

50  147  0 

index 

mode 

FOR  VXSC  AND  V/SC  WE  WANT  THE  REQUIRED 

0150 

REF 

1 

6151 

4 6162  0 

cs 

revcnt 

PUSHLOC  DECREMENT  WITHOUT  CHANGING  THE 

0151 

REF 

3 

LAST 

39 

6152 

1 6155  1 

TCF 

REGUP  +2 

MODE  AT  THIS  TIME. 

0152 

REF 

3 

LAST 

39 

6153 

50  147  0 

REGUP 

index 

MODE 

MOST  ALL  OP  CODES  PUSHUP  HERE. 

0153 

REF 

2 

LAST 

39 

6154 

4 6164  0 

cs 

NO.WDS 

0154 

REF 

1 

6155 

26  152  0 

+ 2 

ADS 

PUSHLOC 

0155 

REF 

10 

LAST 

38 

6156 

54  102  0 

TS 

addrwd 

0156 

REF 

9 

LAST 

39 

6157 

50  020  0 

INDEX 

CYR 

0157 

REF 

5 

LAST 

38 

6160 

7 6234  0 

7 

INDJUMP  -1 

( 1 HE  INDEX  MAKES  THIS  A TCF.) 

0158 

6161 

00002  0 

OCT 

2 

REVERSE  PUSHUP  DECREMENT.  VECTOR  TAKES  2 

0159 

6162 

00006  1 

REVCNT 

OCT 

6 

WORDS,  SCALAR  TAKES  6. 

0160 

6163 

00006  1 

OCT 

6 

0161 

6164 

00002  0 

NO.WDS 

OCT 

2 

CONVENTIONAL  DECREMENT  IS  6 WORDS  VECTOR 

0162 

6165 

00003  1 

OCT 

3 

2 IN  DP,  AND  3 IN  TP. 

0163 

6166 

00006  1 

OCT 

6 

473423A 


u 

P0164 

0166 

0167 


0168 
R0 1 69 

Rom 

R0173 


0174 

0175 

0176 

0177 

0178 
A0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 
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LI5T_pROCESSlNG  INTERPRETER  USER'S  OwN  pACE  NO.  7 


TEST 

THE 

second  prefix  bit 

TO 

see  if  this  is 

A MISCELLANEOUS 

OR  A UNARY/SHORT  SHIFT  OPERATION. 

REF  1 0 LAST 

39 

6167 

10  020 

1 

0PJUMP2 

CCS 

CYR 

TEST  SECOND  PREFIX  BIT. 

REF  1 

6170 

1 6217 

1 

TCF 

0PJUMP3 

test  third  bit  to  see  if  unary  or 

6171 

77722 

0 

-ENDVAC 

DEC 

-45 

THE  FOLLOWING  RoUtIN-  PROCESSES  ADDRESSES  of  SUFFIX  CLASS  10.  THEY  are  basically  work  area  ADDRESSES 
IN  THE  RANGE  0 - 52,  ERASABLE  ADRES  CONSTANTS  FROM  100  - 1777,  AND  FCADRS  ABOVE  THAT.  ALL  15  BITS  ARE  AVAILABLE 
IN  CONTRAST  TO  SUFFIX  i,  IN  WHICH  ONLY  THE  LOW  ORDER  14  ARE  AVAILABLE. 


REF 

12  LAST 

38 

6172 

24  150 

0 

15BITADR 

1NCR 

LUC 

(ENTRY  HERE  FROM  STCALL) . 

ref 

13  LAST 

40 

6173 

50  150 

0 

INqEX 

LOC 

pick  up  address  word. 

6174 

3 0000 

1 

CA 

0 

REF 

5 LAST 

10 

6175 

54  103 

1 

T5 

POLISH 

THE  ABSOLUTE  ADDRESS  WILL  BE  LEFT  IN 

REF 

11  LAST 

39 

6176 

54  102 

0 

TS 

ADDRWD 

POLISH  WITH  AN  ERASABLE  SUBADDRESS  IN 

ADDRWD. 

REF 

2 LAST 

38 

6177 

7 6231 

0 

MASK 

HIGH9 

SEE  IF  RELATIVE  TO  THE  WORK  AREA. 

REF 

11  LAST 

39 

6200 

10  000 

0 

CCS 

A 

6201 

1 6203 

1 

TCF 

+ 2 

REF 

1 

6202 

1 6210 

0 

TCF 

RELWORK 

ONLY  IF  ZERO. 

REF- 

1 

6203 

3 6230 

0 

CAF 

L0W7+2K 

THESE  INSTRUCTIONS  ARE  IN  BANK  1. 

REF 

15  LAST 

38 

6204 

54  004 

1 

TS 

FbANK 

REF 

11  LAST 

40 

6205 

7 0020 

1 

MASK 

CYR 

REF 

12  LAST 

40 

6206 

50  000 

1 

INDEX 

A 

REF 

1 

6207 

1 6275 

0 

TCF 

MISCJUMP 

REF 

4 LAST 

38 

6210 

3 0104 

1 

RELWORK 

CA 

fixloc 

MAKE  ADDRWD  RELATIVE  TO  FIXLOC,  LEAVING 

REF 

12  LAST 

40 

6211 

26  102 

0 

ADS 

ADDRWD 

POLISH  ABSOLUTE  IN  CASE  THIS  WAS  AN 

REF 

2 LAST 

40 

6212 

3 6230 

0 

CAP 

L0W7+2K 

AXT , ETC. 

REF 

16  LAST 

40 

6213 

54  004 

1 

TS 

FBANK 

REF 

12  LAST 

40 

6214 

7 0020 

1 

MASK 

CYR 

REF 

13  LAST 

40 

6215 

50  000 

1 

INDEX 

A 

ref 

2 LAST 

40 

6216 

1 6275 

0 

TCF 

MISCJUMP 
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l list-processing  interpreter 


USER'S  OWN  PAGE  NO.  8 


P0196  COMPLETE  THE  DISPATCHING  OF  UNARY  AND  SHORT  SHIFT  OPERATIONS. 


0197 

REF 

17 

LAST 

40 

6217 

54  004 

1 0PJUMP3 

TS 

FBANK 

CALL  IN  BANK  0 (BITS  11-15  OF  A ARE  0.) 

0198 

REF 

13 

LAST 

40 

6220 

10  020 

1 

CCS 

CYR 

TEST  THIRD  PREFIX  BIT. 

0199 

REF 

14 

LAST 

40 

6221 

50  000 

1 

index 

A 

THE  DECREMENTED  UNARY  CODE  IS  IN  BITS 

0200 

REF 

1 

6222 

1 6315 

1 

TCF 

UNAJUMP 

1-4  OF  A (ZERO,  EXIT,  HAS  BEEN  DETECTED) 

0201 

REF 

4 

LAST 

39 

6223 

10  147 

1 

CCS 

MODE 

ITS  A SHORT  SHIFT  CODE.  SEE  IF  PRESENT 

0202 

REF 

1 

6224 

1 2000 

1 

TCF 

SHORTT 

SCALAR  OR  VECTOR. 

0203 

REF 

2 

LAST 

41 

6225 

1 2000 

1 

TCF 

SHORTT 

020A 

REF 

1 

6226 

1 2102 

1 

TCF 

SHORT  V 

CALLS  THE  APPROPRIATE  ROUTINE. 

0205 

0206 

6227 

6230 

00023  0 
02177  1 

0CT23 

L0W7+2K 

OCT 

OCT 

23 

2177 

MASK  USED  BY  PUSH-UP  ROUTINE. 

OP  CODE  MASK  + BANK  1 FBANk  SETTING. 

0207 

6231 

77700  0 

HIGH9 

OCT 

77700 

0208 

6232 

76000  0 

BANKMASK 

OCT 

76000 

FBANK  MASK. 

0209 

REF  3 LAST  38 

6232 

FBANKMSK 

EQUALS 

BANKMASK 

0210 

6233 

36000  1 

BUT14 

OCT 

36000 

USED  IN  PROCESSING  STORE  CODES. 

0211 

6234 

76056  0 

-ENDERAS 

DEC 

-977 
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list-processing  interpreter 


USER'S  OWN  PAGE  NO, 


P0212 

the  following  IS  tHe 

JUMP  table  for  op 

CODES 

WHICH  MAY  HAVE 

INDEXABLE  ADDRESSES  OR  may  push  up. 

0214 

REF 

1 

6235 

1 

6511 

0 INDJUMP 

TCF 

VL0AD 

00 

LOAD  MPAC  WITH  A VtCTOR. 

0215 

REF 

1 

6236 

1 

7050 

1 

TCF 

TAD 

01 

- 

TRIPLE  PRECISION  ADD  TO  MPAC. 

0216 

REF 

1 

6237 

1 

7603 

1 

TCF 

SIGN 

02 

- 

COMPLEMENT  MPAC  (V  OR  SC)  IF  X NEG. 

0217 

REF 

1 

6240 

1 

7354 

0 

TCF 

VX  SC 

03 

- 

VECTOR  TIMES  SCALAR. 

0218 

REF 

1 

6241 

1 

6672 

0 

TCF 

CGOTO 

04 

- 

COMPUTED  GO  TO. 

0219 

REF 

1 

6242 

1 

6474 

1 

TCF 

TLOAD 

05 

* 

LOAD  MPAC  WITH  TRIPLE  PRECISION. 

0220 

REF 

1 

6243 

1 

6465 

1 

TCF 

DLOAD 

06 

- 

LOAD  MPAC  WITH  A DP  SCALAR. 

0221 

REF 

1 

6244 

1 

7552 

0 

TCF 

V/SC 

07 

VECTOR  DIVIDED  BY  SCALAR. 

0222 

REF 

1 

6245 

1 

6505 

0 

TCF 

SLOAD 

10 

- 

LOAD  MPAC  IN  SINGLE  PRECISION. 

0223 

REF 

1 

6246 

1 

6624 

0 

TCF 

ssp 

11 

- 

SET  SINGLE  PRECISION  INTO  X. 

0224 

REF 

1 

6247 

1 

6527 

0 

TCF 

PDDL 

12 

- 

PUSH  DOWN  MPAC  AND  RE-LOAD  IN  DP. 

0225 

REF 

1 

6250 

1 

7307 

0 

TCF 

MX  V 

13 

- 

MATRIX  POST-MULTIPLIED  BY  VECTOR. 

0226 

REF 

1 

6251 

1 

6563 

0 

TCF 

PDVL 

14 

* 

PUSH  DOWN  AND  VECTOR  LOAD. 

0227 

REF 

1 

6252 

1 

6632 

1 

TCF 

ccall 

15 

- 

COMPUTED  CALL. 

0228 

REF 

1 

6253 

1 

7312 

1 

TCF 

VXM 

16 

- 

MATRIX  PRE-MULTIPLIED  BY  VECTOR. 

0229 

REF 

1 

6254 

1 

7544 

1 

TCF 

TSLC 

17 

- 

NORMALIZE  MPAC  (SCALAR  ONLY). 

0230 

REF 

1 

6255 

1 

7522 

1 

TCF 

DMPR 

20 

— 

DP  MULT  I PLY  AND  ROUND. 

0231 

REF 

l 

6256 

1 

7525 

0 

TCF 

DDV 

21 

• 

Dp  DIVIDE  BY. 

0232 

REF 

1 

6257 

1 

7531 

0 

TCF 

BDDV 

22 

- 

DP  DIVIDE  INTO. 

0233 

REF 

1 

6260 

1 

7547 

1 

TCF 

GSHIFT 

23 

- 

GENERAL  SHIFT  INSTRUCTION. 

0234 

REF 

1 

6261 

1 

6733 

1 

TCF 

VAD 

24 

- 

VECTOR  ADD. 

0235 

REF 

1 

6262 

1 

6761 

0 

TCF 

VSU 

25 

- 

VECTOR  SUBTRACT. 

0236 

REF 

1 

6263 

1 

7011 

1 

TCF 

BVSU 

26 

- 

VECTOR  SUBTRACT  FROM. 

0237 

REF 

1 

6264 

1 

7304 

0 

TCF 

DOT 

27 

VECTOR  DOT  PRODUCT. 

0238 

REF- 

1 

6265 

1 

7434 

1 

TCF 

VXV 

30 

_ 

VECTOR  CROSS  PRODUCT. 

0239 

REF 

1 

6266 

1 

7400 

0 

TCF 

VPROJ 

31 

- 

vector  projection. 

0240 

REF 

1 

6267 

1 

6777 

1 

TCF 

DSU 

32 

- 

DP  SUBTRACT. 

0241 

REF 

1 

6270 

1 

7035 

1 

TCF 

BDSU 

33 

- 

DP  SUBTRACT  FROM. 

0242 

REF 

1 

6271 

1 

6751 

0 

TCF 

DAD 

34 

- 

DP  ADD. 

0243 

6272 

1 

6272 

1 

TCF 

35 

- 

AVAILABLE 

0244 

REF 

1 

6273 

1 

7520 

0 

TCF 

DMP 1 

36 

- 

DP  MULTIPLY. 

0245 

REF 

1 

6274 

1 

7541 

1 

TCF 

setpd 

37 

- 

SET  PUSH  DOWN  POINTER  (DIRECT  ONLY) 

R02A6  CODES  lo  AND  )4  MUST  NOT  PUSH  JP.  CODE  04  MAY  Be  USED  FOR  VECTOR  DECLARE  BEFORE  PUSHUP  IF  DESIRED. 


P0248 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 
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LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  10 

[HE  FOLLOWING  JUMP  TABLE  APPLIES  TO  INDEX.  BRANCH . AND  MISCELLANEOUS  INSTRUCTIONS. 


REF 

REF 

1 

1 

6275 

6276 

1 

1 

2000 

2005 

1 

1 

MISCJUMP  TCF 
T CF 

AXT 

AXC 

00 

01 

ADDRESS  TO  INDEX  TRUE. 

address  to  index  complemented* 

r\  u r 

REF 

1 

6277 

1 

2010 

0 

TCF 

LXA 

02 

- 

LOAD  INDEX  FROM  ERASABLE. 

REF 

1 

6300 

1 

2014 

1 

I CF 

LXC 

03 

- 

LOAD  INDEX  FROM  COMPLEMENT  OF  ERAS 

REF 

1 

6301 

1 

2020 

0 

TCF 

SXA 

04 

- 

STORE  INDEX  IN  ERASABLE. 

REF 

1 

6302 

1 

2024 

1 

TCF 

XCHX 

05 

- 

EXCHANGE  INDEX  WITH  ERASABLE. 

REF 

1 

6303 

1 

2040 

0 

TCF 

I NCR 

06 

- 

INCREMENT  INDEX  REGISTER. 

REF 

1 

6304 

1 

2047 

1 

TCF 

T1X 

07 

- 

TRANSFER  ON  INDEX. 

REF 

1 

6305 

1 

2032 

0 

TCF 

xad 

10 

_ 

INDEX  REGISTER  ADD  FROM  ERASABLE. 

ref 

1 

6306 

1 

2043 

0 

TCF 

xsu 

11 

- 

index  subtract  from  erasable. 

REF 

1 

6307 

1 

2107 

1 

TCF 

BZE/GOTO 

12 

- 

BRANCH  ZERO  AND  GOTO. 

REF 

1 

6310 

1 

2114 

0 

TCF 

BPL/BMN 

13 

- 

BRANCH  PLUS  AND  BRANCH  MINUS. 

REF 

1 

6311 

1 

2127 

0 

TCF 

CALL/ I T A 

14 

- 

CALL  AND  STORE  QPRET . 

REF 

1 

6312 

1 

2067 

0 

TCF 

RTB/BHIZ 

15 

- 

RETURN  TO  BASIC  AND  BRANCH  HI  ZERO 

REF 

1 

6313 

1 

2135 

0 

TCF 

SW/ 

16 

- 

SWITCH  INSTRUCTIONS  AND  AVAILABLE. 

REF 

1 

6314 

1 

2077 

1 

TCF 

BOV(B) 

17 

- 

BRANCH  ON  OVERFLOW  TO  BASIC  OR  INT 

473423A  y JL  SYSTEM  FOR  BL<2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

L list-processing  interpreter 

P0266  THE  FOLLOWING  JUMP  TABLE  APPiES  TO  UNARY  INSTRUCTIONS. 

A0267 


0268 

REF 

1 

6315 

1 

3135 

1 

UNAJUMP  TCF 

SuRT 

0269 

REF 

1 

6316 

1 

3456 

1 

TCF 

SINE 

0270 

REF 

1 

6317 

1 

3445 

0 

TCF 

COSINE 

0271 

REF 

1 

6320 

1 

3536 

0 

TCF 

ARCSIN 

0272 

REF 

1 

6321 

1 

3540 

1 

TCF 

ARCCOS 

0273 

REF 

1 

6322 

1 

3122 

1 

TCF 

DSQ 

0274 

REF 

1 

6323 

1 

2077 

1 

TCF 

ROUND 

0275 

REF 

1 

6324 

1 

7616 

0 

TCF 

COMP 

0276 

REF 

1 

6325 

1 

3160 

1 

TCF 

VDEF 

0277 

REF 

1 

6326 

1 

2750 

0 

TCF 

UNIT 

0278 

REF 

1 

6327 

1 

3124 

1 

TCF 

ABVALABS 

0279 

REF 

1 

6330 

1 

3174 

1 

TCF 

VSQ 

0280 

REF 

1 

6331 

1 

6334 

1 

TCF 

STADR 

0281 

REF 

1 

6332 

1 

3224 

1 

TCF 

R VQ 

0282 

REF 

1 

6333 

1 

3177 

1 

TCF 

PUSH 

NOV  10,  1966  (MAIN)  PAGE  49 


USER'S  OWN  PAGE  NO.  11 


00  - EXIT  - DETECTED  EARLIER. 

01  - SQUARE  ROOT. 

02  - SIN, 

03  - COS. 

04  - ARC  SIN. 

05  - ARC  COS. 

06  - DP  SQUARE. 

07  - ROUND  TO  DP. 

10  - COMPLEMENT  VECTOR  OR  SCALAR. 

11  - VECTOR  DEFINE. 

12  - UNIT  VECTOR. 

13  - LENGTH  OF  VECTOR  OR  MAG  OF  SCALAR. 

14  - SQUARE  OF  LENGTH  OF  VECTOR, 

15  - PUSH  UP  ON  STORE  CODE. 

16  - RETURN  vlA  QPRET. 

17  - PUSH  MPAC  DOWN. 


973923A  YJL  SYSTEM  FOR  BLK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10»  1966  (MAIN)  PAGE  AS 


L LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  12 

P0283  SECTION  2 LOAD  AND  STORE  PACKAGE. 

R028A  a set  of  sixteen  store  codes  are  provided  as  the  primary  method  of  storing  the  multi-purpose 

R0286  ACCUMULATOR  (MPAC).  IF  IN  THE  DANZIG  SECTION  LOG  REFERS  TO  AN  ALGEBRAICALLY  POSITIVE  WORD»  IT  IS  TAKEN  As  A 
RQ288  STORE  CODE  wlTH  A CORRESPONDING  ERASABLE  ADDRESS.  MOST  OF  THESE  CODES  ARE  TWO  ADDRESS,  SPECIFYING  THAT  THE  WORD 

R0290  FOLLOWING  THE  STORE  CODE  IS  TO  3e  USED  AS  AN  ADDRESS  FROM  WHICH  TO  RE-LOAD  MPAC.  FOUR  OPTIONS  ARE  AVAILABLE: 


R0292 

1. 

store 

STORE 

MPAC.  THE 

E address  may  be 

INDEXED. 

R0299 

2. 

STOOL 

STORE 

MPAC  AND 

RE-LOAq 

IT  IN  DP 

WITH 

the  next  address  (either  may  be  indexed). 

R0296 

3. 

STOVL 

STORE 

MPAC  AND 

re-load 

A VECTOR 

(AS 

ABOVE) . 

R0298 

9. 

stcall 

STORE 

AND  DO  A 

CALL  (BOTH  ADDRESSES 

MUST  BE  DIRECT  HERE) . 

R0300 

STOOL  AND 

STOVL  WILL 

take  from  the  push-down  list  IF  NO 

LOAD  ADDRESS  IS  GIVEN. 

0302 

REF 

5 

LAST 

35 

6339 

3 0151  1 

STADR 

CA 

BANKSET 

THE  STADR  CODE  (PUSHUP  UP  ON  STORE 

0303 

REF 

18 

LAST 

91 

6335 

59  009  1 

TS 

fbank 

ADDRESS)  ENTERS  HERE. 

0309 

REF 

19 

LAST 

90 

6336 

29  150  0 

I NCR 

LOC 

0305 

REF 

15 

LAST 

95 

6337 

50  150  0 

INDEX 

LOC 

THE  STORE  CODE  WAS  STORE  COMPLEMENTED  TO 

0306 

6390 

9 0000  0 

CS 

0 

MAKE  IT  LOOK  LIKE  AN  OPCODE  PAIR. 

0307 

REF 

1 

6391 

6 7667  1 

AD 

negone 

(YUL  CANT  REMOVE  1 BECAUSE  OF  EARLY  CCS) 

0308 

REF 

13 

LAST 

90 

6392 

59  102  0 

DOSTORE 

TS 

ADDRWD 

0309 

REF 

10 

LAST 

38 

6393 

7 6926  0 

MASK 

Low  io 

ENTRY  FROM  DISPATCHER.  SAVE  THE  ERASABLE 

0310 

REF 

19 

LAST 

95 

6399 

56  102  1 

XCH 

ADDRWD 

ADDRESS  AND  JUMP  ON  THE  STORE  CODE  NO. 

0311 

REF 

1 

6395 

7 6233  1 

MASK 

B11T19 

0312 

6396 

0 0006  1 

EXTEND 

0313 

REF 

1 

6397 

7 7652  0 

MP 

B1T6 

EACH  TRANSFER  VECTOR  ENTRY  IS  TWO  WORDS. 

0319 

REF 

15 

LAST 

91 

6350 

50  000  1 

INDEX 

A 

0315 

REF 

1 

6351 

1 6352  1 

TCF 

STORJUMP 

473423A  Y JL  SYStEM  FqR  BLK2;  REVISION  12  OE  PROGRAM  aURqRA  BY  DAP  GRqUP 


L LIST-PROCESSING  interpreter 

P0316  STORE  CODE  JUMP  TABLE 

R0318  A SUPPLIED  OPERATION  CODE. 


0319 

REF 

1 

6352 

0320 

REF 

2 

LAST 

34 

6353 

0321 

REF 

1 

6354 

0322 

REF 

3 

LAST 

46 

6355 

0323 

REF 

1 

6356 

0324 

REF 

4 

LAST 

46 

6357 

0325 

REF- 

2 

LAST 

46 

6360 

0326 

REF 

1 

6361 

0327 

REF 

2 

LAST 

46 

6362 

0328 

REF 

2 

LAST 

46 

6363 

0329 

REF 

2 

LAST 

46 

6364 

0330 

REF 

3 

LAST 

46 

6365 

0331 

REF 

3 

LAST- 

46 

6366 

0332 

REF- 

1 

6367 

0333 

REF 

3 

LAST 

46 

6370 

0334 

REF 

2 

LAST 

46 

6371 

0335 

REF 

3 

LAST 

46 

6372 

0336 

REF- 

3 

LAST 

46 

6373 

0337 

REF 

4 

LAST 

46 

6374 

0338 

REF 

1 

6375 

0339 

REF 

4 

LAST 

46 

6376 

0340 

REF 

2 

LAST 

46 

6377 

0341 

REF 

4 

LAST 

46 

6400 

0342 

REF 

3 

LAST 

46 

6401 

0343 

REF 

5 

LAST 

46 

6402 

0344 

REF 

1 

6403 

0345 

REF 

5 

LAST 

46 

6404 

0346 

REF 

2 

LAST 

46 

6405 

0347 

REF 

5 

LAST 

46 

6406 

0348 

REF 

3 

LAST 

46 

6407 

0349 

REF 

6 

LAST 

46 

6410 

0350 

ref- 

1 

6411 

0351 

ref 

14 

LAST 

41 

6412 

0352 

REF 

1 

6413 

CALLS  THE  APPROPRIATE  ST  OR  1 nG  ROUTINE 


6422 

0 

STORJUMP  TC 

STORE 

6022 

0 

TCF 

NEWOPS  -1 

6414 

0 

TC 

STORE. 1 

6022 

0 

TCF 

NEWOPS  -1 

6417 

0 

TC 

STORE .2 

6022 

0 

TCF 

NEWOPS  -1 

6422 

0 

TC 

STORE 

6455 

1 

TCF 

DODLOAD 

6414 

0 

TC 

STORE, 1 

6455 

1 

TCF 

DODLOAD 

6417 

0 

TC 

STORE. 2 

6455 

1 

TCF 

DODLOAD 

6422 

0 

TC 

STORE 

6071 

0 

TCF 

DODLOAD* 

6414 

0 

TC 

STORE, 1 

6071 

0 

TCF 

DODLOAD* 

6417 

0 

TC 

STORE, 2 

6071 

0 

TCF 

DODLOAD* 

6422 

0 

TC 

STORE 

6460 

1 

TCF 

DOVLOAD 

6414 

0 

TC 

STORE, 1 

6460 

1 

TCF 

DOVLOAD 

6417 

0 

TC 

STORE, 2 

6460 

1 

TCF 

DOVLOAD 

6422 

0 

TC 

STORE 

6463 

1 

TCF 

DOVLOAD* 

6414 

0 

TC 

STORE, 1 

6463 

1 

TCF 

DOVLOAD* 

6417 

0 

TC 

STORE, 2 

6463 

1 

TCF 

DOVLOAD* 

6422 

0 

TC 

STORE 

7674 

0 

CAF 

CALLCODE 

4 020 

1 

TS 

CYR 

6172 

1 

TCF 

15BITADR 

• 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

0 

3 

5 

1 
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USER’S  OWN  PAGE  NO.  13 

and  exits  to  danzig  or  to  address  with 


STORE. 

PICK  UP  NEW  OP  CODE  IS) . 


STOOL. 


stool  with  indexed  load  address. 


STOVL. 


STOVL  WITH  INDEXED  LOAD  ADDRESS. 


STOTC. 


GET  A 15  BIT  ADDRESS 
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L 

LIST 

-processing  interpreter 

USER'S  OWN  PAGE  NO.  1A 

P0353 

STORE 

CODE 

ADDRESS 

PROCESSOR. 

035A 

REF 

5 

LAST 

AO 

6 A 1 A 

50  1 0 A 

1 

STORE. 1 

INDEX 

FIXLOC 

0355 

REF- 

2 

LAST 

38 

6A15 

A 00A6 

1 

cs 

XI 

0356 

REF 

1 

6A16 

1 6A21 

1 

TCF 

PRESTORE 

0357 

REF 

6 

LAST 

A7 

6A17 

50  1 0 A 

1 

STORE. 2 

INDEX 

FIXLOC 

0358 

REF 

1 

6A20 

A 00A7 

0 

CS 

X2 

0359 

REF 

15 

LAST 

A5 

6A21 

26  102 

0 

PRESTORE 

ADS 

ADDRWD 

RESULTANT  ADDRESS  IS  IN  ERASABLE. 

0360 

REF 

16 

LAST 

A7 

6A2  2 

3 0102 

1 

STORE 

CA 

ADDRWD 

SEE  IF  ADDRESS  RELATIVE  TO  WORK  AREA 

0361 

REF- 

2 

LAST 

37 

6A23 

6 6171 

0 

AD 

-endvac 

0362 

REF 

16 

LAST 

A5 

6A2  A 

10  000 

0 

CCS 

A 

0363 

REF 

1 

6A25 

1 6A3 1 

0 

TCF 

STARTSTO 

ADDRESS  OK  As  IS. 

036A 

6A26 

01777 

1 

L0W10 

OCT 

1777 

0365  REF  7 LAST  A7 

0366  REF  17  LAST  A7 


6A27  3 0 1 0 A 1 

6A30  26  102  0 


CA 

ADS 


FIXLOC 

ADDRWD 


GIVEN  ADDRESS  IS  RELATIVE  TO  WORK  AREA 
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L 

LIST 

-PROCESSIN 

iG 

INTERPRETER 

USER'S 

OWN  PAGE  NO.  15 

P0367 

STORING 

ROUT InES.  STORE  dp. 

TP 

. OR  VECTOR  As  indicated  by 

MODE. 

0368 

6431 

0 0006 

1 

startsto 

EXTEND 

MPAC , ♦ 1 

MUST  BE  STORED  IN  ANY  EVENT 

0369 

REF 

I 

6432 

3 0141 

0 

DCA 

MPAC 

0370 

REF 

18 

LAST 

47 

6433 

50  102 

1 

INDEX 

ADDRWD 

0371 

6434 

52  001 

1 

DXCH 

0 

0372 

REF 

5 

LAST 

41 

6435 

10  1 A7 

1 

CCS 

MODE 

0373 

REF 

1 

6436 

1 6451 

0 

TCF 

TSTORE 

0374 

REF 

29 

LAST 

33 

6437 

0 0002 

0 

TC 

Q 

0375 

6440 

0 0006 

1 

VSTORE 

EXTEND 

0376 

REF 

2 

LAST 

48 

6441 

3 0144 

0 

OCA 

MPAC  +3 

0377 

REF 

19 

LAST 

48 

6442 

50  102 

1 

INDEX 

ADDRWD 

0378 

6443 

52  003 

0 

DXCH 

2 

0379 

6444 

0 0006 

1 

EXTEND 

0380 

REF 

3 

LAST 

48 

6445 

3 0146 

1 

DCA 

MPAC  +5 

0381 

REF 

20 

LAST 

48 

6446 

50  102 

1 

INDEX 

ADDRWD 

0382 

6447 

52  005 

0 

DXCH 

4 

0383 

REF 

25 

LAST 

48 

6450 

0 0002 

0 

TC 

0 

0384 

REF 

4 

LAST 

48 

6451 

3 0142 

0 

T STORE 

CA 

MPAC  +2 

0385 

REF 

21 

LAST 

48 

6452 

50  102 

1 

INDEX 

ADDRWD 

0386 

6453 

54  002 

1 

TS 

2 

0387 

REF 

26 

LAST 

48 

6454 

0 0002 

0 

TC 

Q 
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L LIST-PROCESSING  INTERPRETER 


P0388 

R0390 

039  1 

ITSELF. 
RPF-  1 

ROUTINES  to 

BEGIN  PR  DC 
6455  3 

0392 

REF 

15 

LAST 

46 

6456 

5 

0393 

REF 

1 

6457 

1 

0394 

REF 

1 

6960 

3 

0395 

REF 

16 

LAST 

49 

6461 

5 

0396 

REF 

2 

LAST 

49 

6462 

1 

0397 

REF 

1 

6463 

3 

0398 

REF 

4 

LAST 

46 

6464 

1 

ESSING  OF  THE  SECOND  ADDRESS  ASSOCIATED 


767  5 

1 

DODLOAD 

CAF 

DLOADCOD 

4 020 

1 

TS 

CYR 

6041 

0 

TCF 

DIRADRES 

7641 

0 

DOVLOAD 

CAF 

VLOADCOD 

4 020 

1 

TS 

CYR 

6041 

0 

TCF 

DIRADRES 

6042 

1 

DOVLOAD* 

CAF 

VLOAD* 

6072 

0 

TCF 

DODLOAD*  +1 

USER'S  OWN  PAGE  NO.  16 
WITH  ALL  ST ORE-TYPE  CODES  EXCEPT  STORE 

GO  GET  A DIRECT  ADDRESS. 


PROLOGUE  10  INDEX  ROUTINE. 
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L LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  17 

P0399  THE  FOLLOWING  LOAD  INSTRUCTIONS  ARE  PROVIDED  FOR  LOADING  THE  MULTI-PURPOSE  ACCUMULATOR  MPAC. 


0401 

6465 

0 0006 

1 

DLOAD 

EXTEND 

0402 

REF 

22 

LAST 

48 

6466 

5 0102 

1 

INDEX 

ADDRWD 

0403 

6467 

3 0001 

0 

DCA 

0 

PICK  UP  DP  ARGUMENT  AND  LEAVE  IT  IN 

0404 

REF 

5 

LAST 

48 

6470 

52  141 

1 

SL0AD2 

DXCH 

MpAC 

MpAC , + 1 » SETTING  MPAC  +2  TO  ZERO.  THE 

0405 

REF 

4 

LAST 

33 

6471 

3 7665 

0 

CAF 

zero 

CONTENTS  OF  THE  OTHER  FOUR  REGISTERS  OF 

0406 

REF 

6 

LAST 

50 

6472 

54  142 

1 

TS 

MPAC  +2 

MPAC  ARE  IRRELEVANT. 

0407 

REF 

1 

6473 

1 6013 

l 

TCF 

NLWMODE 

DECLARE  DOUBLE  PRECISION  MODE. 

0408 

REF 

23 

LAST 

50 

6474 

50  102 

1 

T LOAD 

index 

ADDRWD 

0409 

6475 

3 0002 

0 

CA 

2 

LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 

0410 

REF 

7 

LAST 

50 

6476 

54  142 

1 

TS 

MPAC  *2 

THE  FIRST  THREE  MPAC  REGISTERS.  WITH  THE 

0411 

6477 

0 0006 

1 

EXTEND 

CONTENTS  OF  THE  OTHER  FOUR  IRRELEVANT. 

0412 

REF 

24 

LAST 

50 

6500 

5 0102 

1 

INDEX 

ADDRWD 

0413 

6501 

3 0001 

0 

DCA 

0 

0414 

REF 

8 

LAST 

50 

6502 

52  141 

1 

DXCH 

MPAC 

0415 

REF 

1 

6503 

3 7657 

1 

CAF 

ONE 

0416 

REF 

2 

LAST 

50 

6504 

1 6013 

1 

TCT 

NfWMODR 

DECLARE  TRIPLE  PRECISION  MODE. 

0417 

6505 

22  007 

0 

SI  OAD 

ZL 

LOAD  A SINGLE  PRECISION  NUMBER  INTO 

0418 

REF 

25 

LAST 

50 

6506 

50  102 

1 

INDEX 

ADDRWD 

MPAC,  SETTING  MPAC* 1,2  TO  ZERO.  THE 

0419 

6507 

3 0000 

1 

CA 

0 

CONTENTS  OF  THE  REMAINING  MPAC  REGISTERS 

0420 

REF 

1 

6510 

1 6470 

0 

TCF 

SL0AD2 

ARE  IRRELEVANT. 

0421 

6511 

0 0006 

1 

VLOAD 

EXTEND 

LOAD  A DOUBLE  PRECISION  VECTOR  INTO 

0422 

REF 

26 

LAST 

50 

6512 

5 0102 

1 

INDEX 

ADDRWD 

MPAC , + 1 , MPAC  + 3,4,  AND  MPAC  + 5,6.  THE 

0423 

6513 

3 0001 

0 

DCA 

0 

CONTENTS  OF  MPAC  +2  ARE  IRRELEVANT. 

0424 

REF 

9 

LAST 

50 

6514 

52  141 

1 

DXCH 

MPAC 

0425 

6515 

0 0006 

1 

endvload 

extend 

PDVL  COMES  HERE  TO  FINISH  UP  FOR  DP,  TP. 

0426 

REF 

27 

LAST 

50 

6516 

5 0102 

1 

INDEX 

ADDRWD 

0427 

6517 

3 0003 

1 

DCA 

2 

0428 

REF 

10 

LAST 

50 

6520 

52  144 

1 

DXCH 

MPAC  +3 

0429 

6521 

0 0006 

1 

+ 4 

EXTEND 

TPDVL  FINISHES  HERE. 

0430 

REF 

28 

LAST 

50 

6522 

5 0102 

1 

INDEX 

ADDRWD 

0431 

6523 

3 0005 

1 

DCA 

4 

0432 

REF 

11 

LAST 

50 

6524 

52  146 

0 

DXCH 

MPAC  +5 

0433 

REF 

2 

LAST 

50 

6525 

4 7657 

0 

cs 

ONE 

DECLARE  VECTOR  MODE. 

0434 

REF 

3 

LAST 

50 

6526 

1 6013 

1 

TCF 

NEWMODE 
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L LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  18 


P0A35 

THE 

following 

INSTRJ 

CT10NS  ARE 

PROVIDED 

FOR  STORING  OPERANDS 

IN  THE  PUSHDOWN  LIST : 

R0A37 

1. 

PUSH 

PUSHDOWN 

AND  NO  1 

LOAD. 

R0A38 

2. 

PDDL 

PUSHDOWN 

AND  DOUBLE  PRECISION  LOAD. 

R0A39 

3. 

PDVL 

PUSHDOWN 

AND  VECTOR  LOAD. 

OAAO 

6527 

0 0006 

1 

PDDL 

EXTEND 

0 A A 1 

REF 

29 

LAST 

50 

6530 

5 0102 

1 

INDEX 

ADDRWD 

LOAD  MPAC . + 1 * PUSHING  THE  FORMER 

0AA2 

6531 

3 0001 

0 

DCA 

0 

CONTENTS  DOWN. 

0AA3 

REF 

12 

LAST 

50 

6532 

52  1 A 1 

1 

DXCH 

MPAC 

OAAA 

REF 

2 

LAST 

39 

6533 

50  152 

1 

INDEX 

PUSHLOC 

0AA5 

653A 

52  001 

1 

DXCH 

0 

0 AA6 

REF 

6 

LAST 

A8 

6535 

50  1A7 

0 

INDEX 

MODE 

ADVANCE  THE  PUSHDOWN  POINTER  APPRO- 

0AA7 

REF 

3 

LAST 

39 

6536 

3 6 1 6 A 

1 

CAF 

NO.WDS 

PRIATELY. 

0 AA8 

REF- 

3 

LAST 

51 

6537 

26  152 

0 

ADS 

PUSHLUC 

0 A A9 

REF 

7 

LAST 

51 

65  AO 

10  1A7 

1 

CCS 

MODE 

0A50 

REF 

1 

65A1 

1 6556 

0 

TCF 

ENDTPUSH 

0A5 1 

REF 

1 

65A2 

1 655  A 

1 

TCF 

ENDDPUSH 

0A52 

REF 

8 

LAST 

51 

65A3 

5 A 1A7 

1 

TS 

MODE 

NOW  DP. 

0A53 

REF 

13 

LAST 

51 

65AA 

5 A 1A2 

1 

endvpush 

TS 

MPAC  +2 

0A5  A 

REF- 

1A 

LAST 

51 

65A5 

52  1AA 

1 

DXCH 

MPAC  +3 

PUSH  DOWN  THE  REST  OF  THE  VECTOR  HERE. 

0A55 

REF 

A 

LAST 

51 

65A6 

50  152 

1 

INDEX 

PUSHLOC 

0A56 

65A7 

5 1 ' 775 

0 

DXCH 

0 -A 

0A57 

REF 

15 

LAST 

51 

6550 

52  1A6 

0 

DXCH 

MPAC  +5 

GA58 

REF 

5 

LAST 

51 

6551 

50  152 

1 

INDEX 

PUSHLUC 

0A59 

6552 

51*777 

1 

DXCH 

0 -2 

0A60 

REF 

1 

6553 

1 60 1 A 

0 

f f F 

— -NZ._ 

... 

0A6 1 

REF 

16 

LAST 

51 

655A 

5 A 1 A2 

1 

enddpush 

TS 

MPAC  +2 

SET  MPAC  +2  TO  ZERO  AND  EXIT  ON  DP. 

0A62 

REF 

2 

LAST 

51 

6555 

1 60 1 A 

0 

TCF 

DANZIG 

0 A63 

REF 

9 

LAST 

51 

6556 

5 A 1A7 

1 

ENDTPUSH 

TS 

MODE 

0A6A 

REF 

17 

LAST 

51 

6557 

55  1A2 

0 

XCH 

MPAC  +2 

ON  TRIPLE*  SET  MPAC  +2  TO  ZERO.  PUSHING 

0A65 

REF 

6 

LAST 

51 

6560 

50  152 

1 

+ 2 

INDEX 

PUSHLOC 

DOWN  THE  OLD  CONTENTS 

0 A66 

6561 

5 3 ' 777 

0 

TS 

0 -1 

0A67 

REF 

3 

LAST 

51 

6562 

1 60 1 A 

0 

TCF 

DANZIG 

473423A  YJL  SYSTEM  FOR  BLK2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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P0468 

PDVL 

- 

PUSHDOWN  AND 

VECTOR 

LOAD. 

0469 

6563 

0 0006 

1 PDVL 

EXTEND 

0470 

REF 

30 

LAST 

51 

6564 

5 0102 

1 

INDEX 

ADDRWD 

0471 

6565 

3 0001 

0 

DCA 

0 

0472 

REF 

18 

LAST 

51 

6566 

52  141 

1 

OXCH 

MPAC 

0473 

REF 

7 

LAST 

51 

6567 

50  152 

1 

INDEX 

PUSHLOC 

0474 

6570 

52  001 

1 

DXCH 

0 

0475 

REF 

10 

LAST 

51 

6571 

50  147 

0 

INDEX 

mode 

0476 

REF 

4 

LAST 

51 

6572 

3 6164 

l 

CAF 

N0.WDS 

0477 

REF 

8 

LAST 

52 

6573 

26  152 

0 

ADS 

PUSHLOC 

0478 

REF 

11 

LAST 

52 

6574 

10  147 

1 

CCS 

MODE 

0479 

REF 

1 

6575 

1 6614 

0 

TCF 

TPDVL 

0480 

REF 

1 

6376 

1 6515 

1 

TCF 

ENDVLOAD 

0481 

6577 

0 0006 

1 VPDVL 

extend 

0482 

REF 

31 

LAST 

52 

of,  00 

5 0102 

i " 

indfx 

ADDRWD 

0483 

6601 

3 0003 

1 

OCA 

2 

NOV  10*  1966  (MAIN)  PAGE  52 


USER'S  OWN  PAGE  NO.  19 
RELOAD  MPAC  AND  PUSH  DOWN  ITS  CONTENTS. 


ADVANCE  THE  PUSHDOWN  POINTER. 

TEST  PAST  MODt. 

JUST  LOAD  LAST  FOUR  REGISTERS  ON  DP. 
PUSHDqWN  AND  Rf-LOAD  LAST  TWO  COMPONENTS 


_ 


: 


€ 

« 


« 


i 


■$> 

i) 


(t*; 

% 


' 


$ 

l 

i 


5 » 2600  ~ MPC  2600  0000  1401  7734  7777  7777  7777  7777  ~0000  0000  0000  0113  sWS  2106  4431  0010  0041 

5*2604  TS  2204  4075  0 0 11  75 42  SWE  21  U 4071  000”4”000 0 WA  2515  0000  4406  00 00^  5 WE  2 5 1 6 0040  2004  0005 

5*2610  WA  2515  0005  4406  0000  LA  2434  OOO5  4431  6 007  WA  2715  0040  0142  0001  0000  0000  0000  0011 

5 * 2614  ~ SWS  2106  4406  0007  QOOl  TX  2420  1541  7777  4050  Ts  2404  0041  4051  4026  WA  6215  4056  0143  4056 

5 '2620  0000  0000  0000  2000~~SWS  60^6  4052  01114052  EX  4016  4050  4052  4054  SS  4006  4431  4052  4050 

7Tr2624  EX  4G 1 6 4053  4052  4055  IPr60Pr~4W4  4055  6OI7  TX  2020  7777  Tlff  inj  BM  O7I3  1525  1303  0041 

5*2S3W  Ts*  7144  0474  5504  6342  TOI524Q  0356  7351  3524  EOI5240  0356  7351  3~522T  E015240  0356  7351  3524 

5r2634  £0 15240  0356  7351  3524  £015240  0356  735T  35^4  EOI524Q  0356  7351~ 3524  E0I5240  0356  7351  3524 


preceding  lime  is  Repeated,  until: 


5 • 2674 


EO 1 5240  0356  7351  3524  E0I5240  0356  7351  3524  E0I5240  0356  7351  3524 


0300  7657  4017  7777 


5 • 2700 


MPC  2600  0000  1401  7734 


0000  0000  0000  0000 


5*2704 
5 '2710 
5*2714 


OCOC  0000  0400  0000 


wottwoo  oto  o~  woo” 


WOO  0000  ”0000  0000 
0000  0000  0013  545O 


0000  0000  0001  1432  0000  0000  0000  0000  TX  2420  0056  7777  6003  TX 

TS*  1344  4423  4O73  6016  SWS  2006  4423  4013^4073  TX  2120  6006  7777  0015  TX 


2163  2043 
2163  2^43 
2520  0004 
2120  4053 


2000  0001 
2000  0001 


5*2/20 

5*2724 


TS  2204  40520011  7542  WD  6135  4427  4004  0016  NA,  5154  7OOI  6OO7  6027  NA”,  46547001 


7777  0002 
7777  0014 
6 00 7 ”6027” 


NA,  5054  7OOI  6OO7  6027  LA  6434  0016  4427  6031  TS  6004  7OOI  6010  6032  NA  6414  0156  4051  6022 


5 1 2730 
5*2734 
5*2740 


WD  2535  0016  4004  OOT6  TX  2420  0T1677777777  Tx  6420  0056  7777^7001  Tx  2120  6010  7777  0056 
”LA  ”2034  ”4 01 1 6003  6015  TX  2120  4427  7777  0016  NA,  1T54””7000  600W604T  NA,  1054  7OOO 


NA,-0654  7OOO  5400  6012  nA  2414  0156  4051  6036  Tx  2020  4011  7777  4525  ”NA,  0654  6003 


4051  40 60” 
5000  6051 


5*2744 
”5*2750 
5*2754 
5*2  76(' 
5*2764 
5*2770 
5*2774 
5*3000 
5*3004 
5*3010 


TSin1,344  6003  6403  6437  TS~600*r  6003  6OO7  6021  TS  2004  7OOO  4525  6050  LA 

T5  22tT4”W01  0156  6047 TS  2204  4427  0016  6053  LA  2434  01 56  4051  6414  "NA," 

Tx,  1160  4051  7777  4501  Tx  2020  4013  7777  6403  Tx  2120  4427  7777  0016  |_A 

NA,  0654  7000  5000  6O7O  NA , 1054  7OOO  4051  6063  TS,  1644  4016  4501  6O7O  NA , 

1344  7000  64036070  LA, 


LA,  1374  6403  7000  6070 — SS”” 

_Ts  2404  0115  7777  6057  Ts*  1544  4015  4501 ”6070 
0000  0000  0000  0000 


0000  0000  0000  0000 


0000  0000  0000  0000 


0402  2336  5155  1355 


MPC  ”2”5O0  OOOO”  T401””7734”” 


0000  OTJOO  "0000  OOOO”  OOOO”  ”0000  0000  0000 


LA,  1174  4501  4051  6415  Ex  0216  4501  0142  6OO7 


7O77  0000  0000  0000  NA 


2434  0056 
”0654  7OOO 
^434  0056 
0754  7000 
1374  5010 
0000  0000 
0300  7655 
0000  0000 
2014  6OO7 


4051  6014 
5000  6052 
4051  6404 
4051  6067 
7000  6071 
0000  0000 
4012  7OOO 
0000”  OOOl  ” 
4521  6411 


Ts  2404  0102  7777  6437  Ts,  1344  50106403  6410  5yfS  2006  4423  2013  4O73  Ts  2004  7777  7777  6016 


1 


J 


> 

» 


i 


> 

> 


> 

t i.  I! 


> 

f 


» 


0484  REF  19  LAST  52  — 6602  52  144  1 DXCH  MPAC  *3 

TJ485  REF  9 LAST  52  66UF  50"T52  1 INDEX  PUSHLOC 

OA86  66C4  5 1 ^775  0 DXCH  0 -4 


0487 

6605 

0 0006  1 

EXTEND 

0488 

REF 

32 

LAST 

52 

6606 

5 0102  1 

INDEX  ADDRWD 

0489 

6607 

3 0005  1 

DCA  4 

0490 

' "RTF" 

20 

LAST 

52 

6610 

52  146  0 

DXCH  MPAC  +5 

0491 

REF"" 

to 

LAST 

52 

6611 

50  152  1 

INDEX  PUSHLOC 

0492 

6612 

51*777  1 

DXCH  0 -2 

0493  REF  4 LAST  51  6613  1 6014  0 TCF  "DANZIG 


0494 

6614 

0 0006 

1 TPDVL 

EXTEND 

ON  TP,  WE  MUST 

LOAD 

THE  Y COMPONENT 

0495 

REF 

33 

LAST 

52 

6615 

5 0102 

1 

INDEX 

ADDRWD 

BEFORE  STORING 

MPAC 

+2  INCASE  THIS  IS  A 

0496 

66l6 

3 0003 

1 

DCA 

2 

PUSHUP. 

0497 

REF 

2 1 

LAST" 

52 

6617 

52  144 

1 

DXCH 

MPAC  +3 

0496 

REF 

22 

LAST 

52 

6620 

3 0142 

0 

CA 

MPAC  *2 

"0499 

ref 

11 

LAST" 

52 

662 1 

50  152 

T 

INDEX 

PUSHLOC 

IN  DP. 

0500 

6622 

53*777 

0 

TS 

0 -1 

0501 

REF 

2 

LAST 

52 

6623 

1 6521 

0 

TCF 

ENDVLOAD  4-4 

R0502  SSP  (STORE  SINGLE  PRECISION)  IS  EXECUTED  HERE. 


0503 

REF 

16 

LAST  45 

66  24 

24  150 

0 SSP 

I NCR 

"LOC 

PICK  UP  THE  WORD  FOLLOWING  THE  GIVEN 

0504 

REF 

17 

LA5T  52 

6625 

50  150 

0 

INDEX 

LOC 

ADDRESS  AND  STORE  IT  AT  X. 

0505 

6626 

3 0000 

1 

CA 

0 

0506 

"REF 

34 

LAST  52 

6627 

TOME  INDEX  AND "MISCELLANEOUS  OPS  END 

0507 

6630 

54  000 

0 

TS 

0 

HERE  , 
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0508  REF  5 LAST  52  6631  ~~1  601A  0~  TCF  DANZIG  
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x~  list -processing  interpreter-  user's  oan  page  ,\o.  21 

Po 509  sequence  chans rNS  and  subrqut  inecalling  options,  ~ 

R05I0  fH(  FOLLOWING  OPlRATIONS  ARe  AVAILABLE  FOR  SEQUENCING  CHANGING,  BRANCH  I NGT'ANP- CALLING  SUBROUTINES: 


R0512 

1. 

GOTO 

GO  TO. 

R0513 

2. 

CALL 

CALL  SUBROUTINE 

SETTING  QPRET. 

R0514 

3. 

CGOTO 

COMPUTED  GO  TO. 

R0515 

4. 

CCALL 

COMPUTED  CALL. 

R0516 

7. 

BPL 

BRANCH  IF  MPAC 

POSITIVE  OR  ZERO. 

R0517 

8. 

BZE 

BRANCH  IF  MPAC 

ZERO. 

R0518 

9. 

EMTT 

BRANCH  I F- HP AC 

negative  non-zero. 

0519 

REF 

18 

LAST 

52 

6632 

24  150  0 CCALL 

I NCR  LOC 

MAINTAIN  LOC  FOR  qPRET  COMPUTATION, 

“0520 

REF  19 

LAST 

54 

6633 

50  150  0 

INDEX  LOC 

0521 

6634 

3 0000  1 

CAF  0 

GET  BASE  ADDRESS  OF  CADR  LIST. 

0522 

RtF 

35 

LAS  I 

52 

6635 

50  102  1 

INDEX  ADDRWD 

0523 

6636 

6 0000  1 

AD  0 

ADD  INCREMENT, 

0524 

REF 

19 

LA5T 

45 

6637 

54  004  1 

T5  FBANK 

SELECT  DESIRED  CADR. 

0525 

REF 

11 

LAS  I 

45 

6640 

7 6426  0 

MASK  LQwlO 

0526  REF  TTXA5T  57  66*1  50  000  '1  TNEEx  A 


0527  6642  3 2000  0 CAF  10000 

0528  REF  6 LAST  40  6643  54  103  1 -1  TS  POLISH 


0529 

REF 

12 

LAST  54 

6644 

4 6426  0 CALL 

C5 

LOWlO 

FOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  UP  THE 

0530 

REF 

20 

LAST  54 

6645 

6 0150  0 

AD 

LOC 

ADDRESS  OF  THE  NEXT  OP-CODE  PAIR/STORE 

0531 

REF 

6 

LAST-  45 

6646 

6 0151  1 

AD 

BANKSET 

CODE  AND  LEAVE  IT  IN  QPRET.  NOTE  THAT 

0532 

REF 

8 

LAST  47 

6647 

50  104  1 

INDEX 

FIXLOC 

L0W10  = 2000  - 1. 

0533 

REF 

l 

6650 

54  052  1 

T5 

QPRET 

0534 

REF 

7 LAST 

54 

665  I 

3 0103 

0 GOTO 

CA 

POLISH 

BASIC  BRANCHING  SEQUENCE. 

0535 

REF 

20  LAST 

54 

6652 

54  004 

1 

TS 

FBANK 

0536 

RcF 

13  CA5T 

54 

6653 

7 6426 

0 

' ^ A SK 

- LOW 10  ' 

RAKE  UP  12  BIT  SUB-ADDRESS  AND  T ALL  INTO- 

0537 

REF 

3 LAST 

38 

6654 

6 7645 

1 

AD 

2K 

FALL  INTO  THE  INTPRET  ENTRY  UNLESS  THE 

0538 

REF 

21  LAST 

54 

6655 

54  150 

1 

TS 

LOC 

GIVEN  ADDRESS  WAS  IN  ERASABLE,  IN  WHICH 

0539 

RtF 

21  LAST” 

54 

6656 

ITT  004 

21 

CC5 

“FBANXT 

CASE  TT  IS  USED  AS  THE  ADDRESS  OF  THE 

0540 

REF 

2 LAST 

34 

6657 

1 6002 

1 

TCF 

INTPRET  +2 

BRANCH  ADDRESS, 

0541 

6660 

1 6662 

1 

TCF 

+ 2 

0542 

REF 

3 LAST 

54 

6661 

1 6002 

1 

“ TCF 

INTPRET” +2 

473423A  VJL  SYSTEM  FOR  E)LK2:  REVISION!  12  OF  PROGRAM  AURORA  bY  DAP  GROUP 
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L 

LIST' 

PROCESSING 

INTERPRETER 

USER'S  OWN  PAGE  NO.  22 

0543 

REF 

22 

LAST 

54 

6662 

4 0150 

1 

cs 

LQC 

THE  GIvEN  ADDRESS  IS  IN  ERASABLE  - SEE 

^ 0544 

REF~ 

1 

6663 

6 6710 

1 

AD 

EVAC+2K 

IF  RELATIVE  TO  THE  WORK  AREA. 

0545 

REF 

18 

LAST 

54 

6664 

10  000 

0 

CCS 

A 

0546 

REF 

9 

LAST 

54 

6665 

3 0104 

1 

CA 

FIXLOC 

ADD  FIXLOC  IF  SO. 

0547 

REF 

23 

LAST 

55 

6666 

26  150 

1 

ADS 

LOC 

0548 

REF 

24 

LAST 

55 

6667 

50  150 

0 

INDEX 

LOC 

0549 

6670 

2 '6000 

0 

CA 

0 -2000 

(ADDRESS  HAD  BEEN  AUGMENTED  BY  2000.) 

0550 

REF 

1 

6671 

1 6652 

1 

TCF 

GOTO  +1 

ALLOWS  ARBITRARY  INDIRECTNESS. 

0551 

REF 

25 

LAST 

55 

6672 

50  150 

0 CGQTO 

INDEX 

LOC 

COMPUTED  GO  TO,  PICK  UP  ADDRESS  OF  CADR 

0552 

6673 

3 0001 

0 

CA 

1 

LIST. 

0553 

REF 

36 

LAST 

54 

6674 

50  102 

1 

INDEX 

ADDRWD 

ADD  MODIFIER. 

0554 

6675 

6 0000 

I 

AD 

0 

0555 

REF 

22 

LAST 

54 

6676 

54-  004 

1 

TS 

FBANK 

SELECT  GOTO  ADDRESS. 

0556 

REF 

14 

LAS  1 

54 

6677 

7 6426 

0 

-MASK 

L0W10 

0557 

REF 

19 

LAST 

~ ~55 

6700 

50  000 

1 

IW7EX 

A 

0558 

6701 

3 2000 

0 

CA 

10000 

0559 

REF 

2 

LA5  f 

55 

6702 

1 6662 

1 

TCF 

GOTO  +1 

WITH  ADDRESS  IN  A. 

0560 

REF 

7 LAST 

54 

6703 

3 0151 

1 

SWBRAMCH  CA 

BANKSET 

SWITCH 

INSTRUCTIONS 

WHICH  ELECT  TO 

0561 

REF 

23  LAS  1 

55 

6704 

54  004 

1 

TS 

FBANK 

BRANCH 

COME  HERE  TO 

DO  SO. 

' 0562 

REF 

26  DV5T 

55 

6705 

50  150 

0 

TO5EX 

LOC 

0563 

6706 

3 0001 

0 

CA 

1 

0564 

REF 

3 LAS  1 

55 

6707 

1 6662 

I 

TCF 

GOTO  +1 

0565  6710  ' 02055  10  EVAC+2K  DEC  11769  =1024*45 


* 
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L LIST-PROCESSING  interpreter 

I 

PQ566  TRIPLE  PRECISION  BRANCHING  ROUT  I Nl,  TF^  CALLI NG  TC  IS  AT  L, 


USEr«S  OWN  page  NO* 
Return  is  as  Follows: 


23 


fc  R0566 

R0569 
R0570 


I 


L+l  IF  MPAC  IS  greater:  THAN  zero. 
L + 2 IF  MPAC  IS  EQUAL  TO  +0  OR  -0. 
L+3  IF  MPAC  IS  LESS  THAN  ZERO. 


! '| 


0571 

RcF 

23  LAST 

52 

6711 

10  140 

0 

BRANCH  CCS 

MPAc 

0572 

REF 

27  LAST 

48 

6712 

0 0002 

0 

TC 

Q 

0573 

6713 

1 6715 

0 

TCF 

♦ 2 

ON  ZERO. 

0574 

REF 

I 

6714 

1 6727 

1 

TCF 

NEG 

0575 

REF 

24  LAST 

56 

6715 

10  141 

1 

CCS 

MPAC  +1 

0576 

ref 

28  LAST 

56 

6716 

0 0002 

0 

TC 

Q 

0577 

6717 

1 6721 

1 

TCF 

+ 2 

0578 

REF 

2 LAST 

56 

6720 

1 6727 

1 

TCF 

NEG 

0579 

REF 

25 

LAST 

56 

6721 

10  142  1 

CCS 

MPAC  +2 

0580 

ref 

56 

6722 

0 0002  0 

TC 

Q 

0581 

6723 

1 6725  0 

TCF 

+ 2 

0582 

REF 

3 

LA51 

56 

6724 

1 6727  1 

TCF 

NEG 

0583  REF  30  LA5T  56  6725  50  002  0 INDEX  Q FF  ALL  THREE  REGISTERS  WERE  + -0. 

0584  6726  0 0001  0 TC  ““ T“ 


0585  REF  31  LAST  56  6727  50  002  0 NEG  TNDeX  Q IF  FIRST  NON-ZeRO  REGISTER  WAS  NEGATIVE, 

0586  6730  0 0002  0 TC  2 


0587  RIF  27  L. 

S731 

5q  lSo  0 EXTT 

INDEX" 

LOC  ~ 

leave  interpretive  mode. 

0588 

6732 

1 0001  1 

TCF 

1 

r 


-it 


> 


( 
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l lt st -processing  interpreter-  user's  o*n  page  no.  24 

P0589  SECTION  3 ADD/SUBtRACT  PACKAGE.  ~ 

R05«J0  THc  FOLLOWING  OPERATIONS  ARe  PROVIDED  FOR  ADDING  JO  AND  SUBTRACTING  FROM  jHe  MULtI-PURPOSe  ACCUMULATOR 

R0592  MPAC.’ " ' ' ' 

R0593  U DAD  " DOUBLE  PRECISION  ADD, 

R0594  " 2,  "MO-  DOUBLE  PRECISION  SUBTRACT. 

RL'595  3.  BDSU  DOUBLE  PRECISION  SUBTRACT  FROl%__ 


R0596  A.  TAD  TRIPLE  PRECISION  ADD. 

R0597  S,  VAD  VECTOR  ADD." 

R0598  —fri  VSU  VECTOR  SUBTRACT. 

R0599  “T;  BVSU  ■ VECTOR  SUBTRACT  FROM. 


R0600  the  INTERPRETIVE  OVERFLOW  INDICATOR  CVF1ND  IS  SeT  NON-ZeRO  IF  OVERFLOW  OCCURS  IN  ANY  OF  THE  ABQVe, 


0602 

6733  0 0006  1 VAD 

EXTEND 

0603 

REF  37  LAST  55 

6734  5 0102  1 

INDEX  ADDRWD 

0604 

6735  3 0003  1 

DCA  2 

0605 

REF  26  LAST'  56 

6736  20  144  1 

DATS  MPAC  +3 

0606 

6737  0 0006  1 

EXTEND 

CHECK  OVERFLOW. 

0607 

6740  1 6742  1 

BZF  +2 

U608 

REF  1 

6741  0 7007  1 

TC  OVERFLOW 

0609 

6742 

0 0006 

1 

EXTEND 

06TO 

REF 

38  LASI 

57 

6743 

5 0102 

1 

TFTDEX  ADD’RWD 

0611 

6744 

3 0005 

1 

DCA  4 

0612 

REF 

27  LAST 

57 

6745 

20  146 

0 

DAS  MPAC  +5 

0613 

6746 

0 0006 

1 

EXTEND 

0614 

6747 

1 6751 

0 

BZF  +2 

0615 

REF 

2 LAST 

57 

6750 

0 7007 

1 

TC  OVERFLOW 

0616 

6751 

G 0006 

1 

DAD 

EXTEND 

0617 

REF 

39  LAST 

57 

6752 

5 0102 

1 

INDEX  ADDRWD 

06 1 8 

6753 

3 0001 

0 

DCA  0 

0619 

REF 

28  Last 

57 

6754 

20  141 

1 

END  V XV‘ 

DAS  MPAC 

VXV  FINISHES  HERE. 

0620 

6755 

0 0006 

1 

EXTEND 

0621 

REF 

6 LAST 

53 

6756 

1 6014 

0 

3ZF  DANZIG  “ 

0622 

REF 

3 LAST 

57 

6757 

0 7007 

1 

TC  OVERFLOW 

0623 

REF 

7 LAST 

57 

6760 

1 6014 

0 

TCF  DANZIG 

473423A  rjL  SYSTEM  FOR  BLKTr~KEVI5ION  12  OF  PROGRfM  AURORA  BY  DAP  GROUP 
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L LIST--"-  I \6  INTERPRETER 


USER'S  OWN  PAGE  NO,  25 


0624 

6761 

0 0006  1 vsu 

extend 

0625 

REF 

40 

~LSsnr 

57 

6762 

5 0102  1 

INDEX  ADDRWD 

0626 

6763 

4 0003  0 

DCS  2 

0627 

REF 

29 

LAST 

57 

6764 

20  144  1 

DAS  MPAC  +3 

0626 

6765 

0 0006  1 

EXTEND 

0629 

6766 

1 6770  0 

BZF  +2 

0630 

REF 

4 

LAS  1 

57 

6767 

0 7007  1 

TC  OVERFLOW 

0631 

6770 

0 0006  1 

EXTEND 

0632 

REF 

41 

LAST 

56 

6771 

5 0102  1 

INDEX  ADDRWD 

0633 

6772 

4 0005  0 

DCS  4 

0634 

REF 

30 

LAST 

58 

6773 

20  146  0 

DAS  MPAC  +5 

0635 

6774 

0 0006  1 

EXTEND 

0636 

6775 

1 6777  1 

BZF  +2 

0637 

REF 

5 

LAST 

58 

6776 

0 7007  1 

TC  OVERFLOW 

0638 

6777 

0 0006 

1 DSU 

EXTEND 

0639 

REF 

42 

LAST 

58 

7000 

5 0102 

1 

INDEX  ADDRWD 

0640 

7001 

4 0001 

1 

DCS  0 

0641 

REF 

31 

LAST 

58 

7002 

20  141 

1 

DAS  MPAC 

0642 

7003 

0 0006 

1 

EXTEND 

0643 

REF 

3 

LAST 

57 

7004 

1 6014 

0 

BZF  DANZIG 

0644 

REF 

6 

LAST 

56 

7005 

0 7007 

1 

TC  OVERFLOW 

0645 

REF 

9 

LAST  ~ 

58 

7006 

1 6014 

0 

TCF  DANZIG 

Q646  RTEF“  5 LAST  50  7007  3 t6§7  1 OVERFLOW  CAP  ONE  SUBROUTINE  TO  TURN  OVFIND  ON. 

0647  REF  1 7010  1 7132  1 TCF  ' SET0VF2 


I 
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L LIST-PROCESSING  INTERPRETER'  .SlR'S  OWN' PAGE  NO.  26 


0646 

7011 

0 0006  1 BV5U 

EXTEND 

0649 

REF 

43 

LAST 

58 

7012 

5 0102  1 

index 

ADDRWD 

0650 

7013 

3 0003  1 

QCA 

2 

0651 

REF 

32 

LAST 

58 

7014 

52  144  1 

OXCH 

MPAC  +3 

0652 

7015 

0 0006  1 

EXTEND 

0653 

7016 

4 OOO 1 1 

DCOM 

0654 

REF 

33 

LAST 

59 

7017 

20  144  1 

DAS 

MPAC  +3 

0655 

7020 

0 0006  1 

EXTEND 

0656 

7021 

1 7023  0 

3ZF 

+ 2 

0657 

REF 

7 

LAST 

58 

7022 

0 7OO7  1 

TC 

OVERFLOW 

0658 

7023 

0 0006 

1 

EXTEND 

0659 

REF 

44 

LAST 

59 

7024 

5 0102 

1 

INDEX 

ADDRWD 

0660 

7025 

3 0005 

1 

DCA 

4 

0661 

REF 

34 

LAST 

59 

7026 

52  146 

0 

DXCH 

MPAC  +5 

0662 

7027 

0 0006 

1 

EXTEND 

0663 

7030 

4 OO01 

1 

DCOM 

0664 

REF 

35 

LAST 

59 

7031 

20  146 

0 

DAS 

MPAC  +5 

0665 

7032 

0 0006 

1 

EXTEND 

0666 

7033 

1 7035 

1 

BZF 

+ 2 

0667 

REF 

8 

LAST 

59 

7034 

0 7007 

1 

TC 

OVERFLOW 

0668 

7035 

0 0006 

1 BDSU 

EXTEND 

0669 

REF 

45  LAST 

59 

7036 

5 0102 

1 

INDEX  ADDRWD 

0670 

7037 

3 0001 

0 

DCA  0 

0671 

REF 

36  LAST" 

59 

7040 

52  141 

1 

“T DXCH  MPAC 

0672 

7041 

0 0006 

1 

EXTEND 

0673 

7042 

4 0001 

1 

DCOM 

“0674 

REF 

37  LAST 

59 

7043 

20  141 

1 

DAS  MPAC 

0675 

7044 

0 0006 

1 

EXTEND 

0676 

REF 

10  LAST 

58 

7045 

1 6014 

0 

BZF  DANZIG 

0677 

REF 

9 LA5T 

59 

7046 

0 7007 

1 " 

TC  ' OVERFLOW 

0678 

REF 

11  LAS! 

59 

7047 

1 6014 

0 

TCF  DANZIG 

47l«3A _ YJL  SYSTEM  FOR  BL<2i  REVISION  12  OF  PROGRAMTAURQRA  BY  DAP  GROUP 
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L 

LIST' 

-processing 

interpreter 

USER'S  OWN  PAGE  NO.  27 

P0679 

triple  PRECISION  add 

routine. 

0680 

7050 

0 0006  1 

TAD 

EXTEND 

0681 

REF 

46 

LAST 

59 

7051 

5 0102  1 

INDEX 

ADDRWD 

~0682 

7052 

3 0002  0 

DCA 

1 

ADD  MINOR  PARTS  FIRST. 

0683 

REF 

38 

LAST 

59 

7053 

20  142  1 

DAS 

MPAC  +1 

0684 

REF 

47 

LAST 

60 

7054 

50  102  1 

INDEX 

ADDRWD 

0685 

7055 

6 0000  1 

AD 

0 

0686 

REF 

39 

LAST 

60 

7056 

6 0140  1 

AD 

MPAC 

0687 

REF 

40 

LAST 

60 

7057 

54  140  0 

TS 

MPAC 

0688 

REF 

12 

LAST 

59 

7060 

1 6014  0 

TCF 

DANZIG 

0689 

REF 

1 

7061 

54  105  1 

SETOVF 

TS 

OVFIND 

SET  OVFIND  IF  SUCH  OCCURS. 

0690 

REF 

13 

LAST 

60 

7062 

1 6014  0 

TCF 

DANZIG 

-W342  3A  Y'JL  SYSTEM  FOR  BLKz:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

list-processing  interpreter  usek»s  own  page  no.  28 

P0691 

arithmetic 

SUBROUTINES  ReUUIRjD  in  FIXeD-FIXeD, 

RC692 

i» 

dmpsub 

DOUBLE  precision  MULTIPLY.  MULTIPLY  the  CONTENTS  OF  MPAC»+1  BY  the  dp  WORD  WHOSE  ADDRESS 

R0694 

IS  IN  AddKWD  a Mo  LEAVE  a TRIPLE  PRECISION  RESULT  in  MPAC. 

R0696 

2. 

roundsub 

round  the  triple  precison  contents  of  mpac  to  double  precision. 

R0698 

3. 

dotsub 

take  the  dot  product  of  the  vector  in  mpac  and  the  vector  whose  address  is  in  addrwd 

R0700 

AND  LEAVE  the  TRIPLE  PRECISION  RESULT  IN  MPAC. 

R0701 

4. 

POLY 

TJ5TNG  the  CONTENTS  OF  MPAC  AS  A DP  ARGUMENT , EVALUATE  THE  POLYNOMIAL  WHOSE  DeGRee  AND 

R0703 

COEFFICIENTS  IMMEDIATELY  FOLLOW  THE  TC  POLY  INSTRUCTION  (See  ROUTINE  FOR  DETAILS.) 

0705 

REp 

32 

LAST 

56 

7063 

50  002 

0 

Dmp 

INDEX 

0 

basic  subroutine  for  use  by  pinball,  etc 

0706 

7064 

3 0000 

1 

CAF 

0 

adres  of  argument  follows  tc  dmp  . 

0707 

REF 

33 

LAST 

61 

7065 

24  002 

0 

I NCR 

Q 

0708 

REF 

48 

LAST 

60 

7066 

54  102 

0 

.1 

TS 

ADDRWD 

(PROLOGUE  FOR  SETTING  ADDRWD.) 

07o9 

REF 

49 

LAST 

6 1 

7067 

5o  102 

1 

DMPSUB 

INDEX 

ADDRWD 

get  minor  part  of  operand  at  c(addrwd). 

0710 

7070 

3 0001 

0 

CA 

1 

0711 

“ REF 

41 

LAST 

60 

7071 

54  142 

1 

TS 

MPAC  +2 

THIS  WORKS  FOR  SQUARING  MPAC  AS  WELL-, 

0712 

REF 

5 

last 

50 

7072 

3 7665 

0 

CAF 

ZERO 

SET  MPAC  +1  TO  ZERO  SO  WE  CAN  ACCUMULATE 

0713 

REF 

42 

LAST 

6 1 

7073 

56  141 

0 

XCH 

MPAC  +1 

THE  PARTIAL  PRODUCTS  WITH  DAS 

0714 

HREF 

30 

7074 

54  121 

1 

TS 

MPTEMP 

INSTRUCTIONS. 

0715 

7075 

0 0006 

1 

EXTEND 

0716 

REF 

43 

LAST 

61 

7076 

7 0142 

1 

MP 

MPAC  +2 

MINOR  OF  MPAC  X MINOR  OF  C (ADDRwD)  . 

0'7l7  REF  44  LAST  6],  ” 7o77  56"  ]>2  0 XCH  MPAC  *2 

0718  7100  ' 0 0006  1 EXTEND  ~ 

“0TI9  REF  AS  LAST  61  7101  7 0140  0 MP  MPAC 

0720  REF  U LAST  61  7102  20  142  1 DAS  MPAC  +1 


DISCARD  MINOR  PART  OF  ABOVE  RESULT  AND 
"FORM  MAJOR"  OF  MPAC  X MINOR  OF  C ( ADDRWP) , 

GUARANTEED  NO  OVERFLOW, 


0'72T  REF  50  LAST  6l  7TD3  50  102  1 

0722  7104  3 0000  1 


0723 

REF 

5 

LAST 

61 

7105 

5b  121  0 

D724 

7106 

0 0006  T 

0725 

REF 

6 

LAST 

61 

7107 

7 0121  1 

0726 

REF 

47 

LAST 

6 1 

7110 

20  142  1 

INDEX  ADDRWD 

CA 0” 

XCH  MPTEMP 

EXTEND” 

MP MPTEMP 

DAS  " MPAC  +1 


GET  MAJOR  PART  OF  ARGUMENT  AT  C (ADDRWD). 

SAVE  AND  BRING  OUT  MINOR  OF  MPAC. 

MAJOR  OF  C (ADDRWD)  X MINOR  OF  MPAC. 
ACCUMULATE,  SETTING  A TO  NET  OVERFLOW, 


0727 

REF 

48  LAST 

6 1 

7111 

56  140 

T 

XCH 

MPAC 

SETTING  MPAC  ' 

TO  0 OR  +-1, 

0728 

7112 

0 0006 

1 

EXTEND 

0729 

REF 

7 LAST 

61 

7113 

7 0121 

1 

MP 

MAJOR  OF  MPAC 

X MAJOR  OF  C( ADDRWD). 

0730 

REF 

49  LAST 

61 

7114 

20  141 

1 

DAS 

MPAC 

GUARANTEED  No 

OVERFLOW, 

0731 

REF 

34  LAST 

6 1 

7115 

0 0002 

0 

TC 

Q 

49  MCT  = ,573 

MS,  INCLUDING  RETURN. 
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L 

list 

-processing  interpreter 

USER'S  OWN  PAGE  NO,  29 

P0732 

ROUND  mpac 

TO  DOUBLE 

precision 

* setting 

OVFinD 

Oj^  THE  RARE 

EVEnT  OF  OVERFLOW. 

0734 

REF 

6 

LAST 

61 

7116 

3 7665  0 

roundsub 

CAF 

zero 

SET  MPAC  +2=0  FOR  SCALARS 

AND 

CHANGE 

0735 

REF 

12 

LAST 

52 

7117 

54  147  1 

+ 1 

TS 

MODE 

MODE  TO  DP, 

0736 

REF 

50 

LAST 

61 

7120 

56  142  0 

VROUND 

XCH 

MPAC  +2 

BUT  WE  NEEDNT  TAKE  THE  TIME 

FOR 

VECTORS, 

0737 

7121 

6 0000  1 

DOUBLE 

0738 

REF 

4 

LAST 

32 

7122 

54  001  1 

TS 

L 

0739 

REF 

35 

LA5T 

61 

7123 

0 0002  0 

TC 

Q 

0740 

REF 

5 r 

LA5T 

62 

7124 

6 0141  0 

AD 

MPAC  +1 

ADD  ROUNDING  BIT  IF  MPAC  +2 

WAS 

GREATER 

0741 

ref 

52 

LAST 

62 

7125 

54'  141  1 

TS 

MPAC  +1 

THAN  .5  In  magnitude. 

0742 

REF 

36 

LAST 

62 

7126 

0 0002  0 

TC 

Q 

0743 

REF 

53 

LAST 

62 

7127 

6 0140 

1 

AD 

MPAC 

PROPAGATE  INTERFLOW. 

0744 

REF 

54 

LAST 

62 

7130 

54  140 

0 

TS 

MPAC 

0745 

REF 

37 

LAST 

62 

7131 

0 0002 

0 

TC 

0 

0746 

REF 

2 

LAST 

60 

7132 

54  105 

1 5ETOVF2 

rs 

OVFIND 

(RARE ) # 

0747 

ref 

38 

last 

62 

7133 

o 

s 

0 

TC 

Q 

» 
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L LIS l “PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO,  30 

P0748  THe  DOT  PRODUCT  5gRg TTlNE"  USUA1-LT"T0RT4S  tHe  ^0T^PR0DUCt  OF  THe  VECTOR  IN  MPAC  WITH  A STANDARD  Six 

R 0 7 5 0 REGISTE,  VECTOR  WHOSt  ADDRESS  IS  IN  AUDRWD.  IN  THIS  CASE  C(DQTINC)  ARe  SET  TO  27MXM,  HGWeVeR  .SETS  C (DqtINC)  TO 

R0752  6 SO  THAT  DQTSUB  DOTS  MPAC  W I j H A COLUMN  VECTOR  OF  THe  MATRIX  IN  QUESTION  IN  THIS  CASE. 


0754 

ref 

2 

LAST 

28 

7134 

3 7656  0 

predot 

caf 

TWO 

PROLOGUE  TO  SET  DOTINC  TO  2, 

0755 

REF 

4 

LAST 

11 

7135 

54  122  1 

TS 

DOTINC 

0756 

7136 

0 0006  1 

DOTSUB 

EXTEND 

0757 

REF 

5 

LAST 

11 

7137 

22  123  1 

DXCH 

DOTRET 

SAVE  RETURN. 

0758 

REF 

1 

7140 

0 7067  1 

TC 

DMPSUB 

DOT  X COMPONENTS. 

0759 

REF 

55 

LAST 

62 

7141 

52  IW  r 

dxch 

MPAC  +3 

POSITION  Y COMPONENT  OF  MPAC  FOR 

0760 

REF 

56 

Last 

63 

7142 

52  141  1 

DXCH 

MPAC 

MULTIPLICATION  WHILE  SAVING  RESULT  IN 

0761 

REF 

4 

LAST 

11 

7143 

52  115  0 

dxch 

BUF 

THREE  WORD  BUFFER,  BUF. 

0762 

REF 

57 

LAST 

63 

7144 

3 0142  0 

CA 

MPAC  +2 

0763 

REF 

5 

LAST 

63 

7145 

54  116  0 

TS 

BUF  +2 

0764 

REF 

5 

LAST 

63 

7146 

3 0122  0 

CA 

DOTINC 

ADVANCE  ADDRWD  TO  Y COMPONENT  OF 

0765 

REF 

51 

last 

61 

7147 

26  102  0 

ADS 

ADDRWD 

OTHER  ARGUMENT. 

0766 

REF 

2 

LAST 

63 

7150 

0 7067  1 

TC 

DMPSUB 

0767 

REF 

58 

LAST 

63 

7151 

52  142  1 

dxch 

MPAC  +1 

ACCUMULATE  PARTIAL  PRODUCTS. 

0768 

REF 

6 

LAST 

63 

7152 

20  1 16~0 

MS 

BUF  +1 

0769 

REF 

59 

LAST 

63 

7153 

6 0140  1 

AD 

MPAC 

0770 

REF 

r 

LAST 

63 

7154 

6 0114  0 

AD 

BUF 

0771 

REF 

8 

LAST 

63 

7155 

54-  114  1 

TS 

BUF 

0772 

7156 

1 7160  0 

TCF 

+ 2 

0773 

REF 

3 

LAST 

62 

7157 

54  105  1 

TS 

OVFIND 

IF  OVERFLOW  OCCURS. 

0774 

REF 

60  LAST  63 

7160 

52  146  0 

DXCH 

MPAC  +5 

MULTIPLY  Z COMPONENTS, 

0775 

RcF 

51  LAST  63 

7161 

52  141  1 

DXCH 

MPAC 

0776 

REF 

6 LAST  63 

7I62T 

3 0122TT 

TA 

DOTINC 

0777 

REF 

52  LAST  63 

7163 

26  102  C 

ADS  " 

ADDRWD 

0778 

REF 

3 LAST  63 

7164 

0 7067  1 

TC 

DMPSUB 

0 779 

REF 

9 LAST  63 

7165 

52  116  0 ENDDGT 

BUF  +1 

LEAVE  FTNAL  ACCUMULATION  IN  MPAC. 

0780 

REF 

62  LAS  1 63 

7166 

20  142  1 

DAS 

MPAC  +1 

0781 

REF 

63  LAS  1 63 

7167 

6 0140  1 

AD 

MPAC 

0782 

REF 

10  LA5T  63 

717TT 

6 0114  0 

AD 

BUF  ‘ 

0783 

REF 

64  LAST  63 

7171 

54  140  0 

TS 

MPAC 

0784 

REF 

6 LAST  63 

7172 

0 0123  1 

TC 

DOTRET 

0 785 

KEr 

4 LAST  63 

7173 

54  105  1 

TS 

OVFIND 

ON  OVERFLOW  HERE. 

0786 

REF 

7 LrtS T 63 

7174 

0 0123  1 

TC 

DOTRET 
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L 

LIST-PROCESSING  INTERPRETER 

USER'S  OWN  PAGE  NO,  31 

P0787 

DOUBLE  PRECISION  POLYNOMIAL  EYALUATOR 

R0788 

N 

N-l 

R0789 

this  routine  evaluates  ax  + a 

X +*§§+AX+A 

LEAVING  THE  DP  RESULT  IN  MPAC  ON  EXIT. 

R0791 

N N-l  1 0 

R0792  THE  ROUTINE  HaS  TWCTeNtRILS 


R0793  1.  ENTRY  THRU  POWRSERS.  THE  COEFFICIENTS  MAY  BE  EITHER  IN  FIXED  OR  ERASABLE,  THE  CALL  IS  BY 

R0795  TC  POWRSERS,  AND  THE  RETURN  15  TO  LoC(TC  POWRSERS) +1,  THE  ENTERING  DATA  MUST  BE  AS  FOLLOWS 


Ao797  A-  SP  LOC-3  ADDRESS  FOR  REFERENCING  COeF  TABLE 

A0798  C-  SP  N-l  N IS  THE  DEGREE  OF  THE  POWER  SERIES 

A 0799  MPAC  DP  X ARGUMENT 


A0800  L0C-2N  DP  A ( 0 ) 

A 0 8 0 1 ... 

A0802  LOC  DP  A (N) 

R0803  2«  ENTRY  THRU  POLY.  [He  CALL  TO  PQLY  AND  THE!  ENTERING  DATA  MUST  BE‘  A~S  FOLLOWS 


A0805 


MPAC  DP"  X:  ARGUMENT 


« 


r 


A0806  LOC  TC  POLY 

AO 8 07  LOC+1  _ SP  N-l 

AO 808  " ' LOC+2  DP  ~ A ( 0 ) 

A0809  ... 

A0810  ~ L0C+2N+2  DP  A (N)  RETURN  IS  TO  .'L0C+2N+4  "'  " """ 


08ll 

7175 

0 0006  1 

POWRSERS  EXTEND 

0812 

REF 

i 

7176 

22  125  1 

OXCH 

POLYRET 

RETURN  ADDRESS 

0813 

"REF 

8 LAST 

54 

7177 

54  103  1 

TS  - 

POLISH  " 

POWER  SERIES  ADDRESS 

0814 

REF 

1 

7200 

22  124  0 

LXCH 

PQLYCNT 

N-l  TO  COUNTER 

0815 

REF 

1 

7201 

1 7212  0 

TCF 

POLYCOM 

SKIP  SET  UP  BY  POLY 

U816 

Rtr 

39  LAST 

62 

7202 

50  002  0 

POLY  INDEX 

Q 

0817 

7203 

3 0000  1 

CAF 

0 

0818 

REF 

2 LA5T  64 

~ 7204 

S4  124  r 

TS 

POLYCNT  “ 

N-l  TO  COUNTER 

0819 

7205 

6 0000  1 

DOUBLE 

0820 

Ref- 

40  LAST 

64 

7206 

6 0002  0 

AD 

Q 

0821 

REF 

P LAST 

64 

7207 

54  103  r 

TS 

P0LT5TT  “ 

L (A (N) ) -3  TO  POLISH 

0822 

REF 

1 

7210 

6 7664  1 

AD 

FIVE 

U823 

REF 

2 LAST 

64 

7211 

54  125  0 

T 5 

POLYRtT 

STORE  RETURN  ADDRESS 

0824 

REF 

1 

7212 

3 7677  0 POLYCOM 

CAF 

LVBUF 

INCOMING  X 

WILL  BE  MOVED  TO  VBUF,  SO 

0825 

REF 

53 

LAS  1 

63 

7213 

54  102  0 

TS 

ADDRWD 

SET  ADDRWD 

SO  DMPSUB  WILL  MPY  BY  VBUF, 

U8Z6 

7214 

0 0006  1 

EXTEND 

0827 

REF 

10 

LAS  f 

64 

7215 

5 0103  0 

INDEX 

POLISH 

0828 

7216 

3 0004  0 

HDCA 

3 

473423A 

YJL 

SYSTEM  FOR  6L<2 

J REVISIOM 

12  OF  PROGRAM  AURORA  BY  DAP  oROUP 

NOV  10,  1966  (MAIN)  PAGE  65 

L 

LIST 

-processing  interpreter 

USER'S  OWN  PAGE  nO«  32 

0829 

REF 

65 

LAST 

63 

7217 

52  141  1 

DXCH 

MPAC 

LOAD  A (N)  INTO  MPAC, 

0830 

REF 

12 

LAST 

11 

7220 

52  107  0 

DXCH 

VBUF 

SAVING  X IN  VBUF 

0831 

REF 

l 

7221 

1 7225  1 

TCF 

POLY  2 

0832 

REF 

3 

LAST 

64 

7222 

54  124  1 

POLYLOOP  TS 

POLYCNT 

SAVE  DECREMENTED  LOOP  COUNTER 

0833 

REF 

3 

LAST 

63 

7223 

4 7656  1 

CS 

TwO 

0834 

REF 

n 

LAST 

64 

7224 

26  103  1 

ADS 

POLISH 

REGRESS  COEFFICIENT  POINTER 

0835 

REF 

4 

LAST 

63 

7225 

0 7067  1 

P0LY2  TC 

DMPSUB 

MULTIPLY  BY  X 

0836 

7226 

0 0006  1 

EXTEND 

W37 

REF 

12 

LAST 

65 

7227 

5 0103  0 

INDEX 

POLISH 

0838 

7230 

3 0002  0 

DCA 

1 

ADD  IN  NEXT  COEFFICIENT 

0839 

REF 

66 

LAS  1 

65 

7231 

20  141  1 

DAS 

MPAC 

USERS  RESPONSIBILITY  TO  ASSURE  NO  OVFLOW 

0840 

REF 

4 

LAST 

65 

7232 

10  124  1 

CCS 

POLYCNT 

0841 

REF 

1 

7233 

1 7222  0 

TCF 

POLYLOOP 

0842 

REF 

3 LAST 

64 

7234 

0 0125  1 

TC 

poLyret 

RETURN  CALLER 

H' 


IP 
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C" 

list 

-PROCESSING  INTERPRETER 

USER’S  OWN  PAGE  nO«  33 

P0843 

FiI5CfLLANeOJS  MULTI-PRECISION  routines 

REQUIRED  IN  FIXED-FIXED 

BUT  NOT  USED  BY  THE  INTERPRETER, 

O845 

7235 

0 0006 

1 TPAGREE 

EXT  t.MD 

FORCE  SIGN  AGREEMENT  AMONG  THE  TRIPLE- 

0846 

ref 

11 

last  63  7236 

22  114 

0 

oxch 

BUF 

PRECISION  CONTENTS  Of  MPAc*  RETURNING 

0847 

REF 

“I 

7237 

0 6711 

0 

TC 

BRANCH 

WITH  THE  SIGNUM  OF  THE  INPUT  IN  A, 

0848 

REF 

1 

7240 

1 7244 

0 

TCF 

ARG  + 

0849 

REF 

1 

7241 

1 7264 

1 

TCF 

ARGZERO 

O85O 

REF 

1 

7242 

4 7637 

0 

CS 

POSMAX 

IF  NEGATIVE. 

0851 

7243 

1 7245 

1 

TCF 

+ 2 

0852 

REF 

2 LAST 

66 

7244 

3 7637  1 

ARG  + 

CAF 

POSMAX 

0853 

REF 

12  LAST 

66 

7245 

54  115  0 

+ 2 

TS 

BUF  +1 

0854 

7246 

0 0006  1 

EXTEND 

0855 

REF 

20  LAST 

55 

7247 

24  000  1 

AUG 

A 

FORMS  +-1,0. 

0856 

REF 

67  LAST 

65 

7250 

6 0142  0 

AD 

MPAC  +2 

0857 

" REF" 

68  LAST 

66 

7251 

54  142  1 

TS 

MPAC  + 2 

0858 

REF 

7 LAST 

62 

7252 

3 7665  0 

CAF 

ZERO 

0859 

REF 

13  LAST 

66 

7253 

6 0115  1 

AD 

BUF  +1 

0860 

REF~ 

69  LAST- 

66 

7254 

6 0141  0 

AD 

MPAC  +1 

0861 

REF 

70  LAST 

66 

7255 

54  141  1 

TS 

MPAC  +1 

0862 

REF 

8 LAST 

66 

7256 

3 7665  0 

CAF 

ZERO 

0863 

' REF 

14  LAST 

66 

7257 

6 OTrn 

AD 

BUF  +1 

0864 

REF 

( 1 Las  I 

66 

7260 

6 0140  1 

AD 

MPAC 

0865 

REF 

72  LAST 

66 

7261 

54  140  0 

ARGZER02 

“TS 

MPAC 

ALWAYS  SKIPPING  UNLESS  ARGZERO, 

~0866 

RtF 

73  LASl 

66 

7262 

54  141  1 

TS 

MPAC  +1 

0867 

REF 

15  LA5T 

66 

7263 

0 0114  0 

TC 

BUF 

RETURN. 

0868  FTEF  74  LAS!  66“  7265  '5'4“T42  1 ARGZERO  T5““  “ MPAC  +2  SET  ALL  THREE  MPAC  REGISTERS  TO  ZERO, 

0869  REF  1 7265  1 7261  1 TCF  ArGZErOZ 


R 0 8 7 0 SHCRTMP  MULTiPLIt5  THE  TP  CONTENTS  OP  MPAC  8Y  THE  SINGLE  PRECISION  NUMBER  ARRIVING  IN~A7 

0872  REF  8 LAST  61 

~ UF73 

0874  REF  75  LAST  66 

0875  REF  76  LAST  66 

0876  REF 9 LAST— 5F 

0877  REF  77  LAST  66 

0878 

0879  REF  9“  LAST  66 

0880  REF  78  LAST  66 

0881  REF  79  LAST  66 

0882' 

0883  REF  10  LAST  66 

0884  REF  80  LAST  66 

0885  REF  41  LAST — 64 


7266 

54  121  1 

SHORTMP  T5  MPTEMP 

7267 

~ C 000'6  1 

EXTEND 

7270 

7 0142  1 

MP  MPAC  +2 

7271 

54  142  1 

TS  MPAC  +2 

' 7272 

3 7665  CT 

CAF'  ' ZERO 

SO  SUBSEQUENT  D'AS  WTLL  WORK , 

7273 

56  141  0 

XCH  MPAC  +1 

7274 

0 0006  1 

EXTEND 

7275 

7 0121' I 

MP  MPTEMP 

7276 

20  142  1 

DAS  MPAC  +1 

7277 

56  140  1 

XCH  MPAC 

SETTING  MPAC  TO  0, 

“ 7300 

XT  0006  1 

EXTEND- 

7301 

7 01211 

MP  MPTEMP 

7302 

20  141  1 

DAS  MPAC 

7303 

0 0002  0 

“TC  Q 
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L 

LISt-PR0ClSSIN6  INTERPRETER 

USER'S  OWN  PAGE  NO,  34 

PQ886 

miscellanlOos  vector  operations 

. included  here  are  the  following; 

R0887 

i* 

DOT 

dp  vector  dot  product. 

R0888 

2. 

VXV 

dp  vector  CROSS  PRODUCT. 

R0889 

3. 

VXSC 

dp  vector  times  scalar. 

R0890 

4. 

V/ SC 

dp  vector  divided  by  scalar. 

R0891 

5. 

VPROJ 

DP  Vector  PROJECTION.  ( (MPAC.X)MPAC  ). 

R 0 8 9 2 

6. 

VXM 

DP  VECTOR  ^POST-MULTIPLIED  BY  MATRIX. 

R0893 

7. 

MXV 

DP  VECTOR  PrE-MULTIPLIED  BY  MATRIX. 

0894  REF  1 7304  0 7134  0 DOT  TC  PREDOT  DO  THE  DO  I PRODUCT  AND  EXIT,  CHANoIinu 

TT895  REF  10  LAST  66  7305  3 7665  0 CAF  ZERO  THE  MODE  TO  DP  SCALAR. 

0896  REF  4 LAST  50  7306  1 6013  1 TCF  NEWMODE 


0897 

REF 

4 

last 

65 

7307 

3 7656 

0 

MXV 

CAF 

TWO 

SET  UP  Mat  INC  AND  DotINC 

FqR  Row 

0898 

REF 

5 

LAST 

11 

7 3 TO 

54  124 

1 

TS 

MATINC 

VECTORS. 

0899 

REF 

1 

7311 

1 7315 

0 

TCF 

VXM/MXV 

GO  TO  COMMON  PORTION. 

0900 

REF 

1 

7312 

4 7661 

0 

VXM 

cs 

TEN 

SET  MATINC  AND  DOTINC  TO 

REFER  TO  MATRIX 

0901 

REF 

6 

last 

67 

7313 

54  124 

1 

T S 

mating 

AS  THREE  COLUMN  VECTORS. 

0902 

REF 

i 

7314 

3 6162 

1 

CAF 

SIX 

- u 


» 
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§ 

P0903 common  portion  of  mxv  and  vxm» 


0904 

REF 

7 

LAST 

63 

7315 

54  122 

1 VxM/MXV 

TS  DOTINC 

0905 

REF 

1 

7316 

0 7506 

0 

TC  MPACVBUF 

SAVE  VECTOR  IN  MPAC  FOR  FURTHER  USE. 

O9O6 

REF 

1 

7317 

0 7136 

1 

TC  DOTSUB 

GO  DOT  TO  GET  X COMPONENT  OF  ANSWER, 

0907 

7320 

0 0006 

1 

EXTEND 

0908' 

REF 

13 

LAS  ( 

65 

7321 

3 0107 

1 

DC A VBUF 

MOVE  MPAC  VECTOR  BACK  INTO  MPAC,  SAVING 

0909 

REF 

81 

LAST 

66 

7322 

52  141 

1 

DXCH  MPAC 

NEW  X COMPONENT  IN  BUF2, 

0910 

REF 

8 

LAST 

30 

7323 

52  120 

0 

DXCH  BUF2 

0911 

7324 

0 0006 

1 

EXTEND 

0912 

REF 

14 

LAST 

68 

7325 

3 0111 

0 

DCA  VBUF  +2 

0913 

REF 

82 

LAST 

68 

7326 

52  144 

1 

DXCH  MPAC  +3 

0914 

7327 

0 0006 

1 

EXTEND 

0915 

REF 

15 

LAST 

68 

7330 

3 0113 

1 

DCA  VBUF  *4 

0916 

REF 

83 

LAST 

68 

7331 

52  146 

0 

DXCH  MPAC  +5 

0917 

REF 

7 

LAST 

67 

7332 

3 0124 

0 

CA  MATINC 

INITIALIZE  ADDRWD  FOR  NEXT  DOT  PRODUCT, 

0918 

REF 

54 

LAST 

64 

7333 

26  102 

0 

ADS  ADDRWD 

FORMS  BASE  ADDRESS  OF  NEXT  COLUMN (ROW). 

Wl9  REF  2 LAST  66  7334  Q 7l36  j TC  DOTSUB 

0920  REF  16  LAST  68  7335  52  107  0 DXCH  VBUF  MOVE  GIVEN  VECTOR  BACK  TO  MPAC,  SAVING  Y 

0921  REF  84  LAST  68  7336  52  141  1 DXCH  MPAC  COMPONENT  OF  ANSWER  IN  VBUF  +2. 

0922  REF  17  LAST  68  7337  52  111  I DXCh  VBUF  +2 

0923  REF  85  LAST  68  7340  52  144“r“  DXCH  MPAC  +3 

0924  REF  18  LAST  68  7341  52  113  0 DXCH  VBUF^T- 

0925'  REF  86 "CAST  68  7342  52  146  0 “ DXCH  MPAC'TT'" 

0926  REF  8 LAST  68  7343  3 0124  0 CA  MATINC  FORM  ADDRESS  OF  LAST  COLUMN  OR  ROW, 

0927  REF  55  LAST  68  7344  26  102  0 AD'S  ADDRWD 


0928 

ReF 

3 LAST 

68 

7345 

0 7136  1 

TC 

DOTSUB 

0929 

REF 

9 LAST 

66 

7346 

52  120  0 

DXCH 

BUF2 

ANSWER 

NOW  COMPLETE.  PUT  COMPONENTS  INTO 

0930 

RET 

57  LAST 

68 

7347 

52  141  1 

“■DXCH'" 

MPAC 

PROPER 

MPAC  REGISTERS. 

0931 

REF 

68  LAST 

68 

7350 

52  146  0 

DXCH 

MPAC  +5 

0932 

REF 

19  LAST 

68 

7351 

52  111  1 

DXCH 

VBUF  +2 

0933 

TREF 

89  LAST 

68 

7352 

' 52  144  '1  ' 

HDXCH 

"TTPA'C  +3 

0934 

REF 

14  LAST 

60 

7353 

1 6014  0 

TCF 

DANZIG 

“EXIT, 
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P0935  VX5C  - VECTOR  TIMES  SCALAR , 


0<j3b 

REF 

13 

LAST 

62 

7354 

10  147 

1 

vxsc 

CCS 

MODE 

TEST  PRESENT  MODE. 

0937 

REf 

1 

7355 

1 7403 

0 

TCF 

DVXSc 

SEPARATE  ROUTINE  WhEN  ScA|_AR  IS  IN  MPAc. 

0938 

REF 

2 

LAST 

69 

7356 

1 7403 

0 

TCP 

DVXSC 

0939 

REF 

5 

LAST 

65 

7357 

0 7067 

1 

vvxsc 

TC 

DMPSUB 

COMPUTE  X COMPONENT 

"0940 

REF 

1 

7360 

0 7120 

0 

TC 

VROUNq 

and  round  it. 

0941 

REF 

90 

LAST 

68 

7361 

52  144 

1 

DXCH 

MPAC  +3 

PUT  Y COMPONENT  INTO  MPAC  SAVING  MPAC  IN 

0942 

REF 

91 

LAST 

69 

7362 

52  141 

1 

DXCH 

MPAC 

MPAC  +3. 

0943 

REF 

92 

LAST 

69 

7363 

52  144 

1 

DXCH 

MPAC  + 3 

0944 

REF 

6 LAST 

69 

7364 

0 7067  1 

TC 

DMPSUB 

DO  SAME  FOR  Y AND  Z COMPONENTS. 

0945 

REF 

2 LAST 

69 

7365 

0 7120  0 

TC 

vround 

0946 

REF 

93  LAST 

69 

7366 

52  146  0 

DXCH 

MPAC  +5 

0947 

REF 

94  LAST 

69 

7367 

52  141  1 

DXCH 

MPAC 

0948 

REF 

95  LAST 

69 

7370 

52  146  0 

DXCH 

MPAC  +5 

0949 

REF  7 LAST 

69 

7371 

0 7067  1 

TC 

DMP5UB 

0950 

REF  3 LAST" 

69 

7372 

0 7120  0 

TC 

VROUND 

0951 

REF  96  LAST 

69 

7373 

52  141  1 

VROTATEX  DXCH 

MPAC 

EXIT  USED  TO  RESTORE  MPAC  AFTER  THIS 

0952 

REF  97  LAST 

69 

7374 

52  146  0 

DXCH 

MPAC  +5 

TYPE  OF  ROTATION.  CALLED  BY  VECTOR  SHIFT 

0953 

TRtF  98  LAST 

69 

7375 

52  144  1 

~ DXCH 

MPAC  +3 

RIGHT*  V/SC*  etc. 

0954 

REF  99  LAST 

69 

7376 

52  141  1 

DXCH 

MPAC 

0955 

REF  15  LAST 

68 

7377 

1 6014  0 

TCF 

DANZIG 

^73^23A  y-JL  System  For  BLK2!  REVISION  12  of  PROGRAM  AURORA  by  DAp  QROUp 


NOV  10 > 1966  (MAIN)  pmGE  70 


t LI57-PROCES5lNG~TNTEftPRETER  USER'S  OWN  PAGE  N0«  37 

P09  56  DP^  VECTOR  PROJECTION  ROUTINE. 


0957 

REF 

2 

LAST 

67 

7400 

0 7134 

0 

VPROJ  TC 

PREDOT 

(MPAC.x)MPAC  IS  COMPUTED  AND  LEFT  IN 

0958 

REF 

1 

7401 

4 7655 

1 

cs 

Four 

MPAC,  DO  DOT  AND  FALL  INTO  DVX5C. 

0959 

REF 

56 

LAST 

63 

7402 

26  102 

0 

ADS 

ADDRWD 

R0960  VXSC  WHEN  SCALaR  ARRIVES  IN  MPAC  AND  VECTOR  IS  AT  X. 


0961 

7403 

0 0006 

1 DVXSC 

EXTEND 

SAVt  SCALAR  IN  MPAC  +3  AND  GET  X 

0962 

ref 

100  last 

69 

7404 

3 0141 

0 

OCA  MPAC 

component  of  answer. 

0963 

REF 

101  LAST 

70 

7405 

52  144 

1 

DXCH  MPAC  +3 

0964 

REF 

8 LAST 

69 

7406 

0 7067 

1 

TC  DMPSUB 

0965 

REF 

4 last 

69 

7407 

0 7120 

0 

TC  VROUND 

0966 

REF 

5 LAST 

67 

7410 

3 7656 

0 

CAF  TWO 

ADVANCE  ADDRWD  TO  Y COMPONENT  OF  X, 

0967 

REF 

57  LAST 

70 

7411 

26  102 

0 

ADS  ADDRWD 

0968 

7412 

0 0006 

1 

EXTEND 

0969 

REF 

102  LAST 

70 

7413 

3 0144 

0 

DCA  MPAC  +3 

PUT  SCALAR  BACK  INTO  MPAC  AND  SAVE 

0970 

REF 

103  LAST 

70 

7414 

52  141 

1 

DXCH  MPAC 

X RESULT  IN  MPAC  +5. 

0971 

REF 

104  LAST 

70 

7415 

52  146 

0 

DXCH  MPAC  +5 

0972 

REF 

9 LAST 

70 

7416 

0 7067 

1 

TC  DMPSUB 

0973 

REF 

5 LAST 

70 

7417 

0 7120 

0 

TC  VROUND 

0974 

REF  6 LAST 

70 

7420 

3 7656 

0 

CAF 

TWO 

0975 

REF  58  LAST 

70 

7421 

26  102 

0 

ADS 

ADDRWD 

TO  Z COMPONENT. 

0976 

REF  105  LAST 

70 

7422 

52  144 

1 

DXCH 

MPAC  +3 

BRING  SCALAR  BACK,  PUTTING  Y RESULT  IN 

0977 

REF  106  LAST 

rcr 

7423 

52  141 

1 

OXCh 

MPAC 

THE  PROPER  PLACE. 

0978 

REF  107  LAST 

70 

7424 

52  144 

1 

DXCH 

MPAC  +3 

0979 

RtF  10  LAST 

70 

7425 

0 7067 

1 

TC 

DMPSUB 

0980 

REF  6 LAST 

70 

7426 

0 7120 

0 

TC 

VROUND 

0981  REF  10s  LAST  70  7427  52  1^+T  I — DXCH  MPAC'  PUT  Z COMPONENT  IN  PROPER  PLACE*  ALSO 

0 982'  REF  109  |_AsT  70  7430  52  146  0 qXCH  MPAC  *5  POSITIONING  X. 

0983  REF  110  LAST  70  7431  52  141  1 DXCH  IStPACT- 


0984  REF-  4LAT5T  58  7452  $ 7657  0 C5  07\TE  MODE  HAS  CHANGED  TO  VECTOR. 

0985  REF  5 LAST  67  7433  1 6013  I TCT MEHMOpE 
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L L.ist-ProCessing  INTERPRETER—  USEr»S  own  PAGE  NO»  38 

P0986  "THE  VECTOR  CROSSPROOUCT  ROUTINE  CALCULATES  <X  »X  M «X  M |X.  M -X.  M ) WHERE;  M IS  the  VECTOR  IN— 

RC988  — 3~2  2~3  ITS  TT  T~1  1“2“ 

R0990  MPAC  and  X the  VECTOR  AT  THE  3T7EN  ADDRESS, 


0991  7434  0 0006  1 VXV EXTEND 


0992 

REF 

Til 

LAST 

70 

7435 

3 0146 

1 

DCA 

MPAC  +5 

FORM  UP  M3X 1 , LEAVING  Ml  IN  VBUF. 

0993 

REF 

112 

LAST 

71 

7436 

52  141 

1 

DXCH 

MPAC 

O994 

REF 

20 

LAST 

68 

7437 

52  107 

0 

DXCH 

VBUF 

0995 

REF 

11 

LAST 

70 

7440 

0 7067 

1 

TC 

DMPSUB 

BY  XI. 

0996 

7441 

0 0006  1 

EXTEND 

" 0997 

REF  113 

LAST  - 

71 

7442 

4 0144  1 

DCS 

MPAC  +3 

CALCULATE  -XlM2»  SAVING  X1M3  IN  VBUF  +2, 

0998 

REF  114 

LAST 

71 

7443 

52  141  1 

DXCH 

MPAC 

0999 

REF  21 

LAST 

71 

7444 

52  111  1 

DXCH 

VBUF  +2 

1000 

ref  n 

LAST- 

71 

7445 

0 7067  1 

TC 

DMPSUB 

1001 

REF  7 LAST  70 

7446 

3 7656 

0 

CAF 

TWO 

ADVANCE  ADDRWD  TO  X2. 

1002 

REF  59  LAST  70 

7447 

26  102 

15 

ATS 

ADDRWD 

1003 

7450 

0 0006 

1 

EXTEND 

1004 

REF  115  LAST  71 

7451 

4 0146 

0 

DCS 

MPAC  +5 

PREPARE  TO  GET  -X2M3*  SAVING  -X1M2  IN 

1005 

REF  116  LAST  ?r 

7452 

52  14  r 

r~ 

DXCH 

MPAC 

MPAC  +5. 

1006 

REF  117  LAST  71 

7453 

52  146 

0 

DXCH 

MPAC  +5 

1007 

REF  13  LAST  71 

7454 

0 7067 

i 

TC 

DMPSUB 

1008 

7455 

0 0006 

1 

EXTEND 

1009 

REF  22  LAST  71 

7456 

3 0107 

1 

DCA  VBUF  GET  X2M1,  SAVING  -X2M3  IN  VBUF  +4. 

1010 

REF  1 18  LAST  71 

7457 

52  141 

1 

— — DXCH  'MPAC 

1011 

REF  23  LAST  71 

7460 

52  113 

0 ' 

DXCH  VBUF  +4 

1012 

REF  14  LAST  71 

7461 

0 7067 

1 

TC  DMPSUB 

1013 

REF 

8 

LAST 

71 

7462 

3 7656  0 

CAF 

TWO 

ADVANCE  ADDRWD  TO  X3. 

1014 

REF 

60 

LA5T 

n 

7463 

26  102  0 

ADS 

ADDRWD 

1015 

7464 

U 0006  1 

~ EXTEND 

1016 

RtF 

24 

LAST 

71 

7465 

4 0107  0 

DCS 

VBUF 

GET  -X3Mli  ADDING  X2M1  TO  MPAC  +5  TO 

1017 

Rr_F 

1 1 9 

LAST 

71 

7466 

52  141  1 

DXCH 

MPAC 

COMPLETE  THE  L COMPONENT  OF  THE  ANSWER, 

1018 

RET 

120 

LAB  1 

"71 

7467 

2D  14o  0 

DAS  " 

1WKT  +5  " 

1019 

7470 

0 0006  1 

EXTEND 

1020 

747  T 

1 7473  1 

3ZF" 

+2 

1021 

REF 

10 

LAST 

59 

7472 

0 7007  1 

TC 

OVERFLOW 

i 
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L 

list-processing 

INTERPRETER 

USER'S  OWN  PAGE  NO.  39 

1022 

ref 

15  LAST 

71 

7473 

0 7067 

1 

TC 

DMPjjUB 

1023 

RET 

25  LAST 

71 

7474 

52  111 

1 

!OxCH 

VBUF  +2 

MOVE  X1M3  TO  MPAC  +3  SETTING  UP  FOR 

102  A 

REF 

121  LAST 

71 

7475 

52  144 

1 

DXCH 

MPAC  +3 

AND  ADD  -X3M1  TO  MPAC  +3  TO  COMPLETE  THE 

1025 

REF 

122  LAST 

72 

7476 

52  141 

1 

DXCH 

MPAC 

Y COMPONENT  OF  THE  RESULT. 

1026 

REF 

123  LAST 

72 

7477 

20  144 

1 

DAS 

MPAC  +3 

1027 

7500 

0 0006 

1 

EXTEND 

1028 

7501 

1 7503 

1 

3ZF 

+ 2 

1029 

REF 

11  LAST 

71 

7502 

0 7007 

1 

TC 

OVERFLOW 

1030 

RcF 

16 

LAST 

72 

7503 

0 7067 

1 

TC 

DMPSUB 

1031 

RtF 

26 

LAST 

72 

7504 

52  113 

0 

DXCH 

VBUF  +4 

GO  ADD  -X2M3  TO 

X3M2  TO  COMPLETE  THE  X 

1032 

REF 

I 

7505 

1 6754 

0 

TCF 

ENDVXV 

COMPONENT  (TAIL 

END  OF  DAD) . 

R 1033 

the 

“MPACVBUF 

SUBROUTINE  SAVES  tHE 

Vector  in  mpac  in  vbuf 

WITHOUT  CLOBBERING  MPAC. 

1035 

7506 

0 0006  1 MPACVBUF  EXTEND 

CALLED  BY  MXV*  VXM*  AND  UNIT. 

1036 

REF 

124 

LAST 

72 

7507 

3 0141  0 

DCA  MPAC 

1037 

REF 

27 

LAST 

72 

7510 

52  107  0 

DXCH  VBUF 

1038 

7511 

0 0006  1 

EXTEND 

1039 

REF 

125 

LAST 

72 

7512 

3 0144  0 

DCA  MPAC  +3 

10A0 

REF 

28 

LAST 

72 

7513 

52  111  1 

DXCH  VBUF  +2 

1041 

7514 

0 0006  1 

EXTEND 

1042 

REF 

126 

LAST 

72 

7515 

3 0146  1 

DCA  MPAC  +5 

10A3 

REF 

29 

LAST 

72 

7516 

52  113  0 

DXCH  VBUF  +4 

1044 

REF 

42  LAST 

66 

7517 

0 0002  0 

~TC  G 

RETURN  TO  CALLER. 

I 
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L LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  »Q 

P1045  __  _ INTERPRET  I VE  INSTRUCTIONS  WH05E  EXECUTiOnTCOmSiSTS  OF  PRINCIPALLY  CALLl nG^SUEROUT I PjES . 


1047 

REF 

17  LAST 

72 

7520 

0 

7067 

1 

DMP 1 

TC 

DMPSU6 

DMP  INSTRUCTION, 

1048 

REF 

16  LAST 

69 

7521 

1 

6014 

0 

TCP 

DANZIG 

1049 

REF 

18  LAST 

73 

7522 

0 

7067 

1 

DMPR 

TC 

DMPSUB 

1050 

REF 

1 

7523 

0 

7117 

1 

TC 

ROUNDSUB  *1 

(C (A)  = +0). 

1051 

REF 

17  LAST 

73 

7524 

1 

6014 

0 

TCF 

DANZIG 

1052 

7525 

0 0006 

1 

DDV 

EXTEND 

1053 

REf 

61  LAST- 

71 

7526 

5 0102 

1 

index  addrwd 

move  dividend  INTO  BUF. 

1054 

7527 

3 0001 

0 

DCA  0 

1055 

REF 

2 

LAST  ~ 

42 

7530 

1 7535 

1 

TCF  BDDV  +4 

1056 

7531 

0 0006 

1 

BDDV 

EXTEND 

MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC*  THE 

1057 

REF 

62 

last 

73 

7532 

5 0102 

1 

index  addrwd 

dividend,  in  BUF. 

1058 

7533 

3 0001 

0 

DCA  0 

1059 

REF 

127 

LAST 

72 

7534 

52  141 

1 

dxch  MPAC 

1060 

REF 

16 

LAST 

66 

7535 

52  115 

0 

+ 4 

dxch  buf 

1061 

REF  11 

LAST  67 

7536 

3 7665 

0 

CAF  ZERO 

DIVIDE  ROUTINES  IN  BANK  0. 

1062 

REF 

24 

LAST 

55 

7537 

54  004 

1 

TS  FBANK 

1063 

REF 

1 

7540 

1 2332 

0 

TCF  DDV/BDDV 

1064 

REF 

63  LAST 

73 

7541 

3 0102  1 SETPD 

“ CA 

ADDRWD 

ANYWHERE  IN  ERASABLE  IN  GENERAL.  BUT 

1065 

ref 

12  LA5T 

52 

7542 

54  152  0 

TS 

pushloc 

ALMO5T  ALWAYS  IN  THE  WORK  AREA. 

1066 

REF  " 

1 

7543 

1 6016  1 

TCF 

NOlBNKSW 

NO  FBANK  SWITCH  REQUIRED. 

1067 

REF 

12  LAST 

73 

7544 

3 7665  0 TSLC 

CAF 

ZERO 

SHIFTING  ROUTINES  LOCATED  IN  BANK  00. 

1068 

REf 

25  LAS  T 

73 

7~545 

54'  004  1 

T5 

FBANK 

1069 

REF 

1 

7546 

1 2153  0 

TCF 

TSLC2 

1070 

REF 

2 LAST 

35 

7547 

3 6027  1 GSHIFT 

CAF 

LOW  7 

USED  AS  MASK  AT  GENSHIFT.  THIS  PROCESSES 

1071 

REF 

46  LA5 1 

73 

7550 

54  004  1 

TS 

FBANK 

ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC)  WITH 

1072 

REF 

1 

7551 

1 2174  0 

TCF 

GENSHIFT 

AN  ADDRESS  (ROUTINES  IN  BANK  0), 
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l list-processing  interpreter  usEr« s own  page  NO',  m 

Pin?^  iHh  following  is  tHf  PROLOGUE  fa  V/SC.  iP»THrT'PRfe5BHT  Mode  IS  Victors  It  SAveS  thf  scalar  at  x in  buf 

" R1075 AND- CALLS  fHTT/SC  ROUTINE”  I ^ BANK  0.  IF  THE  "PRESENT  MODE  IS  SCALAR,  IT  MOVlS  tHe  VECTOR  AT  X INTO  MPAC,  SAVING 

R1077  THE  SCALAR  IN  MPAC  IN  BUF  BeFoR£  CALLING“7He  V7^C"KQUtINE  IN  BANK  0. 


1078 

R^F 

14 

last 

69 

7552 

10  147 

1 v/sc 

_ CCS 

mode 

1079 

REF 

1 

7553 

1 7564 

0 

TCF 

DV/SC 

MOVE  VECTOR  INTO  MPAC. 

1080 

REF 

2 

LAST 

74 

7554 

1 7564 

0 

TCF 

DV/SC 

1081 

7555 

0 0006 

1 

vv/sc 

EXTEND 

1082 

ref 

64 

last 

73 

7556 

5 0102 

1 

INDEX 

ADDRWD 

1083 

7557 

3 0001 

0 

DCA 

0 

1084 

“REF 

17 

LAST 

73 

7560 

52  115 

0 

V/SCl 

dxch 

DDF 

in  both  cases,  vector  is  now  in  mpac  and 

1085 

REF 

13 

LAST 

73 

7561 

3 7665 

0 

CAF 

ZERO 

SCALAR  IN  BUF. 

1086 

REF 

27 

LAST' 

73 

7562 

54  004 

1 

TS 

FBANK 

1087 

REF 

1 

7563 

1 2576 

0 

TCF 

V/SC2 

1088 

7564 

0 0006 

1 

DV/SC 

EXTEND 

1089 

ref 

last 

74 

7565 

5 010? 

1 

INDEX 

ADDRWD 

1090 

7566 

3 0003 

1 

DCA 

2 

1091 

REF 

128 

LAS  1 

73 

7567 

52  144 

1 

DXCH 

MPAC  +3 

1092 

7570 

0 0006 

1 

EXTEND 

1093 

REF 

66 

LAST 

74 

7571 

5 0102 

1 

INDEX 

ADDRWD 

1094 

7572 

3 0005 

1 

DCA 

4 

1095 

REF 

129 

LAST 

74 

7573 

52  146 

0 “ 

DXCH 

“MFAC  +5 

1096  REF  5 LAST  yO  7574  4 7657  0 CS  ONE  “CHANGE  MODE  TO  VECTOR. 

1097  REf  15  LAST  74  7575  54  147  1 TS  “ MODE 


1098 

7576 

0 0006 

1 

EXTEND 

1099 

RET  “5? 

LAST 

74 

7577 

5 0102 

1 

INDEX 

ADDRWCT 

1100 

7600 

3 0001 

0 

DCA 

0 

1101 

REF  130 

LAS  1 

74 

7601 

52  141 

1 

DXCH 

MPAC 

1102 

REF  1 

7602 

I 7560 

1 

“TCF 

V/SCl  FINISH  PROLOGUE  at  common  section. 
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L~  list-processing  interpreter  user's  own 'page  no.  42' 


P1103  sign  and  complement  instructions. 


1104 

REF 

63 

CAST  74 

7603 

50  102 

1 SIGN 

INDEX 

ADDRWD 

CALL  COMP  INSTRUCTION  IF  WORD  AT  X IS 

1105 

7604 

10  000 

0 

CCS 

0 

NEGATIVE  NON-ZERO. 

1106 

REF 

2 

LAST  73 

7605 

1 6016 

1 

TCF 

NOIBNKSW 

NO  FBANK  SWITCH  REQUIRED. 

1107 

7606 

1 7610 

0 

TCF 

*2 

1108 

REF  “ 

2 

LAST  44 

7607 

1 7616 

0 

TCF 

COMP 

DO  THE  COMPLEMENT. 

1109 

REF 

69 

LAST  75 

7610 

50  102 

1 

INDEX 

ADDRWD 

1110 

7611 

10  001 

1 

CCS 

1 

mi 

REF 

3 

LAST  75 

7612 

1 6016 

1 

TCF 

NOIBNKSW 

NO  FBANK  SWITCH  REQUIRED. 

1112 

REF 

4 

LAST  75 

7613 

1 6016 

1 

TCF 

NOIBNKSW 

NO  FBANK  SWITCH  REQUIRED. 

1113 

REF 

3 

LAST  75 

7614 

1 7616 

0 

TCF 

COMP 

1114 

REF 

5 

LAST  75 

7615 

1 6016 

1 

TCF 

NOIBNKSW 

NO  FBANK  SWITCH  REQUIRED. 

1115  7616  0 0006  1 COMP  EXTEND  COMPLEMENT  DP  MPAc  IN  EVERY  CASE. 

1116  REF  131  LAST  74  7617  4 0141  1 XS  MPAC 

HIT  REF  132  LAST  75  7620  52  141  1 DXCH  MPAC 


1118  REF  1 6 LAST  74  7621  10  147  1 CCS  MODE  EITHER  COMPLEMENT  MPAC  +3  OR  THE  REST  OF 

1119  REF  I ~ 7622  nr76TJ~T~  TCP  DCOMP~~  THE  VECTOR  ACCUMULATOR. 

1120  REF  2 LAST  75  7623  1 7633  1 TCF  DCOMP 


1121 

1122 

RcF 

133 

LAST 

75 

1123 

REF 

1 34 

LAST 

75 

1124 

1125 

RcF 

135 

LAST 

75 

1126 

REF 

136 

LAST 

75 

1127 

TTEF 

T 8 

LASr  73 

7624  0 0006  1 EXTEND  VECTOR  COMPLEMENT. 

7625  4 0144  1 DCS  MPAC  +3 

7626  52  144  1 DXCH  MPAC  +3 

7627  CTOOCT6  1 ' EXTEND 

7630  4 0146  0 DCS  MPAC  +5 

7631  52  146  0 DXCH  MPAC  +5 

7632  1 6014  0 TCF  DANZIG 


1128  REF  137  LAST  75  7633  4 0142  1 DCOMP  CS  MPAC  +2 

1129  REFT38  LA  ST  77  7624  54  I42TT. T5 MPAC  +2“ 

1130  REF  19  LAST  75  7635  1 6014  0 TCF  DANZIG 
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L UST-PROCESSlNG  INTERPRETER-  USERtS  OWN  PAGE  NO.  A3 


Pi  1^1 

CONSTANTS 

REQUIRED  in.  fixed-fixed. 

1132 

7636 

37777  1 

DPOSMAX 

OCT 

37777 

1133 

7637 

37777  1 

POSKAX 

OCT 

37777 

TI34 

REF 

3 LAST 

66 

7640 

LIMIT  S 

EQUALS 

POSMAX  *1 

1135 

7640 

57777  1 

NEG1 /2 

OCT 

020000 

MUST 

bE  TWO  LOCATIONS  AHEAD  OF  P0S1/2. 

1136 

7641 

40000  0 

BIT15 

OCT 

40000 

BIT 

TABLE  FOLLOWS. 

1137 

7642 

20000  0 

BIT14 

OCT 

20000 

1138 

7643 

10000  0 

BI T 13 

OCT 

10000 

1139 

7644 

04000  0 

BIT12 

OCT 

04000 

1140 

7645 

02000  0 

BIT11 

OCT 

02000 

1141 

7646 

01000  0 

BIT10 

OCT 

01000 

1142 

7647 

00400  0 

B I T9 

OCT 

00400 

1143 

7650 

002O0  0 

BITS 

OCT 

00200 

1144 

7651 

00100  0 

BIT7 

OCT 

00100 

1145 

7652 

00040  0 

BIT6 

OCT 

00040 

1146 

7655 

00020  0 

BITS 

OCT 

00020 

1147 

7654 

00010  0 

BIT4 

OCT 

00010 

1148 

7655 

00004  0 

BIT3 

OCT  - 

00004 

1149 

7656 

00002  0 

BIT2 

OCT 

00002 

1150 

“ 7657 

00001  0 

BITl 

OCT 

00001 

1151 

REF 

3 LAST 

34 

7641 

NEGMAX 

EQUALS 

BIT15 

1152 

REF 

— r- 

7642 

HALF 

EQUALS 

BIT  14 

1153 

TRET 

T " 

7642 

FOSl/2 

"EQUALS 

HALF 

1154 

REF 

7643 

QUARTER 

EQUALS 

BIT13 

1155 

REF 

1 

7645 

2K 

EQUALS 

B1T11 

1156 

7660 

00013  0" 

- ELEVEN 

DEC 

11  " 

1157 

REF 

1 

7660 

NOUTCON 

= 

ELEVEN 

1158 

7661 

00012  1 

TEN 

DEC 

10 

1159 

7662" 

0001 IT 

NINE 

DEC 

9 

1160 

REF 

1 

7654 

EIGHT 

EQUALS 

BIT4 

1161 

7663 

00007  0 

SEVEN 

OCT 

7 

1162 

RtF 

2 LAST- 

39 

6162 

SIX 

EQUALS 

REVCNT 

1163 

7664 

00005  1 

FIVE 

OCT" 

5 

1164 

REF 

1 

7655 

FOUR 

EQUALS 

BIT3 

1165 

~ REF 

- 5 LAST 

52 

6165 

THREE  " 

" EQUALS" 

N0.WD5  +1 

1166 

REF 

1 

7656 

TWO 

EQUALS 

BIT2 

1167 

REF 

2 LAST 

36 

7657 

ONE 

EQUALS 

BITl 

1168 

7665 

00000  1 

ZERO" - 

OCT 

"0 

1169 

7666 

77777  0 

NEGO 

OCT 

77777 

1170 

7667 

77776  1 

NEGONE 

DEC 

-1 

1171 

REF 

2 LAST 

45 

7667 

NEG1 

= 

NEGONE 

1172 

REF 

1 

7667 

MINUS1 

EQUALS 

NEGl 

1173 

7670 

77775  1 

NEG2 

"O'er 

77775 

1174 

7671 

77774  0 

NEG3" 

DEC 

-3 

1175 

7672 

00777  0 

LOW  9 

OCT 

777 

1176 

7673 

00017  1 

L0W4'  " 

OCT" 

17“ 
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L 

LIST' 

-processing  interpreter 

USER'S  OWN  PAGE  NO.  44 

1177 

REF 

i 

7663 

L0W3 

EQUALS 

SEVEN 

1178 

REF 

l 

6165 

LQW2 

EQUALS 

THREE 

1179 

7674 

00030  1 

CALLCODE 

OCT 

00030 

1180 

7675 

40014  0 

DLOADCOD 

OCT 

40014 

1181 

REF 

4 LAST 

76 

7641 

VLOADCOD 

EQUALS 

BIT15 

1182 

7676 

400i5  1 

DLOAD* 

OCT 

40015 

1183 

REF 

1 

6042 

VLOAD# 

EQUALS 

OCT40001 

1184 

REF 

30  LAST 

72  7677 

00106  0 

LVBUF 

ADRES 

VBUF 

1185 

7700 

30000  1 

B 1 T 1 3-14 

OCTAL 

30000 

1186 

7701 

ENDINTF 

EQUAL5 

r 
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~L  "TISi -PR^CcSSING  INTERPREUR  uSER'S  OWN  PAGE  NO.  4§ 

P1187  SHI FTTiMG  AmD  ROUNDING  PACKAGE*  ' 

Riles  THfc.  FOLLOWING  SHuRj  SHIFT  CQDj$.  REQUIRE  NO  ADDRESS  WORDT~ 

R 1 1 89  ~Y,  SR.1  TO  5R4  SCALAR  SHIFT  RIGHT. 

R1190  2.  SR 1R  TO  SRaR  SCALAR  SHIFT  RIgHT  AND  ROUND. 

R 1 191  3.  SL 1 TO  SU  SCALAR  SHIFT  LEFT . 

R 1 1 9 2 " ' 4.  SL1R  T0_SL4R_  SCALAR  SHIFT  LEFT  AND^ ROUND. 


R 1 193  5,  VSR  1 TO  V5R8  VECTOR  SHIFT  RIGHT  (ALWAYS  ROUNDS). 

R 1 1 94  6,  VSLl  TO  V5L8  VECTOR  SHIFT  LEFT  (NEVER  ROUNDS) . 

R 1 1 9 5 THE  "FOLLOW! NG  CQDeS  ReQU IRe~AN  ADDRESS  WHICH  MAY  ~Be~TNDeX£ D : * 

R1196  STi  SR7~  SCALAR  SHIFT  RIGHT. 

R1197  2,  S'RR'  SCALAR  SHIFT  RIGHT  AND  ROUND. 

R 1 198  '"T.  SL  SCALAR  SHIFT  LEFT»~ 

R 1 199  4.  SLR  SCALAR  SHIFT  LEFT  AND  ROUND. ~ 


R 1200  5.  VSR  VECTOR  SHIFT  RIGHT. 

R1201  6.  VSL  VECTOR  SHIFT  LEFT. 


R1202  * IF  THE  ADDReSSTS  IiNDeXeDT~AND  THe  INDEX  MODIFICATION  RESULTS  IN  A' NEGATIVE  SHIFT  COUNT*  A SH I FT~OF~THE 

R1204  ABSOLUTE  VALUE  OF  ThE  COUNT  1 5 dONETN'ThE  OPPOsITE_dIRECTION. 


1205  00*2000 SETLOC  1Q0QQ  BANK  Q PORTIOTTFOLLOWS. 


1206 

REF 

2 

LAST 

67 

00,2000 

3 6162  1 5H0RTT 

CAF 

six 

SCALAR  SHORT  SHIFTS  COME  HERE.  THE  SHIFT 

1207 

REF 

17 

LA5T 

49 

00,2001 

7 0020  1 

~ MASK 

CYR 

COUNT-1  IS  NOW  IN  BITS  2-3  OF  CYR.  THE 

1208 

REF 

1 

00,2002 

54  021  O' 

T5 

SR 

'ROUNDING  BIT  IS  IN  BIT I AT  THIS  POINT. 

1209 

REF 

13 

LA5T 

78 

00,2003 

10  020  1 

CCS 

CYR 

SEE  IF  RIGHT  OR  LEFT  SHIFT  DE5IRED. 

1210 

REF 

1 

00,2004  1 2062  0 

TCF  ~ 

TSSL 

SHIFT  LEFT. 

HU  DD72005  00024  1 SNDDV  DEC  TO  MPTEMP  SETTING  FOR  SR  BEFORE  DDV. 


1212  REF  2 LAST  78  00,2006  50  021  1 T55R INDEX  SR GET  SHIFTING  BIT. 

1213  REF  2 LAST  76  00,2007  3 7642  0 CAF  BITI*F" 

12T4  REF  11  LAST  66  00,2010 — 54'  121  1 T5 MPTEMP 


1215 

REF 

19 

LA5T 

78 

00,2011 

10  020  1 

CCS 

CYR 

SEE  IF  A ROUND  IS  DE5IRED. 

1216 

REF 

1' 

00,2012 

O'  2031  1 

RIGHTR" 

TC 

'MPACSRND 

YES  -SHIFT  RIGHT  AND  ROUND. 

1217 

REF 

6 

LAST 

70 

00 ,2U13 

1 6013  1 

TCF 

NEWMODE 

SET  MODE  TO  DP  (C(A)  = 0). 

1218 

REF 

12 

LAST 

78 

00,2014 

3 0121  0 

MPACSHR 

CA 

MPTEMP 

DU  A IRiHLfc  PKtCISIUN  SHIFl  RIGHT, 

1219 

00,2015 

0 0006  1 

EXTEND 

1220 

REF 

139 

LAST 

75 

00 , 20 1 6 

7 0142  1 

- MP 

MPAC  +2 

1221 

REF 

1 40 

LAST 

78 

00,2017 

54  142  1 

+ 3 

TS 

MPAC  +2 

(EXIT  FROM  SQRT  AND  AoVAL). 

1222 

REF 

13 

LA5  r 

78 

' 00,2020 

3 0121  tr 

TA 

MPTEMP' 

0 
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1223 

00,2021 

0 0006 

1 

EXTEND 

1224 

' REF 

14 1 

LAST 

78 

730,2022 

7 0140 

0 

VIP 

MPAC 

SHIFT  MAJOR  PART  INTO  A ,L  AND  PLACE  IN 

1225 

REF 

142 

LAST 

79 

00,2023 

52  141 

1 

DXCH 

MPAC 

MPAC , + 1 . 

1226 

REF 

14 

LAST 

78 

00,2024 

3 0121 

0 

CA 

MPTEMP 

T227  00,2025  0 0006  1 EXTEND 

1228  REF  5 LAST  62  00,2026  7 0001  1 SIP  L ORIGINAL  C(MPAC  +1). 


1229 

REF 

143 

LAST 

79 

00,2027 

20  142  1 

DAS 

MPAC  +1 

GUARANTEED  NO  OVERFLOW. 

1230 

REF 

20 

LAST 

75 

00,2030 

1 6014  0 

TCF 

DANZIG 

R1231 

MPAC 

shift  right  AND 

Round  subroutine* 

1232 

REF 

144 

LAST 

79 

00,2031 

3 0142  0 MPACSRND 

CA 

MPAC  +2 

WE  HAVE  TO  DO  ALL  THREE  MULTIPLIES  SINCE 

1233 

00,2032 

0 0006  1 

EXTEND 

MPAC  +1  AND  MPAC  + 2 MIGHT  HAVE  SIGN 

1234 

"REF 

15 

LAST- 

79 

00,2033 

7 0121  1 

MP 

MPTEMP 

DISAGREEMENT  WITH  A SHIFT  RIGHT  OF  1. 

1235 

REF 

145 

LAST 

79 

00,2034 

56  141  0 

XCH 

MPAC  +1 

1236 

00,2035 

0 0006  1 

EXTEND 

1237 

REF 

16 

LAST  ‘ 

79 

00,2036 

7 0121  1 

MP 

MPTEMP 

1238 

REF 

146 

LAST 

79 

00,2037 

56  141  0 

XCH 

MPAC  +1 

TRIAL  MINOR  PART. 

1239 

REF 

6 

LAST 

79 

00,2040 

6 0001  0 

AD 

L 

1240 

00,2041 

6 0000 

1 

VSHR2  DOUBLE 

(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 

1241 

REF 

147 

LASl 

79 

00,2042 

54  142 

I 

T5 

MPAC  +2 

AND  ROUND. 

1242 

00,2043 

1 2045 

0 

TCP 

♦ 2 

1243 

REF 

148 

LA5T 

79 

00,2044 

26  141 

1 

ADS 

MPAC  +1 

GUARANTEED  NO  OVERFLOW. 

1244 

REF 

14 

LAST 

74 

00,2045 

3 7665 

0 

CAF 

ZERO 

1245 

REF 

149 

last 

79 

00,2046 

54  142 

1 

TS 

MPAc  +2 

1246 

REF 

1 50 

LAS  T 

79 

00,2047 

56  140 

1 

XCH 

MPAC 

SETTING  TO  ZERO  SO  FOLLOWING  DAS  WORKS, 

1247 

00,2050 

0 0006 

1 

extend 

1248 

REF 

17 

LAST 

79 

00,2051 

7 0121 

1 

MP~ 

MPTEMP 

1249 

REF 

151 

LAST 

79 

00,2052 

20  141 

r 

DAS 

MPAC 

AGAIN  NO  OVERFLOW. 

1250 

REF 

43 

LAST” 

72 

00,2053 

0 0002 

<r" 

TC 

Q 

1251 

RcP 

18 

LAST 

79 

OC2O54 

3 0121 

0 

VSHRRND  CA 

MPTEMP 

ENTRY  TO  SHIFT  RIGHT  AND  ROUND  MPAC  WHEN 

1252 

00,2055 

0 0006  1 

“ EXTEND 

“ MPAC  cONTA INS  A VECTOR  COMPONENT. 

1253 

REF 

152 

LAST 

79 

00,2056 

7 0141 

1 

- MP 

MPAC  +1 

1254 

REF 

153 

LAST 

79 

00 ,2057 

54  141 

1 

TS 

MPAC  +1 

1255 

REF 

T 

LAST 

79 

00 ,2060 

56  001 

"0  ' 

XCH"" 

TT  “ 

1256 

REF 

1 

00,2061 

1 2041  1 

TCF  VSHR2 

GO  ADD  ONE  IF  NECESSARY  AND  FINISH, 
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Pi 25,7  ROUTINE  TOR- SHORT  SCALAR  SHIFT  LsFf  (AND  MAYBE  ROUND). 


1258 

REF 

3 LAST 

78 

00,2062 

3 0021 

1 

TSSL 

CA 

SR 

GET  SHIFT  COUNT  FOR  SR. 

1259 

REF 

19  LAST 

79 

00,2063 

54  121 

1 

+ 1 

TS 

MPTEMP 

1260 

00,2064 

0 0006 

1 

+ 2 

EXTEND 

ENTRY  HERE  FROM  SL  FOR  SCALAR5, 

1261 

REF 

154  LAST 

79 

00,2065 

3 0142 

G 

DCA 

MP AC  +1 

SHIFTING  LEFT  ONE  PLACE  AT  A TIME  IS 

1262 

REF 

r55  LAST- 

80 

00,2066 

20  142 

1 

“OAS 

~MPAC  +1 

FASTER  THAN  DOING  THE  WHOLE  SHIFT  WITH 

1263 

REF 

156  LAST 

80 

00,2067 

6 0140 

1 

AD 

MPAC 

MULTIPLIES  ASSUMING  THAT  FREQUENCY  OF 

1264 

REF 

157  LAST  “ 

80 

00,2070 

6 0140 

1 

AD 

MPAC 

SHIFT  COUNTS  GOES  DOWN  RAPIDLY  AS  A 

1265 

REF 

158  LAST 

80 

00,2071 

54  140 

0 

T S 

MPAC 

FUNCTION  OF  THEIR  MAGNITUDE. 

1266 

00,2072 

1 2074 

1 

TCF 

+ 2 

1267 

REF 

5 LAST 

63 

00,2073 

54  105 

1 

TS 

OVFIND 

overflow.  (Leaves  overflow-corrected 

A 1 2 6 8 

RESULT  ANYWAY). 

1269 

REF 

20  LAST 

80 

00,2074 

10  121 

1 

CCS 

MPTEMP 

LOOP  ON  DECREMENTED  SHIFT  COUNT, 

1270 

REF 

2 LAST 

78 

00,2075 

1 2063 

1 

TCF 

TSSL  +1 

1271 

REF 

20  LAST 

78 

00,2076 

10  020 

1 

CCS 

CYR 

SEE  IF  ROUND  WANTED. 

1272 

REF 

2 LA5T 

73 

00,2077 

0 7116 

0 

ROUND 

TC 

R0UND5U8 

YES  - ROUND  AND  EXIT. 

1273 

" REF 

21  LAST 

79 

00 ,2100 

1 6014  0 

TCF 

DANZIG 

SL  LEAVES  A ZERO  IN  CYR  FOR  NO  ROUND. 

1274 

REF 

22  LAST 

80 

00,2101 

1 6014 

0 

TCF 

DANZIG 

NO  - EXIT  IMMEDIATL 
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PI 275  VECTOR!  SHIFTING  ROUTINES. 


1276 

REF 

“ 1 ~ 

00,2102 

3 7663 

0 

SHORTV 

CAF 

L0W3 

SAVE  3 BIT  SHIFT  COUNT  - 1 WITHOUT 

1277 

REF 

21  LAST  80 

00,2103 

7 0020 

1 

MASK 

CYR 

editing  cyr. 

1278 

REF 

21  LAST  80 

00,2104 

54  121 

1 

T5 

MPTEMP 

1279 

REF 

22  LAST  81 

00,2105 

10  020 

1 

CCS 

CYR 

SEE  IF  LEFT  OR  RIGHT  SHIFT. 

1280 

REF 

1 

00,2106 

1 2126 

1 

TCF 

VSSL 

VECTOR  SHIFT  LEFT, 

1281 

COT, 2107 

00176 

1 

OCT  176 

OCT 

176 

USED  IN  PROCESSED  SHIFTS  WITH  - COUNT. 

1282 

REF 

22  LAST 

81 

00,2110 

50  121  0 VSSR 

INDEX 

MPTEMP 

(ENTRY  FROM  SR).  PICK  UP  SHIFTING  BIT, 

1283 

' REF 

3 LAST 

78 

00,2111 

3 7642  IT 

CAF 

BlTl4 

MPTEMP  CONTAINS  THE  SHIFT  COUNT  - 1. 

1284 

REF 

23  LA5T 

81 

00,2112 

54  121  1 

TS 

MPTEMP 

1285 

REF 

1 ‘ 

00,2113 

0 2054  1 

TC 

VSHRRND 

SHIFT  X COMPONENT. 

1286 

REF 

159 

LAST 

80 

00,2114 

52  141 

1 

DXCH 

MP  AC 

SWAP  X AND  Y COMPONENTS. 

1287 

REF 

160 

last 

81 

00,2115 

52  144 

1 

DXCH 

MPAc  +3 

1288 

REF 

161 

LAST 

81 

00,2116 

52  141 

1 

DXCH 

MPAC 

1289 

REF 

2 

LAST 

81 

00,2117 

0 2054 

1 

TC 

VSHRRND 

SHIFT  Y COMPONENT. 

1290 

REF  162  LAST 

81 

00,2120 

52  141  1 

DXCH 

MPAC 

SWAP  Y AND  Z COMPONENTS, 

1291 

REF  163  LAST 

81 

00,2121 

52  146  0 

DXCH 

MPAc  +5 

1292 

REF  164  LAST 

81 

00,2122 

52  141  1 

DXCH 

MPAC 

1293 

REF  3 LAST 

8 1 

00,2123 

0 2054  1 

TC 

VSHRRND 

SHIFT  Z COMPONENT. 

129a  “REF 


W72I24  ri373~S  TCF 


RESTORE  COMPONENTS  TO  PROPER  PLACES. 


VROTATEX 
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P1295  V£C 1 :>  1 H I F T L E FT  - done  on E PLACE  at  a time/  " ~~ 

1296  REF  24  LAST  8 1 00,2125  54  121  1 -1  TS  MPTEMP  SHIFTING  LOOP. 


1297 

00,2126  0 0006  1 vSSL 

EXTEND 

1298 

REF 

165 

LAST 

81 

00,2127  3 0141  0 

DCA 

MPAC 

1299 

REF 

166 

LAST 

82 

00,2130  20  141  1 

DAS 

MPAC 

1300 

00,2131  0 0006  1 

EXTEND 

1301 

00,2132  1 2134  1 

BZF 

+ 2 

1302 

REF 

12 

LAST 

72 

00,2133  0 7OO7  1 

TC 

OVERFLOW 

1303  00,2134  0 0006  1 EXTEND 

1304  REf  167  LAST  82  ^U72T35~  3T0I44  0~  OCA  MPAc  *3 

T305  'REF  168  LAST  82  00,2136  20  144  1 DAS  MPAC  +3 

1306  00,2137  0 0006  1 EXTEND 

1307  00,2140  1 2142.  0 BZF  +2 

1308  REF  13  LAST  82  00,2141  0 7007  1 TC  OVERFLOW 


1309  00,2142  0 0006  1 'EXTEND  ' 

1310  REF  T 69" LA's T W2~  00,2T43  3 0146  1 'OCA  MPAc”"+5  ' 

1311  REF  170  LAST  82  00,2144  20  146  0 DAS  MPAC1  *5  ~ 

1312  00,2145  0 0006  1 EXTEND 

1313  ' "06,2146  1 2 150  0 BZF 

1314  REF  14  LAST  82  00,2147  0 7007  1 TC  OVERFLOW 


1315 

'REF  25'  LAST' 

82 

00,2150 

10  121  1 

' CCS 

MPTEMP 

LOOP  ON  DECREMENTED  SHIFT  COUNTER, 

1316 

REF  2 LAST 

81 

00,2151 

1 2125  1 

TCF 

VSSL  -1 

1317 

REF  23  LAS! 

80 

00,2152 

1 6014  0 

TCF 

DANZIG 

EXIT, 
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L I Sf-PROCESSING  INTERPRETER 

tslc  - triple  shift  left  andcqunt , 


50 


NUMBER  OF  SH1TTS  REQUIRED  IN:  X. 


USER'S  Own  page  no, 

SHIFTS  MPAC  LEFT  UNTi L GREATETTHAN  ,5  iN  MAGNITUDE , LEAVING 


1321  REF  26  LAST  U2  00,2153  54  121  1 TSLC2  TS  MPTEMP  START  BY  ZEROING  SHIFT  COUNT  (IN  A NOW). 

1322  FEF  2 LAST  66  00,2154  0 6711  u TC  BRANCH  EXIT  WITH  NO  SHIFTING  IF  ARGUMENT  ZERO, 

1323  00,2155  1 2157  1 TCF  +2 

1324  REF  1 00,2156  1 2l72~"0~  TCF  ENDTSLC  STORES  ZERO  SHIFT  COUNT  IN  THIS  CASE, 


1325 

REF 

171 

LAST 

82 

00,215? 

3 0140 

1 

CA 

MPAC 

BEGIN  NORMALIZATION  LOOP. 

1326 

ref 

1 

00,2160 

1 2167 

1 

TCF 

TSLCTEST 

1327 

ref 

27 

LAST 

83 

00,2161 

24  121 

0 

TSLCLOOP 

incr 

MPTEMP 

INCREMENT  SHIFT  COUNTER, 

1328 

00,2162 

0 0006 

1 

extend 

1329 

REF 

172 

LAST 

83 

00,2163 

3 0142 

0 

DCA 

MPAC  +1 

1330 

REF 

173 

last 

83 

00,2164 

20  142 

1 

DAS 

MPAC  +1 

1331 

REF 

174 

LA5  T 

83 

00,2165 

6 0140 

1 

AD 

MPAC 

1332 

REF 

175 

LAST 

83 

00,2166 

26  140  0 

ADS 

MPAC 

1333 

00,2167 

6 0000 

1 

tslctest 

double 

SEE  IF  (ANOTHER)  SHIFT  IS  REQUIRED, 

1334 

00,2170 

54  000 

0 

OVSK 

1335 

REF 

1 

00,2171 

1 2161 

1 

TCF 

TSLCLOOP 

YES  - INCREMENT  COUNT  AND  SHIFT  AGAIN, 

1336 

REF 

28 

LAST 

83 

00,2172 

4 0121 

1 

ENDTSLC 

CS 

MPTEMP 

1337 

RcF 

1 

00,2173 

1 6627 

0 

TCF 

STORE  1 

STORE  SHIFT  COUNT  AND  RETURN  TO  DANZIG, 
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p 1 338  the  Following  routines  processes,  the  general  shift  instructions  sr,  srr,  sl,  and  slr. 

R1340  THE  GIVEN  APORESS  IS  DeCoDeD  AS  FOLLOWS! 


R 1 34 1 

BITS  i-7 

shift  count  isubaddress)  less  than  125  decimal. 

R1342 

BIT6 

PSEUDO  SIGN  Bir  (DETECTS  CHANGE  IN"  SI"gN  IN  INDEXED  SHIFTS). 

R1344 

BIT  9 

0 FOR  LEFT  SHIFT*  AND  1 FOR  RIGHT  SHIFT. 

R 1345 

BIT  10 

1 FOR  TERMINAL  ROUND  ON  5CALAR  SHIFTS,  0 OTHERWISE. 

R 1 346 

BlT5“  11-15 

~"o. 

R 1347  THe  above  E-'.CODING  13  DONE  BYTHeYUL  SYSTEM. 


1348 

ref 

70" 

last 

75 

““ 00,2174 

r 0102 

0 

GEnSHiFT  mask 

ADDrWD 

GET  SHIFT  COUNT*  TESTING  FOR  ZErO. 

1349 

REF 

21 

LAST 

66 

00,2175 

10  000 

0 

CCS 

A 

(ARRIVES  WITH  C ( A ) = L0W7), 

1350 

REF 

1 

00,2176 

1 2204 

1 

TCF 

GENSHFT  2 

IF  NON-ZERO,  PROCEED  WITH  DECREMENTED  CT 

1351 

REF 

1 

00,2177 

3 7646 

1 

CAF 

BITlO 

ZERO  SHIFT  COUNT.  NO  SHIFTS  NEEDED  BUT 

1352 

REf 

71 

LAST 

84 

00,2200 

7 0102 

0 

mask 

ADDRwD 

WE  MIGHT  HAVE  TO  ROuND  MPAC  ON  SLR  AND 

1353 

ref 

22 

LAST" 

84 

00,2201 

10  000 

0 

CCS 

A 

SRR  (SCALAR  ONLY). 

1354 

REF 

3 

LAST 

80 

00,2202 

0 7116 

0 

TC 

ROUNDSUB 

1355 

REF 

24 

LAST 

82 

00,2203 

1 6014 

0 

TCF 

DANZIG 

1356  REF  29  LAST  83  00,2204  54  121  1 GENSHFT2  T5  MPTEMP  DECREMENTED  SHIFT  COUNT  TO  MPTEMP. 

1357  REp  3 LAST  31  00 ,2205  3 7650  0 CAp  T5TT8  TEST  MEANING  OF  LOW  SEVEN  BIT  COUNT  IN 


13  58 

00,2206 

0 0006 

1 

■ “EXTEND" 

" MPTEMP  NOW."  ' 

1359 

REF 

72  LAST 

84 

00,2207 

7 0102 

0 

MP 

ADDRWD 

1360 

REF 

1 

00,2210 

7 6165 

1 

MASK 

L0W2 

JUMPS  ON  SHIFT 

DIRECTION  (BITS)  AND 

“ 1361 

REF 

23  EAST 

84 

00,2211 

53~~000 

"1 

" "INDEX 

A 

1362 

00,2212 

1 2213 

1 

TCF 

+ 1 

ORIGINAL  5HlRT 

DIRECTION  (BIT  9). 

1363 

REF 

1 

00,2213 

1 2312 

1 

TCF 

RIGHT- 

NEGATIVE  SHIFT 

COUNT  FOR  SL  OR  SLR. 

1364 

REF 

1 

" 00,2214 

1 2321 

“1 

TCF 

“DEFT 

SL  OR  SLR.  " 

1365 

REF 

1 

00,2215 

1 2316 

0 

TCF 

LEFT- 

NEGATIVE  SHIFT 

COUNT  WITH  SR  OR  SRR. 
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PI 366  G|  ERAL  SHIFT  RIGHT. 


1367 

REF 

17 

LAST 

75 

00,2216 

10  147 

1 

RIGHT 

CCS 

MODE 

SEE 

IF 

vector  or  scalar. 

1368 

REF 

1 

00,2217 

1 2257 

1 

TCF 

GENSCR 

1369 

REF  ' 

2 

LAST' 

85 

00,2220 

1 2257 

1 

TCF 

GENSCR 

1370 

REF 

30 

LAST 

84 

00,2221 

3 0121 

0 

CA 

MPTEMP 

SEE 

IF 

SHIFT  COUNT  GREATER  THAN  13D, 

1371 

REF 

1 

00,2222 

6 2273 

0 

VRIGHT2 

AD 

NEG12 

1372 

00,2223 

0 0006 

1 

EXTEND 

1373 

REF 

1 

00,2224 

6 2110 

0 

3ZMF 

VSSR 

IF 

so* 

BRANCH  AND  SHIFT  IMMEDIATELY, 

1374 

REF 

3 

LAST 

76 

00*2225 

6 7667  1 

AD 

NEGONE 

IF  NOT,  REDUCE  MPTEMP  BY  A TOTAL  OF  14* 

1375 

REF 

31 

LAST 

85 

00,2226 

54  121  1 

T S 

MPTEMP 

AND  DO  A SHIFT  RIGHT  AND  ROUND  BY  14. 

1376 

REF 

“ 15 

LA5T“ 

79 

00,2227 

3 7665  0 

CAP 

ZERO 

THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 

1377 

REF 

8 

LAST 

79 

00,2230 

54  001  1 

TS 

L 

ONE  BIT  ERROR  IN  A SHIFT  RIGHT  15D, 

1378 

REF 

176 

LAST 

83 

00,2231 

56  140  1 

XCH 

MPAC 

1379 

REF' 

177 

LAST 

85 

00,2232 

56  141  0 

XCH 

MPAC  +1 

1380 

REF 

' r 

00,2233 

0 2252  0 

TC 

SETROUND 

X COMPONENT  NOW  SHIFTED,  SO  MAKE  UP  THE 

1381 

REF 

178 

LAST 

85 

00  9 Z Z 34 

20  141  1 

DAS 

MPAC 

ROUNDING  QUANTITY  (0  IN  A AND  0 OR  +-1 

A1382 

IN  L). 

1383 

REF 

179 

LAST 

65 

00,2235 

56  143  1 

XCH 

MPAC  +3 

REPEAT  THE  ABOVE  PROCESS  FOR  Y AND  Z, 

1384 

REF 

160 

LA5T 

85 

00,2236 

56  144  0 

XCH 

MPAC  +4 

1385 

REF 

z 

LA5T 

85 

00,2237 

0 2252  0 

TC 

SETROUND 

1386 

REF 

161 

LAST 

85 

00,2240 

20  144  1 

DAS 

MPAC  +3 

NO  OVERFLOW  ON  THESE  ADDS. 

1387 

REF 

182  LAST 

85 

00,2241 

56  145  1 

XCH 

MPAC  +5 

1388 

REF 

183  LAsT 

85 

00,2242 

56  146  1 

XCH 

MPAc  +6 

1389 

REF 

3 LAST 

85 

00,2243 

0 2252  0 

TC 

SETROUND 

1390 

REF 

184  LA5I 

85 

00,2244 

20  146  0 

~DAS 

MPAC  +5 

1391 

REF 

32  LAST 

65 

00,2245 

10  121 

1 

CCS 

MPTEMP 

SEE  IF  DONE,  DOING  FINAL  DECREMENT, 

1392 

REF 

1 

00,2246 

1 2222 

TT 

~TCF“ 

VRIGHT2 

1393 

REF 

1 

00,2247 

1 3630 

0 

TCSUBTR 

TCF 

SUBTR 

1394 

00,2250 

04604 

1 

BIA5L0 

DEC 

.2974  B-l 

SORT  CONSTANT 

1395 

REF 

25  LA5T 

64 

00,2251 

1 6014 

0 

TCF 

DANZIG 

1396 

00,2252 

6 0000 

1 

SETROUND 

DOUBLE 

MAKES  UP  ROUNDING  QUANTITY  FROM  ARRIVING 

1397 

REF  165 

LAST 

85 

00,2253 

54’  142 

1 

TS~ 

MPT4C  +2 

C (A) , L IS  ZERO  INITIALLY. 

1398 

REF  16 

LAST 

85 

00,2254 

3 7665 

0 

CAF 

ZERO 

1399 

REF  9 

LAS  1 

85 

00,2255 

56  001 

0 

XCH 

L 

1400 

REF  44 

LAST 

7R 

” 00,2250 

0 0002 

TT 

TC 

TJ 

RETURN  AND  DO  THE  DAS,  RESETTING  L TO  0, 

> 
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L 

LIST-PROCESSING  INTERPRETER 

USER'S  OWN  PAGE  NO.  53 

P1401 

PROCESS 

SR  AND  SRRj 

-OR  SCALARS 

• 

H02 

REF 

33 

LAST 

85 

00,2257 

3 0121 

0 

GENSCR 

CA 

MPTEMP 

SEE  IF  THE  ORIGINAL  SHIFT  COUNT  WAS 

less 

1403 

REF 

2 

LAS! 

85 

00,2260 

6 2273 

0 

+ 1 

AD 

NEG12 

THAN  14D. 

1404 

00,2261 

0 0006 

1 

EXTEND 

1405 

REF 

1 

00,2262 

6 2302 

1 

BZMF 

DOSSHFT 

DO  THE  SHIFT  IMMEDIATELY  IF  SO, 

1406 

REF 

4 

LAST 

65 

00,2263 

6 7667 

1 

+ 4 

AD 

NEGONE 

IF  NOT,  DECREMENT  SHIFT  COUNT  BY  14D 

AND 

1407 

REF 

34 

LA5  1 

86 

00,2264 

54  121 

1 

TS 

MPTEMP 

SHIFT  MPAC  RIGHT  14  PLACES, 

1408 

REF 

17 

LAS  1 

85 

00,2265 

3 7665 

0 

CAF 

ZERO 

1409 

REF 

186 

LAST 

85 

00  1 2 2 6 6 

56  140 

I 

XCH 

MPAC 

1410 

REF 

187 

LAST 

86 

00,2267 

56  141 

0 

XCH 

MPAC  + 1 

1411 

REF 

188 

LAST 

86 

00,2270 

54-  142 

1 

TS 

MPAC  +2 

1412 

REF 

35 

LAS  1 

86 

00,2271 

10  121 

1 

CCS 

MPTEMP 

SEE  IF  FINISHED,  DO  FINAL  DECREMENT. 

1413 

REF 

3 

LAST 

85 

00,2272 

0 2260 

1 

TC 

GENSCR  +1 

1414 

00,2273 

77763 

0 

NEG12 

DEC 

-12 

1415 

00,2274 

22650 

1 

SLOPEHI 

“DEC 

.5884 

SORT  CONSTANT, 

1416 

REF 

2 

LAST 

84 

00,2275 

3 7646 

1 

CAF 

BIT10 

FINISHED  WITH  SHIFT.  SEE  IF  ROUND 

1417 

REF 

73 

LAS  1 

84 

00 ,2276 

7 0102 

0 

MASK 

ADDRWD 

WANTED. 

1418 

RtF 

24 

LAST 

84 

00,2277 

10  000 

u 

CCS 

A 

1419 

RbF 

4 

LAST 

64 

00,2300 

0 7116 

0 

TC 

roundsub 

1420 

REF 

26 

LAS  I 

85 

00 ,2301 

1 6014 

0 

TCF 

DANZIG 

DO  SO  AND/OR  EXIT. 

i421 

Ktr 

3& 

LAS  1 

86 

uo,2302 

50  121 

0 

D05SHFT 

INDEX 

MPTEMP 

PICK  UP  SHIFTING  BIT. 

1422 

REp 

LAST 

81 

00  9 2. 30 3 

3 7642 

0 

CAF 

B I T 14 

1423 

RtF- 

37 

LAST 

86 

00,2304 

54  121 

1 

TS 

“MPTEMP 

1424 

REF 

3 

LAST 

86 

00,2305 

3 7646 

1 

CAF 

BITlO 

SEE  IF  TERMINAL  ROUND  DESIRED. 

1425 

REF 

74 

LAST 

86 

00,2306 

7 0102 

0 

MASK 

ADDRWD 

1426 

REF 

25 

LAST 

86 

00,2307 

ro  ooo 

0 

CCS 

A 

1427 

REF 

1 

00,2310 

1 2012 

1 

TCF 

R1GHTR 

YES. 

1428 

REF 

00,2311 

1 2014 

1 

TCF 

MPACSHR 

JUST^HITT  RIGHT,  
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L 

LIST 

-PROCESSING 

interpreter 

USER'S  OWN  PAGE  NO,  54 

P 1 429 

process 

THE  RIGHT- 

( SL ( R ) WITH 

A NEGATIVE  COUNT),  LEFT-, 

AND  LEFT  OPTIONS. 

1431 

REF 

38  LAST  86 

00.2312 

4 0121 

1 

RIGHT-  CS 

MPTEMP 

GET  ABSOLUTE  VALUE  - 1 OF  SHIFT  COUNT 

1432 

REF 

1 

00,2313 

6 2107 

0 

AD 

0CT176 

UNDERSTANDING  THAT  B I T 8 (pSEUDO-SlGN) 

1433 

' REF' 

39  LAST  87 

00,2314 

54  121 

1 

TS 

MPTEMP 

WAS  1 INITIALLY. 

1434 

REF 

I 

00,2315 

1 2216 

1 

TCF 

RIGHT 

DO  NORMAL  SHIFT  RIGHT, 

1435 

REF 

40  LAST  87 

00 ,2316 

4 0121 

1 

LEFT-  CS 

MPTEMP 

SAME  PROLOGUE  TO  LEFT  FOR  INDEXED  RIGHT 

1436 

REF 

2 LAST  87 

00,2317 

6 2107  0 

AD 

OCT  176 

SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 

1437 

REF 

41  LAST  87 

00,2320 

54  121 

1 

TS 

MPTEMP 

1438 

REF 

18  LAST  85 

00,2321 

10  147 

1 

LEFT  CCS 

MODE 

SINCE  LEFT  SHIFTING  IS  SONE  ONE  PLACE  AT 

1439 

REF 

1 

00,2322 

1 2325 

0 

T Cl- 

GENSCL 

A TIME,  NO  COMPARISON  WITh  14  NEED  BE 

1440 

'REF 

2 LAST  87 

— 00,2323 

1 2325 

0 

TCF 

GENSCL 

DONE,  FOR  SCALARS,  SEE  IF  TERMINAL  ROUND 

1441 

REF 

3 LAST  82 

00,2324 

1 2126 

1 

TCF 

VSSL 

DESIRED.  FOR  VECTORS,  SHIFT  IMMEDIATELY. 

1442 

REF 

2 LAST  45 

00,2325 

3 7652 

1 

GENSCL  CAF 

BIT6 

PUT  ROUNDING  BIT  (BIT10  OF  ADDRWD)  INTO 

1443 

00,2326 

0 0006 

1 

EXTEND 

BIT  15  OF  CYR  WHERE  ThE  ROUNqING  BIT  OF 

1444 

REF 

75  LAST  86 

00,2327 

7 0102 

0 

MP 

ADDRWD 

A SHORT  SHIFT  LEFT  WOULD  BE. 

1445 

"REF" 

23  LAST  81 

"00,2330 

54  020 

1 

75 

CYR 

1446 

REF 

3 LAST"  80 

00,2331 

1 2064 

0 

TCF 

TSSL  +2 

DO  THE  SHIFT. 
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L UST»RROCeS$ING  INTERPRETER-  USER'S  OWN  PAGE  NO.  55 

PU47  "SCALAR  DIVISION  I NStRUCt IONS ,DDV  AND  BDDV , aRY^EXECUTED  HeRe.  AT  THIS  point,  the  dividend  is  in  mpac 

R1449  AND  THE  DIVISOR  IN  BUF.  


1450 

REF 

6 LAST  74 

00,2332 

4 7657 

0 

DDV/BDDV  CS 

ONE 

INITIALIZATION. 

1451 

REf 

I 

00,2333 

54  122 

1 

TS 

DVSIGN 

+-1  FOR  POSITIVE  QUOTIENT  - -0  pOTT  NEG. 

1452 

REF 

- T 

00,2334 

54  123 

0 

T5 

DVNORMCT 

DIVIDEND  NORMALIZATION  COUNT, 

1453 

REF 

1 

00,2335 

54  124 

1 

T 5 

MAXDVSW 

NEAR-ONE  DIVIDE  FLAG. 

1454 

REF  1 8 LAST 

74 

00,2336 

10  114 

1 

CCS 

BUF 

FORCE  BUF  POSITIVE  WITH  THE  MAJOR  PART 

1455 

REF  1 

00,2337 

1 2366 

1 

TCF 

BUF  + 

NON-ZERO, 

1456 

00,2340 

1 2342 

1 

TCF 

♦ 2 

1457 

REF  1 

00,2341 

1 2362 

0 

TCF 

BUF- 

1458 

REF  1 9 LAST 

88 

00,2342 

56  115 

1 

XCH 

BUF  +1 

SHIFT  DIVIDEND  AND  DIVISOR  LEFT  14, 

1459 

REF  20  lAsT 

88 

00,2343 

56  114 

0 

XCH 

BUF 

1460 

REF  189  LAST 

86 

00,2344 

56  141 

0 

XCH 

MPAC  +1 

1461 

REF  190  LAST 

88 

00,2345 

56  140 

1 

XCH 

MPAC 

1462 

00,2346 

0 0006 

1 

EXTEND 

CHECK  FOR  OVERFLOW. 

1463 

00,2347 

1 2351 

0 

BZF 

♦ 2 

1464 

~ REF-  I 

00,2350 

1 2355 

l 

tcf 

DVOVF 

1465 

REF 

21 

LAST 

88 

00,2351 

10  114 

1 

CCS 

BUF 

TRY  AGAIN  ON  FORMER  MINOR  PART, 

1466 

ref 

2 

last 

88 

00,2352 

1 2366 

1 

“Tcf 

BUF  + 

1467 

REF 

2 

LAST" 

88 

00,2353 

1 2355 

1 

TCF 

DVOVF 

OVERFLOW  ON  ZERO  DIVISOR, 

1468 

REF 

2 

LAS  1 

88 

00,2354 

1 2362 

0 

TCF 

BUF- 

1469 

REF 

4 

LAST" 

76 

00,2355 

3 7637  1 DVOVF 

CAF 

POSMAX 

ON  DIVISION  OVERFLOW  OF  ANY  SORT,  SET 

1470 

REF 

191 

LA5T 

88 

00,2356 

54  140  0 

T5 

MPAC 

SET  DP  MPAC  TO  *-POSMAX. 

1471 

REF 

1 

00,2357 

0 2552  T 

TC 

““FTNALDV  ♦3 

1472 

RtF 

7 

LAST 

88 

UU  ,2860 

3 7657  1 

CAF 

ONE 

SET  OVERFLOW  INDICATOR  AND  EXIT. 

1473 

REF 

1 

00,2361 

1 7061  0 

TCF 

SETOVF 

1474 

00,2362 

0 0006 

T BUF- 

EXTEND 

IF  BUF  IS  NEGATIVE* 

COMPLEMENT  IT  AND 

1475 

REF 

22  LAsT 

88 

00,2363 

4 0115 

0 

DCS 

BUF 

MAINTAIN  DVSIGN  FOR 

FINAL  QUOTIENT  slON. 

1476 

REF 

23  LAST 

68 

“00,2364  “ 

52  115 

o- 

DXCH 

BUF 

1477 

REF 

2 LAST 

88 

00,2365 

24  122 

0 

INCR 

DVSIGN 

NOW  -0. 

1478  REF  192  LAST  88 

1479  REF  1 

1480 

T43I REF 1 

1482  REF  193  LAST  88 

1483  REF  2 LAST  88 

T4g4 REF — 27  LAST  86 

1485  REF  2 LAST  88 

1486  REF  28  LAST  88 

1487 

1488  REF  194  LAST  88 

1489  “ REF  1 9 5 “CAST  88 


00 

00 

00 

~od 

oo 

oo 

“00 

oo 

oo 

00 

00 

oo 


2366 

2367 
2370 


"TO  I 40“TT 
1 2403  0 
I 2372  1 


“BUF+“ 


2371  1 2377  1““ 

2372  10  141  1 

2373  1 2403  0 

2374  IS014  0 

2375  1 2377  1 

2376  1 6014  0 

23^7  0 0006  1 MPAC- 

2400  4 0141  1 

2401  52  141  1 


CCS 

TCF 

TCF 

TCP 

CC5 

TCF 

TCF 

TCF 

TCF 

EXTEND 

DCS 

■“oxci-r 


MPAC 

MPAc+ 

+ 2 

MPAC-" 
MPAC  +1 
MPAC  + 
“DANZIG 
MPAC- 
DANZIG 


MPAC 

MPAC 


FORCE  MPAC  POSITIVE,  CHECKING  FOR  ZERO 
DIVIDEND  IN“ThE  PROCESS* 


— “EXTT"TMME  DTATELT  0N“  ZERD"D  TVTD END , 


FORCE  MPAC  POSITIVE  AS  BUF  IN  BUF-. 
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L U1  ST-PROCESS  INS  INTERPRETER-  USEr«S  OWN  PAGE  NO~T"  56 
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L LIST-PROCESSING  INTERPRETER USEr»S  O/jN  pAGE  NO, , 57 


1*91 

REF 

196 

LAST 

88 

00,2403 

* 01*0 

0 MPAC+ 

cs 

MPAC 

CHECK  FOR  DIVISION  OVERFLOW,  IF  THE 

1*92 

REF 

5 

LAST 

86 

00,2*0* 

6 7667 

1 

AD 

NEGONE 

MAJOR  PART  OF  THE  DIVIDEND'  IS  LESS  THAN 

1*93 

REF 

2* 

LAST 

68 

00,2*05 

6 Oil* 

0 

AD 

BUF 

THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 

1*9* 

REF 

26 

LAST 

86 

00,2*06 

10  000 

0 

CCS 

A 

LEAST  TWO,  WE  CAN  PROCEED  IMMEDIATELY 

1*95 

REF 

1 

00,2*07 

1 2*51 

1 

TCF 

DVNORM 

without  normalization  producing  A dvmax. 

1*96 

00,2*10 

60001 

0 -1/2+2 

OCT 

60001 

USED  IN  SORT  SUB, 

1*97 

00,2*11 

1 2*12 

0 

TCF 

♦ 1 

IF  THE  ABOVE  DOES  NOT  HOLD,  FORCE  SIGN 

1*98 

REF 

2 

LAST 

76 

00,2*12 

3 76*2 

0 

CAf 

HALp 

agreement  in  Numerator  and  denominator 

1*99 

00,2*13 

6 0000 

1 

DOUBLE 

to  facilitate  overflow  and  near-one 

T500 

REF 

197 

LAST 

90 

00,2*1* 

6 01*1 

0 

AD 

MPAC  +1 

CHECKING, 

1501 

REF 

198 

LAST 

90 

00,2*15 

5*  1*1 

1 

T5 

MPAC  +1 

1502 

REF 

18 

LAST 

86 

00,2*16 

3 7665 

0 

CAF 

ZERO 

1503 

REF 

5 

LAST 

88 

00,2*17 

6 7637 

1 

AD 

POSMAX 

150* 

REF 

199 

LAST 

90 

00,2*20 

26  1*0 

0 

ADS 

MPAC 

1505 

REF 

3 LAST 

90 

00,2*21 

3 76*2 

0 

CAF 

HALF 

SAME  FOR  BUF. 

1506 

00,2*22 

6 0000 

1 

DOUBLE 

1507 

REF 

25  LAST 

90 

00,2*23 

6 0115 

1 

AD 

BUF  +1 

1508 

REF 

26  LAST 

90 

00,2*2* 

5*  115 

0 

rs 

BUF  +1 

1509 

REF 

19  LAST 

90 

00,2*25 

3 7665 

0 

CAF 

ZERO 

1510 

REF 

6 LAST 

90 

00,2*26 

6 7637 

1 

AD 

POSMAX 

1511 

REF 

27  LAST 

90 

00,2*27 

26  11* 

1 

ADS 

BUF 

1512 

REF 

200  LAST 

90 

00,2*30 

* 01*0  0 

CS 

MPAC 

CHECK  MAGNITUDE  OF  SIGN-CORRECTED 

1513 

rff 

ZB  L*sT 

90 

00 ,2*31 

6 Oil*  0 

Ad 

BUF 

OPERANDS* 

151* 

REF 

27  LAST 

90 

00,2*32 

10  000  0 

CCS 

A 

1515 

REF 

2 LAST 

90 

00,2*33 

1 2*51  1 

TCF 

DVNORM 

DIVIDE  OK  - WILL  NOT  BECOME  MAXDV  CASE, 

1516 

REF 

10  LAST” 

68 

00,2*3* 

00117  0 LBUF2 

“ADEES 

“BUF2 

1517 

REF 

3 LAST 

88 

00 ,2*35 

1 2355  1 

TCF 

DVOVF 

DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF, 

1518 

REF  2 LAST 

88 

00,2*36 

5*  12*  1 

TS 

MAXDVSW 

IF  THE  MAJOR  PARTS  OF  THE  DIVIDEND  AND 

1519 

KtF 

2U1  LASI 

90 

00 ,2*37 

* 01*1  1 

CS 

MPAc  +1 

divisor  are  equal*  a special  approxima- 

1520 

REF 

29  LAST 

90 

00, 2**0 

6 0115  1 

AD 

BUF  +1 

TION  IS  USED  (PROVIDED  THt  DIVISION  IS 

1521 

00 ,2**1 

TT  0006  1 

EXTEND" 

POSSIBLE,  OF  COURSE). 

1522 

REF 

* LAST 

90 

00, 2**2 

6 2355  0 

BZMF 

DVOVF 

1523 

RcF 

3 LA5T 

90 

00 ,2**3 

1 2*51  1 

TCF 

DVNORM 

IF  NO  OVERFLOW, 

» 
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L 

List-processing 

INTERPRETER 

USER'S  OWN  PAGE  N°t  58 

* 

1324 

00,2444 

0 0006 

1 

BUFNORM 

EXTEND 

ADD  -1  TO  AUGMENT  SHIFT  COUNT  AND  SHIFT 

1525 

REF  2 LAS  1 

83 

"00,2445 

24  123 

1 

AUG 

DVNORMCT 

LEFT  ONE  PLACE. 

• 

1526 

00,2446 

0 0006 

1 

EXTEND 

1527 

REF  30  LA5T 

90 

00,2447 

3 0115 

I 

DCA 

BUF 

152  8 

REF  31  LAST 

91 

00,2450 

20  115 

0 

DAS 

BUF 

k 

1529 

REF  32  LAST 

9 1 

00,2451 

3 0114 

0 

DVNORM 

CA 

BUF 

SEE  IF  DIVISOR  NORMALIZED  YET. 

1530 

00,2452 

6 0000 

1 

DOUBLE 

1531 

00,2453 

54  000 

0 

DVSK 

1532 

REF  1 

00,2454 

1 2444 

0 

TCF 

BUFNORM 

NO  - SHIFT  LEFT  ONE  AND  TRY  AGAIN. 

1533  REF  2C2  LAST 

90 

00,2455 

52  141  1 

dxch 

MPAC 

CALL  DIVIDEND  NORMALIZATION  SEQUENCE 

1534  REF  3 LAST 

91 

00,2456 

50  123  1 

INDEX 

DVNORMCT 

PRIOR  TO  DOING  THE  DIVIDE. 

1535  REF  ' 1 

00,2457 

0 2507  1 

TC 

maxtest 

1536  REF  203  LAST 

91 

00  1 2460 

54  142  1 

TS 

MPAC  +2 

RETURNS  WITH  DIVISION  DONE  AND  C ( A)  = 0. 

1537  REF  29  LAST" 

88 

00,2461 

1 6014  0 

TCF 

DANZIG 

:!  i 
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l list -Processing  interpreter  usEb»s  own  page  no.  59 

P1538  THE  TO^'t^T^AffE T^0S^^jX)~5HIFf  THE  DTVTQeND ~A~RR IVINS  IN  A AND  L BePoRe  THE  DIVIDE. 


1540 

REF 

4 

LAST 

80 

00,2462 

22  021 

1 -2  ID 

LXCH 

SR 

SPECIAL  PROLOGUE  FOR  UNIT  WHEN  THE 

1541 

00,2463 

0 0006 

1 

EXTEND 

length  of  the  argument  was  not  less  than 

1542 

REF 

4 

LAST 

90 

00 ,2464 

7 7642 

1 

Mp 

HALF 

.5.  IN  THIS  CASE,  EACH  COMPONENT  MUST  Be 

1543 

REF” 

10 

LAST 

85 

00,2465 

56  001 

0 

XCH 

L 

SHIFTED  RIGHT  ONE  TO  PRODUCE  A HALF-UNIT 

1544 

REF 

5 

LAST 

92 

00,2466 

6 0021 

1 

AD 

SR 

VECTOR. 

1545 

REF 

”11 

LAST 

92 

00 , 2467 

56  001 

0 

XCH 

L 

1546 

REF 

I 

00,2470 

1 2513 

0 

TCF 

GENDDV  +1 

WITH  DP  DIVIDEND  IN  A «L, 

1547 

1548 

1549 


00 

00 

00 


2471 

2472 

2473 


20  001  1 
20  001  1 
20  001  1 


DDOUBL 

DPOUBL. 

0DOUBL 


PROLOGUE  WHICH  NORMALIZES  THE  DIVIDEND 
WHEN  IT  Is  KNOWN  THAT  NO  DIVISION 
OVERFLOW  WILL  OCCUR, 


1550 

00,2474 

20 

001 

1 

DDOUBL 

1551 

00,2475 

20 

001 

1 

DDOUBL 

1552 

00,2476 

20 

001 

1 

DDOUBL 

1553 

00,2477 

20  001 

1 

DDOUBL 

1554 

00,2500 

20  001 

1 

DDOUBL 

1555 

00,2501 

20  001 

1 

DDOUBL 

1556 

00,2502 

2 0 001 

r " 

DDOUBL 

1557 

00,2503 

20  001 

i 

DDOUBL 

1558 

00,2504 

20  001 

i 

DDOUBL 

1560  REF  204  LAST  91 


00 


2506  52  141 


DXCH  ~ MPAC 


1561  REF”  3 LAST  00*2507”  10  124  1 MAXTEST  CCS  MAXDVSW  0 IF  MAJORS  MIGHT  BE  =♦  -l  OTHERWISE. 

1562  “00,2510  06552  0 BlASHl  DEC  .4192  B-l  SqRT  CONSTANTS 


1563  REF  1 00,2511  1 2564  0 TCP  MAXDV  CHECK  TO  SEE  IF  THEY  ARE  NOW  EQUAL, 


1 


W73W23A  yjL  SYSTEM  FOR  BLK2:  REVISION)  12-'  OF  PROGRAM,  AURORA.  BY'  DAPl  GROUP  NOV  IQ.  1966  (MAIN)  PAGE  93 


L LIST-PROCESSING  INTERPRETER  USER'S  OWN  PAGE  NO.  60 

P1564  THE  FOLLOWING  IS  A GENERAL  PURPOSE:  DOUBLE!  PRECISION!  DIVISION  ROUTINE.  IT  DIv/IDES  MPAC  hY  rUF  AND  LEASES 

R 1 566  THE  RESULT  IFHPAC,  THE  FOLLOW  I MG  CONDITIONS-  MUST  BE  SATISFIED! 


R 1 567  i.  THE  DIVISOR  (BUF)  MUST  BE  POSITIVE  AND  NOT  LESS  THAN  .5. 


R 1 568  2.  THE  DIVIDEND  ( 

MPAC)  MUST  Be  POSITIVE  WITH  THe  MAJOR  PART  OF  MPAC  STRICTLY  LeSS  THAN  THAT  OF  bUF 

R1570  (A  SPECIAL  APPROXIMATION,  M 

TAXDV , IS  U5ED  WHEN  THE  MAJOR  PARTS  ARE  EQUAL), 

Rl572  UNDERSTANDING  THAT  A/B  = Q + S(R/B)  WHfeRE  S = 2<"14)  AND  Q AND  R ARe  QUOTIENT  AND  REMAINDER*  R£SPEC- 

R 1574  TIVELy,  THE  FOLLOWING  AppROXI NATION  IS  OBTAINED  By  MULTIPLYING  ABOVE  AND  BELOW  By  C - SD  AND  NEGLECTING  TERM?  OF 

R 1 576  ORDER  5- SQUARED  (POSSIBLY  INTRODUCING  ERROR  INTO  THe  LOW-  TWO  BITS  OF  THE  RESULT).  SIGN  AGREEMENT  IS  UNNECESSARY, 

R1578  A + SB  T~  (R  - 3D)  — A~*  SB 

R 1 580  0 + S ( ) WHERE  Q AND  R ARE  QUOTIENT  AND  REMAINDER  OF-——  RESPECTIVELY* 

R1582  C + SD  ( C ) C 


1584 

REF 

205 

LAST 

92 

00,2512 

52  141 

1 

GENDDV 

DXCH 

MPAC 

WE  NEED  A AND  B ONLY  FOR  FIRST  DV. 

1585 

00,2513 

0 0006  1 

+ 1 

extend 

(SPECIAL  UNIT  PROLOGUE  ENTERS  HERE). 

1586 

REF 

33 

LAST 

91 

00,2514 

10  114 

1 

DV 

BUF 

A NOW  CONTAINS  Q AND  L,  R, 

1587 

REF 

206 

LAST 

93 

00,2515 

52  141 

1 

DXCH 

MPAC 

1588 

REF 

207 

LAST 

93 

Ou  »25l6 

4 0140 

0 

CS 

MPAC 

FORM  DIVIDEND  FOR  MINOR  PART  OF  RESULT. 

1589 

00,2517 

0 0006 

1 

EXTEND 

1590 

RFF 

34 

LA5T 

93 

00,2520 

7 0T15 

0 

MP 

BUF  +1 

1591 

REF 

208 

LA51 

93 

00,2521 

6 0141 

0 

AD 

MPAC  +1 

OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 

1592 

00,2522 

54  000 

0 

OVSK 

R IS  POSITIVE  IN  EVERY  CASE. 

1593 

00,2523 

1 2530 

T 

TCF 

+ 5 

1594 

00,2524 

0 0006 

1 

EXTEND 

OVERFLOW  CAN  BE  REMOVED  BY  SUBTRACTING  C 

1595 

REF 

35  LA5T 

93 

00,2525 

60  114  0 

5U 

'EUF 

1BUF ) ONCE  SINCE  R IS  ALWAYS  LESS  THAN  C 

1596 

REF 

i jg 

LA5  1 

93 

00,2526 

24  140 

1 

I NCR 

MPAC 

IN  THIS  CASE,  I NCR  COMPENSATES  SUBTRACT, 

1597 

REF 

1 

00,2527 

1 2532 

0 

TCF 

♦ DOWN 

(SINCE  C (A ) 15  STILL  POSITIVE). 

1598 

00*2=30 

0 0006 

1 

+ 5 

EXTEND 

C ( A ) CAN  BE  MADE  LESS  THAN  C IN  MAGN1- 

1599 

REF 

1 

00,2531 

6 2542 

0 

3ZMF 

-Up 

TUDE  By  DIMINISHING  IT  By  C (SINCE  C IS 

A1600 

NOT  FESS  THAN  .5)  UNLESS  C ( A ) = 0. 

* 


► 
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L 

list 

-processing 

interpreter 

USER'S  OWN  PAGE  NO.  61 

1601 

00,2532 

0 0006 

1 

+DOWN 

EXTEND 

1 602 

REF 

36  LA~5T"  93 

00,2533 

60  114 

0 

50 

BUF 

if  Positive,  reduce  only  if  necessary 

1603 

00,2534 

0 0006 

1 

EXTEND 

since  the  compensating  incr  might  cause 

1604 

00,2535 

1 2540 

0 

BZF 

+ 3 

overflow. 

1605 

“00,2536 

0 0006 

1 

EXTEND 

DONT  SUBTRACT  UNLESS  RESULT  IS  POSITIVE 

1606 

REF 

~ l 

00,2537 

6 2546 

I 

8ZMF 

ENDMAXDV 

OR  ZERO. 

1607 

REF 

210  LAST  93 

00,2540 

24-  HO 

1 

+ 3 

I NCR 

MPAC 

KEEP  SUBTRACT  HERE  AND  COMPENSATE. 

1608 

REF 

2 LAST  88 

00,2541 

1 2547 

1 

TCf 

FINALDV 

1609 

00,2542 

0 0006 

1 

-UP 

EXTEND 

if  zero,  set  minor  part  of  result  to 

1610 

REF 

3 LAST 

94 

00,2543 

1 2552 

0 

BZF 

FINALDV  +3 

ZERO, 

1611 

00,2544 

0 0006 

1 

EXTEND 

IF  negative,  add  c to  a,  subtracting  one 

1612 

REF 

211  LAST 

94 

00,2545 

26  140 

0 

dim 

MPAC 

to  compensate.  DIm  is  ok  here  since  the 

1613 

REF 

37  last 

94 

TTO  ,2546 

6 0114 

0 

ENDMAXDV 

AD 

BUF 

"MAJOR  PART  NEVER  GOES  NEGATIVE# 
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L 

LIST-PROCESSING 

interpreter 

USER'S  OWN  PAGE  NO. 

62 

1614 

00,2547 

22  007  0 

FINALDV  ZL 

DO  DV  TO  OBTAIN  MINOR 

PART  OF  RESULT. 

1615 

150,2550 

0 0006  1 

EXTEND 

1616 

REF  38  LAST 

94 

00,2551 

10  114  1 

DV 

BUF 

1617 

REF  212  LAST 

94 

00,2552 

54  141  1 

+ 3 TS 

MPAC  +1 

UNLESS  C (DVSIGN) = 

1616 

REF  4 LAST 

89 

00,2553 

10  122  1 

CCS 

DVSIGN 

LEAVE  RESULT  POSITIVE 

1619 

REF  45  LAST 

65 

00 ,2554 

0 0002  0 

TC 

Q 

-0. 

1620 

REF  46  LAST 

95 

00,2555 

0 0002  0 

TC 

0 

1621 

REF  47  LAST 

95 

00,2556 

0 0002  0 

TC 

Q 

1622 

00,2557 

0 0006  1 

EXTEND 

1623 

REf 

213 

LAST 

95 

00,2560 

4 0141  1 

DCS 

MPAc 

1624 

REF 

214 

LA5T 

95 

00,2561 

52  141  1 

dxch 

MPAC 

1625 

REF 

20 

LAS) 

90 

00,2562 

3 7665  0 

CAF 

ZERO 

SO  WE  ALWAYS  RETURN  WITH  C (A)  = 0. 

1626 

REF 

48 

LAST 

95 

00,2563 

0 0002  0 

TC 

Q 
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L UST»PR0Ce55JNS  INTERPRETER  USER'S  OWN  PAGE  NO,  63 

Pi6?7  if  the  major  parts  ofttHe  divisor  and  dividend  are-  equal,  but  the  Minor  parts  are  such  that  thf 

R 1629  DIVIDEND  IS  STRICTLY  LeS'S  THAN.  THE  DIVISOR  IN  MaGN I TUDE , THe  FOLLOWING  APPROXIMATION! S USED.  tHe  ASSUMPTIONS 

R1631  ARE  THe  SAME  AS  THe  GENERAL  ROUTINE  WITH  THe  ADDITION  THAT  SIGN  AGREEMENT  IS  NeCe5SARY  (B,  C,  6 D POSITIVE), 


R1633  C + SB  . (C  + B - D) 

R1634  37777  + ■ S(- ) 

R1635  C * SD  ( C ) 

R1636  THE  DIVISION  MAY  BE  PERFORMED  IMMEDIATELY  SINCE  B IS  STRICTLY  LESS  THAN"  D A~ND  C IS  NOT  LESS  THAN  ,5, 


1638 

ref 

215 

Last 

95 

00,2564 

4 

0140 

0 

MaXDV 

cs 

MPaC 

SEE  IF  MaXDV  CASE  STlLL  HOLDS  AFTER 

1639 

REF 

39 

LAST 

95 

00,2565 

6 

0114 

~D 

AD 

BUF 

NORMALIZATION. 

1640 

00,2566 

0 

0006 

1 

EXTEND 

1641 

00,2567 

1 

2571 

1 

BZF 

♦ 2 

1642 

REF 

2 

LAST 

92 

00,2570 

1 

2512 

i 

TCF 

G'ENDDV 

MPAC  NOW  LESS  THAN  BUF  - DIVIDE  AS  USUAL 

1643 

REF 

7 

LAST 

90 

uo  12^71 

3 

7637 

1 

+ 2 

CAF 

POSMAX 

SET  MAJOR  PART  OF  RESULT. 

1644 

HREF 

216 

last 

96 

00,2572 

54  140 

0 

TS 

MPAC 

1645 

REF 

40  LAST 

96 

00,2573 

4 

0115 

0 

CS 

BUF  +1 

FORM  DIVIDEND  OF  MINOR  PART  OF  RESULT, 

1646 

REF 

217  LAST 

96 

00,2574 

6 

0141 

or 

AD 

RMPAC  +1 

1647 

REF 

2 LAST 

94 

00,2575 

1 

2546 

0 

TCF 

ENDMAXDV 

GO  ADD  C AND  DO  DIVIDE,  ATTACHING  SIGN 

A1646 

BEFORE  EXITING, 

(I  - 
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P 1649  ; VECTOR  DIVIDED  bY  SCALAR , y/SC,  IS  EXECUTED  HERE.  THE  VECTOR  IS  NOW  IN  MPAC  WITH  SCALAR  IN _aUF. 


1651 

REF 

8 

LAST 

88 

00,2576 

4 7657 

0 V/SC2 

CS 

ONE 

INITIALIZE  DIVIDEND  NORMALIZATION 

COUNT 

1652 

REF 

4 

last 

91 

00,2577 

54  123 

0 

T S 

dvnormct 

and  division  sign  register. 

1653 

REF 

31 

last 

77 

00,2600 

54  113 

0 

TS 

VBUF  *5 

1654 

REF 

41 

LAST 

96 

00,2601 

10  114 

1 

CCS 

BUF 

FORCE  DIVISOR  POSITIVE  WITH  MAJOR 

PART 

1655 

REF 

r 

00,2602 

1 2637 

0 

TCF 

/BUF  + 

NON-ZERO  (IF  POSSIBLE). 

1656 

00,2603. 

1 2605 

1 

TCP 

+ 2 

1657 

REF 

i 

00,2604 

1 2633 

1 

TCF 

/BUF- 

' 

1658 

REF 

42 

LAST 

97 

00,2605 

56  115 

1 

XCH 

BUF  fl 

SHIFT  VECTOR  AND  SCALAR  LEFT  14, 

1659 

ref 

43 

LAST 

97 

00 ,2606 

56  114 

0 

XCH 

BUF 

1660 

REF 

218 

LAST 

96 

00,2607 

56  141 

0 

XCH 

MPAC  fl 

1661 

REF 

219 

LAST 

97 

00,2610 

56  140 

I 

XCH 

MPAC 

1662 

00,2611 

0 0006 

1 

EXTEND 

CHECK  FOR  OVERFLOW  IN  EACH  CASE. 

1663 

00,2612 

1 2614 

1 

3ZF 

+ 2 

1664 

REF 

5 

LAST 

90 

00,2613 

1 2355 

1 

TCF 

DVOVF 

1665 

REF  220  LAST 

97 

00*2614 

56  144  0 

XCH 

MPAC  +4 

1666 

REf  221  |_AsT 

97 

00,2615 

56  143  1 

XCH 

MPAc  +3 

1667 

00,2616 

0 0006  1 

EXTEND 

1668 

00,2617 

1 2621  1 

3ZF 

♦ 2 

1669 

REF  6 LA5 1 

97 

00,2620 

1 2355  1 

TCF 

DVOVF 

1670 

REF  222 

LAST 

97 

00,2621 

56  146 

1 

XCH 

MPAC  +6 

1671 

REF 

223 

last 

97 

00,2622 

56  145 

1 

XCH 

MPAc  +5 

1672 

00,2623 

0 0006 

1 

EXTEND 

1673 

00,2624 

1 2626 

0 

BZF 

♦ 2 

1674 

REF 

LAST 

97 

00,2625 

1 2355 

I 

TCF 

DVOVF 

1675 

REF 

44 

LAST 

97 

00,2626 

10  114 

CCS 

BUF 

1676 

REf 

2 

last 

97 

00,2627 

1 2637 

0 

TCF 

/BUF  + 

1677 

REF 

8 

LA5T 

97 

00,2630 

1 2355 

1 

TCF 

DVOVF 

ZERO  DIVISOR  - OVERFLOW. 

1678 

REF 

2 

LAST 

97 

00 ,2631 

1 Z63S 

1 

TCF 

/BUF- 

1679 

REF 

9 

LASl 

97 

00  9 2 6 32 

1 2355 

1 

TCF 

DVOVF 

1680 

0 0,2633  0 0006  1 

1681 

REF 

45 

LAS  I 

97 

UU, 20:54 

4 UU5  0 

1682 

REF 

46 

LAST 

97 

00  t2b35 

52  115  0 

1683 

97 

00,2636 

24  113  I 

EXTEND ON  NEGATIVE i COMPLEMENT  BUF  AND  MAINTAIN 

DCs  BUF  DVsIGN  IN  VBUF  45. 

DXCH  BUF 
TNCR VBUF  +5 
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1684 

REF 

5 LAST 

92 

00,2637 

3 7642  0 

/rUF+  CAF 

HALF  FORCE  SIGN  AGREEMENT  IN  DIVISOR. 

1685 

00,2640 

6 0000  1 

DOUBLE 

1686 

REF 

47  LAST 

97 

00,2641 

6 0115  1 

AD 

BUF  +1 

1687 

REF 

48  LAST 

98 

00,2642 

54  115  0 

TS 

BUF  +1 

1688 

REF 

21  LAST 

95 

00,2643 

3 7665  0 

CAF 

ZERO 

1689 

REF 

8 LAST 

96 

00,2644 

6 7637  1 

AD 

POSMAX 

1690 

REF 

49  LAST 

93 

00,2645 

26  114  1 

ADS 

BUF 

I69I 

REF 

11  LAST 

90 

00,2646 

56  117 

0 

XCH  BUF2 

LEAVE  ABS (ORIGINAL  DIVISOR)  IN  BUF2  FOR 

1692 

REF 

50  LAST 

98 

00,2647 

3 0115 

1 

CA  BUF  +1 

OVERFLOW  TESTING, 

1693 

REF 

12  LAST 

98 

00,2650 

54  120 

0 

TS  BUF 2 +1 

1694 

REF 

1 

00,2651 

1 2657 

0 

TCF  /NORM 

NORMALIZE  DIVISOR  IN  BUF, 

1695 

00,2652 

0 0006 

1 

/N0RM2 

EXTEND 

IF  LESS  THAN  .5,  AUGMENT  DVNORMCT  AND 

1696 

ref 

5 LAST 

97 

00,2653 

24  123 

1 

AUG  DvNORmCT 

DOUBLE  DIVISOR, 

1697 

00,2654 

0 0006 

1 

EXTEND 

1698 

REF 

51  LAST 

98 

00,2655 

3 0115 

1 

OCA  BUF 

1699 

REF 

52  LAST 

98 

00,2656 

20  115 

0 

DAS  BUF 

1700 

REF 

53  LAST 

98 

00,2657 

3 0114 

0 

/NORM 

CA  BUF 

SEE  IF  DIVISOR  NORMALIZED, 

1701 

00,2660 

6 0000 

1 

double 

1702 

00,2661 

54  000 

0 

OVSK 

1703 

' R EF 

1 

00,2662 

1 2652 

0 

TCF  /N0RM2 

DOUBLE  AND  TRY  AGAIN  IF  NOT. 

1704 

REF  1 

00,2663 

0 2675 

1 

TC 

V/SCDV 

DO  X COMPONENT  DIVIDE, 

1705 

ref  224  -last  97 

00,2664 

52  144 

I 

' ~DXCH  “ 

MPaC  +3 

SUPPLY  ARGUMENTS  IN  UsUaL  SEQUEnCET. 

1706 

REF  225  LAS l 98 

00,2665 

52  141 

1 

dxch 

MPAC 

1707 

REF  226  LAST  98 

00,2666 

52  144 

1 

oxch 

MPAC  +3 

1708  REF  2 LAST  98  00,2667  0 2675  1 TC  V/SCDV 

1709  REF  227  lAST^  98  00,2670  5E  1«  0 OXCH  MPAC  +5 

TTTO  REF  228  LA5T  98  00,2671  52  141  I OXOR MPAC 

1711  REF  229  LA5T  98  00,2672  52  146  0 DXCFT  MPAC  *5 


V COMPONENT* 


T7T2  REF  JtAST-  "98  00.2673  0“2675"I TC V75CDV  Z COMPONENT. 

1713  REp  2 LAST  81  00,2674  1 7373  0 VROTATEX  ~ GO  RE-ARRANGE  COMPONENTS  BEFORE  EXIT. 
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L 

list-processing  interpreter 

USER'S  OWN  PAGE  NO.  66 

P1714 

subroutine  used  by  v/sc  to  divide  vector  component  in  mpac,+i 

BY  THE  SCALAR  GIVEN  IN  BUF* 

1716 

REF  33  LAST  97  00,2675  3 0113  1 V/SCDV  CA  VBUF  +5 

REFLECTS  SIGN  OF  SCALAR. 

1717 

REF  5 LAST  95  00,2676  54  122  1 TS  DVSIGN 

1718 

REF 

230  LAST  98 

00,2677 

10  140 

0 

CCS 

MPAC 

FORCE  MPAC  POSITIVE,  EXITING  ON  ZERO. 

1719 

REF 

1 

00,2700 

1 2714 

0 

TCF 

/MPAC* 

1720 

“00,2701 

1 2703 

0 

TCF 

+ 2 

1721 

REF 

1 

00,2702 

1 2710 

1 

TCF 

/MPAC- 

1722 

REF 

231 

LAST 

99 

00,2703 

10  141  1 

CCS 

MPAC  +1 

1723 

REF 

2 

LAST 

99 

00,2704 

1 2714  0 

TCF 

/MPAC* 

1724 

REF 

99 

LAST 

95 

00,2705 

0 0002  0 

TC 

Q 

1725 

REF 

2 

LAST 

99 

00,2706 

1 2710  1 

TCF 

/MPAC- 

1726 

REF 

50 

LAST 

99 

00,2707 

0 0002  0 

TC 

Q 

1727 

00,2710 

0 0006  1 

/MPAC-  EXTEND 

USUAL  COMPLEMENTING  AND  SETTING  OF  SIGN, 

1728 

ref 

232 

LAST 

99 

00,2711 

4 0141  1 

DCS 

MPAc 

1729 

REF 

233 

LAST 

99 

00,2712 

52  141  1 

DXCH 

MPAC 

1730 

REF  6 

LAST 

99 

00,2713 

24  122  0 

I NCR 

DVSIGN 

1731 

REF 

9 

LAST 

97 

00,2714 

4 7657  0 

/MPAC+  CS 

ONE 

INITIALIZE  NEAR-ONE  SWITCH, 

1732 

REF 

9 

last 

92 

00,2715 

54  124  r 

TS 

maxdvsw 

1733 

REF 

239 

LAST 

99 

00,2716 

4 0140  0 

CS 

MPAC 

CHECK  POSSIBLE  OVERFLOW. 

1734 

REF 

13  LA5T 

98 

OCT, 2717 

6 0117  0 

AD 

BUF2 

UNNORMALIZED  INPUT  DIVISOR. 

1735 

00,2720 

0 0006  1 

EXTEND 

1736 

REF 

1 

00,2721 

6 2725  0 

3ZMF 

/AGREE 

CHECK  FOR  NEAR-ONE  OR  OVERFLOW. 

1737  REF  235  LAST  99  00*2722  52  UI  1 DDVCALL  DXCH  MPAC  CALL  PRE-DIVIDE  NORMALIZATION* 

1738  REp  6 LA5T  98  00,2723  50  123  1 INDEX  DvNORMCT 

1739  REF  2 LAST  9l  00,2724  1 2507  0 TCF  MAXTEST 


i;  _ 


c 

4 


4 
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L 

Lt ST-PrOCESS 1 NG  INTERPRETER 

USEr's  OWN  PAGE  NO,  67 

1740 

ReF  6 LAST 

98 

00,2725 

3 7642  0 

/AGREE  CAF 

half 

force  sign  agreement  in  dividend 

1741 

“00,2726 

6 0000  1 

DOUBLE 

(ALREADY  DONE  FOR  DIVISOR), 

1742 

1REF  236  LAST 

99 

00,2727 

6 0141  0 

AD 

MPAC  +1 

1743 

REF  237  LAST 

100 

00,2730 

54  141  1 

TS 

MPAC  +1 

1744 

REF  22  LAST 

98 

00,2731 

3 7665  0 

CAF 

ZERO 

1745 

REF  9 LAST 

98 

00,2732 

6 7637  1 

AD 

P05MAX 

1746 

REF  23a  LAST 

100 

00,2733 

26  140  0 

ADS 

MPAC 



1747 

REF  239  LAST 

100 

00,2734 

4 0140  0 

CS 

MPAC 

CHECK  TO  SEE  IF  OVERFLOW  GONE  OR  IF 

1748 

REF  14  LAST 

99 

00,2735 

6 0117  0 

AD 

BUF2 

NEAR. ONE  CASE  IS  PRESENT, 

1749 

REF  28  LAST 

90 

00,2736 

10  000  0 

CCS 

A 

1750 

REF  1 

00,2737 

1 2722  0 

TCF 

DDVCALL 

NOT  NEAR-ONE, 

1751 

00,2740 

32506  0 

SLOPELO  DEC 

,8324 

1752 

REF  10  LAST 

97 

00,2741 

1 2355  1 

TCF 

DVQVF 

NO  HOPE, 

1753 

REF  5 LAST 

99 

00,2742 

54  124  1 

TS 

MAXDVSW 

SIGNAL  POSSIBLE  NEAR-ONE  CASE, 

1754 

REF  24C  LAST  100 

00.27A3” 

4 0141  1 

CS 

MPAc  +1 

SEE  IF  DIVISION  CAN  BE  DONE. 

1755 

REF  15  LAST 

100 

00,2744 

6 0120  1 

AD 

BUF2  +1 

1756 

00,2745 

0 0006  1 

EXTEND 

1757 

REF  11  LAST 

100 

00,2746 

6 2355  0 

BZKF 

DVOVF 

1758 

REF  2 LAST 

100 

00,2747 

1 2722  0 

TCF 

DDVCALL 

GOING  TO  MAXOV, 
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L LIST-PRcClSSInG  INTERPRETER 


USER'S  OwN  PAGE  NO.  68 


P1759  THt  FOLLOWING  ROUTINE  EXECUTES  THE  UNlT~rNSTRUCTlON.  WHICH  TAKES  THE  UNIT  OF  THE  VECTOR  IN  MPAC. 


1 76 1 

REF 

2 

LAST 

68 

00.2750 

0 7506 

0 UNIT 

TC 

MPACVBUF 

SAVE  THE  ARGUMENT  IN  VBUF. 

1762 

ref 

23 

last 

100 

00.2751 

3 7665 

0 

caf 

ZERO 

MUST  SENSE  OVERFLOW  IN  FOLLOWING  DOT. 

1763 

REF 

6 

LAST 

80 

00,2752 

56  105 

0 

XCH 

OVFIND 

1764 

REF 

3 

LAST- 

11 

00,2753 

54  125 

0 

TS 

TEMl 

1765 

REF 

I 

00,2754 

0 3246 

1 

TC 

VSQSUB 

DOT  MPAC  WITH  ITSELF. 

1766 

REF 

' 4 

LAST 

101 

00,2755 

3 0125 

1 

CA 

TEMl 

1767 

REF 

7 

LAST 

101 

00,2756 

56  105 

0 

XCH 

OVFIND 

1768 

00,2757 

0 0006 

1 

EXTEND 

1769 

00,2760 

1 2762 

1 

3ZF 

♦ 2 

1770 

REF 

12 

LAST 

100 

00,2761 

1 2355 

1 

TCF 

DVOVF 

1771 

00,2762 

0 0006 

1 

EXTEND 

1772 

REF 

241 

LAST 

100 

00,2763 

3 0141 

0 

DCA 

MPAC 

LEAVE  THE  SQUARE  OF  THE  LENGTH  OF  THE 

J 

1773 

REF 

10 

LAST 

55 

00,2764 

50  104 

1 

INDEX 

FIXLOC 

ARGUMENT  IN  LVSQUARE. 

1774 

RtF 

1 

00,2765 

52  043 

1 

DXCH 

LVSQUARE 

1775  REF 


00 


2766 


0 3272  0 


TC  SORTSUB 


GO  TAKE  THE  NORMALISED  SQUARE  ROOT. 


1776 

REF 

242 

LAST 

101 

00,2767 

10  140  0 

CCS 

MPAC 

CHECK 

FOR  UNIT  OVERFLOW. 

1777 

00,2770 

1 2775  1 

TCF 

+ 5 

MPAC 

IS  NOT  LESS  THAN  .5  UNLESS 

1778 

RcF 

12 

LAST 

92 

00,2771 

54  001  1 

TS 

L 

1779 

REF 

11 

LAST 

101 

00,2772 

50  104  1 

INDEX 

FIXLOC 

1780 

REF 

1 

00,2773 

52  045  1 

DXCH 

LV 

1781 

REF 

13 

LAST 

101 

00,2774 

1 2355  1 

TCF 

DVOVF 

INPUT 

TO  SQRTSUB  WAS  0, 

1782 

RcF 

1 

00,2775 

4 

3076  1 

CS 

FOURTEEN 

SEE  IF  THt  INPUT  WAS  SO  SMALL  THE  THE 

1783 

REF 

42  LAST  87 

0 U , 2 7 76 

6 

0121  0 

AD 

MPTEMP 

first  TWO  REGISTERS  Of  the  square  WERE  0 

1784 

REF 

29  LAST  100 

00,2777 

1C 

000  0 

CCS 

A 

1785 

00,3000 

4 

0000  0 

COM 

IF  SO,  SAVE  THE  NEGATIVE  OF  THE  SHIFT 

1786 

REF 

1 

00,3001 

1 

3057  1 

TCF 

SMALL 

COUNT  -15D. 

1787 

REF 

1 

00,3002 

1 3011  0 

TCF 

LARGE 

(THIS  IS  USUALLY  THE  CASE.) 

1 788 

REF 

1 

00,3003 

4 3075  1 

CS^ 

THIRTEEN 

IF  THE  SHIFT  COUNT  WAS  EXACTLY  l4,  SET 

1789 

REF 

^3 

LAST 

101 

00,3004 

54  121  1 

TS 

mptemp 

THE  pRE-DlvlDE  NORM  COUNT  TO  -13D. 

1790 

RtF 

293 

LAST 

101 

00 ,3005 

3 0140  1 

CA- 

MPAC 

SHIFT  THE  LENGTH  RIGHT  14  BEFORE  STORING 

1791 

REF 

13 

LAST 

101 

00,3006 

54  001  1 

SMALL2 

TS 

L 

(SMALL  EXITS  TO  THIS  POINT). 

1792 

REF 

LAST 

101 

00,3007 

3 7665  0 

CAF 

ZERO 

1793 

REF 

1 

00,3010 

1 3036  0 

TCF 

LARGE2 

“ “GOTO  STORE- LENGTH  AND  PROCEED. 

44 

1794 

REF 

LAST 

101 

00,3011 

10  121  1 

LARGE 

CCS 

MPTEMP 

MOST  ALL  CASES  COME  HERE. 

1795 

REF 

1 

00,3012 

I 3020  1 

“ TCF  “ 

LARGE3 

SEE  TF' NO  NORMALIZATION -WA5  REQUIRED  PY 

i ('iO 

RtF 

1 

00,3013 

4 2005  1 

CS 

SRDDV 

SORT,  AND  IF  SO.  5ET  UP  FOR  A SHIFT 

1797 

ref 

45 

LAST 

101 

00,3014 

54  121  1 

T5 

mptemp 

“RIGHT  1 BEFORE “DIVIDING  TO  PRODUCE 

1798 

00,3015 

0 0006  1 

EXTEND 

THE  DESIRED  HALF  UNIT  VECTOR. 

1799 

RcF 

299 

LAST 

101 

00,3016 

3 0141  0 

DCA 

MPAC 

1800 

RcF 

LAo l 1U1 

00,3017  1 3036  0 

TCF 

LARGE2 

473423A  YUL  SYSTEM  FOR  BLKZ:  REVISION*  12  OF:  PROGRAM  AURjqRA,  BY  PAP  SROUP 
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L LI ST-PROCESS I NG  INTERPRETER  USER'S  OrtN  PAGE  NO.  69 


1801 

00*3020 

4 0000 

0 LARGE3 

COM 

LEAVE  NEGATIVE  OF  SHIFT  COUNT-1  FOR 

1802 

REF 

46  LAST 

101 

00,3021 

54  121 

1 

T5 

MPTEMP 

PREDIVIDE  LEFT  SHIFT. 

1803 

00,3022 

4 0000 

0 

COM 

PICK  UP  REQUIRED  SHIFTING  BIT  TO  UNNORM- 

1 80  A 

~RE^ 

30  |_Asl 

101 

00,3023 

50  000 

1 

index 

A 

ALize  the  sort  result. 

1805 

REF 

5 LAST 

86 

00,3024 

3 7642 

0 

CAF 

BIT14 

1806 

REF 

54  LAST 

98 

00,3025 

54  114 

1 

TS 

BUF 

1807 

00,3026 

0 0006 

1 

EXTEND 

1808 

REF 

245  LAST 

101 

00,3027 

7 0141 

1 

MP 

MPAC  +1 

1809 

REF 

55  LAST 

102 

00,3030 

56  114 

0 

XCH 

BUF 

1810 

00,3031 

0 0006 

1 

EXTEND 

(UNNORMALIZE  THE  SORT  FOR  LV) . 

1811 

REF 

246  LA5l 

102 

00,3032 

7 0140 

0 

MP 

MPAC 

1812 

REF 

14  LAST 

101 

00,3033 

56  001 

0 

XCH 

L 

1813 

REF 

56  LAST 

102 

013 ,3034 

6 0114 

0 

AD 

BUF 

1814 

REF 

15  LAST 

102 

00,3035 

56  001  0 

XCH 

L 

1 8 1 5 

REF 

12 

LAST 

101 

00,3036 

50 

104  1 LARGE2 

INDEX 

FIXLOC 

1816 

REF 

2 

LAsT 

101 

Ou , 3U3  / 

52 

045  1 

dxch 

LV 

LENGTH  NOW  STORED  in  WORK  AREA. 

1817 

REF 

10  LAST 

99 

00,3040 

4 7657  0 

CS 

ONE 

1818 

REF 

6 LAST 

100 

00,3041 

54  124  1 

TS 

MAXDVSW 

NO  MAXDV  CASES  IN  UNIT. 

1819 

REF  34  LAST  99 

00,3042 

52  107 

0 

DXCH 

VBUF 

PREPARE  X COMPONENT  FOR  DIVIDE,  SETTING 

1820 

REf  247  lA5T  102 

00,3043 

52  141 

1 

OXcH 

MPAc 

length  of  vector  as  divisor 

IN  BUF • 

1821 

REF  57  LAST  102 

OU  ,3044 

52  115 

0 

DXCH 

BUF 

1822 

REF  1 

00,3045 

0 3077 

1 

TC 

UNITDV 

1823 

REF  35  LAST  102 

00,3046 

52  111 

1 

DXCH 

VBUF  *2 

DO  Y AND  Z IN  USUAL  FASHION 

SO  WE  CAN 

1824 

TREF  248~  lAsT  102 

OU ,3047 

52  141 

I 

DXCH 

MPAc 

exit  through  vrotatex. 

1825 

REF  249  LAST  102 

00,3050 

52  144 

1 

DXCH 

MPAC  +3 

1826 

REF  2 LAST  102 

OU , 3U5  1 

0 3077 

1 

TC 

UNITDV 

1827 

RtF  36  LAST"  102 

00,3052 

52  113 

0 

DXCH 

VBUF  +4 

1828 

REf  250  LAsT  102 

00,3053 

52  141 

1 

DXCH 

MPAc 

1829 

REF  2SI  LAST  102 

00 ,3054 

52  146 

“CF 

DXCH  MPAC  +5 

1830 

REF  3 LAST  102 

00,3055 

0 3077 

1 

TC 

UNITDV 

1831 

REF  3 LAST  98 

00,3056 

1 7373 

0 

TCF 

VROTATEX 

AND  EXIT. 

473423A  YJL  SYSTEM  FOR  BLKg] 


P1832 

R1834 


L-IST-pROCtSSiNG  iNTErPrETEr 


* V * 


BSlrS  smSSs^  * - s 


1837  REF 

1838  REF 
1839-  R£F 

1 840  REF 

1841  REF 

1842  REF 

1843  REF 

844  REF 

1845  REF 

1846  REF 

1847 


25  LAST  101 

37  LAST  102 

38  LAST  103 

39  LAST  103 

90  LAST  103 

91  LAST  103 
42  LAST  103 

48  LAST  T03 
31  LAST  102 
6 LAST  102 


nn,3260  3 7665  0 

00*3061  56  107  1 

00  » 3062  56  106  0 

00,3063  56  111  0 

00,3064  56  110  1 

00,3065  56  IT3  1 ■ 

00,3066  56  112  0 


mptemp 


CAF 

J(CH 

XCH 

XCH 

XCH 


XCH 

XCH 


1848 

1849 

1850 

1851 


REF  252  LAST  102 
REF  1 


00,3067 

00,3070 

00,3071 

00,3072 

00,3073 

00,3074 


ZERO 
VBUF  +1 
VBUF 
VBUF  +3 
VBUF  +2 
VBUF  +5 
VBUF  +4 


NEGATIVE  UF  pre-divide  SHIFT  COUNT. 
SHIFT  EACH  COMPONENT  LEFT 


4 0121  1 
50  000  l 
3 7642  0 
0 0006  1 
7 0140  0 
1 3006  0 


00,3075 

00,3076 


fS  MPTEMP 
index  A 

CAF_  B I T 1 4 

Extend" 

MP  MPAC 

ICF  SMALL2 


00015  0 

00016  0 


THIRTEEN  DEC 

fourteen  dec 


13 

14 
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Pi 852  THE  FOLLOWING  RqQtINE  SeTS~UP  THe  CALL  TO  THf  DIvIDe  ROUTINES.- 

1853  REF  253  LAST  103  00,3077  10  140  0 UNITDV  CCS  MPAC  FORCE  MPAC  POSITIVE  IF  POSSIBLE,  SETTING 


1854 

REF 

1 

00,3100 

1 3116 

0 

TCF 

UMPAC* 

DVSIGN  ACCORDING  TO  THE  SIGN  OF  MPAC 

1855 

00,3101 

1 3103 

1 

TCF 

♦ 2 

SINCE  THE  DIVISOR  IS  ALWAYS  POSITIVE 

1856 

REF 

1 

00,3102 

1 3110 

0 

TCF 

UMPAC- 

HERE. 

18  57 

REF 

254  LAST 

104 

00,3103 

10  141 

1 

CCS 

MPAC  +1 

1856 

REF 

2 LAST 

104 

00,3104 

1 3116 

0 

TCF 

UMPAC* 

1859 

REF 

51  LAST 

99 

00,3105 

0 0002 

0 

TC 

Q 

EXIT  IMMEDIATELY  ON  ZERO. 

i860 

REF~ 

2 LAST 

104 

00,3106 

1 3110 

0 

TCF 

UMPAC- 

1861 

REF 

52  LAST 

104 

00,3107 

0 0002 

0 

TC 

Q 

1862 

REF 

26  LAST 

103 

00,3110 

4 7665 

1 

UMPAC- 

CS 

ZERO 

IF  NEGATIVE,  SET  -0  IN  DVSIGN  FOR  FINAL 

1863 

REF 

7 LAST 

99 

00,3111 

54  122 

1 

TS 

DvSIgN 

COMPLEMENT . 

1864 

00,3112 

0 0006 

1 

EXTEND 

1865 

REF 

255  LAST 

104 

00,3113 

4 0141 

1 

DCS 

MPAC 

PICK  UP  absolute  value  of  arg  and  uump. 

1866 

REF 

49  LAST 

103 

00,3114 

50  121 

0 

INDEX 

MPTEMP 

1867 

REF 

3 LAST 

99 

00,3115 

1 2506 

1 

TCF 

MAXTEST  -1 

1868 

REF 

8 LAST 

104 

00,3116 

54  122 

1 

UMPAC+ 

TS 

DVSIGN 

SET  DVSIGN  FOR  POSITIVE  QUOTIENT. 

1869  REF  256  LAST  104  00,3117  52  14nT~  DXCH  MPAc 

1870  REF  50  LAST  104^~  00,3120  50  121  0 ^TTCOex  MPTEMP 

1871  REF  '4  LAST  104  00,3121  1 2506  1 TCF  MAXTEST  -1 


II 
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P1872  ISCeLLANEOUS  UNARY  OPERATIONS,  ~ 


1873 

REF 

1 

00,3122 

0 3227 

0 

DSQ  TC 

DSQSUB 

SQUARE  THE  DP  CONTENTS  OF  MPAC. 

1874 

REF 

30 

LAST 

91 

00,3123 

1 6014 

0 

TCF 

DANZIG 

1875 

REF 

19 

LAST 

87 

00*3124 

10  147 

1 

ABVALABS  CCS 

MODE 

ABVAL  OR  ABS  INSTRUCTION. 

1876 

REF 

1 

00,3125 

1 3154 

0 

tcf 

AbS 

DO  AbS  ON  SCALAR. 

1877 

REF 

2 

LAST~ 

105 

00,3126 

1 3154 

0 

TCF 

ABS 

1878 

1879 


REF  2 LAST  101 
REF  20  LAST  105 


00 

DO 


3127 

3130 


0 3246  1 
22  W 0 


ABVAL 


TC 


VSQSUB 


LXCH  MODE 


DOT  MPAC  WITH  ITSELF, 

MODE  TS~ NOW  DP  (L  ZERO  AFTER  DAS). 


1880 

00*3l3l 

0 0006 

1 

EXTEND 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA. 

1881 

REF  257 

LAST  104 

00,3132 

3 0141  0 

DCA 

MPAC 

1882 

REF 

13 

LAST 

102 

00,3133 

50  104 

1 

INDEX 

FIXLOC 

1883 

REF 

2 

LAST 

101 

00,3134 

52  043 

1 

DXCH 

LVSQUARE 

1884 

REF 

2 

LAST 

101 

00,3135 

0 3272 

0 SORT 

TC 

SQRTSUB 

TAKE  THE  SQUARE  ROOT  OF  MPAC. 

1885 

RtF 

51 

LAST 

104 

00 ,3136 

10  121 

1 

CCS 

mptemp 

RETURNED  NORMALIZED  SQUARE  ROOT.  SEE  If 

1886 

00,3137 

1 3141 

1 

TCF 

♦ 2 

ANY  UN-NORMALIZATION  REQUIRED  AND  EXIT 

1887 

REF 

31 

LAST 

105 

00,3140 

1 6014 

0 

TCF 

DANZIG 

IF  NOT. 

1888 

REF 

3 

LAST 

86 

00,3141 

6 2273 

0 

AD 

NEG12 

A RIGHT  SHIFT  OF  MORE  THAN  13  COULD  BE 

1889 

00,3142 

0 0006 

1 

EXTEND 

REQUIRED  If  INpuT  WAS  ZERO  IN  MPAC,+1. 

1890 

REF 

1 

00,3143 

6 3147 

0 

BZMF 

SQRTSHFT 

G0E5  HERE  IN  MOST  CASES, 

1891 

00 ,3144 

22  007 

“0 

ZL 

IF  A LONG  SHIFT  IS  REQUIRED,  GO  TO 

1892 

REF 

7 6 

LAST 

87 

00,3145 

22  102 

1 

LXCH 

ADDRWD 

GENERAL  RIGHT  SHIFT  ROUTINES, 

1893 

REF 

4 

LAST 

86 

00,3146 

1 2263 

0 

TCF 

GENSCR  *4 

ADDRWD  WAS  ZERO  TO  PREVENT  ROUND, 

1894 

REF 

52 

LAST 

IO5 

00,3147 

50  121 

0 

5QRT5HFT  INDEX 

MPTEMP 

SELECT  SHIFTING  BIT  AND  EXIT  THROUGH 

1895 

REF 

5 

LAST 

77 

00,3150 

3 7641 

0 

caf 

B1T15 

shift  routines. 

1896 

REF 

53 

LAST 

105 

0T5 ,3151 

54  121 

I 

TS 

MPTEMP 

1897 

REF 

27 

LAS! 

104 

00,3152 

3 7665 

0 

CAF 

ZERO 

TO  ZERO  MPAC  +2  IN  THE  PROCESS. 

1898 

REF 

2 

LAST 

66 

00 ,3153 

1 2017 

1 

TCF 

MPACSHR  +3 

1899 

REF 

3 

LAST 

83 

00,3154 

0 

6711  0 ABS 

TC 

BRANCH 

TEST  SIGN  OF  MPAC  AND  COMPLEMENT  IF 

1900 

REF 

32 

LAST 

105 

Ou ,3 i ss 

1 

6014  0 

TCF 

DANZIG 

1901 

REF 

33 

LAST 

roy 

00,31756 

1 

6014  0 

TCF 

DANZIG 

1902 

REF 

4 

LAST 

75 

00,3157 

1 

7616  0 

TCF 

COMP 
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L 

LIST-PROCESSING 

interpreter 

USER'S  OWN  PAGE  NO.  73 

1903 

Kill-  2 LASI 

70 

UU  | 3 i 60 

4 7655 

1 vDEF 

CS 

four 

_ _ytCTOR  DEFINE  - ESSENTIALLY  TREATS 

1 904 

REF  13  LAST 

73 

00,3161 

26  152 

0 

ADS 

pushloc 

SCALAR  IN  MPAC  AS  X COMPONENT,  PUSHES  UP 

1905 

00,3162 

0 0006 

1 

EXTEND 

FOR  Y AND  THEN  AGAIN  FOR  Z. 

1906 

REF  32  LAST 

103 

00,3163 

5 0000 

1 

INDEX 

A 

— 

1907 

00,3164 

3 0003 

1 

DCA 

2 

1908 

REF  258  LAST 

105 

00 , 3 1 65 

52  144 

1 

DXCH 

MPAC  +3 

1909 

00,3166 

0 0006 

1 

EXTEND 

1910 

REF  14  LAST 

106 

00,3167 

5 0152 

1 

INDEX 

PUSHLOC 

1911 

00,3170 

3 0001 

0 

DCA 

0 

1912 

RcF  259  LAST 

106 

00,3171 

52  146 

0 

DXCH 

MPAC  +5 

1913 

RcF  ll  LAST 

102 

00,3172 

4 7657 

0 

CS 

ONE 

MODE  IS  NOW  VECTOR. 

1914 

REF  7 LAST 

78 

00,3173 

1 6013 

1 

TCF 

NEWMODE 

1915 

REF 

3 LAST  105 

00,3174 

0 3246  1 VSQ 

TC 

V5QSUB 

DOT  MPAC  WITH  ITSELF. 

1 9 1 6 

REF 

28  LAST  105 

0u,3l75 

3 7665  0 

CAF 

ZERO 

1917 

RcF 

8 LAST  106 

00 ,3176 

1 6013  1 

TCF 

NEWMODE 

MODE  IS  NOW  DP. 

i9ib 

00,3177 

0 0006  1 PUSH 

EXTEND 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED. 

1919 

REF 

260  LAST  106 

00,3200 

3 0141  0 

DCA 

MPAC 

1920 

REF 

15  LAST  106 

00,3201 

50  152  1 

INDEX 

PUSHLOC 

POSH  "DOWN  FIRST  TWO  REGIS7eRFTiTTACH~ 

1921 

00,3202 

52  001  1 

DXCH 

0 

Kcr 

21  LASI  lOp 

00  9 3203 

50  147  0 

INDEX 

MODE 

INCREMENT  PUSHDOWN  POINTER. 

Rcf- 

6 LAST  76 

CO  ,3204 

3 6164  1 

caf 

no.wds 

1 'i 

Kcr 

16  LASI  106 

00 ,3205 

<16  152  0 

ADS 

PUSHLOC 

— ; j.  ^ 

1926 

Kcr 

REF 

£2  LASI  1 U 6 

UU  « 32U6 

00,3207 

10  147  1 
1 3222  1 

CCS 

— TCF — 

MODE 
TPU5H — 

DT1CW  T)D1*1M  MD  AT  x O 

1.927 

REF 

34  LAST  105 

00,3210 

1 6014  C 

TCF 

DANZIG 

00,3211 

0 0006  1 

EXTEND 

ON  VECTOR*  PUSH  DOWN  Y AND  Z COMPONENTS. 

1929 

R-F 

2 1>  i LAS  1 106 

00,3212 

3 0144  0 

"DCA 

MPAC  +3 

1930 

1931 

Kcr 

IT  LAST  106 

00,3213 

00,3214 

50  152  1 
51*775  0 

INDEX 

rjxru 

PUSHLOC 
n -a 

1932 

1 QT.1. 

DCr 

00*3215 

0 0006  1 

"EXTEND- 

00,3216 

3 0146  1 

DCA 

MPAc  +5 

1 93H 
1 cap 

K«-r 

1 8 LASI  106 

00,3217 

50  152  1 

INDEX 

PUSHLOC 

DPP 

? o c c. 

51*777  I 

DXCH 

0 -2 

* y do 

k cr 

35  LASI  1U& 

00*3221 

1 6014  0 

TCF 

DANZIG 

1937 

REF"" 

263  LAST  106 

00,3222 

3 0142  TT  TPTJSH 

CA 

MPAC  +2 



* 93o 

Kcr 

2 LASI  51 

00,3223 

1 6560  0 

T CF 

ENDTPUSH  *2 

1939 

REF 

DPP 

14  LAST  105" 

00,3224 

50  104-I  RVQ 

— TNDEX — 

FTXLOC — 

RVQ  - RETURN  TVA"  QPRET. 

1941 

REF 

c LAS  1 pA 

4 LAST  55 

00 ,3225 
00,3226 

3 0052  0 
1 6652  1 

CA 

TCF 

QPRET 

GOTO  +1 

“ ™ ™ ™ H ® 
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Ml  264  LAST  106  - — SOMOWeT: 


-^IgjS_0liviM  PA6F  Mfl^  74 


1945 

1946 

1947 

,l9A8  n-F  265  LAST  107 
locn  *!F  29  LAST  106 

1950  RcF  266  LAST  IO7 

1952  R£f  267  LAST  10? 

lo^  F2F  268  LAST  107 

1956  REF  L^r  T^TI 

1957 

SB  *EF  270  LAST  107 

1959  Ml  53  LAST  104 


T9^0 

1961  REp 

1962  REF 

1963  REF 

1964  REF 

1965  REF 

1966  REF 

1967  REF 


00,3227 
00,3230 
00,3231 
00,3232 
00,3233 
00,3234 
00,3235 
00,3236 
00,3237 
00,3240 
00,3241 
00,3242 

00,3243 

00 ,3244 
00,3245 


3 0141  0 DSQSUB 


0 0006 
7 0000 
54  142 
3 766F  _ 
56  141  0 
0 0006  1 
7 0140  0 
20  001  1 
20  142  1 
56  T40r 
0 0006  1 
7 0000  0 


-CA  MPAC  +1 

extend 


Square 

Ts  mpac  +2 

ZERO' 
MPAC  +1 


SgtDBESgjggMECT0R  JBffie  ThEV  are 

souARts  rue  scalar  corterts  of  jggr 


20  141  1 
0 0002  0 


CSF 

XCH 

extend 

MPAC 

oooubl 

DAS  MPAC  +1 

OH  MPAC- 

EXTEND 
SQUARE 
DAs  mpac 


form  2 (CROSS  TERM). 


AND  MAYBE  OVERFLOW. 

AND  set  a to  net  overflow. 


s last 

2 LAST 

271  LA5T 

272  LAST 

58  LAST 

273  LAST 

59  LAST 


1968  REF  3 LAST — 1 07 

1970  R-c  274  LAST  1°7 

1970  RcF  _60  LAST  107 


00,3246 
63  00,3247 

00  ^3250 

ST  0073  25 1 

°°»3252 
102  00,3253 

107  0a,3254 

107  00,3255 


0 0006  1 
22  123  1 
0 3227  0 
52  144  1 
52  141  1 
52  115  0 
3 0142  ~0 
54  116  0 


EXTEND' 


3XCH  DOTRET 
TC  DSQSUft 

O^CR  MP'Ac"+3 
oxch  mpac 

pXCH  BUF 


0OTS  rHE  VEC™  IN  NPAC  KITH  ITSELF. 
jOUWKE  THE  X COMPONENT, 


SO  WE  CAN  END  IN  DOTSUB. 


lorv  60  LAST  107 

1972  RFP  215  LAST  107 

1 973  5£  « 107 


1973  REF 
1~974'  ' 

1975  REF 


62  LAST 


00,3256 
00,3257 
00,3260 
°0 ,3261 
00,3262 
00,3263 


0 3227  0 
52  142  1 
20  116  0 
6 0140r 
6 0114  0 
54  114  1 
T 


DsSsuB 


B froi 


TC  „-(.auD 
OXCH  WPAC  +1 
0A5  - BUF  *T 

P MFAC 

AD  BUF 

TL- — BUF 


SQUARE  Y COMPONENT, 


00.3266 

00,3267  52  141  l 
00,3270  0 3227  0 
00,3271  1 7165 


*^r~fipAc  *5 
DXCh  MPAc 
TC  DSOcijr 


if  overflow. 

SQUARE  2 COMPONENT. 


P- 
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l list-processing  interpreter  user's  own  page  no,  75 

Pl9fi0  DOUBLE  PRECISION  SOJARe  ROOT  ROUTINE,  take  the  SQUARE  Root  OF  THE  TRIPLE  PRECISION  (MPAC  *2  USFD  ONLY 

RI982 IN  NORMALIZATION)  CONTENTS  “OF  MPAC  AND  LEAVE  THE  NORMALIZE^  RESULT  IN  MPAC  (C(MPAC)  GREATER  THAN  OR  tOUAL  TO  " 

R1984  .5).  THE  RIGHT  SHIFT  COUNT  (T0>  JNNORMALIZE)' 15  LEFT  IN  MPTEMP. 


1985 

ref 

30 

LAST 

107 

00,3272 

3 7665 

0 SQRTSUB 

caf 

ZERO 

START  BY  ZEROING  RIGHT  SHIpT  COjNT. 

1986 

“REF 

54 

Last 

105 

00,3273 

54  121 

1 

TS 

MPTEMP 

1987 

REF 

CO 

CM 

last 

107 

00,3274 

10  140 

0 

CCS 

MPAC 

CHECK  FOR  POSITIVE  ARGUMENT*  SHIFTING 

1988 

" REF 

1 

00,3275 

1 3333 

0 

TCF 

SMPAC+ 

FIRST  SIGNIFICANT  MPAC  REGISTER  INTO 

1989 

00,3276 

1 3300 

0 

TCF 

+ 2 

MPAC  ITSELF, 

1990 

REF 

1 

00,3277 

1 3322 

0 

TCF 

SQRTNEG 

SEE  IP  MAG  OF  ARGUMENT  LESS  THAN  10 (-4), 

1991 

REF  2?9 

LAST 

108 

00*3300 

56  142  0 

XCH 

MPAC  «■ 2 

MPAC  IS 

ZERO  - SHIFT  LEFT  l4. 

1992 

REF  280 

LAST 

108 

00,3301 

56  141  0 

XCH 

MpAC  +1 

1993 

REF  281 

LAST 

108 

00,3302 

54  140  0 

TS 

MPAC 

1994 

REF  2 

LAST 

77 

00,3303 

3 7663  0 

CAF 

SEVEN 

AUGMENT 

RIGHT  SHIFT  COUNTER, 

1995 

REF  55 

LAST 

108 

00,3304 

54  121  1 

TS 

MPTEMP 

1996 

REF 

282 

LAST 

108 

00,3305 

10  140 

0 

CCS 

MPAC 

SEE  IF  MPAC  NOW  PNZ, 

1997 

REF 

2 

LAST 

108 

00,3306 

1 3333 

0 

TCF 

SMPAC+ 

1998 

00,3307 

1 3311 

0 

TCF 

+ 2 

1999 

REF 

1 

00,3310 

1 3325 

1 

TCF 

ZEROANS 

NEGATIVE  BUT  LESS  THAN  10 U4)  IN  MAG, 

2000 

REF  283  LAST  !08 

00  * 33 1 1 

56  1 4 x 

0 

XCH 

MPAC  *1 

ZERO  - SHIFT  LEFT  l4  AGAIN, 

2001 

REF  264  LAST  10a 

00,3312 

54  140 

0 

TS 

MpAC 

2002 

REF  3 LAST  108 

00,3313 

3 7663 

0 

CAF 

SEVEN 

AUGMENT  RIGHT  SHIFT  COUNTER, 

2003 

REF  56  LAST  108 

00,3314 

26  121 

I 

ADS 

MPTEMP 

2004 

REF 

285  LAST  108 

00,3315 

10  140  0 

CCS 

MPAC 

~2005 

REF 

3 LA5T~108 

DO, 3316 

1 3333  0 

TCF 

SMPAC+ 

2006 

REF 

54  LAST  107 

00,3317 

0 0002  0 

TC 

Q 

SQRT(O)  = 0. 

2007 

REF 

2 LAS1  1U8 

00,3320 

1 3325  1 

TCF 

ZEROANS 

2008 

REF 

55  LAST  108 

00,3321 

0 0002  0 

TC  ~ 

Q ' 

2009  REf  33  LAST  106  00,3322  10  000  0 SQRTNEG  CCS  A ARGUMENT  IS  NEGATIVE*  BUT  SEE  IF  5IGN- 

2010  REF 1 00,3323  1 3331  1 TCF SQRTABRT  ^CORRECTED  ARGUMENT  IS  LESS  THAN  10 (-4) 


2011  REF  266  LAST  108  00*3324  10  141  1 CCS  MPAC+1  IN  MAGNITUDE,  IF  SO*  CALL  ANSWER  ZERO, 

2012  REF  31  LAST  108  00,3325  3 7665  0 ZEROANS  CAf  ZERO  FORCE  ANSWER  TO  ZERO  HERE. 

'2013  REF  I 0 OTSJ 25 — F “3401  0 TCF FIXROOT 

2014  REF  2 LAST  108  00,3327  1 3331  1 TCF  SQRTABRT 

2015  REF  2 LAST  108  00,3330  1 3401  0 TCF  FIXROOT 


2016  REF  1 00*3331  0 54*6  1 SQRTABRT  TC  ABORT 

2017  00,3332  01302  1 OCT  1302 
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L 

LIS’ 

-processing 

interpreter 

USER'S  OWN  PAGE  NO.  76 

2018 

REF 

1 

00,3333 

6 2910 

0 

SMPAC+ 

AD 

-1/2+2  SEE  IF  ARGUMENT  GREATER  THAN  OR  EQUAL  TO 

2019 

00,3339 

0 0006 

1 

extend 

.5. 

2020 

REF 

1 

00,3335 

6 3909 

1 

BZMF 

SRTEST  IF  SO,  SEE  IF  LESS  THAN  ,25. 

2021 

REF 

267 

LAST 

108 

00,333S 

52  191 

1 

dxch 

MPAC  WE  WILL  TAKE  THE  SQUARE  ROOT  OF  MPAC/2. 

2022 

REF 

6 

LA5T 

92 

00,3337 

22  021 

1 

LXCH 

SR  SHIFT  RIGHT  1 AND  GO  TO  THE  SORT  ROUTINE 

2023 

00,3390 

0 0006 

1 

EXTEND 

2029 

REF 

7 

LAST 

100 

00,3391 

7 7692 

1 

W 

HALF 

2025 

REF 

288 

LAST 

109 

00,3392 

52  191 

1 

DXCH 

MPAC 

2026 

REF 

7 

LAST 

109 

00,3393 

56  021 

1 

XCH 

SR 

2027 

REF 

289 

LAST 

109 

00,3399 

26  191 

1 

ADS 

MPAC  +1  GUARANTEED  NO  OVERFLOW, 

2028 

REF 

1 

00,3395 

3 2279 

1 

ARGHI 

CAF 

SLOPEHI  ARGUMENT  BETWEEN  ,25  AND  ,5,  GET  A 

2029 

00,3396 

0 0006 

1 

extend 

linear  approximation  for  ThIs  range. 

2030 

REF 

290 

LAST 

109 

00,3397 

7 0190 

0 

MP 

MPAC 

2031 

REF 

1 

00,3350 

6 2510 

1 

AD 

BIASHI  XO/2  = (MPAC/2)  (SLOPEHI)  + BIASHI/2. 

2032 

REF 

63 

LAST 

107 

00,3351 

59  1 1 9 

1 +9 

TS 

BUF 

XO/2  (ARGLO  ENTERS  HERE). 

2033 

REF 

291 

LAS  1 

109 

00,3352 

3 0190 

1 

CA 

MpAC 

single-precision  throughout. 

2039 

00,3353 

22  007 

0 

2L 

2035 

00,3359 

0 0006 

1 

EXTEND 

2036 

REF 

69 

LAST 

109 

00,3355 

10  119 

1 

DV 

BUF 

(MPAC/2 ) / (XO/2) 

2037 

00,3356 

0 0006 

1 

EXTEND 

2038 

REF 

8 

LAST 

109 

00,3357 

7 7692 

1 

MP 

HALF 

2039 

REF 

65 

LAST 

109 

00,3360 

26  119 

1 

ADS 

BUF 

XI  = XO/2  + ,5 (MPAC/2) / (XO/2) # 

2090 

00*3361 

0 0006  1 

EXTEND 

2091 

REF 

9 LAST  IO9 

00,3362 

7 7692  1 

Mp 

HALF 

FORM  Up  Xl/2. 

2092 

REF 

292  LAST  109 

00,3363 

52  191  1 

" DXCri 

WAC 

SAVE  AND  BRING  OUT  ARGUMENT. 

2093 

00,3369 

0 0006  1 

EXTEND 

TAKE  DP  QUOTIENT  WITH  XI. 

2099 

REF 

66  LAST  109 

00,3365 

10  119  1 

DV 

BUF 

2095 

REF 

67  LAST  109 

QU  $ 3 3 66 

59  115  0 

T5 

BUF  +1 

SAVE  MAJOR  PART  OF  QUOTIENT. 

2096 

REF 

32  LAST  108 

00,3367 

3 7665  0 

CAF 

ZERO 

FORM  MINOR  PART  OF  QUOTIENT  USING 

2097 

REF 

16  LAST  102 

00,3370 

56  001  0 

XCH 

L 

(REMAINDER, 0)  . 

2098 

00,3371 

(T  0006  1 

EXTEND 

2099 

REF 

68  LAST  109 

00,3372 

10  119  1 

DV 

BUF 

2050 

REF 

17  LAST  109 

00,3373 

59  001  1 

TS 

L 

IN  PREPARATION  FOR  DAS. 

2051 

00 ,33  / 9 

3 0115  I 

~CA 

BUF  +1 

2052 

REF 

293  LAST  109 

00 ,33  /5 

20  191  1 

DAS 

MPAC 

X2  = Xl/2  + (MPAC/2) XI 

2053 

00 ♦ 3376 

0 0006 

1 

' extend 

OVERFLOWS  IF  ARG.  NEAR  POSMAX. 

2059 

REF 

1 

00,3377 

1 3903 

1 

BZF 

TCQBNKOO 

2055 

REF 

10 

LAS  T 

100 

00 ,3900 

3 7637 

1 

CAF 

POSMAX 

2056 

REF 

299 

LA51 

109 

00,3901 

59  190 

V' 

FTXROOT  T5 

MPAC 

2057 

REF 

295 

LAST 

109 

00,3902 

59  191 

1 

T S 

MPAC  +1 

2058 

REF 

66 

LAST 

108 

00 ,3903 

0 0002 

0 

T CQBNKuu  TC 

Q 

RETURN  TO  CALLER  TO  UNNORMALIZE,  ETC, 
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L 

list-processing 

interpreter 

USER'S  OWN  PAGE  NO,  77 

2059 

ref  1 

00,3404 

6 7643  1 SRTEST 

AD  QUARTER 

argument  was  less  than  .5*  see  xf  less 

2060 

00,3405 

0 0006  1 

EXTEND 

THAN  ,25. 

2061 

REF  1 

00,3406 

6 3430  0 

3ZMF  SURTNORM 

IF  so,  begin  normalization. 

2062 

REF  296  LAS"  109 

00,3407 

52  141  1 

DXCH  MPAC 

IF  BETWEEN  .5  AND  ,25»  SHIFT  RIGHT  1 AND 

2063 

REf  8 LAST  109 

00,3410 

22  021  1 

LXCH  SR 

start  at  arglo. 

2064 

00,3411 

0 0006  1 

EXTEND 

2 0 65 

REF  10”  LAST  109 

00,3412 

7 7642  1 

MR  HALF 

2066 

REF  297  LAST  110 

00,3413 

52  141  1 

DXCH  MPAC 

2067 

REF  9 LAST  110 

00,3414 

56  021  1 

XCH  SR 

2068 

REF”  298  LAST  110 

00,3415 

26  141  1 

ADS  MPAC  +1 

no  overflow. 

2069 

REF 

1 

00,3416 

3 

2740 

0 ARGLO 

CAF 

SLOPELO 

(NORMALIZED)  ARGUMENT  BETWEEN 

2070 

00,3417 

0 

0006 

1 

extend 

.25 

2071 

REF  299  LA5T  110 

00,3420 

7 

0140 

0 

MP 

MPAC 

2072 

REF 

1 

00,3421 

6 

2250 

1 

AD 

BIASLO 

2073 

REF 

1 

00,3422 

1 

3351 

1 

TCF 

ARGHI  +4 

BEGIN  SQUARE  ROOT. 

2074 

00,3423 

0 0006  1 SQRTNM2 

EXTEND 

2075 

REF  300  LAST  110 

00,3424 

3 0142”0 

””DcA 

MPAC  +1 

2076 

REF  301  LAST  110 

00,3425 

20  142  1 

DAS 

MPAC  +1 

2077 

REF  302  LAST  110 

00,3426 

6 0140  1 

AD 

MPAC 

2078 

REF  303  LASr'llO 

00,3427 

26  140  0 

ADS 

”MPAC 

SHIFT  LEFT  2 AND  INCREMENT  RIGHT  SHIFT 
COUNT  (FD^ERMINAL  UNNORMALIZATION) , 


(NOOVERFLOW ) . 


2086  REF  r 


”00 


2079 

REF  57  LAST  1O8 

00,3430 

24  121  0 

SQRTNORM  INCR  MPTEMP 

FIRST  TIME  THROUGH,  JUST 

SHIFT 

LEFT  1 

2080 

00,3431 

0 0006  1 

EXTEND 

(PUTS  IN  EFFECTIVE  RIGHT 

SHIFT 

SINCE  ” 

2081 

REF  304  LAST  110 

00,3432 

3 0142  0 

DCA  MPAC  +1 

WE  WANT  MPAC/2). 

2002 

REF  305  LAST  110 

00,3433 

20  142  1 

DAS  MPAC  +1 

2083 

RFF  306  LAST  11D 

^00 ,3434 

6 0140  1 

AD  WPAC 

2084 

REF  307  LAST  110 

00,3435 

26  140  0 

ADS  MPAC 

(AGAIN  NO  OVERFLOW) . 

2005 

00,3436 

6 0000  1 

DOUBLE 

3437  54  022  C 


TS 


CYL 


2087 

REF  2 

LAST 

110 

00,3440 

10  022  0 

NORMTEST  CCS 

CYL 

2088 

RtF  3 

LA5  i 

110 

00 , 3441 

10”  022  ”0“ 

CCS 

CYL 

2089 

REF  1 

00 ,3442 

1 3423  0 

TCF 

SQRTNM2 

2090 

REF  2 

LAST 

110 

00 ,3443 

1 3345  1 

TCF 

ARGHI 

2091 

REF  ”T 

" 00,3444 

T 3416  ”0 

TCF 

ARGLO 

SEE  IF  ARGUMENT  NOW  NORMALIZED  AT 
GREATER  THAN  .125”.  ” 

NO  - SHIFT  LEFT  2 MORE  AND  TRY  AGAIN, 
YES  - NOW  BETWEEN  ,5  AND  ,25, 

A R GU  M E NT”NO W' ”BET WEEN' . Z 5 AND  ,125, 
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L LISt-PRC'ClSGInG  INTERPRET  USER»S  OWN  PAGE  "no.  78 

P2092  TRgGQNOMETMC  FUNCTION  PACKAGE.  " 

R2093  THE  FOLLOWING  TRIGONOMETRIC  FUNCTIONS  ARE  AVAILABLE  AS  INTERPRETIVE  OPERATIONS: 

R2095  1.  SIN  COMPUTES  ( 1/2 > SINE <2  PI  MPAC)  • 

R2°96  2.  COS  COMPUTES  ( 1 /2TC05TNE(2~Ti  MPAC)  . 

R2097  3.  AS  IN  “COMPUTES  ( 1/2PI ) ARCSINE (2  MPAC). 

R2098  A.  ACOS  COMPUTES  ( 1/2PI ) ARCCOSINE ( 2 MPAC), 

R2099  SIN-ASH.  ANO  LOS-ACOS  ARE  MUTUALLY  INVERSE*  IE  SIN(ASIN(X))  = X. 


2100 

REF  A 

LAST 

105 

00  »3AA5 

0 6711 

0 

COSINE 

TC 

BRANCH 

FINDS  COSINE  USING  THE  IDENTITY 

2101 

00,3446 

1 3A5 1 

0 

TCF 

+ 3 

COS(X)  = SIN  (PI /2  - ABS(X) ) . 

2102 

REF  1 

00 ,3447 

r 3A5A 

0 

TCF 

PRESiNE 

2103 

RcF  2 

LAS  1 

111 

00,3450 

1 3A5A 

0 

TCF 

PRESINE 

2 10A 

00 , 3A5 1 

0 0006 

1 

+ 3 

EXTEND 

2105 

REF  308 

LAST 

110 

00 , 3A52 

A 01A1 

1 

DCS 

MPAC 

2106 

REF  309 

LA5T 

111 

00 ,3A53 

52  1 A 1 

1 

DXCH 

MPAC 

^ J.U7 

REF  8 

LA5 1 

110 

UU  t 3454 

3 76A3 

1 

PRESINE 

CAF 

quarter 

PI/2  SCALED. 

2108 

REF  310 

LAS  1 

111 

00,3455 

26  1 AO 

0 

AqS 

MPAc 

2109 

REF  311 

rAsr  111 

~W*34  56 

52  141 

1 

stne 

DXCH 

MPAC 

DOUBLE  ARGUMENT. 

2110 

00,3457 

20  001 

1 

DDOJBL 

2111 

00,3460 

54  000 

0 

ovsk 

SEE  IF  OVERFLOW  PRESENT. 

2112 

00 ,3461 

1 3464 

0 

TCF 

♦ 3 

IFTNOT,  ARGUMENT  OK  AS  IS, 

8 J.i.3 

UO  »3462 

0 0006 

1 

EXTEND 

IF  SO,  WE  LOST  (OR  GAINED)  PI,  SO 

2114 

~0  0 » 3 4 S 3 

4 0001 

I 

DCOlT 

COMPLEMENT  MPAc  USING  ThE  IDENTITY 

A2 1 1 5 

SIN (X-  ( + ) PI ) = SIN(-X). 

2 116 

R c.  F 312 

LAST  111 

00 ,3464 

52  141 

1 

+3 

DXCH 

MPAC 

2117 

KCr  LHOI  111 

00 , 3465 

3 0140 

r 

TA 

1MPAC 

SEE  IF  ARGUMENT  GREATER  THAN  .5  IN~ 

2118 

Ou , 3466 

6 0000 

1 

DOUBLE 

MAGNITUDE.  IF  SO,  REDUCE  IT  TO  LESS  THAN 

2119 

Ktr  1 8 

LA5I  109 

00 , 3 46  1 

54  001 

1 

TS 

L 

.5  (+-PI/2  SCALED)  AS  FOLLOWS: 

2120 

Rcr  1 

00,3470 

1 3501  1 

TCF 

5N1 

2121  REF  3 A LA5T  108  00.3A71  50  000  1 INDEX  “Ar~  IF  POSITIVE,  FORM  PI  - X,  IF  NEGATIVE 

2122  R-F  1 00,3472  3 76A1  0 CAT  NEG1/2  ♦ ! ' USE  -PI  - X. 


812  3 

00,3473 

6 0000 

1 

DOUBLE 

2 124 

00 ,3474 

U 00U6 

1 

EXTEND 

2 12  5 

? 1 9a 

Ktr  314  L A 1 111 

00 ,3475 

60  140 

1 

‘ SU 

MPAC 

~ GUARANTEED  NO  OVERFLOW. 

LT  j 1 j Lnj  1 111 

00 ,3476 

54  140 

0 

TS 

MPAC 

2127 

Ktr  316  LAS  1 111 

00,3477 

4 0141 

1 

C5 

MPAC 

+ 1 

2 12  8 

Ktr  317  LAS  1 111 

00 , 3500 

54  141 

1 

TS 

MPAC 

+ 1 
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2129 

00 

♦ 3501 

0 0006  1 SNl 

extend 

SET  UP  TO  EVALUATE  HASTINGS  POLYNOMIAL 

2130 

~REF 

318  LAST  111 

00 

♦ 3502 

3 0141  0 

DCA 

MPAC 

2131 

REF 

16  LAST  100 

00 

♦ 3503 

52  120  0 

DXCH 

BUF  2 

2132 

REF 

5 LAST  107 

00 

♦ 3504 

0 3227  0 

TC 

DSQSUB 

SQUARE  MPAC. 

2133 

REF 

1 

00 

♦ 3505 

0 7202  0 

TC 

POLY 

EVALUATE  FOURTH  ORDER  POLYNOMIAL. 

2134 

00 

♦ 3506 

00003  1 

DEC 

3 

2135 

00 

♦ 3507 

14441  0 

2DEC 

+.3926990796 

C2135 

00 

♦ 3510 

37325  1 

2136 

00 

♦ 3511 

53250  0 

2DEC 

-.6459637111 

C 2 1 3 6 

00 

♦ 3512 

60764  1 

2137 

00 

♦ 3513 

12146  1 

2DEC 

+.318758717 

C2 1 37 

00 

♦ 3514 

21276  1 

2138 

00 

♦ 3515 

75466  1 

2DEC 

-.074780249 

C2138 

00 

♦ 3516 

71471  0 

2139 

00 

♦ 3517 

00236  0 

2DEC 

+.009694988 

C2139 

00 

♦ 3520 

32757  0 

2140 

REF 

1 

00 

♦ 3521 

3 2434  0 

CAF 

LBUF2 

MULTIPLY  BY  ARGUMENT  AND  SHIFT  LEFT  2. 

2141 

REF 

19  LAST  73 

00 

♦ 3522 

0 7066  0 

TC 

DMPSUB  -1 

2142 

00 

,3523 

0 0006  1 

EXTEND 

2143 

REF 

319  LAST  112 

00 

♦ 3524 

3 0142  0 

DCA 

MPAC  +1 

2144 

REF  320  LAST  112 

TO 

♦ 3525 

ZO  142  1 

~DAS 

MPAC  +1 

2145 

RcF 

321  LM5T  112 

00 

♦ 3526 

6 0140  1 

AD 

MPAC 

2146 

REF 

322  LAST  112 

00 

♦ 3527 

26  140  0 

ADS 

MPAC 

NEITHER  SHIFT  OVERFLOWS, 

2147 

TOO 

♦ 3530 

cr  0006  1 

EXTEND 

2148 

REF 

323  LAST  112 

00 

♦ 3531 

3 0142  0 

DCA 

MPAC  +1 

2149 

REF 

324  LAST  112 

00 

♦ 3532 

20  142  1 

DAS 

MPAC  +1 

2150 

REF 

325  LAST  112 

~ 00 

♦ 3533 

6 0140  1 

AD 

MPAC 

2151 

REF 

326  LAST  112 

00 

♦ 3534 

26  140  0 

ADS 

MPAC 

2152 

REF 

36  LAijT  1U6 

00 

♦ 3535 

1 6014  0 

TCF 

DANZIG 
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2154 

REF 

1 

00,3536 

3 3557 

0 

ARCSIN 

CAF 

LASINEX 

COMpUTE  ARCSIN  By  USING  THE  IDENTITy 

2155 

00,3537 

1 3541 

0 

TCF 

♦ 2 

ARCSIN  (X)  = PI/2  - ARCCOS ( X ) . 

2156 

REF 

1 

00*3540 

3 364i 

1 

ARCCOS 

CAF 

LDANZIG 

(EXITS  IMMEDIATELY). 

2157 

REF 

" 1 

00,3541 

54  122 

1 

TS 

ESCAPE 

2158 

REF 

5 LAST” 111 

00,3542 

0 6711 

0 

TC 

BRANCH 

TEST  SIGN  OF  INPUT. 

2159 

REF 

1 

00,3543 

1 3553 

0 

TCF 

ACOSST 

START  IMMEDIATELY  IF  POSITIVE. 

2160 

REF 

I 

00,3544 

1 3655 

0 

TCF 

ACOSZERO 

ARCCOS (0)  = PI/2  = .25. 

2161 

00,3545 

0 0006 

1 

EXTEND 

IF  NEGATIVE,  use  the  identity 

2162 

REF 

327  LAST  112 

00,3546 

4 0141 

1 

DCS 

MPAC 

ARCCOS (X)  = PI  - ARCCOS ( — X ) « FORCING 

2163 

REF 

328  LA5 1 113 

00,3547 

52  141 

I 

DXCH 

MPAC 

ARGUMENT  POSITIVE, 

2164 

REF 

1 

00,3550 

3 2247 

1 

CAF 

TCSUBTR 

SET  EXIT  TO  DO  ABOVE  BEFORE 

2165 

REF 

2 LAST  113 

00,3551 

56  122 

0 

XCH 

ESCAPE 

ARCSIN/ARCC05  CONSIDERATIONS. 

2166 

REF 

1 

00,3552 

54  123 

0 

T 5 

ESCAPE2 

2167 

REF 

11 

LAST  110 

00,3553 

4 7642  1 ACOSST 

CS 

HALF 

TEST 

MAGNITUDE  OF  INPUT. 

2168 

REF 

329 

LAST  113 

00,3554 

6 0140  1 

AD 

MPAC 

2169 

REF 

T5 

LAST  ill 

00,3555 

10  000  0 

CCS 

A 

2170 

REF 

1 

00,3556 

1 3647  0 

TCF 

ACOSOVF 

THIS 

IS  PROBABLY  an  overflow  CASE. 

2 1 7 1 REF  1 

2172  REF  I~~ 

2173  REF  330  LAST  113 

2174  REF  33  LAST  109 

2175  REF  1 

2176  REF  2 LAST  113 


00.3557 

00,3560 


00 

00 


00 


3561 

3562 


00,3563 


356a 


1 3635  0 LASINEX 
1 3570  1 


10  141  1 
3 7665  0 
r 3565  ~0~ 


1 3570  1 


TCF  ASINEX 


TCF  AC0SST2 


CCS  ■ M'PAC  +1 
CAF  ZERO 

TCF  AC0S=0 


TCF  AC0SST2 


no  Overflow  - proceed, 

IF  MAJOR  PART  IS  .5,  CALL  ANSWER  0 
UNLESS  MINOR  PART  NEGATIVE, 


2177  REF  331  LAST  113 

2178  REF  332  LAST  113 
ZT79  ' REF  3’  LAST  1T3~” 


00,3565 

54  141 

1 AC0S=0 

TS 

MPAC  +1 

00,3566 

54  140 

0 

TS 

MPAC 

00,3567 

0 0122 

0 ' 

TC 

ESCAPE 

2180 

00,3570 

0 0006 

1 ACOSST  2 

EXTEND 

NOW  THAT  ARGUMENT  IS  IN  PROPER  RANGE, 

2181 

REF 

333  LA5 1 TT  3 

00,3571 

4 0141 

1 

”DCS 

MPAC 

BEGIN  COMPUTATION.  USE  HASTINGS 

2182 

REF 

16  LMoT 

113 

00,3572 

6 7642 

0 

AD 

HALF 

APPROXIMATION  ARCCOS(X)  = SORT < 1-X ) P (X ) 

21a3 

REF 

334  LAST 

113 

00  * 3 J 3 

52  141 

1 

DXCH 

MPAC 

IN  A SCALED  VERSION  WHERE  P(X)  IS  A 

2184 

REF 

17  LAST 

112 

00,3574 

52  120 

0 “ 

“DXCH" 

BUF2 

SEVENTH  ORDER  POLYNOMIAL. 

1 1 85 

KLr 

3 LASI 

1U5 

00,3575 

0 3272 

0 

TC 

SQRTSUB 

RETURNS  WITH  NORMALIZED  SQUARE  ROOT. 

£ 1 80 

Ktr 

38  LASI 

11U 

UU.3S76 

10  121 

1 

LL5 

MPTEMP 

SEE  IF  UN-NORMALIZATION  REQUIRED. 

2187 

REF 

1 

00,3577 

1 3642 

0 

TCF 

ACOSSHR 

IF  SO. 
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2188 

REF 

335 

LAST 

113 

00 

,3600 

52  141 

1 

AC0S3 

DXCH 

MPAC 

SET  UP  FOR  POLYNOMIAL  EVALUATION. 

2189 

REF 

18 

LAST" 

113 

00 

,3601 

52  120 

0 

DXCH 

BUF2 

2190 

REF 

336 

LAST 

114 

00 

,3602 

52  141 

1 

DXCH 

MPAC 

2191 

REF 

2 

LAST 

112 

00 

»3603 

0 7202 

0 

TC 

POLY 

2192 

00 

,3604 

00006 

1 

DEC 

6 

2193 

00 

,3605 

13240 

0 

2DEC 

+.353553385 

COEFFICIENTS  ARE  C 2 ( + 1 ) /PISqRT (2)  WHERE 

C2193 

00 

,3606 

23630 

0 

2194 

00 

,3607 

74721 

0 

2DEC# 

-.0483017006 

B + l#  1 

C2194 

00 

,3610 

47775 

1 

2195 

00 

,3611 

02440 

0 

2DEC* 

+.0200273085 

B.2#  WHERE  C STANDS  FOR  ORIGINAL  COEFFS, 

C2195 

00 

,3612 

20237 

0 

2196 

00 

,3613 

75067 

1 

2DEC* 

-.0112931863 

B + 3* 

C2196 

00 

,3614 

70742 

1 

2197 

00 

,3615 

03436 

0 

2DEC# 

+.00695311612 

B + 4* 

C2197 

00 

,3616 

26756 

1 

2198 

00 

,3617 

74037 

0 

2DEC* 

-.00384617957 

6 + 5# 

C2198 

00 

,3620 

57640 

1 

2199 

00 

,3621 

03046 

0 

2DEC* 

+.001501297736  B+6# 

C2199 

00 

,3622 

07143 

0 

2200 

00 

,3623 

76654 

1 

2DEC# 

-.000284160334  B+7* 

C2200 

00 

,3624 

42244 

0 

2201 

RFF~ 

2 

LAST 

112 

~uo 

,3625 

3 2434 

0 

CAF 

L6UF2 

DO  FINAL  MULTIPLY  AND  GO  TO  ANY 

2202 

REF 

20 

LAST 

112 

00 

,3626 

0 7066 

0 

T C 

DMPSU6  -1 

EPILOGUE  SEQUENCES. 

2203 

REF 

4 

LA5T 

113 

00 

,3627 

0 0122 

0 

TC 

ESCAPE 

2204 

00 

,3630 

0 0006 

1 

SUBTR 

EXTEND 

EPILOGUE  FOR  NEGATIVE  INPUTS  TO  ARCC05, 

2205 

REF 

337 

LAST 

114 

00 

,3631 

4 0141 

1 

DCS 

MPAC 

2206 

REF 

1 3 

LA5T” 

113 

00 

6 7642 

0 

“AID 

HALT 

FORMS  PI  - ARCCOS(-X)  = ARCCo5(X), 

2207 

REF 

338 

LA5  1 

114 

00 

,3633 

52  141 

1 

DXCH 

MPAC 

2208 

REF 

2 

LAS  f 

113 

00 

,3634 

0 0123 

1 

TC  ESCAPE2 

GO  TO  POSSIBLE  ARC5IN  EPILOGUE. 

2209 

00 

,3635 

0 0006 

1 

ASINEX 

EXTEND 

2210 

REF 

339 

LAST 

114 

00 

,3636 

4 0141 

1 

DCS 

MPAC 

ARCSIN  EPILOGUE  - GET  ARCSIN(X) 

2211 

REF 

3 

LA5T  111 

00 

,3637 

6 7643 

r 

AD 

QUART  ER" 

= PI/2  - ARCCOS(X) . 

2212 

REF 

340 

LA5  1 

114 

00 

,3640 

52  141 

1 

DXCH 

MPAC 

2213 

REF 

37 

LAST 

112 

00 

,3641 

1 6014 

0 

LDANZIG 

TCF 

DANZIG 
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2214 

REF 

36 

LAST 

113 

00,3642 

50  000  1 

ACOSSHR  INDEX 

A 

THE  SHIFT  RIGHT  IS  LESS  THAN  14  SINCE 

“2215 

REF  7 EAST 

103 

DO, 3643 

3 7642  0 

CAF 

BIT14 

THE  INPUT  WAS  NON-ZERO  DP. 

2216 

REF 

59 

LAST 

113 

00,3644 

54  121  1 

T5 

MPTEMP 

2217 

REF 

4 

LAST 

81 

00,3645 

0 2054  1 

T C 

vshrrnd 

DP  SHIFT  RIGHT  AND  ROUND. 

2218 

REF 

“ 1 

00,3646 

1 3600  0 

TCF 

AC0S3 

PROCEED, 

2219 

REF 

37 

LAST 

115 

00,3647 

10  000  0 

ACOSOVF  CCS 

A 

IF  MAJOR  PART  WAS  ONLY  1 MORE  THAN  .5, 

' 2220 

00,3650  1 3652  1 

TCF 

♦ 2 

CALL  ANSWER  0. 

2221 

REF 

2 

LAST 

113 

00*3651 

1 3565  0 

TCF 

AC0S=0 

2222 

REF 

3 

LAST 

115 

00,3652 

1 3565  0 

TCF 

AC05=0 

2223 

REF 

2 

LAST 

108 

00,3653 

0 5446  1 

ACOSABRT  TC 

ABORT 

2224 

00,3654 

01301  1 

OCT 

1301 

2225 

REF 

4 

LAST 

114 

00,3655 

3 7643  1 

ACOSZERO  CAF 

QUARTER 

ACOS(O)  = PI/2, 

2226 

REF 

4 

LAST 

115 

00,3656 

1 3566  0 

TCF 

AC0S=0  +1 

SET  MPAC  AND  EXIT  VIA  ESCAPE, 

222? 


00*3657  ENDINTSO  EQUALS 


! I; 


1 
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P2228  THE~FOLLOWinG  InSTRJC'TiQNSArE  AVAILABLE  FOR- SETT  I nG  , MOD  I FYTnG  ♦ AND  BRANCH inG  On  INDEX  REGISTER S : 


R2230  1.  A XT  ADDRESS  TO  INDEX  TRUE. 

R2231  1 . AXC  ADDRESS  TO  INDEX  COMPLEMENTED. 

R2232  T.  LXA  LOAD  INDEX  FROM  ERASABLE. 

R2233  A.  LXC~  ' LOAD  INDEX  COMPLEMENTED  FROM  ERASABLE. 

R2234  5.  SXA  ' STORE  INDEX  IN  ERASABLE. 

R 2 2 3 5 6,  XCHX  EXCHANGE  INDEX  REIGSTER  WITH  ERASABLET 

R2236  7.  I NCR  INCREMENT  INDEX  REGISTER. 

R2237  ~ 8^  XAD  ERASABLE  Add  TO  INDEX  REGISTER. 

R2238  9.  XSU  ERASABLE  SUBTRACT  FROM  INDEX  REGISTER. 


R 2 2 3 9 10.  T IX  BRANCH  ON  INDEX  REGISTER  AND  DECREMENT. 


22  AO 


01.2000 


SETLoC  12000 


SUFFIX  CLASS  01  IS  IN  BANK  i, 


2241 

REF 

1 

01*2000 

0 2061 

1 

AXT 

TC 

TAGSUB 

SELECT  APPROPRIATE  INDEX  REGISTER. 

2242 

REf 

13 

last~ 

65 

01,2001 

3 0103 

0 

CA 

POLISH 

2243 

REF 

4 

LAST 

38 

01,2002 

50  114 

0 

XSTORE 

INDEX 

I NDEXLOC 

CONTAINS  C(FIXLQC)  OR  C(FIXLOC)+l. 

2245  REF 


47 

38  LAST  114 


01 


2246 

2247 

2248 

2249 

2250 


RcF 

REf 

REF 

REF 

REf 


2 ~LAST~  116 
14  LAST  116 
1 


■or 

01 

01 


3 LAST  116 
77  LAST  105 


01 

01 


2004  1 6014  0 


TCF 


DANZIG 


2 00 5 0 2061  1 

2006  4 0103  1 

2007  0 2002  1 


2010 

2011 


0 2061  I 
50  102  1 


AXC 


LXA 


TC  TAGSUB 
CS  POLISH 
TC  XSTORE 


TC 


TAGSUB 


LOAD  INDEX  FROM  ERASABLE. 


INDEX  addrwd 


2251 

01,2012 

3 0000  1 

XA 

0 ' 

2252 

REF 

2 LAST  116 

01,2013 

1 2002  0 

TCF 

XSTORE 

2253 

REF 

4 LA5T  1 1 6 

01,2014 

0 2061  1 LxC 

TC 

TAGSUB 

LOAD  INDEX  FROM  ERASABLE  COMPLEMENTED. 

2254 

REF 

78  LAST  116 

Ol  ,2015 

50  102  1 

INDEX 

addrwd 

2255 

01,2016 

4 0000  0 

CS 

0 

2256 

REF 

3 LAS  1 116 

01,2017 

1 2002  0 

TCF 

XSTORE 

2257 

REF 

5 

LAST 

116 

01,2020 

0 2061 

T SXA 

TC 

TAG5UB 

STORE  INDEX  IN  ERA5ABLE. 

2258 

ref 

5 

last 

116 

- 01  , 2021 

50  114 

“0 

INdFX 

INDEX LOC 

2259 

REF 

4 

LAST 

n 6 

01,2022 

3 0046 

0 

CA 

XI 

2260 

REF 

2 

LAST 

83 

01,2023 

1 6627 

0 

TCF 

ST0RE1 

(STORE  SINGLE  PRECISION  BEFORE  EXIT), 

2261 

REF 

6 

LAST 

116 

01  *202^ 

0 2O61 

1 XCHX 

TC 

TAGSUB 

EXCHANGE  INDEX  REGISTER  WITH  ERASABLE. 

22  62 

REF 

79 

LAST 

116 

01,2025 

50  102 

1 

INDEX 

ADDRWD 

2263 

0 1 ,20  26 

3 0000 

1 

CA 

0 

2264 

R^F 

6 

LAST 

1 1 6 

01 ,2027 

50  114 

0 

INDEX 

I NDEXLOC 

2265 

REF 

5 

LAST 

116 

01,2030 

56  046 

0 

XCH 

XI 

2266 

REF 

3 

LAST- 

1 1 6 

,2031 

1 6627 

IT  ' 

TCF 

ST0RE1 
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2267 

REF 

7 LAST  116 

01,2032 

0 2061 

1 

XAD 

TC 

TAGSUB 

erasable  add  to  INDEX. 

2268 

REF" 

80  LAST  116 

01,2033 

50  102 

1 

INDEX 

ADDRWD 

2269 

01,2034 

3 0000 

1 

CA 

0 

2270 

REF 

7 LAST  116 

01,2035 

50  114 

0 

XAD2 

INDEX 

I NDEXLOC 

2271 

w 

6 LAST  116 

01 ,2036 

26  046 

1 

ADS 

XI 

IGNORING  OVERFLOWS. 

2272 

REF 

39  LAST  116 

01,2037 

1 6014 

0 

TCF 

DANZIG 

2273 

REF 

8 LAST  117 

01,2040 

0 2061 

1 

I NCR 

TC 

TAGSUB 

INCREMENT  INDEX  REGISTER. 

2274 

ref 

15  LAST  116 

01,2041 

3 0103 

0 

CA 

POLISH 

2275 

REF 

1 

01,2042 

1 2035 

1 

TCF 

XAD2 

2276 

REF 

9 LAST  117 

01 §2043 

0 2061 

1 

XSU 

TC 

TAGSUB 

ERASABLE  SUBTRACT  FROM  INDEX. 

2277 

ref 

81  LAST  117 

01 ,2044 

50  102 

1 

INDEX 

ADDRWD 

2278 

01,2045 

4 0000 

0 

CS 

0 

2279 

REF 

2 LAST  117 

01,2046 

1 2035 

1 

TCF 

XAD2 

2280 

rEF 

10  LAST  117 

01,2047 

0 2061 

1 TIX 

TC 

tagsub  branch  and  decrement  on  index. 

2281 

REF 

8 LAST  117 

01,2050 

50  114 

0 

INDEX 

INDEXLOC 

2282 

REF 

1 

01,2051 

4 0050 

0 

CS 

SI 

2283 

REF 

9 LAST  117 

01,2052 

50  114 

0 

INDEX 

INDEXLOC 

228A 

REF 

7 LAST  117 

01,2053 

6 0046 

AD 

XI 

2285 

01,2054 

0 0006 

1 

EXTEND 

NO  OPERATION  IF  DECREMENTED  INDEX  IS 

2286 

REF 

40  LmST  117 

01,2055 

6 6014 

1 

3ZMF 

DANZIG  NEGATIVE  OR  ZERO. 

2287 

REF 

10 

LAST 

117 

0l»2056 

50  114 

0 DOTIXBR 

INDEX 

INDEXLOC 

2288 

REf 

8 

LAS  1 

117 

01,2057 

56  046 

0 

XCH 

XI 

ignoring  overflows. 

2289 

REF 

5 

LA5T 

106 

01,2060 

1 6651 

1 

TCF 

GOTO 

DO  THE  BRANCH  USING  THE  CADR  IN  POLISH. 

R2290 SUBROUTINE  WHICH  SETS  THE  ADDRESS' pF  THE  SPECIFTED^TnDEX^  IF INDEXLqC*  (aCTUaLLY , THE  ADDRESS  -38DV) 


2292 

REF 

15  LAST  106 

01,2061 

3 0104  1 TAGSUB 

CA 

FIXLOC 

2293 

REF 

11  LAST  117 

01  ,2062 

54  114  1 

TS 

INDEXLOC 

C2V4 

44  LAS  I 87 

U1 »2U63 

10  020  1 

CCS 

CYR 

2295 

REF 

12  |_AST  117 

01,2064 

24  114  0 

I NCR 

INDEXLOC 

2296 

REF 

57  LAST  109 

01  ,2066 

0 0002  0 

TC 

Q 

2297 

REF 

58  LAS  1 117 

0 1 1 2066 

0 0002  0 

TC 

0 

BIT  15  SPECIFIES  INDEX. 
0 MEANS  USE  X2. 


— r for  xi 


473423A  YjL  SYSTEM  FOk  BLK2:  REVISION  12.  OF*  PROGRAM  AuRQRA.  BY'  DAP,  GROUP 


NOV  10 i 1966  (MAIN)  PAGE  118 


L LIST-PROCESSINS'  INTERPRETER  USER'S  OWN  PAGE  NO. 85 

P^298  MT5CeLLME0U5  OPERATION  CODES  W I THDIReCT  ADDRESSES.  INCLWeF'HERE  ARE : 


R2300 

1. 

ITA 

STORE  QPRET  (RETURN  ADDRESS)  IN  ERASABLE. 

R2302 

2. 

CALL 

CALL  A SUBROUTINE*  LEAVING  RETURN  IN  QPRET. 

R2304 

3. 

RTB 

RETURN  TO  BASIC  LANGUAGE  AT  THE  GIVEN  ADDRESS, 

R2306 

A. 

BHIZ 

BRANCH  IF  THE  HIGH  ORDER  OF  MPAC  IS  ZERO  (SINGLE 

PRECISION) , 

R2308 

5. 

BOV 

BRANCH  ON  OVERFLOW, 

R2309  6,  GOTO  SIMPLE  SEQUENCE  CHANGE. 


2310 

REF 

25 

LAST  117 

01*2067 

10  020 

1 

RTB/6HIZ  CCS 

_ CYR  _ 

C / 1/*  At  * t 

2311 

ref 

OFF 

16 

LAST  117 

01.2070 

01.2071 

3 0103 

1 L.  1 DF 

0 

0 

RTB  CA 

POLISH  IT 

wlA/v  //t'l  ^ ) 

CAM  RASTC  RnLJTTMF- 

C.D  i C 

2313 

REF 

341 

LAST' "114 

01*2072 

10  ho 

0 

IShiZI  ccs 

MPAC 

2314 

ref 

41 

LAsT  117 

01,2073 

1 6014 

0 

TCF 

DANZIG  > 

2315 

REF 

6 

LAST  117 

01,2074 

1 6651 

1 

TCF 

GOTO 

2316 

REF 

42 

LAST  118 

01,2075 

1 6014 

0 

TCF 

DANZIG 

2317 

REF 

7 

LAST  116 

01,2076 

1 6651 

1 

TCF 

GOTO 

2318 

~ REF 

9 EAST  107 

01,2077 

10  105 

1 

BOV (6) 

COS 

OVFIND 

BRANCH  ON 

OVERFLOW  TO  BASIC  OR  INTERP, 

2319 

01,2100 

1 2102 

1 

TCF 

♦ 2 

2320 

REF 

43  LAST  118 

01,2101 

1 6014 

0 

TCF 

DANZIG 

2321 

REF 

10  LAST  118 

01,2102 

54  105 

1 

TS 

OVFIND 

2322 

REF 

26  LAST  118 

01,2103 

10  020 

T 

CCS 

CYR 

2323 

REF 

1 

01,2104 

1 2070 

0 

TCF 

RTB 

IF  BASIC. 

2324 

01 ,2105 

00360 

1 

B5T0B8 

OCT 

360 

2325 

REF 

8 LA5T  118 

01,2106 

1 6651 

r 

TCF 

GOTO 

* 
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2326 

REF 

27 

LAST 

116 

01,2107 

10  020 

IT 

BZE/GOTO 

CCS 

CYR 

SLE  WHICH  OP-CODE  IS  DESIRED. 

2327 

REF 

6 

XSST 

113 

01 ,2110 

0 6711 

0 

TC 

BRANCH 

DO  BzE. 

2328 

REF 

44 

LAST 

118 

01,2111 

1 6014 

0 

TCF 

DANZIG 

2329 

REF 

9 

LAST 

118 

01 ,2112 

1 665 1 

1 

TCF 

GOTO 

DO  GOTO. 

2330 

-RET 

45 

LAST 

119 

01,2113 

1 6014 

0 

rcF 

DANZIG 

2331 

REF 

28 

LAST 

119 

01,2114 

10  020 

1 

BPL/BMN 

CCS 

CYR 

2332 

" REf  ' 

r 

01 ,2115 

1 2123 

1 

TCF 

bpl 

2333 

01,2116 

12000 

1 

5B10 

DEC 

5 B+10 

SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 

2334 

REF 

7 

LAST 

119 

01,2117 

0 6711 

0 

TC 

BRANCH 

DO  BMN. 

2335 

REF 

46 

LAST 

119 

01,2120 

1 6014 

0 

TCF 

DANZIG 

2336 

REF 

47 

LAS  1 

119 

01,2121 

1 6014 

0 

TCF 

DANZIG 

2337 

REF 

10 

LAS  1 

119 

01,2122 

I 6651 

r 

TCF 

GOTO 

ONLY  IF  NNZ. 

2338 

REF 

8 

LAST  119 

01*2123 

0 

6711  0 BPL 

TC 

BRANCH 

2339 

ref 

n 

LAST  119 

01,2124 

1 

6651  1 

TCf 

GOTO 

If  positive  OR  zero. 

2340 

REF 

12 

LAST  119 

01,2125 

1 

6651  1 

TCF 

GOTO 

2341 

REF 

48 

LAST  119 

01,2126 

1 

6014  0 

TCF 

DANZIG 

2342 

REF 

29  LAST  119 

01,2127 

10  020  1 

CALL/ITA  CCS 

CYR 

2343 

REF 

1 

01,2130 

1 6644  0 

TCF 

CALL 

2344 

REF 

1 

01 ,2131 

0 5464 

1 

TC 

CCSHOLE 

2345 

REF 

16 

LAST  117 

01,2132 

50  104 

1 

INDEX 

FIXLOC 

STORE  QPRET. 

2346 

" REF 

3 

LAST  106~ 

01,2133 

3 0052 

0 

CA 

QPRET 

2347 

REF 

4 

LAS  1 116 

01,2134 

1 6627 

0 

TCF 

ST0RE1 
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p 2 3 4 a the  following  operations  are  ^available  for  altering  and  Testing  interpretive  switches: 


R2350  00  BQNSeT  Set  a SWITCH  AW~DO  a GOfO^irniT  WAS  ON. 

R2351  01  SETGO  SET  A SwlTCH  AND  DO  A GOTO. _ 

R2352 02”  BOFSET"  SET  A SWITCH  AND  DO  A GOTO~IF  IT  WAS  OFF 

R2353  03  SET  SET1T  SWITCH. 


R2354 

04 

BON  I NV~ 

INVERT  A SWITCH  AND  BRANCH  IF  IT  WAS  ON. 

R2355 

05 

INVGO 

INVERT  A SWITCH  AND  DO  A GOTO. 

R2356 

06 

bofinv 

INVERT  A SWITCH  AND  BRANCH  IF  IT  WAS  OFF 

R2357 

07 

INVERT 

INVERT  A SWITCH. 

R2358 

10 

bonclr 

CLEAR  A SWITCH  AND  BRANCH  IF  IT  WAS  ON, 

R 2 3 5 9 

11 

CLRGo 

CLEAR  A SWITCH  AND  DO  A GOTO. 

R2360 

12 

bofclr 

CLEAR  A SWITCH  AND  BRANCH  IF  IT  WAS  OFF. 

R2361 

13 

clear 

CLEAR  A 5WITCH. 

R2362 

14 

BON 

BRANCH  IF  A SWITCH  WAS  ON. 

R2363 

16 

BOFF  " 

BRANCH  IF  A SWITCH  WAS  OFF. 



— 

R2  364  THE" aDOrESS  SUPPLIED  WiTH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FOLLOWS! 


R2366  ~ BITS  1-4  SWITCH  BIT  NUMBER  (1-15). 

R2367  SITS  5-8  SWITCH  OPERATION  NUMBER. 

R2368  BITS  9-  SWITCH  WORD:  NUMBER  (UP  TO  64  SWITCH  WORDS) . 


R2 369 THE  ADDReS5“TTSeLF  15  MADE  UP""BY  THe  YUL  SYSTEM  "A5SeMBLeR.  TH"E  BRANCH  INSTRUCTIONS  R eQU TRe" TWO 

R2371  ADDRESSES*  THE  SECOND  TAKEN  AS  THE  DIRECT  (OR  INDIRECT  IF  IN  ERASABLE)  ADDRESS  OF  THE  BRANCH. 


2373 

REF 

I 

01*2135 

3 7673 

I 

SWITCHES  CAF 

L0W4 

LEAVE  THE  SWITCH  BIT  IN  SWBIT  • 

2374 

RtF 

TT 

LAST  r 18 

01,2136 

7 0103 

r 

mask 

POLISH 

2375 

REF 

38 

LAST  115 

01,2137 

50  000 

1 

INDEX 

A 

2376 

REF 

6 

LASTT05 

01,2140 

3 7641 

0 

CAF 

BIT15 

(NUMBER  FROM  LEFT  TO  RIGHT.) 

2377 

REF 

— r 

01,2141 

54  115 

TT 

T5 

SWBTT 

2378 

REF 

— T 

01 ,2142 

3 7651 

1 

CAF 

BIT7 

LtAVt  1 Ht  bW  I 1 LM  INUMbtH  X IN  bWWUr<U* 

2379 

01,2143 

D 0006 

r 

EXTEND" 

2380 

REF 

18 

LAST  120 

01,2144 

7 0103 

TT 

MP 

POLISH 

2381 

REF 

— T 

01,2145 

54  114 

1 

TS 

SWWORD 



2382  01,2146  0 0004  "0  TNHTNT DURING  SWITCH  CHANGE  SO  RUPT  CAN  USE  TOO 

2383  REF  39  LAST  120  01,2147  50  000  1 INDEX  A “ LEAVE  THE  SWITCH  WORD  ITSELF  IN  L. 

2384  REF  1 01,2150  3 0061  0 CA STATE: 

2385  REF  59  LAST  ITT  ~ 01,2151  54  002  1 TS GT (TWILL  BE  USED  AS  A CHANNEL. 
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L 

LIST 

-processing 

INTERPRETER 

USER  » S OWN  PAGE  NO,  88 

2386 

REF 

2 LAST  76 

01,2152 

3 7645 

1 

CAF  BIT11 

2387 

01,2153 

0 0006 

1 

TXT END 

DISPAJCH  SWITCH  BIT  OPERATION  AS  IN  BITS 

2388 

REF 

19  LAST  120 

01,2154 

7 0103 

1 

MP  POLISH 

7-8  OF  POLISH. 

2389 

REF 

1 

01,2155 

7 2215 

1 

MASK  B3T0B4 

GETS  4X2-6 I T CODE. 

2390 

REF 

40  LAST  120 

01,2156 

50  000 

1 

INDEX  A 

2391 

01,2157 

1 2160 

0 

TCF  ♦! 

2392 

REF 

2 LAST  120 

01,2160 

3 0115 

1 +1 

CA  SWBIT 

00  - SET  SWITCH  IN  QUESTION, 

2393 

01,2161 

0 0006 

1 

EXTEND 

2394 

REF 

60  LAST  120 

01,2162 

04  002 

1 

ROR  Q 

2395 

REF 

I 

01,2163 

1 2172 

0 

TCF  SWSTORE 

2396 

REF 

3 

LAST 

121 

01,2164 

3 0115 

1 +5 

CA 

SWBIT 

01  - INVERT  SWITCH. 

2397 

01,2165 

0 0006 

1 

EXTEND 

2398 

REF 

61 

LA5  ( 

121 

01 , 2 1 66 

06  002 

0 

RXOR 

Q 

2399 

REF 

2 

LAST 

121 

01,2167 

1 2172 

0 

TCF 

SWSTORE 

2400 

REF 

4 

LAST  121 

01,2170 

4 0115  0 +9D 

CS 

SWBIT 

10  - CLEAR. 

2401 

rEF 

62 

LAsT  121 

01 ,2171 

7 0002  1 

MASK 

Q 

2402 

REF 

2 

LA5T“ 120 

01,2172 

50  114  0 SWST0RE7 

~INDEx 

SWWORD 

2403 

REF 

2 

LAST  120 

01,2173 

54  061  1 

T5 

STATE 

NEW  SWITCH  WORD. 
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L 

LIST' 

-processing 

INTERPRETER 

USER'S  OWN  PAGE  NO,  89 

2404 

01,2174 

0 0003 

1 

+ 1 3D 

RELINT 

11  - NOOP. 

2405 

REF  ~ 

2 LAST  76 

01,2175 

3 7643 

1 

CAF  BIT13 

2406 

01,2176 

0 0006 

1 

EXTEND 

DISPATCH  SEDUCE  CHANGING  OR  BRANCHING 

2407 

REF 

20  LAST  121 

01,2177 

7 0103 

1 

MP  POLISH 

CODE, 

2408 

REF 

2 LAST  121 

01, 2200 

7 2215 

1 

MASK  B3T0B4 

2409 

REF 

41  LAST  121 

01,2201 

50  000 

1 

INDEX  A 

2410 

01,2202 

1 2203 

0 

TCF  +1 

ORIGINALLY  STORED  IN  BITS  5-6, 

2411 

REF 

63  LAST  121 

01,2203 

4 0002 

1 

+ 1 

CS  Q 

00  - BRANCH  IF  ON, 

2412 

ref 

5 LAST  121 

01,2204 

7 0115 

0 

TEsT 

MASK  SWBIT 

2413  REF  42  LAST  122  01  ,2205  10  OOCT  0 ” CCS  A ~ 

2414  REF  1 01,2206  1 2216  1 ~TXF~  SWSKIP 


2415  REF  1 01t2207  1 6703  1 *5  TCF  SWBRANCH  01  - GO  T0^~ 

2416  REF  2 LAST  122  01,2210  1 2216  1 TCF  SWS<IP  HERE  ONLY  ON  blT  15, 

2417  REF  2 LAST  119  01,2211  0 5464  1 TC  CCSHOLE 

2418  REF  3 LAST  122  01,2212  0 5464  1 TC  CCSHOLE 


2419  REF  64  LAST  122  01  ,2213  3 0002  0 +915  ~CA“  10  BRANCH  IF  OFF, 

2420  REF  r 01,2214  1 2204  T"  TCF  TEST~ 


2421  01,2215  00014  1 B3T0B4  OCT  14" 

2422  REF  28  LAST  56  01,2216  24'  150  0 SWSKIP  INCRi  LQC~ 

242  3 REF  1 01 <2135  S W7  EQUALS  SWITCHES 

2424  REF  49  LAST  119  01,2217  1 6014  0 + 13D  TCF  OANzIG  11  - NOOP, 

2425  01,2220  ENDINTS1  EQUALS 


* 
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L 

SINGLE  PRECISION  SUBROUTINES 

USER'S  OwN  PAGE 

NO.  1 

0001 

REP 

1 

4232 

SETLOC 

ENDIBNKF 

R0002 

SINGLE  PRECISION  SINE 

AND  COSINE 

0003 

REF 

14  LAST 

114 

4232 

6 7642  0 

specs 

AD 

HALF 

ARGUMENTS  SCALED 

AT  PI 

0004 

REF 

1 

4233 

55*105  0 

SPSIN 

TS 

TEMK 

0005 

REF 

~ r 

4234 

1 4236  0 

TCF 

SPT 

0006 

REF  ' 

' 2 LAST 

123 

4235 

4 1105  0 

CS 

TEMK 

0007 

4236 

6 0000  1 

SPT 

DOUBLE 

0006 

REF 

3 LAST 

123 

4237 

55*105  0 

TS 

TEMK 

0009 

REF 

1 

4240 

1 4251  1 

TCF 

POLLEY 

0010 

REF 

4 LAST 

123 

4241 

57*105  1 

XCH 

TEMK 

0011 

REF 

5 LAST 

123 

4242 

51*105  1 

INDEX 

TEMK 

0012 

REF 

1 

4243 

6 7640  1 

AD 

LIMITS 

0013 

4244 

4 0000  0 

COM 

0014 

REF 

6 LAST 

123 

4245 

6 1105  1 

AD 

TEMK 

0015 

" REF 

7 LAST  123 

4246 

55' 105  0 

TS 

TEMK 

0016 

REF 

2 LAST 

123 

4247 

1 4251  1 

TCF 

POLLEY 

0017 

REF 

1 

4250 

1 4267  1 

TCF 

ARG90 

0018 

4251 

0 0006  1 

POLLEY 

EXTEND 

0019 

REF 

8 LAST 

123 

4252 

7 1105  0 

MP 

TEMK 

0020 

REF 

1 

4253 

55 ' 106  0 

TS 

SO 

0021 

4254 

0 0006  1 

EXTEND” 

0022 

REF 

1 

4255 

7 4274  0 

MP 

C5/2 

0023 

REF 

1 

4256 

6 4273  0 

AD 

C3/2 

0024 

4257 

0 0006  1 

^EXTEND 

0025 

REF 

2 LAST 

123 

4260 

7 1106  0 

MP 

SQ 

0026 

REF 

1 

4261 

6 4272  1 

AD 

Cl/2 

0027 

4262 

0 0006  1 

EXTEND 

0028 

REF 

9 LA5T 

123 

4263 

7 1105  0 

"IMP 

TEMK 

0029 

4264 

20  001  1 

DDOUBL 

0030 

REF 

10  LAST  123 

4265 

55*105  0 

TS 

TEFIK 

0031 

REF 

65  LA5 i 

122 

4266 

0 0002  0 

TC 

0 

0032 

REF 

43  LAST 

122 

4267 

50  000  1 

ARG90 

INDEX 

A 

0033 

REF 

2 LA5T  I 23 

4270" 

4 7640  0 

CS 

LIMITS 

0034 

REF 

66  LAST 

123 

4271 

0 0002  0 

TC 

Q 

RESULT  SCALED  AT 

1 

0035 

4272 

31103  1 

Cl/2 

DEC 

.7853134 

0036 

427? 

65552  0 

C3/2~ 

“DEC 

-.3216146 

0037 

4274 

01124  1 

C5/2 

DEC 

.0363551 
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H 0 0 3 8 E\TtR  With  ARGUMENT'  in  A*  EXiT  WiTFT  ROOT  in  A«  iP  GiVEn  A nEGATiVE  ARGUMENT*  THE  RETURN  SKIPS  WITH  CCS  Rt-SULT. 

ETO040 MINUS  ZERO  RETURNS  LI<L  PLUS  EERO.  ^ e 

R0041  MAXIMUM  ERROR  IN  ANSWER  IS  NO  GREATER  THAN  2 glfS.  ~ 

R0042  INTERRUPT  PROGRAMS  USING  SPRQQT  MUST  SAVE  AND  RESTORE  SR, 


“0043  rEF  1 

0044  REF  44  LAST  123 

0045  REF  1 


0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 


REF  67~LAST  123 
REF  66  LAST  124 
REF  69  LA5T  124 


0054 

0055 


REf 

REF 

REF 

REF 


2 LAST  17 

T~ 


TTAST  124 


0056 

0057 

0058 

0059 

0060 
0061 

“0062 

0063 

00fc4 

0065 

0066 

0067 

0068 


REF 

REF 

REF 

REF 

“REF“ 

REf 

REF 

REF 


REF 

“REF' 


3 LAST  124 
TO~UAST"lTO“ 
11  LAST  “124 

2 LAST  17 
I 

45  LAST  124 
1 
I 

3 LAST  121 
'4  LAST" 1 24 


REF 

“REF' 


1 

”2“ 


4275  5F»107  1 

4276  10  000  0 

4277  1 4303  1 


SPROOT 


TS 

CCS 

TCF 


SURArG 

A 

POSARG 


enter  with  c<a>  = y 


4300  0 0002  0 

4301  24  002  0 

4302  0 0002  0 


"TC 

INCR 

TC 


IF  PNZ*  CONTINUE 
RETURN' WITH  0 FUR 


+ 0 


4303 

4304 


0 0006 
23' 106 
4362 


POSARG 


EXTEND 

QXCH  ROOTRET 


4305  6 4362  1 

4306  54  000  0 

4307  1 43510 

4310  57' 107  0 

4311  55*  107“!  SPROOT  3' 


“AD 
OVSK 
TCF 


4312 

4313 

4314 

4315 
4 316 
4317 
4220“ 

4321 

4322 
“4322 

4324 

4325 


54  02 i 0 
56  021  1 

55  • 105  0 
6 4360  0' 
10  000  0 
6 4361  1 


“XCH“ 

TS 

“TS 

XCH 

T5 


63/64+ 1 

SPR00T2 

SURARG 


RETURN  WITH  0 FOR  -0 


WILL  BE  CALLING  SpRQOTl 
B ( A ) = Y - 1 


ARG  JUGGLING 


SURARG 


“AD 

CCS 

AD 


0432 5 I 
1 4322  1 
3 7645  TT 


LAST' 124 


4326 


nreTTT“ 

6 0000  1 

0 4340  1 HIGUESS 
0 “4340  1 


TC 

NOOP 

CAF 

“AD 


SR 

SR 

HALFY 

-1/8 

A 

5/8  + 1 
HTGUESS' 


BIT11 

'SURARG 


C (A)  = V 

(LOSE  1 BIT) 

HALFY  “=T72  ' 

FORM  Y / 2"“-“ ITS 

TEST  FOR  FIRST  GUESS 

Y .G.  1/4*  X = Y/2  + 1/2 

'+“0  rMP055TBLE  FROM  ADDITION 

Y .LE.  1/4*  X/2  = Y + 1/16 
1/16 


DOUBLE  ' ' 

TC  SPR00T1 

TC  SFEOOTI 


5QRARG“'=  Y' 
X FROM  X/2 


ITERATE  TWICE 
SAVE  ANSWER  AND  GET  0 


0070 

0071 

REF 

RcF 

46  LAST  124 
“T'LAST  124” 

4330 

4331” 

10  000  0 
57*106  1 

CCS 

XCFT 

A 

ROOTRET 

"NO  SHI  FT' 'NEEDED  ' 

0072 

0073 

REF 

REF 

1 

5 LAST  124 

4332 

4333 

0 4336  0 
57*106  1 

TC 

XCH 

ROOTBCK 

ROOTRET 

Q NEG*  SHIFT  RIGHT  THREE 

0074 

0075 

REF 

1 

4334 

4335 

0 0006  1 
7 7644  1 

EXTEND 

"MP 

BIT12 

EXP  -3 

0076 

0077“' 

REF 

6 LAST  124 

4336 

4337 

51*106  1 ROOTbCK 
0 0001  0 

INDEX 

TC 

ROOTRET 
T “ 

ROOlRtT  = Q - 1 
RETURN*' CCA)  '=  SQRT'(Y') 

0078 

REF  12  LAST  124 

4340 

56  021  1 

SPR00T1 

XCH 

5R 

0079 

REF'  3 LAST  124 

4341 

4 1105  C 

“CS 

HALFY 

0080 

4342 

22  007  0 

ZL 

0081 

4343 

0 0006  1 

EXTEND 

0082 

“REF'  13  LAST  124 

4344 

10  021  0 

DV 

SR 

SR  = X/2 
NEWTON  ITER 


X=1C72'+  (Y/2  / X/2T  7'  2 


C CSR ) = X/2  DV  DOES  NOT  EDIT 
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L SINGLE  PRECISION  SUBROUTINES  USER'S  OWN  'PAGE  NO. 3 


0063 

REF 

U 

LAST 

124 

4345 

56  021 

i 

XCH 

SR 

' 0084 

4346 

0 0006 

i 

EXTEND 

0085 

REF 

15 

LAST 

125 

4347 

60  021 

i 

SU 

SR 

0086 

REF 

70 

LAST 

124 

4350 

0 0002 

0 

TC 

Q 

C ( A)  = X (NEXT) 

0087 

REF 

r 

LAST 

124 

4351 

4 1106 

0 SPR00T2 

CS 

RQOTRET 

SET  RETURN  Q NeG.  AS  FLAG 

0088 

REF 

8 

LAST 

125 

4352 

55*106 

0 

TS 

ROOTRET 

0089 

"REF- 

2 

LAST 

120 

4353 

3 7651 

1 

CAF 

BIT7 

SHIFT  FOR  SIGNIFCANCE 

0090 

4354 

0 0006 

1 

EXTEND 

0091 

REF 

5 

LAST 

124 

4355 

7 1107 

1 

MP 

SQRARG 

0092 

REF  " 

19 

LAST- 

111 

4356 

3 0001 

0 

CA 

L 

B ( A ) = 0 

0093 

REF 

1 

4357 

0 4311 

0 

TC 

SPR00T3 

0094 

4360 

73777 

1 -1/8 

OCTAL 

73777 

0095 

4361 

24001 

0 5/8+1 

OCTAL 

24001 

0096 

4362 

37401 

0 63/64+1 

OCTAL 

37401 

0097 


A3 6 3 ENDSUBSF  EQUALS 
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L 

executive 

USER'S  OWN  PAGE  NO,  1 

0001 

REF 

1 

4363 

SETLOC  E&PSUBSF 

R0002 

TO  ENTER  A 

JOB 

request  requiring  no  vac 

area; 

0003 

REF 

1 

4363  54  070  1 NOVAC 

TS  NeWPRIO 

SAVE  PRIORITY  OF  NEW  JOB. 

0004 

4364  0 0006  1 

extend 

0005 

REF 

71  LAST  125 

4365  5 0002  0 

INDEX  Q 

Q WILL  BE  UNDISTURBED  THROUGHOUT, 

0006 

4366  3 0001  0 

DCA  0 

2CADR  OF  JOB  ENTERED, 

0007 

REF 

1 

4367  52  073  1 

DXCH  NEWLOC 

0008 

REF 

1 

4370  3 4447  1 

CAF  EXECBANK 

0009 

REF 

28  LAST"  74 

4371  56  004  0 

XCH  FBANK 

0010 

REF 

1 

4372  54  065  0 

TS  EXECTEM1 

0011 

REF 

1 

4373  1 2242  0 

TCF  NQVAC2 

ENTER  EXECUTIVE  BANK. 

RQ012 

TO  ENTER  A 

JOB 

request  requiring  a vac 

AREA  - E*G* * ALL 

(PARTIALLY)  INTERPRETIVE  JOBS. 

0014 

REF 

2 LAST  126 

^374 

54  070 

1 FINDVAC 

TS 

NEWPRIO 

0015 

4375 

0 0006 

1 

EXTEND 

0016 

REF 

72  LAST  126 

4376 

5 0002 

0 

INDEX 

Q 

0017 

4377 

3 0001 

0 

DCA 

0 

0018 

REF 

2 LAST  126 

4400 

52  073 

1 

DXCH 

NEWLOC 

0019 

REF 

2 LAST  126 

4401 

3 4447 

1 

CAF 

EXECBANK 

-W20 

REF 

29  LAST  126 

4402 

56  004 

0 

XCH 

FBANK 

0021 

REF 

1 

4403 

1 2220 

1 

TCF 

FINDVAC2  OFF  TO  EXECUTIVE  SWITCHED-BANK. 

R0022 

TO  SUSPEND  A 

BASIC  , 

JOB  SO  A 

HIGHER  PRIORITY  JOB  MAY  BE  SERVICED: 

0024  REF  3 LAST  126  44q4  3 4447  1 CHANGj  CAF  EXECBANK 


"0025 

~ REF' 

" 20 

LAST 

125 

4405 

54  001  1 

TS  L 

0026 

REF 

73 

LA5  1 

126 

4406 

3 0002  0 

CA  Q 

0027 

REF 

9 

LAS  r 

34 

4407 

22  006  1 +3 

LXCH  BBANK 

0028 

4410 

0 000 4"0 

INHINT 

0029 

REF 

1 

4411 

1 2320  0 

TCF  CHANJOB 

WO 30  TO  5U5PEND  AN  INTERPRETIVE  ~J0BT~ 


003 1 REF  4 LAST  i26  44i2  3 4447  T CHAF1G2  CAF  EXECBANK 

0032  REF  21  LAST  126  “ 4413  54  001  1 “ TS L 

0033  REF  29  LAST  122  4414  4 0150  1 ~ tTS LCFC NEGATIVE  LOC  SHOWS  JOB  INTERPRETIVE, 

0034  REF  1 4415  1 4407  1 TCF  CHANG1  +3 


A73A23A  yJL  SySTEK  FOR  BLK2 : REVISION  12  OF  PROGRAM  AURORA  By  DAP  GROUP 

NOV  10.  1966  (MAIN)  PAGE  127 

L EX t;c  J 1 I ■ E USER1 5 OWN  PAGE  NO.  2 


PQ035  TO  VOLUNTARILY  SUSPEND  A j08  UNTIL ~THe  COMPLETION  OF  SOME  ANTICIPATED  EVENT  (I/O  EVENT  ETC.); 


0037 

REF 

30 

LAST 

126 

AA16 

54  150  1 

JOBSLEEP  TS 

LOC 

0038 

REF 

5 

LAST 

126 

AA 1 7 

3 A4A7  1 

CAF 

EXECBANK 

0039 

REF 

30 

LAST 

126 

4420 

54  OOA  1 

TS 

FBANK 

OOAO 

REF 

1 

4421 

1 2403  0 

TCF 

J0BSLP1 

R0041 


TO'  AWAKEN  a job  put  to  sleep  in  the  abovefashion: 


0042 

REF 

3 

LAST 

126 

4422 

54  072 

0 

JOBWAKE  TS 

NEWLOC 

0043 

REF 

9 

LAST 

71 

4423 

4 7656 

1 

cs 

TWO 

Exit  is  via  findvac/ngvac  procedures. 

0044 

REF 

74 

LAST 

126 

4424 

26  002 

1 

ADS 

Q 

0045 

REF 

6 

LAST 

127 

4425 

3 4447 

1 

CAF 

EXECBANK 

0046 

REF 

31 

LAS  T 

127 

4426 

56  004 

0 

XCH 

FBANK 

0047 

REF 

1 

4427 

1 2414 

0 

TCF 

J0BWAKE2 

rooab 


TO  CHANGE  THE  PRIORITY  OF  A JOB  CURRENTLY  UNDER  EXECUTION: 


0049 

4430 

0 0004 

0 

PRIOCHNG  INHINT 

NEW  PRIORITY  ARRIVES 

IN  A,  RETURNS  TO 

0050 

REF 

3 LAST  126 

4431 

54  070 

1 

TS 

NEWPRIO 

CALLER  AS  SOON  AS  NEW 

JOB  PRIORITY  IS 

0051 

ReF 

7 LAST  127 

4432 

3 4447 

1 

CAF 

EXECBANK 

HIGHEST.  PREPARE  FOR 

POSSIBLE  BASIC- 

0052 

REF 

lu  LASl  126 

4433 

56  006 

1 

XCH 

BBANK 

STYLE  CHANGE-JOB. 

0053 

REF 

8 LASl  55 

4434 

54  1 51 

0 

TS 

BANKSET 

0054 

REF 

75  LAST  127 

4435 

3 0002 

0 

CA 

Q 

0055 

REF 

1 

4436 

1 2463 

0 

TCF 

PRI0CH2 

R0056  TO  FREE  THE  DISPLAY  3EFORE  ENDOFJOB! 

0057  REF  l 4437  0 54qi  l EJFREE  TC-  FREEDSP 


R0058  TO  Remove  a JOB  FROM  EXECUnVE^CONSrPERATlONS; 


0059  REF  a LAST  127  4440  3 4447  1 ENDOFJOB  CAF  EXECBANK 

0060  REF  32  LAST  127  AAA  1 5A  004  1 TS  FBANK 

TTOST  REF  I 4442  1“2474  0 TCF  ENDjOBl 


0062 

REF 

2 LAST 

126 

4443 

3 0065  1 ENDFIND 

CA 

EXECTEMl 

RETURN  TO  CALLER  AFTER  JOB  ENTRY 

0063 

REF 

33  LAST 

127  - 

4444 

54  004  1 

T5 

FBANK 

COMPLETE. 

0064 

REF 

76  LA5I 

127 

4445 

50  002  0 

INDEX 

Q 

0065 

4446 

0 0002  0 

TC 

2 

(I 


0066  REF  2 LAST  126 


AAA7  02220  0 EXECBANK  CADR  FINDVAC2 


473423A  yjL  SYSTEM  , OR  BLK2;  REVISION  12  Of  PROGRAM  AURORA  By  PAp  GROuP 


NOV  10,  1966  MAIN)  pAGE  128 
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I 

L EXECUTIVE 

P0067  ~ locate  an  available  vac  Area, 


USER'S  OWN  PAGE  NO,  3 


0066 


REF 


01*2220 


SETLQC  END I NTS l 


0069 

REF 

3 

LAST 

127 

01,2220 

54  065 

0 

FINDVAC2  TS 

EXECTEMl 

(SAVE  CALLER'S  BANK  FIRST.) 

CO7O 

REF 

1 

01,2221 

10  431 

0 

CCS 

VAC1USE 

0071 

REF 

1 

01,2222 

1 2235 

0 

tcf 

VACFOUNq 

TT072 

REF 

1 

01,2223 

10  5O5 

0 

CCS 

VAC2USE 

0073 

REF 

2 

LAST 

128 

01,2224 

1 2235 

0 

TCF 

VACFOUND 

OO74 

REF 

1 

01,2225 

10  561 

1 

CCS 

VAC3USE 

0075 

REF 

3 

LAST 

128 

01,2226 

1 2235 

0 

TCF 

VACFOUND 

0076 

REF 

1 

01,2227 

10  635 

0 

CCS 

VAC4U5E 

0077 

REF 

4 

LAST 

128 

01,2230 

1 2235 

0 

TCF 

VACFOUND 

0078 

REF 

1 

01,2231 

10  711 

1 

CCS 

VAC5USE 

0079 

REF 

5 

LAST 

128 

01,2232 

1 2235 

0 

TCF 

VACFOUND 

0080 

REF 

3 

last 

115 

01,2233 

0 5446 

1 

TC 

ABORT 

0081 

01,2234 

01201 

0 

OCT 

1201 

NO  VAC  AREAS. 

|| 

0082 

REF  10 

LAST  127 

01,2235 

6 7656 

0 

VACFOUND  AD 

TWO 

RESERVE  THIS  VAC  AREA  BY  STORING  A ZERO 

008  3 

01,2236 

22  007 

0 

ZL 

IN  ITS  VAC  UsE  REGISTER  ANd  STORE  THE 

0084 

REF  47 

LAST  124 

01,2237 

50  000 

1 

INDEX 

A 

ADDRESS  OF  THE  FIRST  WORD  OF  IT  IN  THE 

0065 

01,2240 

2 1 ' 777 

0 

LXCH 

0 -1 

LOW  NINE  BITS  OF  THE  PRIORITY  WORD. 

~ 0086 

“ REF 4 

LAST  127 

01,2241 

26  070 

1 

ADS 

NEWPRIO 

0067  REF  34  LAST  113 


01 


2242  T~7665  0 "N0VAC2  CAF 


ZERO 


NOVAC  ENTERS  HERE.  FIND  A CORE  SET. 


0088 

RFF 

1 

01,2243 

54  071  0 

TS 

LOCCTR 

0089 

REF 

1 “ 

01,2244 

3 2251  0 

CAF 

NO, CORES 

SEVEN  SETS  UF  ELEVEN  REGISTERS  EACH, 

0090 

REF 

1 

01,2245 

54  066  0 

N0VAC3  TS 

EXECTEM2 

0091 

REF 

2 LAST  128 

01,2246  50  071  1 

twex 

LOCCTR 

0092 

REF 

1 

01,2247 

10  153  1 

CCS 

PRIORITY 

EACH  PRIORITY  REGISTER  CONTAINS  -0  IF 

0093 

REF 

1 

01,2250 

1 2311  1 

TCF 

NEXTCORE 

THE  CURRESPUNU I NG  CURt  SET  IS  AvAlLAbLE, 

0094 

01,2251 

00006  1 

NO. CORES  DEC 

6 

0095 

REF 

2 LAST  128 

01,2252 

1 2311  1 

TCF 

NEXTCORE 

AN  ACTIVE  JOB  HAS  A POSITIVE  PRIORITY 

A0096 

“BUT  A DORMANT  JOB'S  PRIORITY  IS  NEGATIVE 
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L E*ECUTIVE_  USER'S  OWN  PAGE  NO.  A 


0097 

REF 

5 

LAST 

128 

01*2253 

3 

0070 

0 

CORFOUNO  CA 

NEWPRIO 

SET  THE  PRIORITY  OF  THIS  JOB  IN  THE  CORE 

0098 

REF 

~ 3 

LAST 

128 

01,2259 

50 

071 

1 

index 

LOCCTR 

SET's  PRIORITY  REGISTER  AND  SET  THE 

0099 

REF 

2 

LAST 

128 

01,2255 

59 

153 

1 

TS 

PRIORITY 

JOB  * S PUSH-DOWN  POINTER  AT  THE  BEGINNING 

0100 

REF 

1 

01,2256 

7 

7672 

1 

MASK 

L0W9 

OF  THE  WORK  AREA  AND  OVERFLOW  INDICATOR 

0101 

REF' 

A 

LAST 

129 

01,2257 

50 

071 

1 

INDEX 

LOCCTR 

0102 

REF 

19 

LAST 

106 

01 ,2260 

59 

152 

0 

TS 

PUSHLOC 

OFF  TO  PREPARE  FOR  INTERPRETIVE  PROGRAMS 

0I$3 

REF' 

5 LAST 

129 

01,2261 

10  071 

0 

CCS 

LOCCTR 

IF  CORE  SET  ZERO  IS  BEING  LOADED,  SET  UP 

0109 

ref 

I 

01,2262 

1 2276 

1 

TCF 

SETlOC 

OVFIND  AND  FIXlOC  IMMEDIATELY  . 

0105 

REF 

11 

LAST 

118 

01,2263 

59  105 

1 

TS 

OVFIND 

0106 

REF 

20 

LAST 

129 

01,2269 

3 0152 

1 

CA 

PUSHLOC 

0107 

REF 

17 

LAST 

119 

01,2265 

59  109 

0 

TS 

FIXLOC 

0108 

REF 

2 

LAST 

35 

01,2266 

10  067 

1 

SPECTEST  CCS 

NEW JOB 

SEE  IF  ANY  ACTIVE  JOBS  WAITING  (RARE). 

0109 

REF 

2 

last 

129 

01,2267 

1 2276 

1 

TCF 

SETlOC 

must  be  awakened  but  unchanged  job. 

0110 

REF 

9 

LAS! 

122 

01,2270 

0 5969 

1 

TC 

CCSHOLE 

criii 

REF 

5 

LAST 

129 

01,2271 

0 5969 

1 

TC 

CCSHOLE 

0112 

REF 

3 

LAST 

129 

01,2272 

59  067 

1 

TS 

NEW JOB 

+0  SHOWS  ACTIVE  JOB  ALREADY  SET. 

0113 

REF 

9 

LAST 

127 

01,2273 

52  073 

1 

DXCH 

NEWLOC 

0119 

REF 

31 

LAST 

127 

01,2279 

52  151 

0 

T5XCH 

LOC 

0115 

REF 

l 

01,2275 

1 9993 

1 

TCF 

ENDFIND 

0116 

REF 

5 

LAST 

129 

01,2276 

52  073 

1 SETLOC 

DXCH 

NEWLOC 

SET  UP  THE  LOCATION  REGISTERS  FOR  THIS 

0117 

REF 

6 

LAS1 

129 

01,2277 

50  071 

1 

INDEX 

LOCCTR 

0118 

REF 

32 

LAST 

129 

01,2300 

52  151 

0 

DXCH 

LOC 

0119 

REF 

9 

LAST 

129 

01,2301 

50  067 

0 

INDEX 

NEW JOB 

THIS  INDEX  INSTRUCTION  INSURES  THAT  THE 

0120 

REF 

3 

LAST 

129 

01  ,2302 

9 0153 

1 

CS 

PRIORITY 

HIGHEST  ACTIVE  PRIORITY  WILL  BE  COMPARED 

0121 

REF 

6 

LAST 

129 

01,2303 

6 0070 

0 

AD 

NEWPRIO 

WITH  THE  NEW  PRIORITY  TO  SEE  IF  NEWJOB 

0122 

01,2309 

0 0006  1 

EXTEND 

SHOULD  BE  SET  TO  SIGNAL  A SWITCH. 

0123 

REF 

2 

LA5  T 

129 

01,2305 

6 9993 

0 

BZMF 

ENDFIND 

0129 

REF 

7 

LAST 

129 

01,2306 

3 0071 

1 

CA 

LOCCTR 

LOCCTR  IS  LEFT  SET  AT  THIS  CORE  SET  IF 

0125 

REF 

5 

LAST  129 

01,2307 

59  067' 

1 

T5 

NEWJOB 

THE  CALLER  WANT 5 TO  LOAD  ANY  MPAC 

0126 

REF 

3 

LA5  1 

129 

01,2310 

1 9993 

1 

TCF 

ENDFIND 

REGISTERS,  ETC. 

0127 

REF 

1 

01,2311 

3 2929 

1 

NEXT CORE  CAF 

CORE  INC 

0128 

REF 

8 

LAST 

129 

01,2312 

26  071 

0 

AD5 

LOCCTR 

0129 

REF 

2 

LAST 

128 

01,2313 

10  066 

0 

CCS 

EXECTEM2 

0130 

REF 

i 

01,2319 

1 2295 

1 

TCF 

NO VAC 3 

0131 

REF 

9 

LAST 

128 

01 ,2315 

0 5996 

1 

TC 

ABORT 

NO  CORE  SETS, 

0132 

C 1 , 23 1 6 

01202 

0 

OCT 

1202 
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PQ133  THE  FOLLOWING  rout J M I SWAP5~C0rE  SET  0 W iTHfRAT  WHOSE  rELATiVE  ADDrESS  IS  tN  NEWJOB . 


0135 

REF 

33 

LAST 

129 

01 

*2317 

52  151  0 -1 

OXCH 

LOC 

0136 

REF 

6 

LAST 

129 

01 

*2320 

50  067  0 CHANJOB 

INDEX 

NEW JOB 

LOC  ARRIVES  IN  A AND  BBANK  IN  L. 

0137 

REF 

34 

LAST 

130 

01 

,2321 

52  151  0 

dxch 

LOC 

0138 

REF 

35 

LAST 

130 

01 

,2322 

52  151  0 

DXCH 

LOC 

0139 

REF 

342 

LAST 

118 

01 

*2323 

52  141  1 

DXCH 

MPAC 

SWAP  MULTI-PURPOSE  ACCUMULATOR  AREAS. 

0140 

REp 

7 

last 

130 

01 

,2324 

50  067  0 

index 

newjob 

0141 

REF 

343 

last 

130 

01 

,2325 

52  141  1 

dxch 

MPAC 

0142 

REF 

344 

last 

130 

01 

,2326 

52  141  1 

dxch 

MPAC 

0143 

REF 

345 

LAST 

130 

01 

,2327 

52  143  0 

dxch 

MPAC  +2 

0144 

REF 

8 

LAST 

130 

01 

,2330 

50  067  0 

index 

NEWJOB 

0145 

REF 

346 

LAST 

130 

01 

,2331 

52  143  0 

dxch 

MPAC  +2 

0146 

REF 

347 

LAST 

130 

01 

,2332 

52  143  0 

DXCH 

MPAC  +2 

0147 

REF 

348 

LAST 

130 

01 

,2333 

52  145  0 

DXCH 

MPAC  +4 

0148 

REF 

9 

LAST 

130 

01 

,2334 

50  067  0 

INDEX 

NEWJOB 

0149 

REF 

349 

LAST 

130 

01 

,2335 

52  145  0 

DXCH 

MPAC  +4 

0150 

REF 

350 

LAST 

130 

01 

,2336 

52  145  0 

DXCH 

MPAC  +4 

0151 

REF 

351 

LAST 

130 

01 

,2337 

52  147  1 

DXCH 

MPAC  +6 

0152 

REF 

10 

LAST 

130 

01 

,2340 

50  067  0 

index 

NEWJOB 

0153 

REF 

352 

LAST 

130 

01 

,2341 

52  147  1 

dxch 

MPAC  *6 

0154 

REF 

353 

LAST 

130 

01 

,2342 

52  147  1 

DXCH 

MPAC  +6 

0155 

REF 

35 

LAST 

128 

01 

,2343 

3 7665  0 

CAF 

ZERO 

0156 

KEF 

12 

01 

,2344 

56  10  5 O' 

XCH 

OVFTNcT  " 

MAKE  PUSHLOC  NEGATIVE  IF  OVFINd  NZ. 

0157 

01 

,2345 

0 0006  1 

EXTEND 

0158 

01 

,2346 

1 2351  0 

BZF 

+ 3 

0159 

REF 

21 

LAST 

129 

01 

,2347 

4 0152  0 

C5 

PUSHLOC 

0160 

01 

♦ 2350 

54  152  0 

T5 

PUSHLOC 

0161 

REF 

23 

LAST 

130 

01 

,2351 

52  153  1 

dxch 

PUSHLOC 

0162 

REF 

11 

LAST 

130 

01 

,2352 

50  067  0 

INDEX 

NEWJOB 

0163 

REF 

24 

LAST 

130 

01 

,2353 

52  153  1 

DXCH 

PUSHLOC 

0164 

REF 

25 

LAST  130 

01 

,2354 

52  153  1 

DXCH 

PUSHLOC 

SWAPS  PUSHLOC  AND  PRIORITY, 

0165 

REF 

2 

LASI 

129 

01 

,2355 

3 7672  0 

CAF 

LQW9 

SET  FIXLOC  TO  BASE  OF  VAC  AREA, 

0166 

RcF 

4 

LAST 

129 

01 

,2356 

7 0153  1 

MASK 

PRIORITY 

0167 

REF 

10 

LAS  1 

129 

01 

,2357 

54  104  0 

T 5 

FIXLOC 

U168 

Rtr 

A6 

LA5  1 

130 

01 

,2360 

10  152  0 

CCS 

PUSHLOC 

SET  OVERFLOW  INDICATOR  ACCORDING  TO 

0169 

KtF  36  LAST  130 

“ 01 

3 7665  O 

CAF 

ZERO~ 

0170 

Ktr 

1 

01 

,2362 

1 2367  0 

TCF 

ENDPRCHG  -1 

0 1 7 1 

REF 

27 

LA5 1 

130 

01 

,2363 

4 0152  0 

cs 

PUSHLOC 

0172 

REF 

28 

LAST 

130 

01 

, 2 364 

54  152  0 

T5 

PUSHLOC 

OI73 

REF 

12 

LAST 

106 

01 

,2365 

3 7657  1 

CAF 

ONE 

OI74 

REF 

13 

LA5T 

130 

01 

,2366 

56  105  0 

XCH 

OVFIND 

0175 

REF 

12  LA5I  130 

01 *2367 

54  067  1 

rs 

NEWJOB 

v 176 

01 

,2370 

0 0003  1 ENDPRCHG 

RELINT 

0177 

REF 

36 

LAST 

130 

01 

,2371 

52  151  0 

DXCh 

LOC 

BASIC  JOBS  HAVE  POSITIVE  ADDRESSES*  SO 

^ m2 3 A YJL  SYSTEM  FOR  BL<2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10.  1966  _ (MAIN)  PAGE  131 


L executive 


USER'S  own  PAGE  NO.  6 


0178 

0179 

0180 


01  *2372  0 0006  1 EXTEND 

01.2373  6 2375  1 BZMF  +2 

01.2374  52  006  0 OTCB 


DISPATCH  * I TH  A DTC6, 

IF  INTERPRETIVE,  SET  UP  EBANK,  etc. 


47342 3 A YJL  SYSTEM  FOK  BL<2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10,  1966  (MAIN)  PAGE  132 


L EXECUTIVE  _ USER'S  OWN  PAGE  NO* 7 


0181 

_ 01*2375 

4 0000  0 

COM 

EPILOGUE  TO  JOB  CHANGE  FOR  INTERPRETIVE 

0182 

REF 

13 

LAST 

130 

01,2376 

6 7657  1 

AD 

ONE 

0183 

REF 

37 

LAST 

130 

01,2377 

54  150  1 

TS 

LOC  RESUME. 

0184 

REF 

1 

01,2400 

3 6232  i 

CAF 

FBANKMSK 

0185 

REF 

22 

LAST 

126 

01,2401 

7 0001  1 

MASK 

L 

0186 

REF 

1 

01,2402 

1 6011  0 

TCF 

INTRSM 

R0187  COMPLETE  JOBSLEEP  PREPARATIONS. 


0188 

01*2403 

0 0004 

0 

J0BSLP1 

INHINT 

0189 

ref 

5 

LAsT  130 

01,2404 

4 0153 

1 

cs 

PRIORITY 

NNZ  PRIORITY  SHOWS  JOB  AsLEEp. 

0190 

REF 

6 

LAST  132 

01,2405 

54.  153 

1 

1 S 

PRIORITY 

0191 

REF 

3 

LAST  73 

01,2406 

3 6027 

1 

CAF 

L0W7 

0192 

REF 

11 

LAST  127 

01,2407 

7 0006 

0 

MASK 

BBANK 

0193 

REF 

9 

LAST  127 

01,2410 

54  151 

0 

TS 

BANKSET 

0194 

REF 

37 

LAST  130 

01,2411 

4 7665 

1 

CS 

ZERO 

0195 

REF 

70 

LAST  109 

01,2412 

54  115 

0 

J06SLP2 

rs~ 

BUF  +1 

HOLDS  - HIGHEST  PRIORITY. 

0196 

REF 

1 

01,2413 

1 2504 

0 

TCF 

EJSCAN 

SCAN  FOR  HIGHEST  PRIORITY  ALA  ENDOFJOB, 

I 


— *1 


473423A  YJL  SYSTEM  FCK  ELK2 ! REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  133 


EXECUTIVE 


user  * s oa\  page  no.  e 


P0197  TO  WAKE  UP  A JOB,  EACH.  CORE  SET  IS  FOUND  TO  LOCATE  ALL  JOBS  WHICH  ARE  ASLEEP.  IF  THE  FCADR  IN  THE 

-R0199 □JC_TTEG1STER“0F~ANY  SUCH  JOB  MATCHES  THAT  SUPPLIED  BY  THE  CALLER,  THAT  J06  IS  AWAKENED.  IF  NO  JOB  IS  FOJNO, 

R0201  LOCCTR  IS  StT  TO  -1  AND  NO  FURTHER  ACTION  TAKES  PLACE. 


0202 

REF 

4 

LAST 

128 

01,2414 

54  065  0 

J0BWAKE2 

TS 

EXECTEM1 

0203 

REF 

38 

last 

132 

01,2415 

3 7665  0 

CAF 

ZERO 

BEGIN  CORE  SET  SCAN. 

0204 

REF 

9 

LAST 

129 

01,2416 

54  071  0 

TS 

LOCCTR 

0205 

REF 

2 

LAST” 

128 

01,2417 

3 2251  0 

CAF 

NO. CORES 

0206 

REF 

3 

LAST 

129 

01,2420 

54  066  0 

J0BWAKE4 

TS 

EXECTEM2 

0207 

REF 

10 

LAST 

133 

01,2421 

50  071  1 

INDEX 

LOCCTR 

0208 

REF 

7 

LAST 

132 

01,2422 

10  153  1 

CCS 

PRIORITY 

0209 

REF 

1 

01,2423 

1 2426  1 

TCF 

J0BWAKE3 

ACTIVE  JOB  - CHECK  NEXT  CORE  SET. 

0210 

01,2424 

00014  1 

COREINC 

DEC 

12 

12  REGISTERS  PER  CORE  SET. 

0211 

REF 

1 

”01  ,2425 

1 2435  0 

TCF 

WAKETEST 

SLEEPING  JOB  - SEE  IF  CADR  MATCHES. 

0212 

REF 

2 LAST  129 

01*2426 

3 2424  1 

J0BWAKE3  CAF 

COREINC 

0213 

ref 

11  LAST  133 

01,2427 

26  071  0 

ads 

LOCCTR 

0214 

REF 

4 LAST  133 

01,2430 

10  066  0 

CCS 

EXECTEM2 

0215 

REF 

1 

01,2431 

1 2420  1 

TCF 

J08WAKE4 

0216 

REF 

14  LAST  132 

01,2432 

4 7657 

CS 

ONE 

EXIT  IF  SLEEPING  JOB  NOT  FOUND. 

0217 

REF 

12  LA5T  133 

01,2433 

54  071  0 

TS 

LOCCTR 

0218 

REF 

4 LAST  129 

01,2434 

1 4443  1 

TCF 

ENDFIND 

0219 

REF 

6 

LAST 

129 

01,2435 

4 0072  0 WAKETEST 

CS 

NEWLOC 

0220 

REF 

13 

LAST 

133 

01,2436 

50  071  1 

INDEX 

LOCCTR 

0221 

REF 

38 

LAST 

1 32 

D I, 2437 

6 0150  0" 

AD 

LOC 

0222 

01,2440 

0 0006  1 

EXTEND 

0223 

01,2441 

1 2443  1 

BZF 

+ 2 

IF  MATCH. 

0224 

REF"" 

2 

LA5T 

133 

01,2442 

1 2426  1 

TCF 

J0BWAKE3 

EXAMINE  NEXT  CORE  SET  IF  NO  MATCH. 

U225 

REF 

14 

LAST 

133 

01,2443 

50  O7I  1 

INDEX 

LOCCTR 

RE-COMPLEMENT  PRIORITY  TO  SHOW  JOB  AWAKE 

0226 

REF 

8 

LAST 

133 

01 ,2444 

4 0153  1 

CS 

PRIORITY 

0227 

REF 

7 

LAST 

129 

01,2445 

54  070  1 

TS 

NEWPRIO 

0228 

REF 

1 5 

LAST 

133 

01,2446 

50  071  1 

INDEX 

LOCCTR 

0229 

REF 

V 

LAST 

133 

01 ,2447 

54  153  1 

TS 

PRIORITY 

0230 

REF 

2 

LAST 

132 

01,2450 

4 6232  0 

CS 

FBANKM5K 

MAKE  UP  THE  2CADR  OF  THE  WAKE  ADDRESS 

0231 

REF" 

1 

LAST" 

133 

01 ,2451 

7 0072  0 

“ MASK" 

" NEWLOC 

USING  THE  CADR  INNEWLOC  AND  THE  EBANKT 

0232 

REF 

4 

LAS  t 

5^ 

01 ,2452 

6 7645  1 

AD 

2K 

HALF  OF  BBANk  SAVED  IN  BANKSET, 

0233 

REF 

8 

LAST 

133 

01,2453 

56  072  1 

XCH 

NEWLOC 

0234 

REF 

3 

Last 

133 

01  ,2454 

7 6232  0 

MA5K 

FBANKMSK 

0235 

REF 

1 6 

LAST 

133 

01 ,2455 

50  071  1 

INDEX 

LOCCTR 

0236 

REF 

10 

LAST 

132 

01 * 2 6 

6 0151  1 

AD 

BANK5ET 

0238  REF 

0239  ~R£F 

0240  REF 


17  LAST  133 
3 LAST  "129 
1 


01 

XT. 

01 


2460 

2461 

2462 


10  071  0 
1 2276  1 
1 2266  0 


CCS  LOCCTR 

"TCF SETLOC 

TCF  SPECTEST 


SPECIAL  TREATMENT  IF  THIS  JOB  WAS 
"ALHEADY "TTT  TFTE  RUN"  (0)  POSITION, 


I 


473423A  YUL  SYSTEM  FOR  BLK2 J REVISION  12  6F  PROGRAM  AURORA.  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  134 


L EXECUTIVE  7 USER'S  OWN  PAGE  NO,  ~ 9 


P0241 

priority 

CHANGE.  CHA'TGe  THe  CONTENTS  of 

priority  and  scan 

FOR  THe  UOB  OF  HIGHfSt  PRIORITY. 

0243 

REF 

39 

LAST 

133 

01,2463 

54  150  1 PRIOCH2 

TS 

LOC 

0244 

REF 

39 

last 

133 

01,2464 

3 7665  0 

cap 

ZERO 

SET  FLAG  TO  TELL  ENdJOB  SCANNER  IF  THIS 

0245 

REF 

71 

LAST 

132 

01,2465 

54  114  1 

TS 

BUF 

JOB  IS  STILL  HIGHEST  PRIORITY. 

0246 

REF 

3 

LAST 

130 

01,2466 

3 7672  0 

CAF 

LOW  9 

0247 

REF 

10 

LAST 

133 

01,2467 

7 0153  1 

MASK 

PRIORITY 

0248 

REF 

8 

LAST 

133 

01,2470 

6 0070  0 

AD 

NEWPRIO 

0249 

REF 

11 

LAST 

134 

01,2471 

54  153  1 

TS 

PRIORITY 

0250 

01,2472 

4 0000  0 

COM 

0251 

REF 

1 

01,2473 

1 2 4 i 2 0 

TCF 

J0BSLP2 

AND  TO  EJSCAN, 

473423A  Y JL  SYSTEM  FOR  BU2:  REVISION)  12  OF  PROGRAM  AURORA  BY  DaP  GROUP 


mov  io*  1966  (Main)  page  i 35 


% 


% 


L EXECUTIVE  _ _ _ USER'S  OWN  PAGE  NO.  10 

% 

" P0252  RELEASE  THiS  COrL  SET  AND  VAC  ArE3~ANP  SCAN  FOfTTHE  JOB  OF  HIGHEST  ACTIVE  PrTORiTY. 


% 

0254 

01,2474 

0 0004 

0 ENDJ0B1 

INHINT 

0255 

REF 

40 

LAST 

134 

01,2475 

4 7665 

1 

CS 

ZERO 

0256 

REF 

72 

LASr 

134 

01  ,2476 

54  115 

u 

TS 

BUF  *1 

% 

0257 

REF 

12 

LAST 

134 

01,2477 

56  153 

0 

XCH 

PRIORITY 

0258 

REF 

4 

LAST 

134 

01,2500 

7 7672 

1 

MASK 

L0W9 

0259 

REF 

48 

LAST 

128 

01,2501 

10  000 

0 

CCS 

A 

% 

0260 

REF 

49 

LAST 

135 

01,2502 

50  000 

1 

INDEX 

A 

0261 

01,2503 

54  000 

0 

TS 

0 

0262 

REF 

13 

LAST 

135 

01,2504 

10  167  0 EJSCAN 

CCS 

PRIORITY  + 12D 

0263 

REF 

1 

01,2505 

0 2551  1 

TC 

EJ1 

0264 

REF 

6 

LAST 

129 

01  ,2506 

0 5464  1 

TC 

CCSHOLE 

0265 

01,2507 

1 2510  0 

TCF 

♦ 1 

0266 

REF 

14 

LAST 

135 

01,2510 

10  203 

1 

CCS 

PRIORITY  +24D 

EXAMINE  EACH  PRIORITY  REGISTER  TO  FIND 

0267 

REF 

2 

LAST 

135 

01,2511 

0 2551 

1 

TC 

EU1 

the  job  of  highest  active  priority. 

0268 

REF 

7 

LAST 

135 

01,2512 

0 5464 

1 

TC 

CCSHOLE 

0269 

01,2513 

1 2514 

1 

TCF 

+ 1 

0270 

REF 

15 

LAST 

135 

01,2514 

10  217 

1 

CCS 

PRIORITY  + 36D 

0271 

REF 

3 

LAST 

135  ~ 

01,2515 

0 2551 

1 

TC 

EJl 

0272 

REF 

16 

LA5T 

135 

01,2516 

67  624 

0 -CCSPR 

-CCS 

PRIORITY 

0273 

01,2517 

1 2520 

0 

TCF 

♦1 

0274  REF  17  LAST  135 

0275  REF  A LAST  135 

0276  REF  8 tAST  135 

0277 

0278  REF  18  LAST  135 

0279  REF  5 LAST  135 

0280  REF  9 LAST  135 

0281  — 


0282  REF  19  LAST  135 

0283  REF  5“ LAST  135 
0204  REF  10  LAST  135 
0285 


01.2520 

01.2521 

01.2522 


01 


2523 


TJT*2524 

01.2525 

01.2526 

01.2527 


01 

or 

01 

01 


2530 

253T 

2532 

2533 


10  233  1 
0 2551  1 

0 5464  1 

1 2524  1 


10  247  1 - 
0 2551  1 

0 5464  1 

1 2530  r 


10  263  1 
0 255T  F 

0 5464  1 

1 2534  0 


CCS  PRIORITY  + 48D 
TC  EJ1 

TC  CCS HOLE  ’ 

TCF  *1 


CCS  PRIORITY  +60D 
TXT  EJ1 

TC  CCSHOLE 

TCF  +1 


CCS  PRIORITY  +72D 

TC EJI 

TC  CCSHOLE 

TCF  +1 


* 


% 


473423A  YjL  SYSTEM  FOR  BLK.2 : REVISION  12  Op  PROGRAM  AURORA  By  DAP  GROUP 


NOv  10.  1966  (MAIN)  PAGE  136 


L 

P0286 


EXECui IVE 


USER’S  0*N  PAGE  NO, U_ 


e v aluate  the  results  of  the  scan. 


0287 

REF 

73 

LAST 

135 

01,2534 

10  115 

0 

CCS 

BUF  +1 

SEE  IF  THERE  ARE  ANY 

ACTIVE  JOBS  WAITING 

0288 

REF 

11 

LAST 

135 

01,2535 

0 5464 

1 

TC 

CCSHOLE 

0289 

_ REF" 

12 

last 

136 

01,2536 

0 5464 

1 

TC 

CCSHOLE 

0290 

01,2537 

1 2541 

1 

TCF 

+ 2 

0291 

REF 

1 

01,2540 

1 4450 

0 

TCF 

DUMMY JOB 

0292 

REF 

74 

LAST 

136 

01,2541 

10  114 

1 

CCS 

BUF 

BUF  IS  ZERO  IF  THIS 

IS  A PRIOCHNG  AND 

0293 

01,2542 

1 2544 

1 

TCF 

♦ 2 

CHANGED  PRIORITY  IS 

STILL  HIGHEST. 

0294 

REF 

2 

LAST 

130 

01,2543 

1 2370 

0 

TCF 

ENDPRCHG 

0295 

REF 

50  LAST 

135 

01,2544 

50  000  1 

INDEX 

A 

OTHERWISE, 

SET 

NEWJOB  TO  THE  RELATIVE 

0296 

01,2545 

2’ 7777  0 

CAF 

0 -1 

ADDRESS  OF 

THE 

NEW  JOB'S  CORE  SET. 

0297 

REF 

1 

01.2546 

6 2516  1 

AD 

-CC5PR 

0298 

ref 

13  LAST 

130 

01,2547 

54  067  1 

TS 

newjob 

0299 

REF 

2 LAST 

126 

01,2550 

1 2317  1 

TCF 

CHANJ0B  -1 

0300 

REF 

75 

LAST 

136 

01,2551 

54  1 1 6 

0 

EJ1 

TS 

BUF 

+ 2 

0301 

last 

136 

01,2552  6 0115 

1 

ad 

BUF 

+ 1 

- OLD  high  priority. 

0302 

REF 

51 

LAST 

136 

01,2553 

10  000 

0 

CCS 

A 

0303 

REF 

77 

LAST 

136 

01  ,2554 

4 0116 

0 

cs 

BUF 

♦ 2 

10304 

REF 

1 

01,2555 

1 2561 

0 

TCF 

EJ2 

NEW  HIGH  PRIORITY. 

0305 

01,2556 

1 2557 

0 

NOOP 

0306 

REF 

77 

LAST 

127 

01,2557 

50  002 

0 

INDEX 

Q ~ 

0307 

01,2560 

0 0002 

0 

TC 

2 

PROCEED  WITH  SEARCH. 

0308 

REF 

78 

LAST 

136 

01,2561 

54  115 

0 

EJ2 

TS 

BUF 

+ 1 

0309 

01,2562 

0 0006 

1 

EXTEND 

0310 

REF 

79 

LA5  1 

136 

01,2563 

22  114 

0 

3XCH 

BUF 

FOR  LOCATING  CCS  PRIORITY  + x INSTR. 

0311 

REF 

80 

LAST 

136 

01,2564 

50  114 

0 

INDEX 

BUF 

73312 

01,2565 

0 0002 

~0 

"TC 

2 

0313 


01.2566  ENDEXECS  EQUALS 


« 


% 


473423A  YJL  SYSTEM  FOR  6LK2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10,  1966  ( MAIN)  PAGE.  137 


L EXECUT IVE  ~ / ___  ___  _ _ _ USER'S  OWN  PAGE  NO*  12 

P0314  I DUNS  AND  COMPUTER  ACTIVITY  (GReeN)  LIGHT  MAINTENANCE.  THE  IDLING  ROUTINE  IS  NOT  A DOB  IN  ITSELF* 

R0316  BJT  RATfiER  A SUBROUTINE  OF  THE  EXECUTIVE. 


0317  REF  9 LAST  127 4450  SETLQC  EXECBANK  +1 

0316  REF  1 E2  "EBANks  SELFRET  SELF-CHECr  STORAGE  IN  EBAN|<. 


0319 

REF 

41 

LrtSl 

135 

4450 

4 7665 

1 

DUMMYJOB  CS  ZERO 

SET  NEW JOB  TO  -0  FOR  IDLING. 

0320 

ref 

14 

LAST 

136 

4451 

54  067 

1 

TS  NEW JOB 

0321 

4452 

0 0003 

1 

RELINT 

0322 

REF 

11 

LAST 

128 

4453 

4 7656 

1 

TWO 

TURN  OFF  THE  ACTIVITY  LIGhT. 

0323 

4454 

0 0006 

1 

EXTEND 

0324 

REF 

1 

4455 

03  Oil 

1 

WAND  DSALMOUT 

0325 

REF 

I 

4456 

1 4461 

1 

TCF  CHECKNJ  +2 

0326 

4457 

0 0006 

1 

CHECKNJ 

EXTEND 

special  new job  test  for  self-check* 

0327 

REF 

2 

LAsT^137 

4460 

23*360  0 

3XCH 

SELFRET 

which  RUNs  under  executive  control* 

0328 

REF 

15 

LA5T  137 

4461 

10  067 

1 

+ 2 

CCS 

NEW JOB 

BUT  DOES  NOT  HAVE  A JOBS  CORE  REGISTERS, 

0329 

REF 

1 

4462 

1 4474 

0 

TCF 

NUCHANGE 

NEW  JOB  REQUIRING  A CHANGE  JOB, 

0330 

REF 

T2 

LAST  137 

4463 

3 7656 

0 

CAF 

TWO 

NEW  JOB  ALREADY  IN  POSITION  FOR 

0331 

REF 

1 

4464 

1 4470 

1 

TCF 

NUDIRECT 

EXECUTION. 

0332 

REF 

4465 

3 4503 

0 ADVAN 

CAF 

SELFBANK 

(SIMULATOR  ADVAN  IF  NEWJOB  = 77777). 

0333 

ref 

12 

last 

132 

4466 

54  006 

0 

TS 

bbank 

0334 

REF 

3 

LAST 

137 

4467 

0 1360 

0 

TC 

SELFRET 

0335 

4470 

0 0006 

1 

NUDIRECT  EXTEND 

TURN  THE  GREEN  LIGHT 

BACK  ON. 

0336 

REF 

2 LAST 

137 

4471 

05  Oil 

1 

WOK 

DSALMOUT 

0337 

REF^ 

40  LAST 

134 

4472 

52  151 

(T 

~DXCH 

LOC 

JOBS  STARTED  IN  THIS 

FASHION  MUST 

0338 

4473 

52  006 

0 

DTCB 

BASIC. 

0339 

REF 

13 

LAST  137 

4474 

3 7656 

0 

NUCHANGE 

CAF  TWO 

0340 

4475 

0 0006 

1 

EXTEND 

0341 

REF 

3 

LAST  137 

4476 

05  Oil 

1 

WOR  DSALMOUT 

0342 

REF 

10 

LA5TTT? 

4477 

3 4447 

1 

CAF  EXECBANK 

SWAP  CORE  SETS, 

0343 

REF 

34 

LAST  127 

4500 

54  004 

1 

TS  FBANK 

0344 

4501 

0 0004 

0 

INHINT 

CHANGE  JOBS 

0345 

REF 

3 

LAST  136 

4502 

1 2317 

1 

TCF  CHANJOB  -1 

U346 

Rth 

1 

4503 

40002 

1 

5ELFBANK 

BBCON  SELFCHK 

473423A  YJL  SYSTEM  FOR  bLK2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOy  10,  1966 


(MAIN) 


PAGE  138 


L 

EXECUTIVE 

USER'S  OWN  PAGE  NO.  13 

P0347 

priority 

constants 

(MOTE  IN  FIXED-FIXED) 

' • 

0348 

REF 

4 LAST  86 

7646 

PRI01 

EQUALS 

BIT10 

0349 

REF 

4 LAST  124 

7645 

PRI02 

EQUALS 

BiTll 

0350 

4504 

03000  1 

PR  1 03 

OCT 

03000 

0351 

REF 

2 LAST  124 

7644 

PR  1 04 

EQUALS 

BIT12 

0352 

4505 

05000  1 

PRI05 

OCT 

O5OOO 

0353 

4506 

06000  1 

PRI06 

OCT 

06000 

0354 

4507 

07000  0 

PRI07 

OCT 

07000 

0355 

REF 

3 LAST  122 

7643 

PRI010 

EQUALS 

B I T 1 3 

0356 

4510 

11000  1 

PR  1 01 1 

OCT 

11000 

0357 

4511 

12000  1 

PRI012 

OCT 

12000 

0358 

4512 

13000  0 

PRI013 

OCT 

13000 

0359 

4513 

14000  1 

PRI014 

OCT 

14000 

0360 

4514 

15000  0 

PRI015 

OCT 

15000 

0361 

4515 

16000  0 

PRI016 

OCT 

16000 

0362 

4516 

17000  1 

PRI017 

OCT 

17000 

0363 

REF 

8 LAST  115 

7642 

PRI020 

EQUALS 

BIT14 

0364 

4517 

21000  1 

PR  1 02 1 

OCT 

21000 

~0365 

4520 

22000  1 

PR  1022 

OCT 

22000 

0366 

4521 

23000  0 

PR  1023 

OCT 

23000 

0367 

4522 

24000  1 

PRI024 

OCT 

24000 

0368 

4523 

25000  0 

PRI025 

OCT 

25000 

0369 

4524 

26000  0 

PRI026 

OCT 

26000 

0370 

4525 

27000  1 

PRI027 

OCT 

27000 

0371 

4526 

30000  1 

P R 1 0 3 0 

10CT 

30000 

0372 

4527 

31000  0 

PR  1 03 1 

OCT 

31000 

0373 

4530 

32000  0 

PR  1 032 

OCT 

32000 

0374 

4531 

33000  1 

WT033 

UCT 

33000 

0375 

4532 

34000  0 

PRI034 

OCT  34000 

0376 

4533 

35000  1 

PR  1035 

OCT 

35000 

0377 

4534 

36000  1 

PR1036 

OCT 

36000 

0378 

4535 

37000  0 

PRI037 

OCT 

37000 

0379 

4536 

ENDEXECF 

equals 

473423A  Y JL  SYSTEM  FOR  BL<2 i REVISION  1 2 OF  PROGRAM"  AURORA  BY  DAP  GROUP 
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L WAITLIST  ' 7 __  _ _____  __  __  _ _ _ _ _ USER'S.  OWN  PAGE  NO*  1 

R0001  GROUN0RULE...,DELTA''TTHOQLir^T~EXCEEP~i20W~(^~  2 MINUTES) 

0002  REE  1 4536  SETLOC"" ENDEXECF 


0003  REF  3 LAST  28  E3  E BANKs  LSTl  TASK  LISTS  IN  SWITCHED  E BANK. 


0004 

REF 

78 

LAST  136 

4536 

56  002 

0 

WAITLIST 

XCH 

Q 

SAVE  DELTA  T IN  Q AND  RETURN  IN 

0005 

REF 

1 

4537 

54  065 

0 

TS 

WAITEXIT 

WAITEXIT. 

0006 

4540 

0 0006 

1 

EXTEND 

0007 

REF 

52 

LAST  136 

4541 

5 0000 

1 

INDEX 

A 

0008 

4542 

3 0001 

0 

DCA 

0 

PICK  UP  2CADR  OF  TASK. 

0009 

REF 

1 

4543 

54  070 

1 

TS 

WA1TADR 

BBCON  WILL  REMAIN  IN  L. 

0010 

REF 

1 

4544 

3 4553 

0 

DLY2 

CAF 

WAITBB 

ENTRY  FROM  FIXDELAY  AND  VARDELAY. 

0011 

REF 

13 

LAST  137 

4545 

56  006 

1 

XCR 

BBANK 

0012 

REF 

1 

4546 

1 2566 

1 

TCF 

WAIT2 

R0013 
OOl  A 


0015 

0016 
0017 


REF  l 
REF  TA 
REF  2 


return  to  caller  after  task  insertion: 
LAST  139 


LA5T  139 


4547 
A550 
A55 1 
A552 


3 0066  1 
54  006  0 


LVWTLIST  CA 
TS~ 


WA If BANK 


50  065  1 
0 0002  0 


INDEX 

TC 


BBANK 
WAITEXIT 
2 


0018 

R0019 

0020 

0021 

0022 

R0023 


REF  2 LAST  139 


4553  02003  0 WAITBB  BBCON  WAIT2 


REF  79 
REF  80 


RETURN  TO  CALLER  +2  AFTER  WAITING  DT  SPECIFIED  AT  CALLER  +1. 
LAST  139 
LAST  139 


4554  50  002  0 FIxDELAy  INDEX  Q 

A555  3 0000  1 CAP  0“ 

4556  24-  002  D “TNCR  “IT 


BOTH  ROUTINES  MUST  BE  CALLED  UNDER 
WAITLIST  CONTROL  AND  TERMINATE  THE  TASK 
IN  WHICH  THEY  WERE  CALLED. 


RETURN  TO  CALLER  +1  AFTER  WAITING  THE  DT  AS  ARRIVING  IN  A. 


0024 

REF 

61  LAST  139 

4557 

56  002 

0 

VARDELAY  xCH 

Q 

DT  TO  Q,  TASk  ADRES  TO  WAITADR, 

0025 

REF 

2 LAST  139 

4560 

54  070 

1 

TS 

WAIT ADR 

0026 

REF 

15  LAST  139 

4561 

3 0006 

I 

CA 

BBANK 

BBANK  IS  SAVED  DURING  DELAY. 

0027 

REF 

23  LAST  132 

4562 

54  001 

1 

TS 

L 

0028 

REF 

1 

4563 

3 4566 

0 

™CAF~ 

DtLAYEX 

0029 

REF 

3 LAST  139 

4564 

54  065 

0 

TS 

WAITEXIT 

GO  TO  TASKOVER  AFTER  TASK  ENTRY, 

0030 

REF 

1 

4565 

1 4544 

1 

TCF 

DLY2 

UU31 

KtF 

1 

4566 

1 4600 

I 

DELAYEX  TCF 

TA5K0VER  -2 

RETURNS  TO  TASKOVER 

473423A  YUlJ  SYSTEM  pOR  BLK2 : REVISION  12  Op  PROGRAM  AURORA.  BV  DAP.  GRB11P 
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L 

WAITLIST 

USER'S  OWN  PAGE  NO.  2 

R0032 

EmDTASK  must 

BE  ENTERED 

IN  F i XED^r iXED 

SO  IT  IS 

distinguishable  by 

ITS  ADRtS  ALOfyjtt 

0034 

4567 

73206  1 

ENDTASK 

-2CADR 

SVCT3 

C0034 

REF 

1 

4570 

73774  1 

003  5 

REF 

3 LAST 

121 

4571 

10  063  0 

SVCT3 

CCS 

STATE  +2 

drift  flag 

00351 

REF 

2 LAST 

139 

4572 

1 4602  0 

TCF 

TASKOVER 

00352 

REF 

3 LAST 

140 

4573 

1 4602  0 

TCF 

taskover 

00353 

4574 

1 4575  0 

TCF 

+1 

00354 

REF 

1 

4575 

3 4533  0 

CAF 

PRI035 

COMPENSATE  FOR  NBD  COEFFICIENTS  ONLY 

00355 

REF 

1 

4576 

0 4363  0 

TC 

NOVAC 

enable  every  8 1.93  seconds 

00356 

4577 

02257  0 

2CADR 

NBDONLY 

ebank  is  set  TO  3 

C00356 

REF 

1 

4600 

16003  0 

00357 

REF  ' 

4 LAST  140 

4601 

1 4602  0 

TCF 

TASKOVER 

473423A  YJL  SYSTEM  F OR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

P0036 


WAITLIST 


USER'S  OWN  PAGE  NO. 


BEGIN  TASK  INSERTION, 


0037 

REF 

1 

01,2566 

5ETL0C 

ENDEXECS 

0038 

REF 

2 LAST  139 

01,2566 

54  066  0 WAIT2 

TS 

waitbank 

BBANk  OF  CALLING  PROGRAM. 

0039 

REF 

1 

01 ,2567 

4 0026  1 

CS 

TIME3 

0040 

01,2570 

6 2571  0 

AD 

♦ 1 

CCS  A = + 1/4 

A0042 

A0043 

A0044 


it  means  that  time3  overflow  has  occurred  prior  to  cs 

C (TIME3)  = T - T 1 . INSTEAD  OF  1.0  - (T1  - T) . 

ORDERS  SET  C(A">  = TD  - T1  ♦ 1 IN  EITHER  CASE. 


TIME 3 AND  THAT 
THE  FOLLOWING  FOUR 


0095  REF  2 LAST  77  01*2572  6 6092  1 AD  0CT40001  OVERFLOW  HAS  OCCURRED.  SET  C ( A)  = 

0096  REF  59  LAST  191  01,2573  9 0000  C CS  A T - T1  + 3/4  - 1 

R0047 NORMAL  CASE  <C(A)  MINUS)  YIELDS  SAME  C(A)  - (- ( 1 »0~ (Tl-T) ) *1/4) -1 


0048  REF  1 01,2574  6 2722  1 AD  0CT50001 

0049  REF  62  LAST  139  01,2575  6 0002HQ—  AD  ~ Q RESULT  = T D - T 1 + 1. 

0050  REF  55  LAST  141  01,2576  10  000  0 CCS  AT~  TEST  TD  - T1  + 1 


0051  REF  4 LAST  139  01,2577  6 1400  1 AD  LST1  IF  TD  - T1  POS,  GO  TO  WTLST5  WITH 

0052  REF  1 01,2600  1 2642  1 TCF  WTLST5  “TTO  = (TD  - Tl)  + C(LST1)  = TD-T2+1 


0053  01,2601  1 2602  0 NOOp 

0054  REF  63  LAST  141  01,2602  4 0002~r  ~CS Q 


R0055  NOTE  THAT  THIS  PROGRAM  SECTION-  IS  NEVER  ENTERED  WHEN  T-Tl  G/E  -1, 

R0056  SINCE  TC-T1+1  = (TD-T)  + (T-Tl+1),  AND  DELTA  T = TD-T  G/E  +1  . ~<G/E 

R0057  SYMBOL  MEANS  GREATER  THAN  OR  EQJAL  TO).  THUS  THERE  NEED  BE  NO  CON- 
R0058  CERN  OVER  A PREVIOUS"  OR  IMMINENT  OVERFLOVTOF  TIME 3 THERE, — 


0059 

REF  1 

01,2603 

6 7642  0 

AD 

P0S1/2 

WHEN  TD  IS  NEXT  t FORM  QUANTITY 

0060 

REF  2 LA5T  141 

01,2604  6 7642  0 

AD 

POsl/2 

1.0  - DELTA  T = 1.0  - (Td  - T) 

0061 

REF  2 LAST  141 

0 i ♦ 2605 

56  026  0 

XCH 

T1ME3 

0062 

REF  1 

01, 2606 

6 7641  0 

AD 

NEGMAX 

0063 

REF  TT4  LAST  141 

01, 260 ( 

6 0002  0 “ 

AD 

13 

1.0  - DELTATT"  NOW  COMPLETE. 

00fe4 

01,2610 

0 0006  1 

EXTEND 

ZtRO  INDEX  Q. 

0065 

0 1 , 26 1 1 

22  007  0 

3XCH 

7 

(ZQ) 

473423A  YJL  SYSTEM  FOR  BL<2:  REVISION)  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L WAITLIST 


USER’S  OWN  RASE  NO- 4 


0066 

REF 

5 

LAST 

141 

01,2612  57*400  1 

WTLST4  XCH 

LSTl 

0067 

REF 

6 

last 

142 

Oi ,2613  57*401  0 

XCH 

LST 1 +1 

0068 

REF 

7 

LAST 

142 

01*2614  57*402  0 

XCH 

LSTl  +2 

0069 

REF 

8 

LAST 

142 

01,2615  57*403  1 

XCH 

LSTl  +3 

WTO 

REF 

9 

Last 

142 

01,2616  57*404  0 

XCH 

LSTl  +4 

0071 

REF 

10 

last 

142 

01,2617  57*405  1 

XCH 

LSTl  +5 

OO72 

REF 

H 

last 

142 

01*2620  57*406  1 

XCH 

LSTl  +6 

~ 0073  ~ 

REF 

12 

last 

142 

01,2621  57*407  0 

XCH 

LStl  +7 

0074 

REF 

3 

LASl 

139 

01,2622  3 0070  0 

CA 

WAITAOR  (MINOR  PART  OF  TASK  CADR  HAS  BEEN  IN  L.) 

0075 

REF 

85  LAST  141 

01,2623  50  002  0 

INDEX 

Q 

0076 

01,2624  1 2625  0 

TCF 

+ 1 

0077 

REF 

1 

01,2625 

53*411 

0 

DXCH 

L5T  2 

OO78 

REF 

2 LAST  142 

01,2626 

53*413 

1 

DXCH 

LST  2 +2 

0079 

REf 

3 LAST  142 

01,2627 

53*415 

1 

DXCH 

LST  2 +4 

0080 

REF 

4 LAST  142 

01,2630 

53*417 

0 

DXCH 

LST  2 +6 

0081 

REF 

5 LAST  142 

01,2631 

53*421 

0 

DXCH 

LST  2 +8D 

0082 

REF 

6 Last  142 

01*2632 

53*423 

1 

DXCH 

LST  2 +10D 

AT  ENC 

, CHECK  THAT  C(LST2*10)  IS  STD 

0083 

REF 

7 LAST  142 

01,2633 

53*425 

1 

DXCH 

LST2  + 1 2D 

0084 

REF 

8 LAST  142 

01,2634 

53*427 

0 

DXCH 

LST  2 +14D 

0085 

REF 

9 LAST  142 

01,2635 

53*431 

1 

DXCH 

LST2  +16D 

0086 

REF 

1 

01*2636 

6 4567 

I 

ATT 

"ENDTASK 

END 

ITEM,  AS  CHECK  FOR  EXCEEDING 

A0087 

THE 

LENGTH  Up  THE  LIST. 

0088 

01*2637 

0 0006 

1 

EXTEND 

DUMMY 

TA5K  ADRE5  SHOULD  BE  IN  FIXED- 

0089 

REF 

1 

TF1 ,2640 

1 4547 

1 

3ZF 

LVWTLIST 

F I XED 

SO  ITS  ADRES  ALONE  DISTINGUISHES 

0090 

REF 

1 

01,2641 

1 2715 

1 

TCF 

WT  ABORT 

IT. 

I 
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L WAITLIST  USER'S  OWN  PAGE  NO.  5 


0091 

ref 

56 

LAST 

141 

01,2642 

10  000  0 wtlsts 

CCS 

A 

TEST  TD  - T2  ♦ 1 

0092 

REF 

13 

LAST 

142 

01,2643 

6 1401  0 

AD 

LST 1 +1 

0093 

01,2644 

1 2650  1 

TCF 

♦4 

OO94 

REF 

15 

LAST 

133 

01,2645 

6 7657  1 

AD 

ONE 

0095 

REF 

1 

01,2646 

0 2723  0 

TC 

WTLST2 

0096 

01,2647 

00001  0 

OCT 

1 

0097 

REF 

57 

LAST 

143 

01  ,2650 

10  000 

0 +4 

CCS 

A 

TEST  TD  - T3  ♦ 1 

0098 

REF 

14 

LAST 

143 

01,2651 

6 1402 

0 

AD 

LST 1 *2 

0099 

01  ,2652 

1 2656 

1 

TCF 

+ 4 

0100 

REF 

16 

LAST 

143 

01,2653 

6 7657 

1 

AD 

ONE 

0101 

REF 

2 

LAST 

143 

01,2654 

0 2723 

0 

TC 

WTLST2 

0102 

01,2655 

00002 

0 

OCT 

2 

0103 

REF 

58 

LAST 

143 

01,2656 

10  000 

0 +4 

CCS 

A 

TEST  TD  - T4  * 1 

0104 

REF 

15 

LAST 

143 

01  ,2657 

6 1403 

1 

AD 

LST 1 +3 

0105 

01,2660 

1 2664 

0 

TCF 

♦ 4 

0106 

REF 

17 

LAST 

143 

01,2661 

6 7657 

1 

AD 

ONE 

0107 

REF 

3 

LAST 

143 

01,2662 

0 2723 

0 

TC 

WTLST2 

0108 

01,2663 

00003 

1 

OCT 

3 

0109 

REF 

59  LAST  143 

01,2664 

10  000  0 

+4 

CCS 

A TEST 

TD  - T5  ♦ 1 

0110 

REF 

16  LAST  143 

01,2665 

6 1404  0 

~AD 

LST1  +4 

0111 

01,2666 

1 2672  1 

TCF 

♦ 4 

0112 

REF 

18  LA5T  143 

01,2667 

6 7657  1 

AD 

ONE 

0113 

REF 

4 LAST  143 

01,2670 

0 2723  0 

TC 

WTLST2 

0114 

01,2671 

00004  0 

OCT 

4 

0115 

REF 

60  LAST  143 

01,2672 

10  000  0 

+ 4 

CCS 

A TEST 

TD  - T6  + 1 

0116 

REF 

17  LAST  143 

01,2673 

6 1405  1 

AD 

LST 1 +5 

0117 

01,2674 

1 2700  0 

TCF 

+ 4 

0118  REF 

19  LAST  143 

01,2675 

6 7657  1 

AT 

ONE 

0119 

REF 

5 LAST  143 

01,2676 

0 2723  0 

TC 

WTLST2 

0120 

01,2677 

00005  1 

OCT 

5 

0121 

REF 

61 

LAST 

143 

01,2700 

10  000 

0 +4 

CCS 

A 

TEST  TD  - T7  + 1 

0122 

REF 

18 

LA5T 

143 

01,2701 

6 1406 

1 

AD 

LST 1 +6 

0123 

01 ,2702 

1 2706 

0 

TCF 

+ 4 

0124 

REF 

20 

LAST 

143 

01,2703 

6 7657 

1 

AD 

ONE 

0125 

REF 

6 

LAST 

143 

01,2704 

0 2723 

0 

TC 

WTLST2 

0126 

" 01,2705 

00006 

1 

OCT 

6 

473423A 

YJL 

SYSTEM  FOs  BLK2! 

! revision 

12  OF  1 

program  aurora  by 

dap  group 

NOV  10,  1966  (MAlw)  PAGE  144 

L 

WAITLIST 

USER'S  OWN  PAGE  NO.  6 

0127 

r£f 

62  LAST  143 

01,2706 

10  000 

0 

. ^ - - CCS 

A 

0128 

REF 

19  LAST  143 

01,2707 

6 1407 

0 

AD 

LSTl  +7 

0129 

01,2710 

1 2714 

0 

TCF 

+ 4 

0130 

REF 

21  LAST  143 

01,2711 

6 7657 

1 

AD 

ONE 

0131 

REF 

7 LAST"  143 

01,2712 

0 2723 

0 

TC 

WTLST2 

0132 

01,2713 

00007 

0 

OCT 

7 

0133 

REF 

63  LAST  144 

01,2714 

10  000 

0 

♦ 4 CCS 

A 

0134 

REF 

5 LAST  129 

01,2715 

0 5446 

1 

WTABORT  TC 

ABORT 

NO  ROOM  IN  THE  INN. 

0135 

01,2716 

01203 

1 

OCT 

1203 

0136 

REF 

22  LAST  144 

01,2717 

6 7657 

1 

AD 

ONE 

0137 

REF 

8 LAST  144 

01,2720 

0 2723 

0 

TC 

WTLST2 

0138 

01,2721 

OOOlO 

0 

OCT 

10 

0139 

01,2722 

50001 

0 

OCT  50001  OCT 

50001 
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L WAITLIST  U5Er*S  OWN  PAGE  NO. 7 

P0140  THE  ENTRY  TO  WTLST2  JUST  PRECEDING  OCT  N IS  FOR  T LE  TD  LE  T -1. 

RO 141  N _N+1 


RO 1 42  (lE  MIR1  S LESS  THAN  OR  EQUAL  TO).  AT  ENTRY  , C ( A)  = -(TD  - T + 1) 

R0143  N+ 1 


RO 144  THE  LST1  ENTRY  -<T  - T +1)  IS  TO  BE  REPLACED  BY  -(TD  -T  +1).  AND 

R0145  N + 1 N N 


RO  146  THE  ENTRY  -(T  - TD  + l)  IS  TO  BE  INSERTED  rMMEDTSTELY  FOLLOWING. 

RO 147  ~ ~ N+l 


0148  REF  r~  01,2723  54  07l  0 WTL572  TS  WAITTEMP  C ( A ) = -(TD  - T * 1) 

0149  REF  3 6 LAST  142  01,2724  50  00270~  INDEX  Q 

0150  01,2725  3 0000  1 CAF  0 

0151  REF  87  LAST  145  01,2726  54  002  1 _ TS  Q INDEX  VALUE  INTO  Q. 


0152 

REF 

23 

LAST 

144 

01*2727 

3 7657  1 

CAF 

ONE 

0153 

ref 

2 

LAST 

145 

01,2730 

6 0071  1 

AD 

WAITTEMP 

0154 

REF 

88 

LAST 

145 

01,2731 

50  002  0 

INDEX 

Q 

C ( A ) = -(TD  - T ) ♦ 1. 

0155 

REF 

20 

LAST 

144 

01,2732 

27*377  1 

ADS 

LST 1 -1 

N 

0156 

ref 

3 

LAST 

145 

01,2733 

4 0071  0 

CS 

WAITTEMP 

0157 

REF 

89 

LA5T 

145 

01,2734 

50  002  0 

INDEX 

Q 

0158 

REF 

1 

01,2735 

1 2612  1 

TCF 

WTLST4 

R01 59  C ( TIMES)  = 1.0  - ( T 1 - T) 


R0160  C ( LST 1 ) = - (TI  “ Tl)  + 1 
R0161  C ( LST 1 + 1 ) = - (T3  - T2)  ♦ 1 
R0162  C (LST1+2)  = - (T4  - T3)  + 1 
R0163  C(LSTl  + 3)  ^-  ( T5  - T47  +1 
RO 1 64  C ( LST1 +4 ) = - (T6  - T5)  + 1 

R0165  C ( LST2  ) = 2CADR  TA'SKl 
R0166  C (L5T2+2  ) = 2CADR  TASK2 
R0167  C (LST2+4  ) = 2CADR  TASK3 
R0T68  C (LST2+6  ) = ZCADR  TASK4 
R0169  C (LST2  + 8 ) = 2CADR  TASK 5 
R0170  C ( LST 2+10)  = 2CADR  TASK6 
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L WAITLIST  USER'S  OWN  PAGE  NO, 8 


PQ171  ENTERS- HERE  On  T3  rupit  to  dispatch  waitlisted  task. 


0172 

ref 

1 

01,2736 

54  016  1 

T3RUPT  T 5 

BANKRUPT 

0173 

01,2737 

0 0006  1 

extend 

0174 

- REF 

2 

LAST  27 

01,2740 

22  012  1 

oxch 

QRUPT 

0175 

REF 

2 

LAST  111 

01,2741 

3 7640  1 

T3RUPT2  CAF 

NEG1/2 

DISPATCH  WAITLIST  TASK. 

0176 

REF 

21 

LAST  145 

01,2742 

57*407  0 

XCH 

LSTl  +7 

0177 

REF 

22 

LAST  146 

01 ,2743 

57*406  1 

XCH 

LST 1 +6 

0178 

REF 

23 

LAST  146 

01,2744 

57*405  1 

XCH 

LSTl  +5 

0179 

REF 

24 

LAST  146 

01,2745 

5 7*404  0 

XCH 

USTl 

1.  MOVFHjP  LSTl  CONTENTS,  ENTERING 

0180 

REF 

25 

LAST  146 

01 ,2746 

57*403  1 

XCH 

L5T1  +3 

A VALUE  OF  1/2  +1  AT  THE  BOTTOM 

0161 

REF 

26 

LAST  146 

01,2747 

57*402  0 

XCH 

LSTl  +2 

FOR  T 6-T 5 , CORRESPONDING  TO  THE 

0 1 8 2 

REF 

27 

LAST  146 

01,2750 

57*401  0 

XCH  ■ 

LSTl  +1 

INTERVAL  81.91  SEC  FOR  ENDTASK. 

0183 

REF 

28 

LAST  146 

01,2751 

57*400  1 

XCH 

LSTl 

0184 

ref 

11 

LAST  109 

01,2752 

6 7637  1 

AD 

POSmAX 

2.  SET  T 3 = 1.0  - T 2 -T  USING,  LIST  1. 

0185 

REF 

3 

LAST  141 

01,2753 

26  026  1 

ACTS 

TTME3 

SO  T 3 WONT  TICK  DURING  UPDATE, 

0186 

REF 

2 

LAST  17 

01 ,2754 

55 ' 070  0 

TS 

RUPTAGN 

0187 

REF 

42 

LA5(  137 

01  ,2755 

4 7665  1 

C5 

ZERO 

0188 

REf 

3 

LAST  146 

01,2756 

55*070  0 

T5  RUPTAGN 

SETS  RuPTAGN  TO  +1  ON  OVERFLOW. 

0189 

01,2757 

0 0006  1 

EXTEND 

DISPATCH  TA5K. 

0190 

REF 

2 LAST  142 

01,2760 

4 4570  0 

DCS 

ENDTASK 

0191 

REF 

10  LAST  142 

01,2761 

53*431  1 

DXCH 

LST 2 ♦ 16D 

0192 

REF 

11  LA5T  146 

01,2762 

53 ' 427  0 

DXCH 

LST  2 +14D 

Ol93~ 

RtF 

12  LAST  146 

^ 01,1763 

53*425  1 

DXCH 

LST  2 +12d 

0194 

REF 

13  LAST  146 

01,2764 

53*423  1 

DXCH 

LST  2 + 10D 

0195 

REF 

14  LA5T  146 

01,2765 

53*421  0 

DXCH 

LST  2 +8D 

0196 

REF 

15  LA51  146 

01*2766 

53*417  0 

DXCH 

LST2  +6 

0197 

REF 

16  LAST  146 

01,2767 

53*415  1 

DXCH 

LST2  +4 

0198 

REF 

17  LAST  146 

01,2770 

53*413  1 

DXCH 

LST  2 +2 

0199 

REF 

18  LA5T  146 

01,2771 

53*411  0 

DXCH 

LST  2 

0200 ~ 01,2772  52  006  0 pTCB 


0201  01*2773  ENDWAITS  EQUALS 


I Ml: 


* 
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P0202 

return,  after 

EXECUTION  OF  T3 

OVERFLOW  TASK! 

0203 

4602 

SLOCK 

02 

0204 

REF  4 

LAST  146 

4602 

11*070  0 

TASKOVER  CCS 

RUPTAGN 

IF  +1  RETURN  TO  T3RUPT,  IF  -0  RESUME. 

0205 

REF  2 

LAST  139 

4603 

3 4553  0 

CAF 

WAITBB 

0206 

REF  16 

LAST  139 

4604 

54  006  0 

TS 

BBANK 

0207 

REF  1 

4605 

1 2741  0 

TCF 

T3RUPT2 

DISPATCH  NEXT  TASK  IF  IT  WAS  DUE. 

0208 

4606 

0 0006  1 

RESUME  EXTEND 

0209 

REF 

3 

LAST'  146 

4607 

22  012  1 

3XCH 

QRUPT 

0210 

REF 

2 

LAST  146 

4610 

3 0016  0 

NOQRSM  CA 

BANKRUPT 

0211 

REF 

17 

LAST  147 

4611 

54  006  0 

TS 

BBANK 

0212 

REF 

11 

LAST  28 

4612 

52  Oil  0 

“NOQBRSM  DXCH 

ARUPT 

0213 

4613 

50  017  1 

RESUME 

0214 

4614 

ENDWAITF  EQUALS 

LAST  FIXED-FIXED  LOCATION  OF  T3RUPT • 

[' 
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L 

PHASE  TABLE  MAINTENANCE 

USEr  * S OWN  page  no,  1 

t 

R0001 

THE  FOLLOWING  ROUTINES  ARE  PROVIDED  TO 

maintain  TH£  phase 

TABLE,  two  ROUTINES  ARe  available: 

t 

A0003 

TC 

PHASCHNG 

sluwlk  bu f less  stokacje* 

A0004 

OCT 

PPPGG 

CHANGE  restart  GROUP  GG  TO  phase  ppp 

A0005 

(PPP  IS  A SIGNED  8 BIT  NUMBER). 

♦ 

A0006 

CA 

PPPPP 

NEW  PHASE  ARRIVES  IN  A. 

A0007 

TC 

NEWPHASE 

A0008 

OCT 

OOOGG 

UPDATES  GG. 

R0009 

IN  ALL  CASES  THE  OLD  PHASE  RETURNS  IN  A 

. IF 

THE  OLD  PHASE 

WAS  NEGATIVE,  CALL  A ROUTINE  USING  THE 

R0011 

CORRESPONDING  TERMCADR, 

0012 

REF 

1 

4614 

SETLOC 

ENDWAITF 

0013 

4614 

0 0004  0 

PHASCHNG 

INHINT 

0014 

REF  90 

LAST  145 

4615 

50  002  0 

INDEX 

Q 

0015 

4616 

3 0000  1 

CAF 

0 

GET  PARAMETER  WORD, 

0016 

REF 

5 

LAST  32 

4617 

54  077  0 

TS 

RUPTREG4 

0017 

REF 

1 

4620 

7 5224  1 

mask 

LUW5 

GROUP  NUMBER  0 - 37. 

0018 

4621 

6 0000  1 

DOUBLE 

0019 

REF 

6 

LAST  148 

4622 

56  077  1 

XCH 

RUPTRLG4 

0020 

4623 

0 0006  I 

EXTEND 

0021 

REF 

1 

4624 

7 7647  1 

MP 

BIT9 

SIGNED  NEW  PHASE. 

0022 

REF 

1 

4625 

1 4634  0 

TCF 

PHASCH2 

0023 

4626 

0 0004  0 

NEWPHASE 

INHINT 

NEW  PHASE  ARRIVES  IN  A. 

0024 

REF 

7 

LAST  148 

4627 

54  077  0 

TS 

RUPTREG4 

DO  2 5 

REF  ' 

91 

LAST  148 

4630 

50  002  JT 

I7TDEX 

0 

0026 

4631 

3 0000  1 

CAF 

0 

GROUP  NUMBER, 

0027 

4632 

6 0000  1 

DOUBLE 

□028  REF 

a 

LAST  148 

4633 

56  077  T 

XCH 

RUPTREG4 

0029  REF  24  LAST  139  A 634  54  001  1 PHA5CH2  "TS  ~ DIRECT  VERSION.  

003TT  A 63 5 4 0000  0 COM  COMPLEMENTED  VERSION  IMMEDIATELY  PRE- 

0031  REF  9 LAST  148  ^636  50  077  1 ” INDEX  RUPTREGA  CEDES  THE  DIRECT  ONE. 

0032  REF  — r~  A637  53»072  1 DXCH  -PHASED  COPIES  DISAGREE  FOR  MINIMUM  TIMFT~ 

0033  " 4640  0 0006  1 EXTEND 

003A  REF  1 4641  6 4655  0 ~ BZMF~  PHA5EXTI  IT  NO  DERAIL. 


V73423A  YJL  SYSTEM  FOR  BLK2 : REVI5I0N  12  OF  PROGRAM  AURORA  BY  DAP  SRQUP 


NOV  10,  1966  (MAIN) 


PAGE  149 


L 

prase  table  maintenance 

USER’S  OWN  PAGE  NO.  2 

0035 

REF 

1 

4642 

54  074 

0 

T 5 

RUPTREG1 

IF  NEGATIVE,  SAVE  ABSOLUTE  VALUE 

OF 

0036 

4643 

0 0006 

1 

EXTEND 

OLD  PHA5E  AND  RETURN  Q. 

0037 

REF 

1 

4644 

22  075 

0 

2XCH 

RUPTREG2 

0036 

REF 

10 

LAST 

146 

4645 

3 0077 

1 

CA 

RUPTREG4 

GET  BACK  GROUP  NUMBER. 

13039 

4646 

0 0006 

1 

EXTEND 

0040 

REF 

15 

LAST 

123 

4647 

7 7642 

1 

MP 

HALF 

0041 

REF 

64 

LAST 

144 

4650 

50  000 

1 

INDEX 

A 

SELECT  TERMCADR. 

0042 

REF 

1 

4651 

3 4661 

1 

CAF 

TERMCADR 

0043 

REF 

1 

4652 

0 4162 

0 

TC 

ISWCALL 

0044 

REF 

2 

LAST 

149 

4653 

52  075 

1 

DXCH 

RUPTREG1 

-OLD  PHASE  BITS  TO  A _ RETURN  -1 

TO  L. 

0045 

REF 

92 

LAST 

146 

4654 

22  002 

0 

LXCH 

Q 

0046 

4655 

4 0000 

0 PHASEXIT 

COM 

RETURN  OLD  PHASE  IN  A. 

0047 

4656 

0 0003 

1 

relint 

0046 

REF 

93 

LAST 

149 

4657 

50  002 

0 

INDEX 

Q 

0049 

4660 

0 0001 

0 

TC 

1 

0050 

4661 

00000 

1 

TERMCADR  CADR 

10000 

filled  in  as  needed. 

0051 

4662 

00000 

1 

CADR 

10000 

0052 

4663 

00000 

1 

CADR 

10000 

0053 

4664 

OOOOO 

1 

CADR 

10000 

0054 

4665 

00000 

1 

CADR 

10000 

0055 

4666 

OOOOO 

1 

CADR 

10000 

a 
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L 

phase 

table  maintenance 

user's  own  page  NO, 

3 

P0056 

subroutine  TO 

UPDATE 

the  program  number  display  on  the  dsky 

• 

0057 

REF 

94 

LAST  149 

4667 

50  002  0 

NEWMODEX  INDEX 

Q 

UPDATE  MODREG. 

0058 

4670 

3 0000  1 

CAF 

0 

0059 

REF 

95 

LAST  150 

4671 

24  002  0 

I NCR 

Q 

0060 

REF 

1 

4672 

56  276  1 

XCH 

MODREG 

0061 

4673 

4 0000  0 

COM 

IF  NO  CHANGE  IN  MODE, 

RETURN  IMMEDIATELY 

0062 

REF 

2 

LAST  150 

4674 

6 0276  1 

~AD“ 

MODREG 

0063 

4675 

0 0006  1 

EXTEND 

0064 

REF 

1 

4676 

1 4712  0 

B2F 

TCQ 

OO65 

4677 

3 4701  0 

CAF 

+ 2 

CALL  PINBALL  SUBROUTINE. 

0066 

ref 

1 

4700 

1 4067  0 

tcf 

SwCALL 

WITH  0 SET  TO  CALLERS 

return. 

0067 

REF 

1 

4701 

12001  0 

CADR 

DSPMM 

R0068 

RETURN  TO  CALLER  +3 

IF  MODE  = 

THAT  AT  CALLER  +1.  OTHERWISE 

RETURN  TO  CALLER  +2. 

0070 

REF 

96  LAST  150 

4702 

50  002 

0 CHECKMM 

INDEX 

Q 

0071 

4703 

4 0000 

0 

CS 

0 

0072 

REF 

3 LAST  150 

4704 

6 0276 

1 

AD 

MODREG 

0073 

4705 

0 0006 

1 

EXTEND 

0074 

4706 

1 4711 

0 

BZF 

♦ 3 

0075  REF  97  LAST  150 

4707 

50  002  0 

index 

Q 

0076 

4710 

0 0001  0 

“Tc 

1 

NO  MATCH. 

0077  REF  98  LAST  150 

4711  50  002  0 INDEX  0 

0078 

4712  0 0002  0 TtQ  TC  2 

(ALWAYS  AVAILABLE  TO  BZF  0 BZMF) 

0079 

4713  ENDPHMNF  EQUALS 
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l fresh  start  and  restart  user’s  own  page  no.  i 

0001  12 » 2000  BANK  12  

0002  ~REF  29  LAST  146'  _E3  EBANK=_LSTl  


0003 

12*2000 

0 0004 

0 

SLAP  1 INHINT 

FRESH  START.  COMES  HERE  FROM  PINBALL. 

0008 

"REF 

T 

12,2001 

0 2214 

1 

TC 

startsub 

Subroutine  does  most  of  the  work. 

0009 

REF 

7 LAST 

120 

12,2002 

3 7641 

0 

CAF 

B I T 1 5 

TURN  OFF  ALL  DSPTAB  + 11D  LAMPS  ONLY  ON 

0010 

REF 

1 

12,2003 

54  322 

0 

TS 

DSPTAB  + 1 ID 

requested  fresh  start. 

0011 

REF 

43  LAST 

146 

12*2004 

3 7665 

0 

CAF 

ZERO 

SAME  STORY  ON  ZEROING  FAILREG. 

0012 

ref 

r 

12,2005 

55*363 

1 

TS 

failreg 

0019 

REF 

44  LAST 

151 

12,2006 

3 7665 

0 

DOFSTART  CAF 

ZERO 

DO  A FRESH  START. 

0020  REF 

“I 

12,2007 

55*361 

0 

TS 

SMODE 

0021 

REF 

4 LAST 

150 

12*2010 

54  276 

0 

TS 

MODREG 

0022 

REF 

1 

12,2011 

54  412 

1 

TS 

agsword 

allow  ags  initialization 

0023 

REF 

T 

12,2012 

54  342 

0 

TS 

UPLOCK 

FREE  UPLINK  INTERLOCK 

00231 

REF 

1 

12*2013 

54  032 

1 

TS 

CDUX 

ZERO  CDUS  SO  MATRIX  COMPUTATION  IN  T4 

00232 

REF 

1 

12,2014 

54  033 

0 

TS 

CDUY 

WONT  OVERFLOW. 

00233 

REF 

1 

12,2015 

54  034 

1 

7S 

CDUz 

0024 

REF 

1 

12,2016 

55*072 

1 

TS 

PHASEO 

initialize  phase  table  - no  mission 

0025 

REF 

T 

12*2017 

55  * 074 

1 

75 

PHASE  1 

PROGRAMS  RUNNING. 

0026 

ref 

1 

12,2020 

55*076 

0 

TS 

PHASE2 

0027 

REF 

r 

12,2021 

55*100 

0 

7 S 

PHASE3 

0028 

REF 

i 

12,2022 

55*102 

1 

TS 

PHASE4 

0029 

REF 

i 

12,2023 

55*104 

1 

TS 

PHASE5 

0030 

12,2024 

4 0000  0 

COM 

0031 

REF 

2 LAST  148 

12,2025 

55*071  1 

TS 

-PHAStO 

0032 

REF 

1 

12,2026 

55*073  0 

TS 

-PHASE1 

0033 

REF 

1 

12,2027 

55*075  0 

TS 

-PHASE2 

0034 

REF 

1 

12,2030 

55*077  1 

TS 

-PHASE3 

0035 

TEF 

I 

12,2031 

55*101  1 

“TS 

-PHASE4 

0036 

REF 

1 

12,2032 

55*103  0 

T5 

-PHASES 

0037  REF  I IE,  2033  3 2433  T CAT IM30INIF  FRE5h“5TART  IMU  INITIAL  I ZATION. 

0038  REF  1 12,2034  54  367  1 TS  IM0DE530 


REF 

5 LAST  IBS 

rz',  2035  ~ 

3 7646 

1 “ 

“CAF 

BTITO 

REMOVE TT^UT^TLTNFfTB  IT  IN  5 SECS, 

OO4O 

REF 

1 

12  ,2036 

0 4536 

0 

TC 

WAITLIST 

0041 

12,2037 

02247 

1 

2CADR 

ifailok 

C0041 

REF 

1 

12,2040 

26003 

0 

0042 

12,2041 

0 0006 

1 

EXTEND 

SETTING  T5RUPT  FOR  SETIDLER  PROGRAM 

00^3 

REF 

1 

12 ,2042 

3 2443 

0 

DCA 

SETADR 

THE  SETIDLER  PROGRAM  ASSURES  1 SECOND 

UU43U1  KtR 

1 

12,2043 

52  346 

1 — 

DXCH' 

T5  ADR 

DELAY ' BEFORETHE  TAPI  DLER  BEG  INS. 

Kcr 

1 

12*2^44 

3 2450 

1 

v-Ar 

OCTO4OI2 

INITIALIZE  DAPB0QL6 

004402  REF 

r 

12,2045 

54  765 

1 

rs“ 

DAFEOOLS 

O 

‘S 
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L 

FRESH 

start  , 

AND  1 

restart 

user's  own  page  no*  2 

0045 

12,2046 

0 0006 

1 

EXTEND 

INITIALIZE  SWITCHES  ONLY  ON  FRESH  START, 

00F6 

REF~ 

1 

12,2047 

3 2445 

0 

CCA 

SWINIT 

0047 

REF 

4 

LAST 

140 

12,2050 

52  0&2 

1 

DXCH 

STATE 

0048 

12,2051 

0 0006 

1 

EXTEND 

0049 

~ REF 

2 

LAST 

152 

12,2052 

3 2447 

1 

DCA 

SWINIT  +2 

0050 

REF 

5 

LAST 

152 

12,2053 

52  064 

1 

DXCH 

STATE  +2 

0051 

REF 

3 

LAST 

87 

12,2054 

3 7652 

1 

ENDRSTRT 

CAF 

BIT6 

IF  GIMBAL  LOCK  LAMP  IS  STILL  ON, 

0052 

REF 

2 

LA5T 

151 

12  »2U55 

7 0322 

0 

MAsK 

dsPtab  + 1 id 

IMU  WAs  FOUND  IN  GIMBAL  LOCK  IN  RESTART 

0053 

REF 

65 

LAST 

149 

12,2056 

10  000 

0 

CCS 

A 

AND  LEFT  IN  COARSE  ALIGN,  IN  THIS  CASE 

0054 

REF  ‘ 

2 

LAST 

148 

12,2057 

4 7647 

1 

C5 

B I T 9 

SET  ISS  OPERATE  BIT  IN  "I MODESTO  TO 

0055 

REF 

2 

LAST 

151 

12,2060 

26  367 

1 

ADS 

IM0DES30 

OPERATE  SO  T4  INBIT  MONITOR  WONT  ZERO 

0056 

12*2061 

0 0003 

1 

relint 

THE  CDU5  AS  IT  DOES  IN  FRESH  START. 

0057 

REf 

1 

12,2062 

0 4063 

0 

TC 

bankcall 

DISPLAY  MAJOR  mODE. 

0058 

REF 

2 

LAST 

150 

12,2063 

12001 

0 

CADR 

DSPMM 

0059 

REF 

2 

LAST 

136 

12,2064 

1 4452 

1 

STARTSW 

TCF 

DUMMYJOB  +2 

PATCH  FOR  SIMULATION, 

0060  REF  9n_7^TT38  ^TZT2065  3 7642  0 STARTSIM  CAR  B1T14 

0061  REf  1 12,2066  0 4374  0 Tc  FINdvAC 

0062  12,2067  77777  0 OCT  77777  FATAL  IF  NOT  PATCHED  AS  ABOVE, 

0063  “ — “ 12,2070  77777  0 OCT  77777“ 


0064  REF  3 LAST  152  ~ 12,2071  1 4452  1 ~ TCF  DUMMYJOB  + 2 PONT  ZERO  NEW JOB 


) 
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:RESH  START  AND  RESTART 


USER'S  OWN  PAGE  NO. 


P 0065 


COMES  HERE  FROM  LOCATION  4000,  GOJAM.  RESTART  AnY  PROGRAMS  WHICH  MAY  HAVE  BEEn  RUNNING  AT  THE  T1M¥i 


0067 

REF 

1 

12,2072 

25*362 

1 GOPROG 

I NCR 

REDOCTR 

ADVANCE  RESTART  COUNTER. 

0068 

REF 

2 

LAST 

151 

12,2073 

0 2214 

1 

TC 

startsub 

COMMON  INITIALIZATION  ROUTINE. 

0069 

REF 

1 

12*2074 

3 2436 

1 

CAF 

9*6 

LEAVE  PROGRAM  ALARM  AND  GIMBAL  LOCK 

" 0070 

REF 

3 

LAST 

152 

12,2075 

7 0322 

0 

mask 

DSPTAB  +11D 

LAMPS  INTACT  ON  RESTART. 

0071 

REF 

8 

LAST 

151 

12,2076 

6 7641 

0 

AD 

BIT15 

.) 

0072 

REF 

4 

LAST 

153 

12,2077 

56  322 

1 

XCH 

DSPTAB  +1 ID 

0073 

REF 

4 

LAST 

152 

12,2100 

7 7652 

0 

MASK 

BIT6 

0074 

REF 

66 

LAST 

152 

12,2101 

10  000 

0 

CCS 

A 

IF  GIMBAL  LOCK  LAMP  WAS  ON,  LEAVE  ISS  IN 

0075 

REF 

2 

LAST 

76 

12,2102 

3 7654 

1 

CAF 

BIT4 

COARSE  ALIGN. 

0076 

12,2103 

0 0006 

1 

EXTEND 

0077 

12,2104 

05  012 

1 

WOR 

12 

007701 

12,2105 

0 0006 

1 

EXTEND 

SETTING  T5RUPT  FOR  DAPIDLER  PROGRAM 

007702  REF 

1 

12,2106 

3 2441 

1 

DCA 

IDLEADR 

007703  REF 

2 

LAST  151 

12,2107 

52  346 

1 

DXCH 

T5ADR 

0078  REF  1 

12,2110 

3 4535 

0 

CAF 

PRI037 

DISPLAY  FAILREG  AS  INDICATION  OF  RESTART 

0079  REF 

2 

LaST  140 

12,2111 

0 4363 

0 

TC 

NOVAC 

OR  TO  DISPLAY  ABORT  CODE  AS  ABOVE. 

0080 

12,2112 

02773 

0 

2CADR 

DOALARM 

C0080 

REF 

1 

12,2113 

02003 

0“ 

0081 

12,2114 

0 0006 

1 

EXTEND 

DONT  TRY  TO  RESTART  IF  ERROR  LIGHT  RESET 

0 

0082 

12,2115 

00  015 

0 

READ 

15 

AND  MARK  REJECT  BUTTONS  DEPRESSED, 

0083 

REF 

1 

12,2116 

6 2431 

o 

AD 

-ELR 

0084 

12,2117 

0 0006 

1 

EXTEND 

J 

0085 

12,2120 

1 2122 

0 

BZF 

+ 2 

0086 

RtF 

~T 

12,2121 

1 2130 

tr- 

FNCLDOP  -1 

VERIFY  PHASE  TABLE. 

0087 

REF 

T 

12,2122 

3 7653  0 

CAF 

BIT5 

0088 

12,2123 

0 0006  1 

^EXTEND 

0089 

12,2124 

02  016  1 

RAND 

16 

0090 

REF 

1 

12,2125 

6 2432  0 

AD 

-MKREJ 

0091 

12,2126 

0 0006  1 

EXTEND" 

OO92 

REF 

1 

12,2127 

1 2006  1 

3ZF 

D0F5TART 

UU93 

Ktr 

1 

12*2130 

3 7664  I -Y 

CAT"  " 

"NLTMGRP5 

VERIFY  PHASE  TABLE  AGREEMENT. 

0094 

REp 

354 

LAST 

130 

1 2 , 2 1 3 1 

54  145  0 pCLOOP 

TS 

MPAC  +5 

0095 

12,2132 

6 0000  1 

DOUBLE 

0096 

12*2133 

0 0006  1 

EXTEND" 

OO97 

KtP 

67 

LAST 

153 

12,2134 

5 0000  1 

INDEX 

A 

UU9o 

Ktr 

3 

LAST 

151 

12,2135 

3 1072  0 

DCA 

-PHASEO 

COMPLEMENT  INTO  A - DIRECT  INTO  L, 

0099 

25 

12,2136 

0 0006  1 

EXTEND" 

U i uu 

0101 

■ 0 1 n 1 

Ktr 

DPC 

LAST 

148 

1 2 , 2 1 3 t 

06  OOl  0 

RXOR 

L 

RESULT  MUST  BE  -0  FOR  AGREEMENT. 

00 

1 

LAb  1 

153 

12 ,2140 

10  000  0 

CCS 

A 

I 

t 

1 


0103 

010A 


REF 

REF 


LAST  153 
LAST  153 


12.2142 

12.2143 


1 2203 
1 2203 


TCF 


TCF 

TCF 


PTBAD 


PTBAD 


C 

r 
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L FRESH  START  AND  RESTART 


USER'S  OwN  pAGE  NO.  4 


0105 

REF 

355  LAST 

153 

12,2144 

10  145  0 

CCS 

MPAC  +5 

PROCESS  ALL  RESTART  GROUPS, 

0106 

REF 

2 LAST 

153 

12,2145 

1 2131  1 

TCF 

PCLOOP 

0107 

REF 

356 

LAST 

154 

12,2146 

54  146 

0 

TS  MPAC  +6 

SET  TO  +0, 

” 0108 

“REF- 

2 

LAST- 

153 

12,2147 

3 7664 

1 

CAF  NUMGRPS 

SEE  IF  ANY  GROUPS  RUNNING, 

0109 

REF 

357 

LAST 

154 

12,2150 

54  145 

0 NXTRST 

TS  MPAC  +5 

0110 

12,2151 

6 0000 

1 

double 

orn 

REF 

69 

LAST” 

153 

12,2152 

50  OW 

1 

INDEX  A 

0112 

REF 

2 

LAST 

151 

12,2153 

11*072 

1 

CCS  PHASEO 

0113 

REF 

1 

12*2154 

i 2m 

0 

TCF  PACTIVE 

PNZ  - GROUP  ACTIVE. 

0114 

“REf 

1 

12,2155 

1 2172 

“0” 

TCF  PINAcT 

+o  - group  no i running. 

0115 

REF  358  LAST  154 

12,2156 

54  140  0 PTERM 

TS 

MPAC 

NNZ  - TERMINATE  REQUEST. 

” 0116 

REF  359  LAST  154 

12,2157 

50  145  1 

INDEX 

TIP  AC  +5 

PICKS UP  RESTART  TERMINATE  CADR. 

0117 

REF  1 

12,2160 

3 2423  0 

CAF 

rtermcad 

“0118 

REF 

26  LAST  153 

12,2161 

54  001  1 

PACT2 

TS 

L 

0119 

REF 

360  LAST  154 

12,2162 

24  140  1 

incr 

MPAC 

ABS  OF  PHASE, 

0120 

REF 

4 LA5T  132 

12,2163 

4 6027  0 

C5 

L0W7 

SEE  THAT- MAG  IS  LE5S  THAN  128. 

012T 

REF 

361  LAST  154 

12,2164 

7 0140  CT 

MASK 

MPAC 

0122 

REF 

70  LAST  154 

12,2165 

10  000  0 

CCS 

A 

0123 

REF 

4 LAST  153 

12,2166 

1 2203  0 

TCF 

PTBAD 

BAD  DATA, 

0124 

REF 

362  LA5T  154 

12,2167 

24  146  1 

INCR 

MPAC  +6 

INDICATE  GROUP  DEMANDS  PRESENT, 

0125 

REF 

27  LAST  154 

12,2170 

3 0001  0 

CA 

L 

0126 

REF  2 LAST  150 

12,2171 

0 4067  1 

^TC 

SWCALL 

“MUST  RETURN-  TO  SWRETURN. 

0127 

REF 

363  LAST  154 

12,2172 

10  145  0 

PINACT 

CCS 

MPAC  +5 

PROCESS  ALL  RESTART  GROUPS, 

0TE8 

REF 

r 

12,2173 

1 2150  or 

ICF 

NXTrST 

0H2 

REF 

364  LAST  154 

12,2174 

10  146  0 

T5TMPAC6 

CCS 

MPAC  +6 

IF  NO  GROUPS  ACTIVE  THIS  REQUEST,  DO  A 

0143 

REF 

1 

12*2175 

1 2207  IT- 

TCF 

DORSTART 

01 A4 

REF 

2 LAST  153 

12,2176 

1 2006  1 

TCF 

DQFSTART 

FRESH  START 

0145 

365  LAST  154 

12,2177 

54  140 

PACTIVE 

TS 

MPAC 

0146 

REF 

366  LAST  154 

12,2200 

50  145  1 

INDEX 

MPAC  +5 

SELECT  RESTART  ACTIVE  CADR. 

0147  REF  T 12,2201  3 2415  0 CAF  RACTCADR 


DT4B  REF  r 12*2202 — 1 2161“! TCF PACTS 


0149 

REF 

I 

12,2203 

3 2206  1 PTBAD 

CAF 

0CTU07 

SET  ADDITIONAL  FAILURE  TO  SHOW  PHA5E 

0 1 50 

REF 

1 

12,2204 

55 ’ 364  O- 

— TS 

SFAIL 

TABLE  DISAGREEMENT  (WILL  BE  DISPLAYED 

0 1 5 1 

REF 

3 LAST  154 

12,2205 

1 2006  1 

TCF 

DQFSTART 

IN  R2)  . 

””“0152 

12,2206 

01107  0 

TCT1T07  OCT 

1 107 

ADDITIONAL- ALARM  CODE.” 

0153 

Kfcr 

1 

12,2207 

3 2404  0 

DORSTART  CAF 

IFAILINH 

LEAVE  IMU  FAILURE  INHIBITS  INTALT  UN 

0154 

REF 

3 LAS  I 

152 

12  ,2210 

7 0367“ 1 

MASK- 

TMODES30 

RtSTAKT , resetting  all  failure  lodes. 

0155 

REF 

1 

1 2.  t Z 2. 1 1 

6 2434  0 

AD 

IM30INIR 

0156 

REF 

4 LAST 

154 

12,2212 

54  367  1 

TS 

IM0DES30 
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* 


L 

Fresh  start  aiVd  restart 

USER'S  own  page  no.  6 

P0164 

INITIALIZATION  COMMON  to  both  FReSH  5TART  AND  RESTART. 

0165 

ref 

99 

LAST 

150 

12.2214 

56  002  0 

STARTSUB  XCH 

Q 

0166 

REf 

81 

last 

136 

12,2215 

54  114  1 

TS 

BUF 

EXEC  TEMPS  ARE  AVAILABLE  TO  yS. 

0167 

REF 

45 

LA5T 

151 

12,2216 

3 7665  0 

CAF 

ZERO 

ZERO  0UTBIT5  WITHIN  3MS  OF  RESTART, 

0168 

12,2217 

0 0006  1 

EXTEND 

0169 

12.2220 

01  012  0 

WRITE 

12 

0170 

12.2221 

0 0006  1 

EXTEND 

0171 

12.2222 

01  014  0 

WRITE 

14 

0172 

12,2223 

0 0006  1 

EXTEND 

0173 

12,2224 

01  Oil  0 

WRITE 

11 

0174 

REF 

1 

12,2225 

3 4532  1 

CAF 

PRI034 

ENABLE  INTERRUPTS, 

0175 

12,2226 

0 0006  1 

EXTEND 

0176 

12,2227 

01  013  1 

WRITE 

13 

0177 

REF 

12 

LAST 

146 

12,2230 

3 

7637 

1 

CAF 

POSMAX 

T3  AND  T 4 OVERFLOW  AS  SOON  AS  POSSIBLE, 

0178 

REF 

1 

12,2231 

54 

030 

0 

TS 

TIME5 

SO  DOES  T5, 

0179 

REF 

4 

LAST 

146 

12,2232 

54 

026 

1 

TS 

TIME3 

(POSMAX  IS  P5EUD0  INTERRUPT  SIGNAL  IN 

0180 

" REF ' 

T 

12,2233 

54 

027 

0 

te 

TIME4 

CASE  RUPT  SIGNALLED  BEFORE  TS  TIME3) , 

OUT  REF  1 12*223*  3 2*i*  1 CAF  STARTEB 

0182  REF  r~  ~~TTiT£S5  R‘003“0—  TS  ““EbANK  SET  FORET 


0183 

REF 

3 LAST  1 A6 

12,2236  3 7640  1 

CAF 

NEGl/2  INITIALIZE  WAITLIST  DELTA-TS. 

ora4 

REF 

30  LAST  151 

12,2237  55*407  1 

rs 

LST 1 +7 

OI85 

REF 

3l  LAST  156 

12,2240  55* 4O6  0 

T5 

LST1  +6 

0186 

ref 

32  LAST  156 

12,2241  55*405  0 

TS 

LST 1 +5 

0187 

REF 

S3- LAST  156 

12,2242  55*404  T 

“TS  “ 

LST 1 +4 

0188 

REF 

34  LAST  156 

12,2243  55*403  0 

TS 

LST 1 ♦ 3 

0169 

REF 

35  LAST  156 

12,2244  55*402  1 

TS 

LST 1 +2 

0190 

REF 

36  LAS  1 156 

12,2245  55*401  1 

TS 

LST 1 +I 

0191 

REF 

37  LAS  1 156 

12,2246  55*400  0 

TS 

LSTl 

0192 

REF 

3 LAST  146 

12,2247  4 4567  0 

CS 

ENDTASK 

OI93 

REF 

19  LAST  146 

12,2250  55*410  1 

TS 

LST2 

0 1 9 A 

REF 

20  LAST  1 56 

12,2251  55*412  0 

TS 

LST  2 +2 

0T95 

REF 

21  LAST  156 

12,2252  55*414  0 

TS 

LET2  +4 

0196 

REF 

di  LAS  1 1 56 

12,2253  55*416  1 

TS 

L5T  2 +6 

0197 

REF 

23  LAST  156 

12,2254  55*420  1 

TS 

LST2  +8D 

0198 

REF 

24  LAST  156 

12,2255  55*422  0 

T5 

LST  2 + 1 OD 

0199 

REF 

25  LAST  156 

12,2256  55*424  0 

TS 

L5T2  +1 2D 

0200 

REF 

26  LAS  1 1 56 

12,2257  55*426  1 

T S 

L5T2  +14D 

0201 

REF 

27  LAST  156 

12,2260  55*430  TT 

TS 

L5T2  +16D 

0202 

REF 

4 LAS1  156 

12,2261  4 4570  0 

CS 

ENDTASK  +1 

0203 

REF 

28  LASl  156 

12,2262  55*411  0 

TS 

LST2  +1 

0204 

REF 

29  LAST  156 

12,2263  55 ' 41 3 1 

TS 

L5T2  *3 

0205 

ref 

30  LAST  156 

12f 22fc4  ^6*416  1 

TS 

LST2  *5 

0206 

REF 

31  LAST  156 

12,2265  55*417  0 

TS 

LST2  +7 

0207 

REF 

32  LA5T  156 

12,2266  55*421  CT 

TT 

LST2  +9D 

I 
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L FRE5H  START  AND  RESTART 


USER'S  OWN  PAGE  NO. 7 


0208 

REF 

33 

LAST 

156 

12,2267 

55*423 

1 

TS 

LST  2 + 1 ID 

0209 

REF 

'34 

LAST 

157 

12,2270 

55*425 

1 

TS 

LST2  +13D 

0210 

REF 

35 

LAST 

157 

12,2271 

55*427 

0 

TS 

LST  2 + 1 5D 

0211 

REF 

36 

LAST 

157 

12,2272 

55*431 

1 

T S 

LST  2 + 17D 

0212 

REF 

H6 

LAST 

156 

12,2273 

4 7665 

1 

cs 

ZERO 

MAKE  ALL  EXECUTIVE  REGISTER  SETS 

0213 

REF 

20 

LAST 

135 

12,2274 

54  153 

1 

T5 

PRIORITY 

available. 

0214 

REF 

21 

LAST 

157 

12,2275 

54  167 

0 

TS 

PRIORITY  + 1 2D 

0215 

REF 

22 

LAST 

157 

12,2276 

54  203 

1 

TS 

PRIORITY  +24D 

0216 

REF 

23 

LAST 

157 

12,2277 

54  217 

1 

T5 

PRIORITY  +36D 

0217 

REF 

24 

LAST 

157 

12,2300 

54  233 

1 

TS 

PRIORITY  +48D 

0218 

REF 

25 

LAST 

157 

12,2301 

54  247 

1 

TS 

PRIORITY  +60D 

0219 

REF 

26 

LAST 

157 

12,2302 

54  263 

1 

TS 

PRIORITY  + 72D 

0220  REF  1 6 LAST  137 


12 


2303 


54  067  1 


T5~  NEW JOB  SHOWS  NO  ACTIVE  JOBS, 


0221 

REF 

1 

12*2304 

3 2412  1 

CAF 

VAC1ADRC  MAKE  ALL  VAC  AREAS  AVAILABLE. 

0222 

ref 

2 LAST 

128 

12.2305 

54  431  0 

TS 

VAclUSE 

0223 

REF 

1 

12,2306 

6 2413  0 

AD 

LTHVACA 

0224 

REF 

2 LAST 

128 

12,2307 

54  505  0 

TS 

VAC2USE 

0225 

REF 

2 LAST 

157 

12,2310 

6 2413  0 

AD 

LTHVACA 

0226 

REF 

2 LAST 

128 

12,2311 

54  561  1 

T S 

VAC3USE 

0227 

REF 

3 LAST 

157 

12,2312 

6 2413  0 

AD 

LTHVACA 

0228 

REF 

2 LAST 

128 

12,2313 

54  635  0 

TS 

VAC4USE 

0229 

REF 

4 LAST 

157 

12,2314 

6 2413  0 

AD 

LTHVACA 

0230 

REF 

2 LAST' 

128 

12,2315 

54  711  1 

TS 

VAC5USE 

0231 

REF 

2 LAST  67 

12.2316 

3 7661  1 

CAF 

TEN 

TURN  OFF  ALL  DISPLAY  SYSTEM  RELAYS, 

0232 

REF 

1 

12,2317 

54  351  1 

TS 

didflg 

display  inertial  data  flag. 

0233 

REF 

367  LAST  154 

12,2320 

54  140  0 DSPOFF 

TS 

MPAC 

0234 

REF 

3 LAST  138 

12,2321 

4 7644  1 

cs 

BIT12 

0235 

REF 

368  LAST  157 

12,2322 

50  140  1 

INDEX 

MPAC 

0236 

REF 

5 LAST  153 

12,2323 

54  307  1 

TS 

DSPTAB 

0237 

R=.F 

369  LAST  157 

12,2324 

10  140  0 

CCS 

MPAC 

U238  REP 

1 

12,2325 

0 2320  I 

TC 

" DSPOFF 

W239 

REF 

1 

12,2326 

54  045  1 

TS 

INLINK 

0240 

REF 

1 

12,2327 

54  341  0 

TS 

0241 

REF 

1 

12,2330 

54  366  0 

TS 

LMPCMD 

0242 

REF 

1 

12,2331 

54  323  1 

TS 

CADRSTOR 

0243 

REF 

1 

12,2332 

54  300  cr 

T5 

REG)  RET 

0244 

REF 

1 

14,2333 

54  302  1 

TS 

CLPASS 

0245 

REF 

1 

12,2334 

54  277  1 

TS 

DSPLOCK 

0246 

REF 

1 

12,2335 

54'  305  0 

'MONSAVE 

KILL  TMONTTOR 

0247 

REF 

1 

12,2336 

54  306  0 

TS 

MONSAVE  1 

0248 

REF 

1 

12,2337 

54  324  0 

TS 

GRABLOCK 

0249 

REF 

1 

12,2340 

54  266  1 

TS 

VERBREG 

0250 

REF 

1 

12,2341 

54  267  0 

TS 

NOUNREG 

0251 

REF 

1 

12,2342 

54  327  0 

TS 

DSPLI5T 

0252 

REF 

2 LAST  157 

12,2343 

54  330  0 

~T5 

U5PLIST  +1 

C\ 


/L 
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L F 3E.SH  START  AND  RESTART  USEftfrS:  OWN  PAGE  NO%  8 

0253  REF  3 LAST  157  12,2344  54"33T  1 ~~  ~T5  DSPLIST  +2 


0254 

REF 

1 

12,2345 

54  374 

0 

TS 

MARKSTAT 

0255 

REF 

1 

12,2346 

54  332 

I 

TS 

EXTVBACT 

MAKE  EXTENDED  VERBS  AVAILABLE 

0256 

REF 

1 

12,2347 

54  371 

0 

TS 

IMUCADR 

0257 

REF 

1 

12,2350 

54  372 

0 

TS 

OPTCADR 

0258 

REF 

1 

12,2351 

54  373 

1 

TS 

RADCADR 

0259 

REF 

1 

12,2352 

54  357 

1 

TS 

LGYRO 

0260 

REF 

1 

12,2353 

54  350 

0 

TS 

DSRUPTSW 

0261 

REF 

1 

12,2354 

3 7660 

0 

CAF 

NOUTCON 

0262 

REF 

1 

12,2355 

54  303 

0 

TS 

NOUT 

0263 

REF 

24  LAST  145 

12,2356 

4 7657 

0 

CS 

ONE 

NO  RADAR  DESIGNATION. 

0264 

REF 

1 

12,2357 

54  414 

1 

TS 

samplim 

NO  RADAR  RUPTS  EXPECTED. 

°265 

REF 

1 

12*2360 

3 2411  1 

CAF 

T4LINIT 

0266 

REF 

I 

12,2361 

54  347  0 

TS 

T4L0C 

0267 

REF 

1 

12,2362 

3 2435  1 

CAF 

IM33INIT 

NO  PIP  OR  TM  FAILS. 

0268 

~ REF 

T 

12,2363 

54  370  1 

TS 

IM0DES33 

0269 

REF 

5 LAST  153 

12,2364 

3 7652  1 

CAF 

BIT6 

SET  LR  POS. 

0270 

12,2365 

0 0006  1 

EXTEND 

0271 

12,2366 

02  033  0 

RAND 

33 

0272 

REF 

1 

12*2367 

6 2437  0 

AD 

RMODINIT 

0273 

REF 

2 last  26 

12,2370 

54  413  0 

T5^ 

RADMODES 

0274 

REF 

1 

12,2371 

3 2410  0 

CAF 

LtSCHK 

SELF  CHECK  GO-TQ  REGISTER. 

0275 

REF 

4 LAST  137 

12,2372 

55*360  1 

TS~ 

selfret 

0276 

REF 

1 

12,2373 

4 5237  0 

CS 

VD1 

0277 

REF 

1 

12,2374 

54  264  0 

TS 

dspcount 

0278 

REE 

1 

E7 

EBANK= 

DNTMGOTO 

0279  REF  1 12*2375  3 2406  1 CAF  LDNTMGO  SET  UP  TM  PROGRAM. 

■0Z"80  RE?  2 LAST  156  1712576 — 54  003  0 TS EbANk 


0281 

REF 

1 

12,2377  3 2405  1 

CAF 

LDNPHAS1 

0282 

REF 

2 LAST  156 

12,2460  55*401  1 

TST 

DNTMGOTO 

0283 

REF 

1 

12,2401 

3 2407 

0 

CAF 

NOMTMLST 

SET  UP  NOMINAL  DOWNLINK  LIST. 

0284 

REF 

1 

12,2402 

54  411 

1 

TS 

DNU5TADR- 

0285 

REF 

82  LAST 

156 

12,2403 

0 0114 

0 

TC 

BUF 

D289 

12,2404 

00035 

1 

IFAILINH 

OCT 

35 

I SS  FAILURE  INHIBIT  BITS, 

0290 

REF 

1 

12,2405 

02052 

1 

LDNPHAS1 

GENADR 

DNPHA5E1 

0291 

REF 

3 LA  5 I 

158 

12,2406 

03401 

1 

LDNTMGO 

ECADR 

DNTMGOTO 

0292 

REF 

1 

12,2407 

02321 

0 

NOMTMLST 

GENADR 

NOMDNLST 

0293 

REF 

2 LAST 

137 

12,2410 

02101 

0 

LESCHK 

GENADR 

SELFCHK 

0294 

REF 

1 

12,2411 

04730  1 

T4LTNTT 

ADRES  “ 

DSKYRSEF 

l 
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L Fresh  start  and  RESTART  user's  own  page  NO.  9 

0295  REF  3 LAST  157  12.2412  00431  1 VAClADRC  ADRE5  VAClUSE 

0296  12,2413  00054  0 LTHVACA  PEC  44 ~ 

0297  REF  38  LAST  156  12,2414  01400  1 STARTEB  ECADR  LSTl 

0298  ft£F  ~Z  LAsT  64  7664  NUMGRPs  EQUALS  FIVE  SIX  GROUPS  CURRENTLY. 

R0299  WHERE  TO  GO  ON  RESTART  IF  GROUP  ACTIVEX 


0300 

0301  REF  1 

0302 

0303 

0304 

0305 


12*2^15  00000  1 RACTCADR  CADR  10000 

12.2416  427647,  CADR  OpTMSTRT 

12.2417  QOOOO~r~  CADR 10000 

12.2420  OOOOO  1 CADR  10000 

12.2421  OOOOO  1 CADR  10000 

12.2422  0OOOCTT-  CADR  10000 


AVAILABLE  FOR  USE-NEXT  ONE  USED 
RESTARTS  DURING  OpTM  ALIGN  CALIBRATION 


R0306  WHERE  TO  GO  ON  RESTART  IF  TERMINATE  REQUESTED* 


0307  12.2423  00000~1  RTERMCAD  CADR  10000 

0308  12.2424  000007T-  CAdR  10000 

0309  12,2425  OOOOO  1 CADR  10000 

0310  12,2426  OOOOO  1 CADR  10000 

0311  12,2427  OOOOO  1 CADR  10000 

0312  r2  72430^  OOOOO  1 CAOR  10000 


0313 

12,2431 

77755 

0 

-ELR  OCT 

-22 

-ERROR  LIGHT  RESET  KEY  CODE. 

0314 

12,2432 

77757 

r 

-MKREJ  ~OCT 

-20 

- mark  reject. 

0315 

12,2433 

37411 

1 

IM30INIF  OCT 

37411 

INHIBITS  IMU  FAIL  FOR  5 SEC  AND  PIP  ISSW 

0316 

12,2434 

37400 

1 

IM30INIR  OCT 

37400 

LEAVE  FAIL  INHIBITS  ALONE. 

0317 

12,2435 

16000 

0" 

I v, 3 3 1 NI T OCT 

16000 

NO  PIP  OR  TM  FAIL  SIGNALS. 

0318 

12,2436 

00440 

1 

9,6  OCT 

440 

MASK  FOR  PROG  ALARM  AND  GIMBAL  LOCK, 

0319 

12,2437 

00102 

1 

RMODINIT  OCT 

00102 

031911  REF  1 :E6  EBANK=  DT 

031912  12,2440  03141  0 IDLEADR  2CADR  DAPIDLER 


C031912  REF 

1 ~ 

12,2441 

46006  0 

031913  REF 

2 LAST  159 

E6 

EBANK= 

DT 

031914 

12,2442 

03115  1 

SETADR 

2CADR 

SETIDLE 

C031914  REF 

1 

12 ,2443 

46006  0 

0320 

12,2444 

OOOOO  1 

SWINIT 

OCT 

0 

0321 

12,2445 

OOOOO  1 

OCT 

0 

0322 

12,2446 

OOOOO  1 

OCT" 

0“ 

0323 

12,2447 

OOOOO  1 

OCT 

0 

0324 

12,2450 

O4OI2  0 

OCT04012  OCTAL 

04012 

INITIAL  VALUE  OF  DAPBOOLS 

U325 

12.2451 

ENDFRESS 

EQUALS 

« 

o 

< 

*s 


473423a  YJL  SYSTEM  FOr  BLK2:  REVlSlO\|  12  OF  PROGRAM  AURORA  BY  DaP  GROUP  mOV  IQ*  1966  PaQE  160 


L 

T4RUP  r program 

USER’S  OWN  PAGE  NO.  1 

0001 

REF 

1 

4713 

SE1L0C  EnDPHMnF 

0002 

REF 

2 LAST  27 

E6 

EBANK=  Mil 

0003 

4713 

0 0006  1 T4RUPT 

EXTEND 

ZERO  OUTO  EVERY  T4RUPT, 

0004 

REF 

1 

4714 

01  010  1 

WRITE  ojto 

(COMES  HERE  WITH  +0  IN  A) 

0005  “KEF”  2 CS5T  1 5 8 47l5T  "5'(T3*7T”  INDEX  T4L0C  NORMALLY  TO  N0RMT4.  BUT  TO  LMPReSlT  OR 

0006  ' 4716  1 0000  0 TCF  0~~  DSKYRSET  AFTER  OUTO  COMMAND* 


0007  REF  2 LAST  158  4717  10  350  0 NORM T 4 CC5  DSRUFT5W  GOES  7(-l)0. 


7)00  8 

4720 

1 4722 

0 " 

TCF 

♦ 2 

0009 

REF 

4 LAST  108 

4721 

3 7663 

0 

CAF 

SEVEN 

0010 

REF 

3 LAST  160 

4722 

54  350 

0 

TS 

DSRUPTSW 

0011 

REF 

1 

4723 

3 4023 

1 

CAF 

T4RPTBB 

OFF  TO  SWITCHED  BANK 

0012 

REF 

18  LAST  147 

4724 

56  006 

1 

XCH 

BBANK 

0013 

REF 

2 LAST  27 

4725 

1 2451 

1 

TCF 

T4RUPTA 

0014  REF 

1 

4726 

3 4735  1 

LMPRESET  CAF 

90MRUPT 

30  MS  ON  / 90  MS  OFF. 

0015 

4727 

1 473T  1 

TCF 

*2 

0016 

REF 

1 

4730 

3 4736  1 

DSKYRSET 

CAF 

100MRUPT 

20  MS  ON  / 100  MS  OFF. 

75017 

"'REF 

2 

LAST 

156 

4731 

54  027  0 

TS 

TIME4 

0018 

REF 

1 

4732 

3 4737  0 

CAF 

LN0RMT4 

0019 

REF 

3 

LAST 

160 

4733 

54  347  0 

T5 

T4L0C 

0020 

REF 

1 

4734 

1 4612  1 

TCF 

NOQB"RSM 

0021 

4735 

37767  0 

90MRUPT 

DEC 

16375 

73022 

4736 

37766  1 

IOOmRUPT 

DEc 

16374 

0023 

REF 

1 

4737 

04717  1 

LN0RMT4 

ADRES 

N0RMT4 

0024 

4740 

74000  1 

74K 

OCT 

74000 

RQ025  RELTAB  IS  A PACKED  TABLE.  RELAYWORD  CODE  IN  UPPER  4 BITS*  RELAY  CODE 
R0026  IN  LO*ER  5 BITS. 


0027 

0028 
"0029 
0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 


4741  04025  1 RELTAB  OCT  04025 

4742  10003  0 CCT  10003 

4T43  r4031  0 OCT  TWIT- 

4744  20033  0 OCT  20033" 

4745  24017  1 OCT  2401 T“ 

~ 4746  30030“!“  “OCT  30036“ 

4747  34034“1  OCT  34034 

4750  40023  I OCT  40023 

“4751  44035  1 OCT 44035 

4752  50037  0 OCT 50037“ 

4753  54000  0 OCT  54000 

“4754  60000  1 RELTAB!  TOCT 60000 — 


4 


47342p~Tl)L  SYSTEM  TOR  BLK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10*  1966  (MAIN)  PAGE  UI 

L TARUPl  PROGRAM  USER*S  OWN  PAGE  NO,  2 


0039 


4755  ENDT4FF  EQUALS 


473423A  VJL  SYSTEM  FOR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  162 


l T4RUPT  PROGRAM  USEb«S  OWN  PAGE  NO.  3 


PQ040  3WITCHED-BANK  PORTlONh 

0041  REF  1 12*2451  SETLQC  ENDFRESS 


0042 

REF 

3 

LAST 

147 

12 

,2451 

54  016 

1 

T4RUPTA 

TS 

BANKRUPT 

0043 

12 

,2452 

0 0006 

1 

EXTEND 

0044 

REF 

4 

LAST 

147 

12 

,2453 

22  012 

1 

oxch 

QRUPT 

OO45 

REF 

2 

LAST 

157 

12 

*2454 

10  366 

0 

LMPOUT 

CCS 

LMPCMD 

SEE  IF  LMP  COMMAND  TO  BE  SENT.  IF  SO, 

0046 

REf 

1 

12 

,2455 

1 2471 

0 

tcf 

CDRVE 

BIT  15  = 1 AND  (UP  TO)  BITS  1 - 11 

0047 

REF 

2 

LAST 

162 

12 

,2456 

1 2471 

0 

"TCP 

CURVE 

CONTAIN  THE  COMMAND. 

0048 

REF 

1 

12 

,2457 

3 5234 

1 

CAF 

LOW  1 1 

0049 

REF 

3 LAST 

162 

12 

,2460 

7 0366 

0 

MASK 

LMPCMD 

LEAVE  COMMAND  PORTION  INTACT. 

0050 

REF 

4 

LAS! 

162 

12 

,2461 

54  366 

0 

TS 

LMPCMD 

0051 

REF 

1 

12 

,2462 

6 4740 

0 

AD 

74K 

005  2 

12 

,2463 

0 0006 

1 

EXTEND 

0053 

REF 

2 

LAST 

160 

12 

,2464 

01  010 

1 

WRITE 

OUTO 

0054 

REF 

1 

12 

,2465 

3 2562 

1 

CAF 

llmprs 

0055 

REF 

4 

LAST 

160 

12 

,2466 

54  347 

0 

TS 

T4L0C 

0056 

REF 

1 

12 

,2467 

3 2563 

0 

CAF 

30MRUPT 

0057 

REF 

1 

12 

,2470 

1 2546 

0 

TCF 

SETTIME4 

0058 

REF 

6 

LAST 

157 

12 

,2471 

10  322 

0 

CDRVE 

CCS 

DSPTAB  + 1 ID 

0059 

REF 

1 

12 

,2472 

0 2 501 

1 

TC  ' 

DSPOUT 

0060 

REF 

2 

LAST 

162 

12 

,2473 

0 2501 

1 

TC 

D3P0UT 

0061 

REF 

7 

LAST 

162 

12 

,2474 

56  322 

1 

XCH 

DSPTAB  + 1 ID 

0062 

REF 

2 

LAST 

162 

12 

,2475 

7 5234 

0 

MASK  LOW  11 

0063 

REF 

8 

Last 

162 

12 

,2476 

54  322 

0 

TS 

DSPTAB  +1  ID 

0064 

REF 

1 

12 

,2477 

6 4754 

0 

AD 

RELTAB11 

0065 

REF 

1 

12 

,2500 

0 2541 

0 

TC 

DSPLAYC 

-W3423A  YJL  SYSTEM  FOR  BLK2*  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966 


(MAIN) 


PAGE  163 


l t»rl)P1  program  user's  o*n  page  no.  a 


P0066  D'SPoUt  program,  puts  out  displays. ; 

0067  REF  2 LAST  158  12,2501  10  303  0 D5P0UT  CCS  NOLPT"  DRIVE  DISPLAY  SYSTEM  RELAYS, 

0066  12,2502  1 2505  1 TCF  *3  " ""  """' 


0069  REF  1 12,2503  3 2522“0  NODSPOUT  CAF  120MRUPT  ~ SET  FOR  RUPT  IN  120  MS  IF  NO  RELAYS, 

0070  REF  2 LAST  162  12JZ5&T  1 2546  0 ~ TCF  5ETTIME4  


0071 

REF 

3 

LAST 

163 

12,2505 

59  303 

0 

TS 

NOUT 

0072 

REF 

97 

LAST 

157 

12,2506 

9 7665 

1 

CS 

ZERO 

0073 

REF 

r 

12,2507 

59  077 

0 

TS 

DSRUPTEM 

SET  TO  -0  FOR  1ST  PASS  THRU  DSPTAB 

0079 

REF 

2 

LAST 

157 

12,2510 

56  391 

1 

XCH 

DSPCNT 

0075 

REF 

l 

12,2511 

6 7666 

0 

AD 

NEGO 

TO  PREVENT  +0 

0076 

REF 

3 

LAST' 163 

12,2512 

59  391 

0 

TS 

DSPCNT 

0077 

REF 

9 

LAST 

163 

12,2513 

50  391 

1 

D5PSCAN 

INDEX 

DSPCNT 

0078 

REF 

9 

LAST 

162 

12,2519 

10  307 

1 

CCS 

DSPTAB 

0079 

REF 

5 

LAST 

163 

12,2515 

10  391 

0 

CCS 

DSPCNT 

IF  DSPTAB  ENTRY  + , SKIP 

0080 

REF 

1 

12,2516 

0 2511 

0 

TC 

DSPSCAN  -2 

IF  DSPCNT  +»  AGAIN 

0081 

REF 

1 

12,2517 

0 2530 

0 

TC 

DSPLAY 

IF  DSPTAB  ENTRY  -,  DISPLAY 

0082 

12,2520 

00012 

1 

TABlNTH 

~OCT 

12 

DEC  10  LENGTH  OF  DSPTAB 

0083 

REF 

2 

LAST 

163 

12,2521 

10  077 

0 

CCS 

DSRUPTEM 

IF  DSRUPTEM=+0,2ND  PASS  THRU  DSPTAB 

0089 

12,2522 

37764 

0 

120MRUPT 

DEC 

16372 

(DSPCNT  =0),  .0  INTO  NOUT, 

0085 

REF' 

9 LAST 

163 

12,2523 

TS 

"NOUT 

0086 

REF 

1 

12,2529 

1 2503 

1 

TCF 

NODSPOUT 

0087 

REF 

3 

LAST 

163 

12,2525 

54  077 

0 

TS 

DSRUPTEM 

IF  DSRUPTEM=-0,1ST  PASS  THRU  DSPTAB 

0088 

" REF 

T 

12,2526 

3 2520  1 

CAF' 

TABLNTH 

(DSPCNT=0).  +0  INTO  DSRUPTEM,  PASS  AGAIN 

0089 

REF 

2 

LAST 

163 

12,2527 

0 2512 

0 

TC 

DSPSCAN  -1 

OO9O 

REF 

25 

LAST  158 

12,2530 

6 7657 

1 

DSPLAT 

AD 

"ONE 

0091 

REF 

6 

LAST  163 

12,2531 

50  341 

1 

INDEX 

DSPCNT 

OO92 

REF 

10 

LAST  163 

12,2532 

54  307 

1 

TS 

DSPTAB 

REPLACE 

POSITIVELY 

0093 

REF 

3 

LA5T  162 

12  ,2533 

7 5234  0 

"^IASK 

LOW  11 

REMOVE 

BITS  12  TO  15 

OO94 

RcF 

4 

LAST  163 

12,2534 

54  077 

0 

TS 

DSRUPTEM 

0095 

REF 

1 

12,2535 

3 5226 

1 

CAF 

HI  5 

OO96 

REF 

T 

LAST  163 

12,2536 

50  341 

1 

"INDEX  DSPCNT 

OO97 

REF 

1 

12,2537 

7 4741 

0 

MASK 

RELTAB 

PICK  UP 

BITS  12  TO  15  OF  RELTAB  ENTRY 

OO98 

REF 

5 

LAST  163 

12,2540 

6 0077 

1 

AD 

DSRUPTEM 

0099 

12,2541 

0 0006 

~r 

D5PLATC- 

EXTEWD' 

0100 

REF 

3 

LAST  162 

12,2542 

01  010 

1 

rtRITE 

OUTO 

u 101 

Rtr 

1 

12,2543 

3 2561 

1 

CAF 

LDSKYRS 

0102 

REF 

5 

LAb  1 164 

12 ,2544 

54  347 

0 

TS 

T4L0C 

U 103 

REF 

1 

12 ,2545 

3 2564 

1 

CAF 

20MRUPT 

Kcr 

5 

LA51  160 

12,2546 

54  027 

0 

SETTIME4 

TS 

TIME4 

— LT 

« 


473423A  Y JL  SYSTEM  FOR  BL<2:  REVISION!  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10.  1966  (MAIN)  PAGE  I64 


L 

KRUPT  PROGRAM 

user*s  own  page  NO. 

5 

P0105 

JUMP  TO 

APPROPRIATE 

3NCE-PER  SECOND  (.96  SEC  - 

ACTUALLY)  ACTIVITY 

0106 

REF 

4 LAST  160 

12,2=47 

5q  350  1 

T 4 JUMP  INDEX 

DSRUPTSW 

0107 

12.2550 

1 2551  0 

TCF 

+ 1 

0108 

ref 

1 

12.2551 

0 2565  0 

TC 

ALTOUT 

0109 

REF 

1 

12,2552 

1 3440  0 

TCF 

RRAUTCHK 

0110 

REF 

1 

12,2553 

1 2720  1 

TCF 

IMUMON 

0111 

REF 

1 

12,2554 

1 3545  1 

TCF 

GPMATRIX 

0112 

REF 

1 

12,2555 

0 2632  1 

TC 

ALTROUT 

0113 

REF 

2 LAST  164 

12,2556 

1 3440  0 

TCF 

RRAUTCHK 

OIK 

REF 

2 LAST  164 

12,2557 

1 2720  1 

TCF 

IMUMON 

0115 

' REF 

2 LAST  164 

12,2560 

1 3545  1 

TCF 

GPMATRIX 

0116 

REF 

2 LAST  158 

12,2561 

04730  1 

LDSKYRS  ADRES 

DSKYRSET 

0117 

REF 

1 

12,2562 

04726  0 

LLMPRS  ADRES 

LMPRESET 

0118 

12,2563 

37775  0 

30MRUPT  DEC 

16381 

0119 

12,2564 

37776  0 

gnMRUPT  DEC 

16382 

'II' 


■HI 


473423A  YUL  SyST  El . FOR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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l tarupt  program  user's  own  page  no",  6 

PQ120  TWS  ROUTINE  S E R VIC ES  THE  METER  OUTPUTS, 


R0121  DlDfLS  INDICATES  THE  STaTE  OF  THE  PROGRAM 

R0122  IF  GREATER  THAN  ZERO,  THEN  UNABLE  TO  DISPLAY  DATA 

R0123  IF  EOJAL  TO  ZERO,  THEN  THE  PROGRAM  IS  IN  USE 

R0124  IF  LESS  THATTZERO,  THEN  THE  PROGRAM  IS  ABLE  fO~BE  USED 


I! 


0125 

REF 

1 

12*2565 

0 26A0 

1 ALTOUT 

TC 

disindat 

0126  REF 

2 LAST  76 

12,2566 

4 7656 

1 

CS 

BIT2 

0127 

12,2567 

0 0006 

1 

EXTEND 

0128 

12,2570 

03  014 

1 

WAND 

14 

SET  UP  OUTPUT  FOR 

ALTITUDE 

0129 

REF 

I 

12,2571 

10  352 

1 

CCS 

ALT 

-1  IF  OLD  DATA  TO 

BE  EXTRAPOLATED. 

0130 

12,2572 

1 2576 

0 

TCF 

♦ 4 

NEW  DATA, 

0131 

12,2573 

1 2576 

0 

TCF 

+ 3 

0132 

REF 

1 

12,2574 

1 2602 

0 

TCF 

OLDDATA 

0133 

REF 

2 LAST  165 

12,2575 

54  352 

1 

TS 

ALT 

CHANGE  -0  IN  ALT  TO  +0. 

0134 

REF 

26  LA5T  163 

12,2576 

4 7657 

0 

CS 

ONE 

RESET  ALTSAVE. 

0135 

REF 

3 LAST  165 

12,2577 

52  353 

0 

DXCH 

ALT 

0136 

REF 

1 

12,2600 

52  365 

0 

ZDATA2 

DXCH 

ALTSAVE 

0137 

REF 

I 

12,2601 

1 2622 

1 

TCF 

NEWDATA 

0138 

REF 

1 

12,2602 

3 0354  0 OLDDATA 

CA 

altrate 

USE  ALTRATE  TO  EXTRAPOLATE, 

0139 

12,2603 

0 0006  1 

EXTEND 

0140 

REF 

1 

12,2604 

7 2715  1 

MP 

ARTOA 

RATE  APPLIES  FOR  ,96  SEC. 

0141 

REF 

2 

LAST 

165 

12,2605 

6 0365  1 

AD 

ALTSAVE  *1 

0142 

REF 

3 

LAST 

165 

12,2606 

54  365  O' 

TS 

ALTSAVE  *1 

AND  MAYBE  SKIP, 

0143 

REF 

48 

LAST 

163 

12,2607 

3 7665  0 

CAF 

ZERO 

OlA4 

REF 

4 

LA5 1 

165 

12,2610 

26  364  1 

ADS 

ALTSAVE 

0145 

REF 

13 

LAST  156 

12,2611 

3 7637  1 

CAF 

POSMAX 

FORCE  SIGN  AGREEMENT  ASSUMING  ALTSAVE  IS 

0146 

REF 

27 

LAsT  165 

12,2612 

6 7657  1 

ad 

ONE 

NOT  negative,  if  IT  Is,  The  final  Ts 

0147 

REF 

5 

LAST  165 

12,2613 

6 036E1 

AD 

ALTSAVE  *1 

WILL  NOT  SKIP  AND  WE  CAN  SET  ALTSAVE  TO 

0148 

REF 

6 

LAST  165 

1 2 t Zb  1 4 

54  365  0 

TS 

ALTSAVE  +1 

ZERO  IN  THAT  CASE. 

0149 

REF 

49 

LAST  165 

12,2615 

3 7665  0 

CAF 

ZERO 

0150 

REF 

14 

LAijT  165 

12,2616 

6 763T  I 

“ AD' 

POSMAX 

0151 

REF 

7 

LAST  165 

12,2617 

6 0364  0 

AD 

ALTSAVE 

0152 

REF 

8 

LAST  165 

1 2 * 2620 

54  364  1 

TS 

ALTSAVE 

0153 

REF 

1 

12,2621 

1 2712  0 

TCF 

ZERODATA 

ALTSAVE  NEGATIVE  - 5ET  TO  ZERO. 

0154 

REF 

9 

LAST 

165 

12,2622 

10  36a 

1 

NEWDATA  CCS 

ALTSAVE 

MAKE  UP  15  BIT  UNSIGNED  OUTPUT. 

0155 

ref 

9 

LAST 

153 

12,2623 

3 7641 

O' 

CAf  ~ 

BTTT5 

MAJOR  pART  +1  OR  +0, 

0156 

REF 

10 

las  i 

165 

12,2624 

6 0365 

1 

AD 

ALTSAVE  +1 

0157 

REF 

1 

12,2625 

54  060 

0 

METEROUT  TS 

ALTM 

0158 

REF 

1 

12,2626 

3 2716 

“O' 

' “CAF 

BTT5ET  “ 

0159 

12,2627 

0 0006 

1 

EXTEND 

0160 

12,2630 

05  014 

I 

rtOR 

14 

0161 

REF 

1 

12,2631 

1 2711 

t r 

TCF 

DONEDID 

— a 


# 
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l tarupt  program _ _ ___  ___  __  user’s  own  page  no.  7 


0162 

REF 

2 LAST  165 

12  «2632 

0 2640 

1 altrout 

TC 

disindat 

0163 

REF 

3 LAST- 165 

12,2633 

3 7656 

0 

CAF 

BIT2 

0164 

12,2634 

0 0006 

1 

EXTEND 

0165 

12,2635 

05  014 

1 

iXiOR 

14 

5ET  UP  OUTPUT  FOR  ALT.  RATE 

01 66 

REF 

2 LAST  165 

12,2636 

3 0354 

0 

CA 

ALTRATE 

0167 

REF 

r 

12,2637 

1 2625 

0 

TCF 

METEROUT 

0168 

REF 

2 LAST  157 

12,2640 

10  351 

1 DISINDAT 

CCS 

DIDFLG 

0169 

REF 

2 LAST  165 

12,2641 

1 2711 

0 

TCF 

DONEDID 

0170 

12,2642 

1 2643 

0 

NOOP 

0171 

REF 

6 LAST  158 

12,2643 

3 7652 

1 CAF 

BIT6 

0172 

12,2644 

0 0006 

1 

EXTEND 

0173 

12,2645 

02  030 

0 

RAND 

30 

CHECK  DISPLAY  INERTIAL  DATA  BIT 

0174 

REF 

71  LAST  154 

12,2646 

10  000 

0 

CCS 

A 

0175 

REF 

1 

12,2647 

1 2706 

0 

TCP 

ALLDONE 

0176 

REF 

3 LAST  166 

12,2650 

10  351 

1 

CCS 

DIDFLG 

^0177 

12,2651 

1 2652 

0 

NOOP 

0178 

REF 

1 

12,2652 

1 2673 

0 

TCF 

GOAGN 

01 79 

REF 

4 LAST  64 

12,2653 

3 7650 

0 FIR5TIME 

CAF 

BITS 

0180 

12,2654 

0 0006 

1 

EXTEND 

0181 

12,2655 

05  012 

1 

WOR 

12 

ENABLE  DISPLAY  INERTIAL  DATA 

0182 

1 2 , 2656 

3 7665 

0 

CAT 

ZERO 

0183 

REF 

4 LAST  166 

12,2657 

54  351 

1 

TS 

DIDFLG 

0184 

REF 

1 

12,2660 

54  363 

0 

TS 

LASTXCMD 

0185 

REF 

T 

12,2661 

54  362 

T~ 

~TS“ 

LAST YCMD 

0186 

REF 

3 LAST  78 

12,2662 

3 6162 

T 

CAF 

SIX 

0187 

REF 

2 LAST  151 

12,2663 

0 4536 

0 

TC 

WAITLIST 

0188 

12,2664 

02667 

1 

2CADR 

I NTLZE 

CO  1 88 

REF 

1 

12,2665 

24006 

1 

0189 

REF 

3 LAST  166 

12,2666 

0 2711 

r 

TC 

DONEDID 

OI9O 

REF 

4 LAST  166 

12,2667 

3 7656 

0 I NTLZE 

CAF 

BIT2 

0191 

12,2670 

0 0006 

1 

EXTEND 

0192 

12,2671  05  012 

I 

W OT  ' 

T2 

ENABLE-RR  ERROR  COUNTER 

0193 

REF 

5 LA5T  140 

12,2672 

0 4602 

1 

TC 

TASKOVER 

UI94 

REF 

2 LAST  166 

12,2673 

4 0363 

0 GOAGN 

TS 

LASTXCMD _ 

0195 

REF 

1 

12,2674 

6 0360 

1 

ad 

forvel 

0196 

REF 

1 

12,2675 

54  054 

1 

TS 

OPTXCMD 

0197 

RtF 

2 LA5 1 166 

1 2 ,2676 

3 0360 

I 

CA 

FORVEL 

0198 

REF 

3 LAS  1 166 

12,2677 

54  363 

0 

rs 

LASTXCMD 

0199 

REF 

2 LAST  166 

12,2700 

4 0362 

1 

cs 

LASTYCMD 

0200 

REF 

1 

12,2701 

6 0361 

"0 

AD 

LATVEL 

0201 

REF 

1 

12,2702 

54  053 

0 

TS 

OPTYCMD 

0202 

RcF 

2 LAS  1 166 

12,2703 

3 0361 

0 

CA 

LATVEL 

0203 

REF 

3 LAST  166 

12*2704 

54  362 

1 

TS 

LASTYCMD 

0204 

REF 

100  LAST  156 

12,2705 

0 0002 

0 

TC 

Q 

0205  REF T 


12 ♦ 2706  4 2717  0 


REMOVE  DISPLAY  INERTIAL  DATA  AND  ECTR , 
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L 

T4RUPT  PROGRAM 

USER'S  OWN  PAGE  NO,  8 

0206 

12*2707 

0 0006 

1 

EXTEND 

0207 

12*2710 

03  012 

1 

rt'AND 

12 

RESET  RR  ERROR  COUNTER 

0208 

REF 

1 

12,2711 

1 3752 

0 

DONEDID 

TCF 

RCSMONIT 

0209 

REF 

51  LAST  166 

12,2712 

3 7665 

0 

ZERODATA 

CAF 

ZERO 

0210 

REF 

28  LAST  I 5 A 

12,2713 

54  001 

1 

TS 

L 

0211 

REF 

1 

12,2714 

1 2600 

1 

TCF 

ZDATA2 

0212 

12*2715 

06432 

1 

ARTOA 

DEC 

,20469 

ALT  DUE  TO  ALTRATE  FOR  ,96  SEC. 

0213 

12,2716 

06004 

0 

BITSET 

OCT 

6004 

0214 

12,2717 

00202 

1 

DIDRESET 

OCT 

202 
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L TARUPT  PROGRAM  _ _ . USERiS  OWN  PAGL  NO.  9 

P0215  I MU  INBIT  MONITOR  - ENTERED  EVERY  460  MS  BY  T4RUPT . 


0216  REF  5 LAST  154  12»2?20  3 0367~0  IMUMON  CA-  TWQDES30  SEE  IF  THtRE  HAS  BEEN  A CHANGE  IN  THE 

0217  12.2721  CT  0006  1 EXTEND RELEVANT  BIT  'S  W CHAN  30.  ~ 


0218 

12.2722 

06  030 

1 

RXOR  30 

0219 

ref  1 

12,2723 

7 3412 

1 

MASK  30RDMSK 

0220 

12,2724 

0 0006 

1 

EXTEND 

0221 

REF  1 

12,2725 

1 2755 

0 

3ZF  TNONTEST  NO  CHANGE  IN  STATUS. 

0222 

REF  3 LAST  1^9 

12.2726 

54  074 

"0 

TS  RUPTREGl 

SAVE  BITS  WHICH  HAVE  CHANGED. 

0223 

REf  6 LAST  168 

12,2727 

22  367 

0 

LXCH  T|v|U0ES30 

update  IM0DES30. 

0224 

12,2730 

0 0006 

1 

EXTEND 

0225 

REF  29  LAST  167 

12,2731 

06  001 

0 

RXOR  L 

0226 

REF  7 LAST  166 

12,2732 

54  367 

1 

TS  IMODES30 

0227 

REF 

2a  LAST 

165 

12,2733 

4 7657 

0 

CS 

ONE 

' 0228 

RcF 

4 LAST 

168 

12,2734 

56  074 

1 

XCH 

RUPTREGl 

0229 

12,2735 

0 0006 

1 

EXTEND 

0230 

REF 

T 

12,2736 

6 3205 

0 

3ZMF 

TLIM 

CHANGE  IN  I MU  TEMP. 

0231' 

REF 

1 

12,2737 

1 2741 

0 

TCF 

NXTIFBIT 

BEGIN  BIT  SCAN. 

0232 

REF  29  LAST  168 

12. 2740  6 7657  1 -1 

AD  ONE 

(RE-ENTERS  HERE  FROM  NXTIFAIL.) 

0233 

REF  5 lAST  168 

12,2741  24  OTA  1 NXTTfE 

AdVANcE  BIT  POSITION  NUMBER. 

0234 

12,2742  6 0000  1 +1 

DOUBLE 

0235 

REF  72  LA5T  166 

12,2743  54  000  0 

TS  A 

5KIP  IF  OVERFLOW, 

0236 

REF  2 LA5 1 168 

12,2744  1 2741  0 

TCF  NXTIFBIT 

LOOK  FOR  BIT, 

0237 

REF  2 LAST  149" 

12.2745 

56  O75 

O' 

XCH 

RUPTREG2 

SAVE  OVERFLOW-CORRECTED 

DATA. 

0238 

REF  6 lA5T  168 

12.2746 

5IT074 

1 

1NqEX 

RUPTREGl 

select  weitvalue  of  thi 

S BIT. 

0239 

REF  10  LAST  152 

12,2747 

3 7642 

0 

CAF 

BIT  14 

0240 

REF  8 LAST  168 

12,2750 

7 0367 

1 

MASK 

IM0DES30 

0241 

REF  T LAST  168 

12,2751 

50  074 

T 

INDEX 

RUPTREGl 

0242 

REF  1 

12,2752 

0 3406 

0 

TC 

IFAILJMP 

UZ43 

REF  3 LAST  168 

12,2753 

1CT075 

1 NX  1 

PR0CES5  ANY  ADDITIONAL 

CHANGES  • 

0244 

REF  3 LAST  168 

12 ,2  754 

1 2740 

1 

TCF 

NXTIFBIT  -I 

— 0245 

RET" 

9 LAST 

168 

12,2755 

4 0367 

T 

TNONTEST  CS 

IM0DES30 

AFTER  PROCESSING  ALL  CHANGES',  SEE  IF  IT 

0246 

REF 

3 LAST 

125 

12,2756 

7 7651 

0 

MASK 

BIT7 

IS  TIME  TO  ACT  ON  A TURN-ON  SEQUENCE. 

0247 

REF 

73  LAST 

168 

12,2757 

10  000 

0 

CCS 

A 

0248 

REF 

1 

12,2760 

1 3102 

I 

TCF 

C33TEST 

NO  - EXAMINE  CHANNEL  33. 

0249 

REF 

5 

LAST  166 

12,2761 

3 

7650 

0 

CAF 

““BIT 8 

SEE  IF  FIRST  SAMPLE  OR  SECOND. 

0250 

ref 

10 

LA5T  168 

12,2762 

T~ 

0367 

1 

0251 

REF 

74 

LAST  168 

12,2763 

ID 

000 

0 

CCS 

A 

0252 

REF 

1 

12,2764 

1 

2770 

1 

TCF 

PROCTNON 

REACT  AFTER  SECOND  SAMPLE, 

/I 


0253 

REF  6 LAST  168 

12,2765 

3 7650  0 

CAF 

BITS 

IF  FIRST  SAMPLE,  SET  BIT  TO  REACT  NEXT 

0254 

REF  11  LAST  168 

1 ^ , 2 ^66 

26  367  1 

ADS 

IM0DES30 

TIME, 

0255 

REF  c LAST  168 

12 ,2767 

1 3103  1 

icf 

C3TTEST 
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L 

PQ256 


T4RLPT  PROGRA 


USEr‘S  O^N  PAGE  NO.  10 


PROCtSS  IMU  TURN-ON  REQUESTS  AFTER  WAITING  i SAMPLE  FOR  ALL  SIGNALS  TO  ARRIVE, 


• 

0258 

REF 

1 

12*2770 

4 3430 

1 

PROCTNON  CS 

BITS768 

0259 

ref 

12  LAST  168 

12,2771 

7 0367 

1 

mask 

IM0DES30 

0260 

REF 

13  LAST  169 

12,2772 

54  367 

1 

TS 

IM0DES30 

• 

0261 

REF 

11  LAST  168 

12,2773 

7 7642 

1 

MASK 

BIT14 

SEE  IF  TURN-ON  REQUEST. 

0262 

REF 

75  LAST  168 

12,2774 

10  000 

0 

CCS 

A 

0263 

REF 

1 

12,2775 

1 3066 

0 

TCF 

OPONLY 

OPERATE  ON  ONLY. 

0264 

REF 

14 

LAST  169 

12,2776 

4 0367 

1 

CS 

IM0DES30 

IF  TURN-ON  REQUEST,  WE  SHOULD  HAVE  IMU 

0265 

REF 

3 

LAST  152 

12,2777 

7 7647 

1 

MASK 

BIT9 

OPERATE. 

0266 

REF 

76 

LAST  169 

12,3000 

10  000 

0 

CCS 

A 

0267 

12,3001 

1 3004 

1 

TCF 

♦ 3 

0268 

REF 

1 

12,3002 

0 5413 

1 

TC 

alarm 

ALARM  IF  NOT. 

0269 

12,3003 

00213 

1 

OCT 

213 

0270 

REF 

1 

12,3004 

0 3373 

0 +3 

TC 

CAGESUB 

0271 

REF 

1 

12,3005 

3 3436 

0 

CAF 

90SECS 

0272  REF 

3 LAST  166 

12,3006 

0 4536 

0 

TC 

WAITLIST 

0273 

12,3007 

03014 

1 

2CADR 

endtnon 

C0273 

REF 

1 

12*3010 

24006 

1 

0274 

REF 

3 LAST  168 

12,3011 

1 3103 

1 

TCF 

C33TEST 

0275 


REF 

2 LAST  169 

12,3012 

3 

3436  0 RETNON 

CAF 

90SECS 

REF 

1 

12,3013 

0 

4557  1 

TC 

VARDEUAY 

0277 

REF 

5 LAST  166 

12,3014 

4 7656  1 

ENDTNON  CS 

BIT2 

RESET 

TURN-ON  REQUEST  FAIL  BIT. 

0278 

REF 

15  LAST  169 

12,3015 

7 0367  1 

MASK 

IiMOdEs30 

0279 

REF 

1 6 LAST  169 

12,3016 

56  367  0 

XCH 

I M0DES30 

0280 

REF 

6 LAST  169 

12,3017 

7 7656  1 

MA5K 

BIT2 

IF  IT 

WAS  OFF,  SEND  ISS  DELAY  COMPLETE. 

0281 

12,3020 

0~  0006  1 

extend 

0282 

ref 

1 

12,3021 

1 3034  1 

BZF 

ENDTN0N2 

0283 

0284 

0285 

0286 


REF 

REF 


12  LAST  169 
17  LAST  169 


REF — T 


12 

12 

12 

12 


3022 

3023 

3024 

3025 


3 7642 "C 
7 0367  1 
0 0006  1 
1~3012  0 


CAF  BITIV 
mask  IM0DES30 
EXTEND- 
SZF  “ RETNON 


TF  IT  WAS  ON- AND  TURN-ON  REQUEST  ROW 
PRESENT,  RE-ENTER  90  SEC  DELAY  IN  WL, 


0287 

REF 

6 

LAST 

152 

12*3026 

4 0061  1 

cs~ 

STATE 

IF  IT  IS  NOT 

ON  NOW,  SEE  IF  A PROG  WAS 

0288 

REf 

1 

12,3027 

7 7650  1 

MA5K 

imuseflg 

WAITING. 

0289 

REF 

77 

LAST 

169 

12,3030 

10  000  0 

CCS 

A 

0290 

REF 

6 

LAST 

166 

12,3031 

1 4602  0 

TCF 

TASKOVER 

0291 

REF 

1 

12,3032 

0 4102  XT 

TC~ 

POSTJUMP 

0292 

RtF 

1 

12,3033 

26641  0 

CADR 

IMUBAD 

unsuccessful 

TURN-ON. 

0293 

0294 

0295 


REF  10  LAST  1&5 


12 

12 

12 


30  J4 

3035 

3036 


3^7641  0 
0 0006  1 
05  012  1 


ENDTN0N2  CAF 


BIT15 


EXTEND 
WOR  12 


SEND  155  DELAY  COMPLETE. 


a 
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L T4RUPT  PROGRAM ....  USER'S  OwN  pAfi.E  NO.  11 

0296  REF  1 12.3037  0 47551  UNZ2  TC  ZERO! CPU  ~~ 


0297 

REF 

1 

12,3040 

4 3425 

0 

cs 

BITS465 

REMOVE  ZERO  AND  COARSt. 

0298 

12,3041 

0 0006 

1 

EXTEND 

0299 

12,3042 

03  012 

1 

wand 

12 

0300 

REF 

1 

12,3043 

3 4762 

0 

CAF 

3SECS 

ALLOW  3 SECS  FOR  COUNTER  TO  FIND  GIMBAL, 

C3OT 

REF 

2 LACTT69 

12,3044 

0 4557 

1 

TC 

VARDELAY 

0302 

REF 

1 

12,3045 

4 3426 

0 

ISSUP  CS 

OCT54 

REMOVE  CAGING,  IMU  FAIL  INHIBIT,  AND 

' 0303 

ref 

18  LAsT  169 

12,3046 

7 0367 

1 

M7\sK 

IM0DES30 

ICDUFAIl  INHIBIT  FLAGS. 

0304 

REF 

19  LAST  170 

12,3047 

54  367 

1 

TS 

IM0DES30 

~0305 

REF 

1 

12,3050 

0 3344 

1 

TC 

SETISSW 

ISS  WARNING  MIGHT  HAVt  BEEN  INHIBITED. 

0306 

REF 

11  LAST  169 

12,3051 

4 7641 

1 

CS 

B I T 1 5 

REMOVE  IMU  DELAY  COMPLETE  DISCRETE. 

0307 

12,3052 

0 0006 

1 

EXTEND 

0308 

12,3053 

03  012 

1 

wand 

12 

0309 

REF 

5 LAST  138 

12,3054 

3 7645  1 

CAF 

BIT11 

DONT  ENABLE  PROG  ALARM  ON  PIP  FAIL  FOR 

0310 

REF 

4 LAST  169 

12,3055 

0 4536  0 

TC 

WAITLIST 

ANOTHER  10  SECS. 

0311 

12,3056 

02262  0 

2CADR 

PFAILOK 

C0311 

RCF 

1 

12,3057 

26006  0 

0312 

REF 

7 LA5T  169 

12,3060 

4 0061  1 

CS 

state 

SEE  IF  ANYONE  IS  WAITING  FOR  THE  IMU  AT 

0313 

REF 

2 LAST  169 

12,3061 

7 7650  1 

MASK 

IMUSEFLG 

IMUZERO,  IF  SO,  WAKE  [HEM  UP, 

0314 

REF 

78  LAST  169 

12,3062 

10  000  0 

CCS 

A 

0315 

REF 

7 LAST  169 

12,3063 

1 4602  0 

TCF 

taskover 

0316 

RCF 

2 LAST  169 

“ 12,3064  0 4102  0 

“TC 

POSTJUMP 

0317 

REf 

1 

12,3065  26633  0 

CAdR 

ENDlMU 

0318 

REF 

3 LAST  170 

12,3066 

3 7650  0 OPONTT 

CAF 

IMUSEFLG 

IF  OPERATE  On  only,  Zero  THE  COUNTERS 

0319 

REF 

8 LAST  170 

12,3067 

7 0061  1 

MASK 

state 

UNLESS  SOMEONE  IS  USING  THE  IMU, 

0320 

REF 

79  LAST  170 

12,3070 

10  000  0 

CCS 

A 

0321 

REF 

4 LAST  169 

12,3071  1 3103  1 

TCF 

C33TEST 

0322  REF 


12 


3072 


0 3401  1 


TC  ~ CAGESUB2  SET  TURNON  FLAGS. 


0323  REF  2 LAST  153 

0324 
t>325~ 


12.3073  3 7653  0 

12.3074  0 0006  1 

12.3075  05  012  1 


CAF  BIT5 

EXTEND 

wjr rz 


0326 

REF 

7 

LAST 

166 

12,3076 

3 7652  1 

CAF 

BIT6 

WAIT  300  MS  FOR  AGS  TO  RECEIVE  SIGNAL, 

0327 

REF 

5 

LAST 

170 

12  *3077 

0 4536  0 

TC 

TTATTOST 

0328 

12,3100 

03037  0 

2CADR 

UNZ2 

C0328 

REF 

1 

12,3101 

24006  1 

0329 

RCF 

5 

LAST 

170 

12,3102 

1 3103  1 

TCF 

C33TCST 
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l tarupt  program  user's  own  page  no.  12 

P0330  MONITOR  channel  33  F.IP-FLOP  INPUTS^ 


0331 

REF 

2 LAST 

158 

12,3103 

3 0370 

0 C33TEST 

CA  IM0DES33 

SEE  IF  RELEVANT  CHAN  33  BITS  HAVE 

0332 

REF 

1 

12,3104 

7 4515 

0 

MASK  33RDMSK 

0333 

REF 

30  LAST 

166 

12,3105 

54  001 

1 

TS  L 

CHANGED. 

0334 

REF 

2 LAST" 

171 

12,3106 

3 4515 

1 

CAF  33RDMSK 

0335 

12,3107 

0 0006 

1 

EXTEND 

0336 

12,3110 

03  033 

1 

WAND  33 

RESETS  FLIP-FLOP  INPUTS, 

0337 

12,3111 

0 0006 

1 

EXTEND 

0338 

REF 

31  LAST 

171 

12,3112 

06  001 

0 

RXOR  l 

0339 

12,3113 

0 0006 

1 

EXTEND 

034*0 

REF 

1 

12,3114 

1 3143 

0 

3ZF  GLOCKMON 

ON  NO  CHANGE, 

0341 

REF 

8 

LAST 

168 

120115 

54  074 

0 

TS 

RUPTREG1 

SAVE  BITS  WHICH  HAVE  CHANGED, 

0342 

ref 

3 

LAST 

171 

12,3116 

22  370 

0 

lxch 

IM0DES33 

0343 

12,3117 

0 0006 

1 

extend 

0344 

REF 

32 

LAST 

171 

12,3120 

06  001 

0 

rxor 

L 

0345 

REF 

4 

LAST 

171 

12,3121 

54  370 

1 

TS 

IM0DES33 

UPDATED  IM0DES33. 

0346 

REF 

52 

LAST 

167 

12,3122 

3 7665 

0 

CAF  ZERO 

0347 

REF 

9 

LAST 

171 

12,3123 

56  074 

1 

XCH  RUPTREG1 

0348 

12,3124 

6 0000 

1 

double 

0349 

REF 

1 

12,3125 

1 3130 

I 

TCF  NXTIBT  +1 

SCAN  FOR  BIT  CHANGES, 

0350 

REF 

30 

LAST  168 

12.3126 

6 7657  1 

-1 

AD 

ONE 

0351 

ref 

10 

LAsT  T71 

12,3127 

24'  074  1 

"NXTIBT 

INCR 

RUPTREGl 

0352 

12,3130 

6 0000  1 

+ 1 

DOUBLE 

0353 

RfcF 

80 

LAS1  170 

12,3131 

54  000  0 

TS 

A 

(CODING  IDENTICAL  TO  CHAN  30), 

0354 

REF 

2 

LA5T"171 

12,3132 

1 3127  1 

TCF 

NXTIBT 

0355 

REF 

4 

LAST 

168 

12,3133 

56  O75 

0 

XCH 

RUPTREG2 

0356 

REF 

11 

last 

m 

1 2 ♦ 3 1 34 

50  074 

T 

INDEX 

RUPTREGl 

O357 

REF 

4 

LAST 

136 

12,3135 

3 7643 

1 

CAF 

Bin  3 

0358 

REF 

5 

LAST 

171 

12,3136 

7 0370 

1 

MASK 

IM0DES33 

0359 

REF 

12 

LAST 

171 

12.3137 

50  074  1 

INDEX  RUPTREGl 

0360 

REF 

1 

12,3140 

0 3414 

0 

TC 

C33JMP 

U361 

Ktr 

5 

LAST 

171 

12,3141 

10  075 

IT 

NXTFL33  CCS  RUPTREG2 

0362 

REF 

3 

last 

171 

12,3142 

1 3126 

0 

TCF 

NXTIBT  -1 

"GET "NEW  VALUE  OF  BIT  WHICH  ChANgEd* 


PROCESS  POSSIBLE  ADDITIONAL  CHANGES, 
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0364 

REF 

2 

LAST  151 

12,3143 

10  034 

1 

GLOCKMON 

CCS 

CDUZ 

0365 

REF 

1 

12,3144 

1 3150 

1 

TCF 

GLOCKCHK 

SEE  IF  MAGNITUDE  OF  MGA  IS  GREATER  THAN 

"0366 

REF 

1 

12,3145 

1 3156 

1 

TCF 

SETGLOCK 

70  DEGREES. 

0367 

REF 

2 

LAST  172 

12,3146 

1 3150 

T 

TCF 

GLOCKCHK 

0366 

REF 

2 

LAST  172 

12,3147 

1 3156 

1 

TCF 

SETGLOCK 

0369 

REF 

~ 1 

12,3150 

6 3203 

0 

GLOCKCHK 

AD 

-7ODEGS 

0370 

12,3151 

0 0006 

1 

EXTEND 

0371 

REF 

3 

LAST  172 

12,3152 

6 3155 

0 

BzMF 

SETGLOCK  -1 

NO  LOCK. 

0372 

REF 

8 

last  170 

12,3153 

3 7652 

1 

CAF 

BIT6 

GIMAL  LOCK. 

0373 

ref 

4 

LAST  172 

12,3154 

1 3156 

1 

TCF 

SETGLOCK 

0374 

ref 

53 

LAST  171 

12,3155 

3 7665 

0 

-1 

CAF 

ZERO 

0375 

REF 

IT 

LAST  163 

12,3156 

6 0322  1 

SETGLOCK 

AD 

DSP TAB  +1  ID 

SEE  IF  PRESENT  STATE  OF  GiMBAL  LOCK  LAMP 

0376 

REF 

9 

LAST  172 

12,3157 

7 7652 

0 

MASK 

B I 1 6 

AGREES  WITH  DESIRED  STATE  BY  HALF  ADDING 

0377 

12,3160 

0 0006 

1 

EXTEND 

THE  TWO. 

0378 

REF 

1 

12,3161 

1 3752 

0 

BZF 

GLOCKOK 

OK  AS  IS. 

0379 

REF 

12 

LASI  172 

12*3162 

7 0322 

0 

MASK 

DSPTAB  ♦ 1 ID 

IF  OFF,  DONT  TURN  ON  IF  IMU  BEING  CAGED. 

13380 

REF 

81 

LAST  171 

12,3163 

10  000 

0 

CCS 

A 

0381 

REF 

1 

12,3164 

1 3200 

1 

TCF 

GLAMPTST 

TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS, 

0382 

REF  10  LAST  172 

12,3165 

3 7652 

1 

CAF 

BIT6 

0383 

REF 

20 

LASI  170 

12,3166 

7 0367 

1 

MASK 

IM0DES30 

0384 

REF 

62 

LA5T  172 

12,3167 

10  000 

0 

CCS 

A 

0385 

R~EF 

2 LA5T  172 

12,3170 

I 3752 

0 

TCF" 

GLOCKOK 

U386 

Rtr 

13 

LASI  172 

12,3171 

4 0322 

0 

GL INVERT 

CS 

DSPTAB  ♦ 1 ID 

INVERT  GIMBAL  LOCK  LAMP. 

0387 

REF" 

11 

LA5T  172 

12,3172 

7"  7652 

0 

mask 

61 T 6 

0388 

REF 

12 

LAST  170 

12,3173 

6 7641 

0 

AD 

B I T 1 5 

TO  INDICATE  CHANGE  IN  DSPTAB  +11D, 

0389 

REF 

14 

LAST  172 

12,3174 

56  322 

T 

XCH 

DSPTAB  + 1 ID 

0390 

REF 

1 

12,3175" 

7 3204" 

0 

"MASK 

OCT 3 7 73  7 

0391 

REF 

1 5 

LA5T  172 

12,3176 

26  322 

0 

ADS 

DSPTAB  +1  ID 

0392 

REF 

3 

LAST  172 

12,3177 

1 3752 

0 

TCF 

GLOCKOK 

U393 

Rtr 

1 

12,3200 

0 3417 

cr 

GLAMPT5T 

TC 

TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS. 

0394 

REF 

4 

LAST  172 

12,3201 

1 3752 

0 

TCF 

GLOCKOK 

0395 

REF 

1 

12,3202 

I 3171 

T 

TC  F " 

"GL INVERT 

US96 

12,3203 

63434 

1 

-70DEGS 

DEC 

"#38888 

-7U  DtGKtLb  SGALtU  1IN  HALI" ™Kt VULU 1 IUINO* 

0397 

12 ,3204 

37737 

0" 

"0CT3773T 

OCT 

37T37 

« 
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0400 

REF 

~~I5 

LAST 

165 

12,3205 

7 7637  0 TLIM 

MASK 

POSMAX 

REMOVE  BIT  FROM  WORD  OF  CHANGES  AND  SET 

0401 

ref 

6 

LAST 

171 

12, 3206 

54  075  1 

Ts 

RUPTREG2 

DSKY  TEMP  LAMP  ACCORDINGLY. 

0402 

REF 

21 

LAST 

172 

12,3207 

10  367  1 

CCS 

IM0DES30 

0403 

REF 

1 

12,3210 

1 3216  0 

TCF 

TEMPOK 

0404 

REF 

2 

LAST 

173 

12,3211 

1 3216  0 

TCF 

TEMPOK 

0405 

REF 

3 

LAST 

153 

12,3212 

3 7654  1 

CAF 

BIT4 

TURN  ON  LAMP. 

0406 

12,3213 

0 0006  1 

EXTEND 

O4O7 

12,3214 

05  Oil  1 

WOR 

11 

0408 

REF 

1 

12,3215 

1 2753  0 

TCF 

NXTIFAIL 

0409 

REF 

2 LAST 

172 

12*3216 

0 3417  0 TEMPOK 

TC 

LAMPTEST 

IF  TEMP  NOW  OK*  DONT  TURN  OFF  LAMP  IF 

0410 

REF 

2 LAST 

173 

12,3217 

1 2753  0 

TCF 

NXTIfAIl 

lamp  test  in  progress. 

0411 

REF 

4 

LAST 

173 

12*3220 

4 7654 

0 

CS 

BIT4 

0412 

12*3221 

0 0006 

1 

EXTEND 

0413 

12*3222 

03  Oil 

1 

WAND 

11 

0414 

REF 

3 

LAST 

173 

12,3223 

1 2753 

0 

TCF 

NXTIFAIL 

0415 

REF 

7 

LAST 

169 

12*3224 

3 7656 

0 

I TURNON  CAF 

B I T 2 

IF  DELAY  REQUEST  HAS  GONE  OFF 

0416 

REF 

22 

last 

173 

12*3225 

7 0367 

1 

mask 

IM0dE530 

prematurely*  do  not  process  any  changes 

0417 

REF 

83 

LAST 

172 

12*3226 

10  000 

0 

CCS 

A 

UNTIL  THE  CURRENT  90  SEC  WAIT  EXPIRES, 

0418 

REF 

4 

LAST 

173 

12*3227 

1 2753 

0 

^tcf 

NXTIFAIL 

U4l  9 

REF 

13 

LAST 

169 

12  1 3230 

3 7642 

0 

CAF 

BIT14 

SEE  IF  JUST  ON  OR  OFF. 

0420 

REF 

23 

LAST  173 

12*3231 

7 0367 

1 

mask 

Im0dES30 

0421 

12*3232 

0 0006 

1 

EXTEND 

0422 

REF 

1 

12,3233 

1 3247 

1 

BZF 

ITURN0N2 

IF  JUST  ON. 

0423 

REF 

13 

LAST 

172 

12.3234 

3 7641  0 

CAF 

BIT15 

0424 

12*3235 

0 0006  1 

EXTEND 

SEE  IF  DELAY  PRESENT  DISCRETE  HAS  BEEN 

0425 

12,3236 

02  012  0 ~ 

RAND 

12 

SENT.  IF  SO,  ACTION  COMPLETE. 

0426 

12,3237 

0 0006  1 

EXTEND 

0427 

12,3240 

1 3242  1 

BZF 

+2 

0428 

REF 

5 

LAST 

173 

12,3241 

1 2753  0 

TCF 

NXTIFAIL 

U42V 

REF 

8 

LA5  1 

173 

1 2 * 3242 

3 7656  0 

CAF 

BIT2 

IF  NOT,  SET  BIT  TO  INDICAIE  KEUUE8 1 MU  1 

0430 

REf 

24 

LAST" 

173 

12*3243 

26  367  1 

AOS 

T1M0dES30 

PRESENT  FOR  FULL  DURATION. 

0431 

REF 

2 

LAS1 

169 

12,3244 

0 5413  1 

TC 

ALARM 

0432 

12*3245 

00207  1 

ocr 

207 

0433 

REF 

6 

LAST 

173 

12,3246 

1 2753  0 

A 

0434 

REF 

4 LAST 

168 

12*3247 

4 7651  0 

I TURN0N2  CS 

BIT  7 

SET  BIT  7 TO  INITIATE  WAIT  OF  1 SAMPLE. 

0435 

ref 

25  LAST 

173 

12,3250 

T 0367  1 

MASK 

1 MUDES3U 

0436 

REF 

5 LAST 

173 

12,3251 

6 7651  1 

AD 

BIT7 

0437 

REF 

26  LAsl 

173 

12,3252 

54  367  1 

TS 

IM0DES30 

(I  p 1 

0438 

REF 

7 LAST 

173 

12,3253 

1 2753  0 

TCF 

NXTIFAIL 

• 

* 


7 n 
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0439 

REF 

84  LAST 

173 

12,3254 

10  000 

0 

IMUCAGE 

CCS 

A 

NO  ACTION  IF  GOING  OFF. 

0440 

REF 

8 LAST 

173 

12,3255 

1 2753 

0 

TCF 

NXTIFAIL 

0441 

REF 

1 

12,3256 

4 3433 

1 

CS 

OCT7IOOO 

TERMINATE  ICDU  AND  GYRO  PULSE  TRAINS. 

0442 

12,3257 

0 0006 

1 

EXTEND 

0443 

12,3260 

03  014 

1 

WAND 

14 

0444 

REF 

2 LAST 

169 

12,3261 

0 3373 

0 

TC 

CAGESUB 

0445 

REF 

54  LAST 

172 

12,3262 

3 7665 

0 

CAF 

ZERO 

ZERO  COMMAND  OUT-COUNTERS. 

0446 

REF 

1 

12,3263 

54  050 

0 

“TS 

CUUXCMD 

0447 

REF 

1 

12,3264 

54  051 

1 

TS 

CDUYCMD 

0448 

REF 

1 

12,3265 

54  052 

1 

TS 

CDUZCMD 

0449 

REF 

1 

12,3266 

54  047 

0 

TS 

GYROCMD 

Q45O 

REF 

1 

12,3267 

4 3432 

0 

CS 

OCTI7OO 

HAVING  WAITED  AT  LEAST  27  MCT  FROM 

0451 

12,3270 

0 0006 

1 

EXTEND 

GYRO  PULSE  TRAIN  TERMINATION,  wt  CAN 

0452 

12,3271 

03  014 

T 

WAND 

14 

DE-SELECT  THE  GYROS. 

0453 

REF 

9 LA5T 

174 

12,3272 

1 2753 

0 

TCF 

NXTIFAIL 

0454 

12,3273 

0 0006 

1 

IMUOP 

EXTEND 

0455 

REF 

T 

12,3274 

1 3304 

1 

BZF 

IMU0P2 

0456 

REF 

9 LAST 

170 

12,3275 

4 0061 

1 

CS 

STATE 

IF  GOING  OFF,  ALARM  IF  PROG  USING  IMU. 

0457 

REF 

4 LAST 

170 

12,3276 

7 7650 

1 

"MASK 

IMUSEFLG 

0458 

REF 

85  LAST 

174 

12,3277 

10  000 

0 

CCS 

A 

0459 

REF 

10  LA5I 

174 

12,3300 

1 2753 

0 

TCF 

NXTIFAIL 

0460 

REF 

3 LAST 

173 

12,3301 

0 5413 

T 

TC 

alarm 

0461 

12,3302 

00214 

0 

OCT 

214 

0462 

REF~ 

II  LAST 

174 

12,3303 

1 2753  0 

TCF 

NxTIFAIL 

0463 

KtF 

9 LA5  1 

173 

12,3304 

3 7656 

0 

I MU0P2 

CAF 

BIT2 

SEE  IF  FAILED  IS5  TURN-ON  SEQ  IN  PROG, 

0464 

REF 

27  LAST 

173 

12,3305 

7 0367  1 

MASK 

IM0DES3Q 

0465 

REF 

86  LAST 

174 

1 A ,3306 

10  000 

T) 

CCS 

A 

0466 

REF 

12  LAST 

174 

12,3307 

1 2753 

0 

TCF 

NXTIFAIL 

IF  SO,  DONT  PROCESS  UNTIL  PRESENT  90 

0467 

REF 

2 LAST 

173 

1 2 1 3 3 1 0 

1 3247 

T 

TCF 

I TURN0N2 

SECONDS  EXPIRES. 

0468 

Ktr 

87  LAS  I 

174 

12,3311 

10  000 

0 

PIPFAIL 

CCS 

A 

SET  BIT10  IN  IM0DE530  50  ALL  ISS  WARNING 

0469 

REF 

6 LAST 

151 

12,3312 

5 7646  1 

CAF 

BTTTO 

- INFO  Is  IN  ONE  REGISTER. 

O47O 

REF 

28  LAS  1 

174 

12,3313 

56  367 

0 

XCH 

I M0DES30 

O47I 

REF 

1 

12  ,3314 

7 3435 

1 

MASK 

-BIT  10 

0472 

REF 

<■9  LASI  174 

12,3315 

A DS  " 

rMODE530 

3 

Ktr 

2 LA5I 

170 

12,3316 

0 3344 

1 

TC 

SET  I SSW 

Ktr 

50  LASI 

174 

12,3317 

4 0367 

1 

CS 

IM0DES30 

IF  PIP  FAIL  D0E5NT  LIGHT  15S  WARNING,  uu 

0475 

REF 

3 LAST 

76 

1 2 , 3320 

7 7657 

0 

MASK 

BIT1 

A PROGRAM  ALARM  IF  IMU  OPERATING  BUT  NOT 

0476 

REF 

88  LAST 

174 

1 2 , iii  1 

10  000 

“0 

CCS 

A 

CATTED  "OR  BEING  BURNED  ON, 

k 
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0477 

REF 

1 , 

12,3322 

1 3141 

1 

TCF 

NXTFL33 

0478 

REF 

31 

LAST  174 

12,3323 

3 0367 

0 

CA 

IM0DES30 

0479 

REF 

1 

12,3324 

7 3431 

0 

MASK 

0CT1720 

0480 

REF 

89 

LAST  174 

12,3325 

10  000 

0 

CCS 

A 

0481 

REF 

2 

LAST  175 

12,3326 

1 3141 

1 

TCF 

NXTFL33 

ABOVE  CONDITION  NOT  MET, 

0462 

REF 

4 

LAST  174 

12,3327 

0 5413 

1 

TC 

ALARM 

0483 

12,3330 

00212 

0 

oct 

212 

0484 

REF 

3 

LAST  175 

12,3331 

1 3141 

1 

TCF 

NXTFL33 

0485 

REF 

90  LAST  175 

12,3332 

10  000  0 

DNTMFAST  CCS 

A 

DO  PROG  ALARM  IF  TM  TOO  FAST, 

0486 

REF 

4 LAST  175 

12,3333 

1 3141  1 

TCF 

NXTFL33 

0487 

REF 

5 LAST  I75 

12,3334 

0 5413  1 

TC 

ALARM 

0488 

12,3335 

01105  1 

oct 

1105 

0489 

REF  5 LAST  175 

12,3336 

1 3141  1 

TCF 

NXTFL33 

0490 

REF 

91  LAST  175 

12,3337 

10  000  0 

UPTMFAST  CCS 

A 

SAME  AS  DNLINK  TOO  FAST  WITH  DIFFERENT 

0491 

REF 

6 LAST  175 

1 2 ,3340 

1 3141  1 

TCF 

NXTFL33 

alarm  CODE, 

0492 

REF 

6 LAST  175 

12,3341 

0 5413  1 

TC 

alarm 

0493 

12,3342 

01106  1 

OCT 

1106 

0494 

REF 

7 LAST  175 

12,3343 

1 3141  1 

TCF 

NxTFL33 

f 
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0496 

REF 

1 

12,3344 

3 3424  0 

SETISSW  CAF 

OCT  15 

SET  ISS  WARNING  USING  THt  FAIL  81 fS 

IN 

0497 

REF 

32 

LAS  1 

175 

12,3345 

7 0367  1 

MA5K 

I MODE 550 

BITS  13,  12,  AND  10  OF  IMODES30  AND 

THE 

0498 

12,3346 

0 0006  1 

EXTEND 

FAILURE  INHIBIT  BITS  IN  POSITIONS 

0499 

REF 

7 

LAST 

174 

12,3347 

7 7646  0 

MR 

~BTT10 

4,  3,  AND  1. 

0500 

REF 

33 

LAST 

176 

12,3350 

3 0367  0 

CA 

IM0DES30 

0501 

12,3351 

0 0006  1 

EXTEND 

0502 

REF 

33 

LAST 

171 

12,3352 

04  001  1 

ROR 

L 

0 INDICATES  FAILURE, 

0503 

12,3353 

4 0000  0 

COM 

0504 

REF 

1 

12,3354 

7 4514  1 

TASK 

0CT15000 

0505 

REF 

92 

LAST 

175 

12,3355 

10  000  0 

CCS 

A 

0506 

REF 

1 

12,3356 

1 3367  1 

TCF 

I 5SW0N 

FAILURE. 

0507 

REF 

4 

LAST 

174 

12,3357 

3 7657 

1 

ISSWOFF  CAF 

BIT1 

DONT  TURN  OFF  ISS  WARNING  IF  LAMP  TEST 

0508 

REF 

6 

LAST 

171 

12,3360 

7 0370 

1 

MASK 

IM0DES33 

IN  PROGRESS. 

0509 

REF 

93 

LAST 

176 

12,3361 

10  000 

0 

CCS 

A 

0510 

REF 

101 

LAST 

166 

12,3362 

0 0002 

0 

TC 

Q 

OUT  REF  5 LAST  176  12*3363  4 7657  0 CS  B1T1 

0512  12,3364  0 OOO6J1 EXTEND 

0513  12*3365  03  Oil  1 WAND  11 

0514  REFHT02  TASTT76”  “T2  *3366  0“OOO2  0 TO  Q 


O5 1 5 REF  6 LAST  17fe 


12 


3367  3 7657  1 ~1S5W0N  C WT 


B1T1 


0516 

12,3370 

0 0006 

1 

extend 

0517 

12,3371 

05  Oil 

1 

WOR  11 

0518  REF  103  LAST  176 

12,3372 

0 0002 

0 

TC  Q 

0519 

0520 

0521 

0522 

0523 

0524 


“ref — T“ 

12,3373 

4 3434 

0 CAGESUB 

CS“  BIT5661 

12,3374 

0 0006 

1 

12,3375 

03  012 

1 

‘WAND  12 

REF  2 LAST  170 

12,3376 

3 3425 

1 

CAF  BITS465 

12,3377 

0 0006 

1 

EXTEND 

12,3400 

05  012 

1 

WOR  12 

T 


— O525  REF 

“0526 REF  3'4  LAST  176 

0527  REF  2 LAST  176 

0528  REF  35  LAST  176 


12 

12 

12 

12 


3401  4 3427  1 

3402  “7  0367  1 

3403  6 3427  0 

3404  54  367  1 


CAGESUB2 


0CT75 

IM0DES30 


INTERNAL  FLAGS  FOR 
OR  CAGE.  DISABLE  THE 

REMOVE-  IMU  DEL  AT  COMP, 
SEND  ZERO  AND  COARSE. 


SET  FLAGS  TO  INDICATE  CAGING  OR  TURN-ON, 
AND  TO  INHIBIT  ALL  155  WARNING' INFO, 


0529  REF  104  LAST  176  12,3405  ^0“  0002  0 TC Q — 


“0530  REF  3 LA5T  1?4 

0531  REF  4 LAST  176 


12,3344 

12,3344 


TMUFATL" 

ICDUFAIL  EQUALS  SETISSW 


i 


* 
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0533 

REF 

12,3406 

1 3224 

1 

I FAILJMP 

TCF 

ITURNON 

CHANNEL 

30  DISPATCH. 

0534 

REF 

1 

12,3407 

1 3344 

0 

tcf 

imufail 

0535 

REF 

1 

12,3410 

1 3344 

0 

TCF 

ICDUFAIL 

0536 

REF 

1 

12,3411 

1 3254 

0 

TCF 

IMUCAGE 

0537 

12,3412 

76400 

1 

30RDMSK 

OCT 

76400 

(BIT  10 

NOT  SAMPLED  HERE) 

0538 

REF 

1 

12,3413 

1 3273 

0 

TCF 

IMUOP 

0539 

REF 

1 

12,3414 

1 3311 

0 C33 JMP 

TCF 

PIPFAIL 

CHANNEL  33  DISPATCH. 

0540 

REF 

I ‘ 

12,3415 

1 3332 

1 

TCF 

DNTMFAST 

0541 

REF 

1 

12,3416 

1 3337 

1 

TCF 

UPTMFAST 

R0542 

subroutine 

TO  SKIP  IF,  LAMP  TEST  NOT  IN 

progress 

> . 

0543  REF 

7 

LAST  176 

12,3417 

4 0370  1 LAMPTEST 

cs 

IM0DES33 

BIT  1 OF  IM0DES33  = 1 IF  LAMP  TEST  IN 

0544  REF 

7 

LAST  176 

12,3420 

7 7657  0 

MASK 

B1T1 

PROGRESS. 

0545  REF 

94 

LAST  176 

12,3421 

10  000  0 

CCS 

A 

0546  REF 

105 

LAST  176 

12,3422 

24  002  0 

INCR 

Q 

0547  REF 

106 

LAST  177 

12,3423 

0 0002  0 

TC 

Q 

0548  REF  1 4515  33RDMSK  EQUALS  PRI016 

0549  12,3424  00015  0 0CT15  OCT  15 

0550  12,3425  00030  1 BITS465  “ OCT  30 

0551  12,3426  00054  0 0CT54  OCT  “54“ 

0552  12,3427  00075  0 0CT75  OCT  75 

"0553  TZ , 3430  00300  “I  BITS75B  EJCT  300" 

0554  12,3431  01720  0 0CT1720  OCT  1720 

0555  12,3432  01700  1 OCT1700  OCT  1700 

0556  — REF  4514  0CT15000  EQUAL5'  PRIOfS 

0557  12,3433  71000  1 OCT7IOOO  OCT  71000 

0558  12,3434  40040  I BIT56615  OCT  40040" 

“”0559  12,3435  76777  I QBIT10  OCT -1000 


0560  12,3436  21450  0 9OSECS  DEC  9000 

0561  T2,O407  00014  1 IT0M3  DEC 12 


0562  REF  2 LAST  167 

0563  ~REF  5 LAST  172 


12.3752 

13.3752 


GLOCKOK  EQUAL5  RC5M0NIT 


O 
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PQ564  RRi  INBfT  MON  I TOR. 


0565 

REF 

3 

LAST 

158 

12,3440 

3 0413  1 

RRAUTCHK  CA 

RADMODES 

SEE  IF 

change  in  rr  auto  mode  bit. 

0566 

12,3441 

0 0006  1 

EXTEND 

0567 

12,3442 

06  033  1 

RXOR 

33 

0568 

REF 

10 

LAST 

174 

12,3443 

7 7656  1 

MASK 

BIT2 

0569 

12,3444 

0 0006  1 

EXTEND 

0570 

REF 

1 

12,3445 

1 3501  1 

6ZF 

RRCDUCHK 

0571 

REF 

4 

LAST 

178 

12*3446 

22  4l3  1 

LXCH 

RADMODES 

UPDATE 

RADMODES. 

0572 

12,3447 

0 0006  1 

extend 

0573 

REF 

34 

LAST 

176 

12,3450 

06  001  0 

RXOR 

L 

0574 

REF 

5 

LAST 

178 

12,3451 

54  413  0 

TS 

RADMODES 

0575 

REF 

11 

LAST 

178 

12,3452 

7 7656  1 

MASK 

BIT2 

SEE  IF 

JUST  ON, 

0576 

REF 

95 

LAST 

177 

12,3453 

10  000  0 

CCS 

A 

0577 

REF 

1 

12,3454 

1 3473  0 

TCF 

RROFF 

OFF, 

0578 

REF 

6 LAST  173 

12,3455 

3 7651  1 

CAF 

BIT7 

IF  JUST  ON  AND  SOME  PROGRAM  IS  USING  THE 

0579 

REF 

10  LAST  174 

12,3456 

7 0061  1 

MASK 

state 

RR*  DONT  ZERO  THE  CDUS, 

0580 

RTF 

96  LAST  178 

12,3457 

ro  000  0 

CCS 

A 

0581 

REF 

2 LAST  178 

12,3460 

1 3501  1 

TCF 

RRCDUCHK 

0582 

REF 

1 

12,3461 

4 3472  1 

CS 

OCTlOOOl 

SET  BITS  TO  INDICATE  ZERO  AND  TURNON 

0583 

ref 

6 LAST  178 

12,3462 

7 0413  0 

MASK 

RADMODES 

IN  PROGRESS* 

0584 

REF 

2 LAST  178 

12,3463 

6 3472  0 

AD 

OCTlOOOl 

0585 

REF- 

7 LAST  178 

12,3464 

54  413  0 

TS  - 

RADMODES- 

0586 

REF 

31 

LAST 

171 

12,3465 

3 7657 

1 

CAF 

ONE 

0587 

REF 

6 

LAST 

170 

12,3466 

0 4536 

0 

TC 

"WAITLIST 

0588 

12,3467 

02000 

0 

2CADR 

RRTURNON 

C0588 

REF 

1 

12,3470 

20006 

0 

0589 

HREF 

r 

12,3471 

1 354T 

1 

TCF 

NORRGMON 

0590  12,3472  10001  1 OCTlOOOl  OCT  10001 


0591 

REF 

11  LAST 

178 

12,3473  4 0061  1 RROFF 

CS 

si  ate 

IF  SOMEONE  WAS  USING 

THE  RR,  DISPLAY  AN 

0592 

REF 

7 LAST 

178 

12,3474  7 7651  0 

MASK 

bit  7 

ALARM  IF  THE  RR  GOES 

OUT  OF  AUTO  MODE, 

0593 

REF 

97  LA5T 

178 

12,3475  10  000  0 

CCS 

- A - 

0594 

REF 

3 LAST 

178 

12,3476  1 3501  1 

TCF 

RRCDUCHK 

0595 

REF 

7 LAST 

175 

12,3477  0 5413  1 

TC 

alarm 

0596  12,3500  00514  1 OCT  514 
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PC597  CHECK  FOR  Rk  CDU  FAI_. 


0598 

REF 

8 

LAST 

178 

12.3501 

3 0413 

1 

RRCDUCHK  CA 

RADMODES  LAST  SAMPLED  BIT  IN  RADMODES, 

0599 

12*3502 

0 0006 

1 

EXTEND 

0600 

12,3503 

06  030 

1 

RXOR 

30 

0601 

REF 

8 

LAST 

178 

12,3504 

7 7651 

0 

MASK 

BIT7 

0602 

12,3505 

0 0006 

1 

EXTEND 

0603 

REF 

1 

12,3506 

1 3521 

0 

3ZF 

RRGIMON 

0604 

REF 

12 

LAST 

178 

12*3507 

3 7656 

0 

CAF 

BIT2 

IF  RR  NOT  IN  AUTO  MODE,  DONT 

CHANGE  BIT 

0605 

ref 

9 

LAST 

179 

12,3510 

7 0413 

0 

MASK 

RADMODES 

7 OF  RADMODES.  If  THIS  WERE 

NOT  DONE, 

0606 

REF 

98 

LAST 

178 

12,3511 

10  000 

0 

CCS 

A 

THE  TRACKER  FAIL  MIGHT  COME 

ON  WHEN 

0607 

REF 

2 

LAST 

178 

12,3512 

1 3545 

1 

TCF 

NORRGMON 

JUST  READING  LR  DATA. 

0608 

REF 

9 

LAST 

179 

12,3513 

3 7651 

1 

CAF  BIT7 

SET  BIT  7 OF  RADMODES  FOR  SETTRKF. 

0609 

REF 

10 

LA5  1 

179 

12,3514 

22  413 

1 

LXcH  RADMODES 

UPDATE  RADMODES. 

0610 

12,3515 

0 0006 

1 

EXTEND 

0611 

REF 

35 

LAST 

178 

12,3516 

06  001 

0 

RXOR  l 

0612 

REF 

11 

LAST 

179 

12,3517 

54  413 

0 

TS  RADMODES 

0613  REF  1 


12,3520  0 5042  1 TRKFLCDU  TC 


UPDATE  TRACKER  FAIL  LAMP  ON  DSKY. 


SETTRKF 
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P0614  THE  RR  GIMBAL  LIMIT  MCvITQR  IS  ENABLED  whenever  the  RR  IS  IN  THe  auto  mode  except  when  THe  RR  CDUS  ARe 

R06I6  being  zeroed,  or  during  a remdde~ or“monttdk  reposition  operation,  the  latter  rs  initiated  by  this  monitor  when 
R0618  THe  GIMBALS  EXCEED  the  LIMITS  FOR  THe  CURRENT  MODE. "A  ROUTINE  IS  InITTATED  TO  DRIVE  THe  GIMBALS  to  T = 0 AND 

R0620  5 = 0~  IF  IN  HOPE  1 AND  T = 180  WITH  S = -90  TOR-  HOPE  2.  


0621  REF  — T"  12*3521  3 3543  0 RRGIMON  CAF  OCT32OO2  INHIBITED  BY  REMODE*  ZEROING,  MONITOR, 

0622  REF  12  LAST  179  12 ,3522  ~ 7~04T3"~B  ”MA5]C  RADIOES  OR  RR  NOT  IN  AuTO, 

0623  REF  99~LAT$T  179  12,3523  10  000  '0  CCS  A 

0624  REF  3 LAST  179  12,3524  1 3545~T~~  TCF  NORRGMON  


0625  REF  1 12,3525  0 4777  1 TC  RRLIMCHK  SEE  IF  ANGLES  IN  LIMITS, 

0626  REF  1 12,3526  00035  1 ADRES  OPTY  


X627  REF  1 


12,3527  1 3531  1 TCF  MONREPOS 


0628  REF  4 T. AST  180  12,3530  1 3545  1 TCF  NORRGMON  (ADDITIONAL  CODING  MAY  GO  HERE), 

0629  REF  6 LAST  170  12*3531  3 T645  1 MONREPOS~TAF  BITll  SET' FLAG  TO  SHOW  REPOSITION  IN  PROGRESS, 

0630  REF  13  LAST  180  12,3532  26  413  0 ' " " ADS  RADmODES~  


0631  REF  1 12,3533  4 3544  0 

0632  12,3534  0 0006  1 

X633  I2V3535  WTGTZ-! 


CS  0CT20002  DI5ABLE  TRACKER  AND  ERROR  COUNTER. 

EXTEND 

TfMS  F2 


0634  REF  14  LAST  137  12,3536  3 7656  0 

0635  " REF  7 LAST  178”  12*3537  0“A5B6~CT“ 

0636  12,3540  02051  1 

C0636  REF  T~  12,3541  20006  0 

0637  REF  ETTA5T  1 80  1 273542  T 35A5  1 


CAF  TWO 

TC  WATTLI5T 

2CADR  D0RREP05 


TCF  NORRGMON 


0638  12,3543  32002  1 0CT32002  OCT  32002 

0639  T27 3544  ZC002  I OCT2'OOU2  OCT 20002 
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22 

P0640 

PROGRAM  NAME:  GPMATRIX  MOD.  NO.  0 DATE!  OCTOBER  20,  1966 

Ro64i 

AUTHOR!  UONATHAN  D.  ADD^LStON  (ADAMS  ASSOCIATES) 

R0642 

THIS  PROGRAM  CALCULATES  ALL  THE  SINGLE-PRECISION  MATRIX  ELEMENTS 

WHICH  ARE  USED  BY  LeM  DAP  TO 

TRANSFORM 

VECTORS 

R0644 

FROM  GIMBAL  TO  PILOT  (BODY)  AXeS  AND  BACK  AGAIN,  THESE  ELEMENTS 

ARE  USED  EXCLUSIVELY  BY 

BASIC 

language 

routines 

R0646 

AND  THEREFORE  ARE  NOT  ARRAYED  FOR  USE  BY  INTERPRETIVE  PROGRAMS, 

R0647 

CALLING  SEQUENCE!  GPMATRIX  IS  ALWAYS  EXECUTED 

4 times  a second  by  T4Rupt  program,  it  is  listed  explicitly  twice 

R0649 

IN  THE  T4UUMP  TABLE,  BUT  IT  AlSO-  OCCURS  AFTER 

RRAUTCHK  (TWICE). 

Ro65o  subroutines  called:  spsin*  spcos. 


R065 1 NORMAL  EXIT  MODE;  CONTROL  IS  ALWAYS  TRANSFERRED  TO  DESELECT, 

R0652  ALARM/' ABORT  MODE!  THERE  ARE  NO.  REAL  ALARMS  OR  ABORTS.  HOWEVER  * WHeN  THE  MIDDLE  GIMBAL  ANGLE  NEARS  GIMBAL  LOCK* 
R0654  A dTVISTON^Y  CGS(MG)  W2LL  CAUSE  OVERFLOW  II ,E.  A BAD  QUOTIENT) V ThFB  CMDITION  IS~PREVENTEd  BY  TESTING  cOS(MG) 
R0656  AND  SUBSTITUTING  POSMAX/NEGMAX  FOR  THE  INCALCULABLE  QUANT  I T I Tl ES, 


R065?  INPUT!  CDUX»CDUY*CDUZ.  OUTPUT:  Ml  1 *M2 1 *M3TTM22 ,M32 *MR 1 2 *MRl3V” 

R0658  (ALSO  MR22=M22*MR23=M32)  DOES  NOT  DETECT  IT. 

R0660  #*#  WARNING  WIT  DIES  ON  DV  OVERFLOW 


RC661  AOG  = CLUX,  A I G = CDUY,  AMG  = CDUZi  MNEMONIC  IS?  QIM  = XYZ 

R0662  * * SIN (MG)  0 1 * 

R0663  M = * C05(mG)C0S(0G’)  SIN(OG)  0 * 

R0664  GP  * -COS (MG) SIN (OG)  CQS(OG)  Q * 

R0665  # * 0 C05(OG)/C0S(MG)  _ "SIN  (OG) /CoS  (MG)  * 

TR0556  M = * 0 5TNT0G)  COS(OG)  * 

R0667  PG  * 1 -SIN (MG) COS (Q3) /COS (MG 5 IN (MG) SIN (OG) /CoS (MG)  * 


0668  REF  3~LA5T~ 172  12*3545  3q  034  o GPMATRTX~CAE:  CUUI  SINGLE  ENTRY  POINT 

0669  REF  1 12,3546  0 4233  1 TC  SpSlN  SIN(CDUZ)  = SIN(MG) 

0670  REF  3 LAST  160  12,3547  55*404  1 TS Mil SCALED  AT  1 

0671  REF  4 LAST  181  12,3550  30  034  0 CAE  CDUZ 

0672  REF  1 12,3551  0 4232  0 TC  SPCOS  COS(CDUZ)  = COS(MG) 

0673  REF  ~ 1 12.3S52  55*466  0 TS C05MG 5CA1_ED~AT  l- (ON LY  A T ACTOR) 


0674 

ref 

2 

LAST  151 

12,3553 

30  032  0 

CAE 

CDUX 

0675 

REF 

2 

LA5  F 181 

12 ,3554 

0 4233  1 

TC 

SPSINT 

SIN (CDUx)  = 5 IN (OG ) 

0676 

REF 

1 

12 ,3555 

55*401  1 

TS 

M22 

SCALED  AT  1 (ALSO  IS  MR22) 

ref 

0677 

2 

LA$T  1G1 

J.2,3556  1A01  1 

cs 

MZ2  ' 

0678 

1 2 t 3 5 57 

0 0006  1 

EXTEND 

0679 

REF 

2 

LAST  18i 

1 2 9 3660 

7 1466  0 

Mr 

C05MG 

-SIN (OG) COS (MG) 

0680 

REF 

1 

1 2 , 3 6 6 1 

55*406  0 

75 

“ 1M3J 

SCALED  AT  1 
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0681  REF  3 LAST  18l 

0682  RTF  2TASTT8T 

* 0683  REF  1 


12,3562 


12 

12 


3563 

3564 


30  032  0 
0 4232  0 
55*403  0 


CAE  CDUX 

TC“  _SPCOS_  COS  (CDUX)  = COS(OGl~ 

TS  HC32  SCALED  AT  1 (ALSO  IS  MR23) 


0684 

12.3565 

0 0006  1 

EXTEND 

0685 

REF 

3 LAST 

181 

12,3566 

7 1466  0 

MP  COSMG 

COS (OG ) COS (MG ) 

0686 

REF 

1 

12,3567 

55*405  0 

TS  M21 

SCALED  AT  1 

0687 

ref 

4 LAsT 

182 

12,3570 

31*466  1 

CAE  COSMG 

TEST  FOr  GiMBAL  LOCK  (OVERFLOW)  rEGiON 

0688 

REF 

4 LAST 

156 

12,3571 

6 7640  1 

AD  NEGl/2 

BY  TESTING  MIDDLE  GIMBAL  ANGLE  FOR 

15689 

12,3572 

0 0006  1 

EXTEND 

VALUES  EQUAL  TO  OR  GREATER  THAN  60  DEG5. 

0690 

REF 

“1" 

12,3573 

6 3610  0 

BZMF  GPGLOCK 

0691 

REF 

2 LAST 

182 

12*3574 

31*403  1 

CAE  M32 

0692 

12,3575 

0 0006  1 

extend 

0693 

REF 

14  LAST 

173 

12,3576 

7 7642  1 

MP  BIT14 

SCALE  FOR  DIVISION 

0694 

12,3577 

0 0006  1 

EXTEND 

0695 

REF  5 LAST  182 

12,3600 

1 1 ' 466  0 

DV  COSMG 

COS (OG) /CUS (MG) 

0696 

REF  1 

12,3601 

55*400  0 

TS  MR  12 

SCALED  AT  2 

0697 

REF 

3 LAST  181 

12,3602 

4 1401 

1 

CS 

0698 

12,3603 

0 0006 

1 

EXTEND 

0699 

REF 

15  LAST  182 

12,3604 

7 7642 

1 

MP 

0700 

12,3605 

0 0006 

1 

EXTEND 

0701 

REF 

6 LAST  182 

1 2 , 36U6 

1 1 ' 466 

0 

DV 

0702 

~RFF  ' 

1. 

12*3607 

T 3621 

0 

rcF 

M22 

B1T14 

C05MG 

MR13STOR 


SCALE  FOR  DIVISION 
-SIN (OG) /COS (MG) 


0703 

REF 

3 LAST  182 

12,3610 

11*403  0 

GPGLOCk  CCS 

~M32 

SINCE  DIVISION  BY  COS(MG)  MIGHT  CREATE 

0704 

REF 

16  CAST  173 

12,3611 

3 7637  1 

CAF 

PQSMAX 

0705 

1 2 , 36 1 2 

1 3614  0 

TCF 

+ 2 

OVERFLOW  (T.E.  A NUMBER  GREATER  THAN  2) 

0706 

REF 

2 LAST  141 

12*3613 

3 7641  0 

CAF 

NEGMAX 

0707 

TREF 

2 LA5T  182 

12,3614 

55 ' 400  0 

TS 

MR  12 

USE  THE  VALW  5GN  (NUMERATOR  )*POSMAX  A5 

U708 

RtF 

4 LAST  182 

12,3615 

11*401  1 

CCS 

M22 

0709 

RtF 

17  LAST  182 

12,3616 

T 7637  1 

CAF 

PQSMAx 

THE  CLOSEST  APPROXIMATION 

0710 

12,3617 

1 3621  0 

TCF 

+ 2 

071 1 

REF 

3 LAST  182 

I 2 , 3620 

3 7641  0 

CAF 

NEGMAX 

0712 

REF 

1 

12,3621 

55*402  1 

MR135T0FT  TS 

~MR1 3 

SCALED  AT  2 

t 
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PQ714  FI^OGMIOlMF*  DB~SeLECT  M0P7  NO,  T~  DATE?  OCTOBER  24.  1966  ~ 

R07i5  AUTHOR:  JONATHAN  D.  ADDeLStON  (ADAMS  ASSOCIATE^) 

~ R0716  THIS  PROGRAM,  SETS  THE  ERASABLE  REGISTER  DB  TO  ONE  OF  THE  THREE  VALUES; 

R0717  1)  0.3  DEGREES  IF  IN  A T T I TUT?E  HOLD ~MODF  OR  IF  IN  AUTO  WITH  THE  DEADBAND  SeLeCT  BIT  OF  DAPBOOLS  SeT 

R0719  TU  MINIMUM. 

Rij 7 2C  2)  5. 0 DEGREES  rFTlTTUTO  WITH  DEAPSMD  SELECT  BIT  SET  TO  MAXIMUM. 

R0722  3)  1.0  DEGREES  IF  IN  POWERED  FLIGHT  (ASCENT  OR  DESCENT)  AND  OVERRIDING  ANY  SETTITING  OF  SCSMODE  OR  THE 

R0724  DEADBAND  SELECT  BIT.  (***  5EE  COMMENT  AFTER  CODING.  ***) 


Rq725  *****  NOTICt  ***** 


R0726  THE  ABOVE  CAPABILITY  FULFILLS  ALL  THE  KNOWN  DEADBAND  REQUIREMENTS  FOR  AS206.  *S20d6,  AND~  AS278  (GIVEN  THE 
R0728  APPROPRIATE  MISSION  PROGRAMS), 


Ro729  (ALSO  FO'R"  MA'NNeD"  FLIGHTS  A DSXY  eNT^Y  MUST  Be  SeT  UP  TO  SeT  THe  DeADBAND  SeLeCtHSTToF DAPBOOLS.  - NOT  DONE  AS 
R0731  OF  10/24/66.)  


R0732  *****  DLADBAnD  SELeCTEIT  IS  3IT13  OF  DAPBOOLS.  ***** 

R0733  o:  means  minimum  deadband 

R0734  l:  Means  MAXIMUM  DEADBAND 


R 0 7 3 5 CALLING  SeQUeNCe;!  CONTROL  FALLS  THROUGH  FRQM  GPMAfRIXT.  (4  tIMeS/SeCoND) 

R0736  SUBROUTINES  CALLED:  NONE.” 

R0737  NORMAL  EXIT  MoDgl  CONTROL  IS  ALWAYS  TRANSFERRED  TO  UP/DQWN, 


R0738  ALARM/AbORT  MODE:  NONE. 

R0739  INPUT ! “6 I T 1 3/  CHN  LI  I , B I T 13  /CHN  L3I , B IT  1 3 / D APBOUU5.  (SPoOFT,  ISN  «7  IT  ?) 


R0740  OUTPUT!  DB  (SCALED  AT  Pj  RADiAmS)  . (N0  DEBRiS  EXCEPT  A) 


0741 

REF 

5 LAST 

171 

12.3622 

3 7643  1 

DBSELECT  CAF 

B I T 1 3 

ATTITUDE  HOLD  BIT  OF  CHANNEL  31 

0742 

12.3623 

0 0006  1 

EXTEND 

0 MEANS  ATTITUDE  HOLD 

0743 

12.3624 

02  031  1 

TRAND 

31 

1 MEANS  EITHER  OFF  OR  AUTO 

0744 

12.3625 

0 0006  1 

EXTEND 

0745 

REF 

1 

12,3626 

1 3635  0 

BZF 

ATTHLDDB 

(ATTITUDE  HOLD  BRANCH) 

0 (Hb 

KEF 

2 LAST 

PI 

12.3627 

4 0766  1 

C5 

DAPB00L5 

DEADBAND  SELECT  BIT  OF  DAPBOOLb 

0747 

REF 

6 LAST 

164 

12,3630 

7 7643  0 

MAS< 

B I T 1 3 

0 MEANS  MINIMUM  DEADbAND 

0748 

REF 

100  LAST 

180 

12,3631 

10  000  0 

CCS 

A 

1 MEANS  MAXIMUM  DEADBAND 

0749 

REF 

2 LAST 

184 

1 2 f 3632 

1 3635  0 

TCP 

ATTHLDDB 

(MINIMUM  DEADBAND  BRANCH) 

0 f ?o 

REF 

1 

12*3633 

3 3747  0 

CAF 

DBMAXUM 

SEF MAXIMUM"  DEADBAND 

0751 

12,3634 

1 3636  0 

TCF 

+ 2 

0752 REF F 


1 2 . 363 5 3 3751  7 — ATTHLDDB  CAF 


SET  ‘MINIMUM  (ATTITUDE  HOLD)  DEADB7TND 
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0753  REF  1 12,3636  55'4l5  l TS  PB 


r0754  I ****  IMPORTANT  NOTICE  ***** 

R0755  FOR  EFFICIENCY,  the  OVERRIDING'  1 DEGREE  DEADBAND  DURING  POWERED  FLIGHT  IS  NOT  TESTED  FOR  ABOVE.  THE  PROGRAM 

R0757  FOLLOa’I'.G  (I.e.  UP/DOWN)  PERFORMS  THIS  FUNCTION  AFTER  THE  APPROPRIATE  TESTS.  THEREFORE*  DB  MAY  TRANSIENTLY  BeP 

R0759  INVALID,  BUT  THE  DAP  CANNOT  USE  IT  THEN  DUE  TO  T4RUPT  MODE. 


I I ' I! 


473423A  y JL  SYSTEM  For  BUZ:  kevISION  12  OF  program  AURORA  By  DAp  group 


Npy  10*  1966  (MAIN)  pAGE  186 


L TARUPl  PROGRAM 

P0760  PROGRAM  NAME;  UP /DO W N 


MOD.  NO.  1 DATE:  OCTOBER  25,  1966 


USER'S  OwN  PAGE  NO,  27 


R0761  AUTHOR:  JONATHAN  D,  ADDELSTON  (ADAMS  ASSOCIATES) 


Rg76?  THIS  PROGRAM  MONITORS  THe  STAGE  OF  THE  LeM  AND  THE  ENGINE  ON  BIT  IN  ORDeR  TO  DETERMINE  WHeN  ASCfcNT*  DeSCeNT*  AND 

R0764  COAST  PHASES  mjST  BE  SET  UP  F'3R  THE  DAp.  (DONE"  4 TIME'5  A SECOND.) 


R0765 

RQ766 


CALLING  SEQUENCE!  NONE. 


"subroutines  called;  waitlist7 


NORMAL  ,_X I T MODg:  CONTROL  IS  ALWAYS  TRANSFERRED  TO  eNDDAPt*. 


R0767  ALARM/ABORT  MODE:  NONE. 


R0768  INPUT!  BlT2/ChNL30tBlTl3/CHNL'l  1 ,BIT8/DAPB00LS, 


R0769 


R 0 770 
R0771 
R0772 
(R0773 
R0774 
R0776 


R0777 

R0778 

R0779 

R0781 

R0782 

R0784 


R0785 

R0766 

R0788 


OJTpJT:  A)  ASCENT  COAST; 

17  BITS / D APB00CS~~5ET  TO  ZERO*  MEANING  COAST. 

2)  MINIMPDB  AND  DBMINIMP  SET  TO  0.3  DEGREES, 
b)  ASCENT  BURN! 

'17  INITIALTZATTON  PASS1 

I ) BIT8/DAPBOOLS  SET  FROM  0 TO  i»  MEANING  THAT  THE  AOSTASK  HAS  BEEN  5TARTED  UP  AND  THAT 
INITIALIZATION  HAS  OCCURRED. 

II)  MINIMPDB  SET  TO  -DB. 

Ill)  DBMINIMP  SET  TO  ZERO. 

IV)  SUMRATEO  AND  SUMRATER  ZEROED  FOR  FIR5T  TWO  SECOND  AOSTASK  SAMPLE  PERIOD. 

~V5  KCQ£FCTR;  ZEROED.  TO  RECORD  INITIAUTlME* 

VI)  OMESAO  AND  OMEGAR  RECORDED  IN  OLDWFORQ  AND  OLDWFORR  AS  LAST  OMEGA  VECTOR  FOR  AOSTASK, 
VII)  AOSTASK  SET  IN  WAITLIST  FOR  TWO  5EC0NDS, 


VTHTDB  SET  TO  DBAUTO, 

IX)  ******  CHECKOUT  ONLY  *WW*  IXXTASK , IYYTASK*  AND  IZZTASK  SET  IN  WAITLIST  FOR  TEN  MS. 
2)  NORMAL  PASS  VOID. 


R07S9 

R0790 

R0792 

TR0793 

RC794 

R0795 

R0796 

R0798 


C)  DESCENT  COAST! 

1)  B1T2/DAPBOOLS  SET  TO  1,  MEANING  THAT  TRIM  GIMBAL  CONTROL  OF  DESCENT  IS  IMPOSSIBLE  SINCE 

descent  engine  offt 

2)  AOSoTERM  AND  AOSRTERi'  ZEROED. 

D)  DESCENT  BURN! 

1)  DB  SET  TO  DBAUTO, 


2)  BIT2/DAPHOOtS  CANNOTTNOr  BE  ZEROED' (EVEN  THOUGH  THE  DE5CENT  ENGINE IS  ON),  SINCE  IT  IS  NOT 

NECESSARILY  TRUE  THAT  THIS  IMPLIES  AN  OPERATIVE  TRIM  GIMBAL  SYSTEM. 


0800  REF  1T  LA5T  T7T 

0801 
0802 

0803  REF  101  LAST  184 

0804  REF  1 

0805  REF 7 LAST  lB4 

0806 

0807 

0808  REF  102  LAST  166 


12*3637 

12.3640 

12.3641 

12 .3642 

12.3643 


3 7656  0 
0 0006  1 
02  030  0 
TO  000  0 
1 3725  0 


WZDUW7T 


“CAF BT 

EXTEND 
RAND  30 
CCS 


TCF 


A 

DESCLEM 


12.3644  3 7643  i 

12.3645  0 0006  1 

12.3646  02  Oil  0 

12.3647  10  000  0 


ASCLEM CAF 


BITl3 

extend 

Rfffifr  n 

CCS A~ 


5TAGF  VERIFY^  BIT  OF  CHANNEL  30!  INVERTED 

o means  ascent  stage 

~ 1 MEANS  DESCENT  STAGE 

(DESCENT  STAGE  BRANCH) 

ENGINE“ON“  BIT  OF  CHANNEL  11  “ 

0 MEANS  OFF 

1 MEANS  ON 
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T4RUP1  FROGRAM 

USER'S  OWN  PAGE  NO,  28 

0809  REF  1 

12,3650 

1 3660  0 

TCF 

ASCDAP 

(ASCENT  BURN  BRANCH) 

08i0 

REF 

7 

LAST  168 

12*3651 

4 7650  1 

asccoast 

cs 

BIT8 

SET  BIT8  OF  DAPBOOLS  TO  COAST  DAP  LOGIC 

0811 

REF 

3 

LAST  184 

12,3652 

7 0765  1 

mask 

DAPBOOLS 

LEM  IS  STAGED  FOR  ASCENT,  BUT  THE  ASCENT 

0812 

REF~ 

4 

LAST  187 

12,3653 

54  765  1 

TS 

DAPBOOLS 

ENGINE  IS  NOT  ON, 

0813 

REF 

LAST  184 

12,3654 

3 3751  1 

CAF 

DBATTHLD 

FOR  ASCENT  COAST  SET  BOTH  MINIMUM  PULSE 

0814 

REF  “ 

T 

12,3655 

55 ' 647  1 

TS 

MINIMPDB 

DEADBANDS  TO  THE  DESCENT  PHASE  VALUE  OF 

0815 

REF 

1 

12 ,3656 

55 1 646  0 

T5 

DBMINIMP 

0,3  DEGREES  SCALED  AT  PI  RADIANS, 

0816 

REF 

1 

12,3657 

1 4606  1 

TCF 

ENDDAPT4 

(END  OF  UP/DOWN) 

0817 

REF  8 

LAST 

187 

12,3660 

3 7650  0 ASCDAP 

CAF 

B I T 8 

CHECK  AOSTASK  BIT  OF  DAPBOOLS 

0818 

REF  5 

LA5T 

187 

12,3661 

7 0765  1 

MASK 

DAPBOOLS 

IF  0,  SET  BIT  AND  INITIATE  WAITLIST  TASK 

0819 

REF  103 

LA5T 

186 

12,3662 

10  000  0 

CCS 

A 

IF  1,  THEN  TASK  LOOP  ALREADY  BEGUN 

0820 

REF  2 

LAS  1 

187 

12,3663 

1 4606  1 

TCF 

ENDDAPT4 

(END  OF  UP/DOWN) 

0621  REF  1 12*3664  3 375o  0 CAF  DBAUTO  SINCE  ASCENT  ENGINE  IS  ON  - 

0822  REF  2 LAST  185  12,3665  55*415  1 TS  Oq  SET  DEADBAND  TO  1,0  DEGREES 


0823 

REF 

9 LASf 

187 

12,3666 

3 7650  0 

CAF 

b i t a 

SET  BIT  TO  INDICATE  AOSTASK  SET  UP 

AND 

0824 

REF 

6 LAS  1 

187 

1 L 9 5 b6  l 

26  765  1 

ADS 

DAPBOOLS 

ASCENT  LOGIC,  BIT  CLEARLY  NOT  SET 

YET, 

0625 

REF 

3 

LAST  187 

12,3670 

4 1415  1 

CS 

DB 

MODIFY  THE  TJETLAW  FOR  ASCENT! 

082  6 

REF 

2 

LAST  187 

12,3671 

55*647  1 

TS 

MINIMPDB 

(IN  ONE  EQUATION  DELETE  MINIMPDB  AND 

0827 

REF 

55 

LAST  174 

12,3672 

3 7665  0 

" CAF  ~ 

^ ZERO 

^5HTFT  THE  SWITCHING  CURVE  TO  THE~ORIGIN) 

0828 

REf 

2 

LAST  187 

1 2 , 36  1 3 

55*646  0 

TS 

DBMINIMP 

MINIMPDB  = -DB,  DBMINIMP  = 0 

0829 

REF 

56 

LAST  187 

12,3674 

3 7665  0 

CAF 

ZERO 

INITIALIZE  SUM  RATES 

0830 

REF 

1 

12,3675 

55  * 640  0 

TS 

SUMRATEQ 

0831 

REF 

1 

12*3676 

55*641  1 

TS 

SUMRATER 

0832 

REf 

1 

12,3677 

55*671  1 ’ 

TS 

kcoefctr 

TNITIA|_rZE  TIME  COUNTER 

0833 

REF 

1 

12,3700 

31*417  1 

CAE 

OMEGAQ 

CREATE  OLD  OMEGAQ 

0834 

REF 

1 

12,3701 

55*644  1 

T5 

OLDWFORQ 

O835 

REF 

1 

12*3702 

31 '421  1 

"CAE 

TJMEGAR 

CREATE  OLD  OMEGAR 

0836 

REF 

1 

12,3703 

55*645  0 

TS 

OlDwfORR 

R0837  if****  EVENTUALLY*  USE  2SECWLT4  FROMM'  FIXED-F 


0838  REF  1 12,3704  3 3746  1 CAF  25ECWLT4  SET  UP  A0STA5K  TO  BEGIN  IN  2 SECONDS 

0039  REF  8 LAST  180  12,3705  0 4536  0 TC WAITLIST IT  THEN' SETS  UP  A LOOP  ON  WAITLIST  FOR 

0840  12,3706  03064  0 2CADR  AOSTASK  2 SECOND  INTERVALS  AND  CHECKS  FOR  THE 

A0841  REF  1 12,3707  52006  0 SHUTDOWN  CONDITION  IN  BIT8  OF  DAPbOOLS 


R0842  **************************************************************************************************************** 


R0844  REMOVE  THIS  AND  THE  TASKS  *HEN  THE  INERTIA 


0845  REF  32  LAST  176  12,3710  3 7657  1 CAF  ONE  ***  SPECIAL  DAP  CHECKOUT  SEQUENCE  *** 

0846  REF  9 LAST~lTT7  12T3711 — 0 4536  0 TC" WAITLIST THESE  THREE  "CALLS  TO  WAITLIST  BEGIN  A 
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L- T4RUPT  PROGRAM " [ __  USER«S  OWN  PAGE  NO,  29 


0847 

12,3712 

03525  0 

2CADR 

IXXTASK 

COMPLICATED  PROCEDURE  TO  DECREMENT  THE 

C0847 

REF 

X 

12,3713 

52006  0 

0848 

REF 

33 

LAST  187 

12,3714 

3 7657  1 

CAF 

ONE 

INERTIA  MATRIX  DIAGONAL  ELEMENTS  (EACH 

0849 

REF 

10 

LAST  187 

12,3715 

0 4536  0 

TC 

WATT  LIST 

SCALED  AT  2(+l8)  SLUG  FEET (2)  ) BY  ONE 

0850 

12,3716 

03536  1 

2CADR 

IYYTASK 

BIT  AS  SOON  AS  APPROPRIATE  BY  A MOM  INAL 

C0850 

RtF 

' r 

12,3717 

52006  0 

0851 

REF 

34 

LAST  188 

12,3720 

3 7657  1 

CAF 

ONE 

LINEAR  APPROXIMATION  TO  INERTIAL  CHANGE, 

0852 

REF 

11 

LASX  188 

12,3721 

0 4536  0 

TC 

WAITLIST 

0853 

12,3722 

03547  1 

2CADR 

IZZTASK 

*4#  NOT  TO  BE  USED  IN  MISSIONS  444 

C0853 

REF 

1 

12,3723 

52006  0 

R0854  44444444444444444444444444444444444444444444444444444444444444444444444444444444444444444*4444444444444*44444444 


0856  REF  3 LAST  187  12,3724  1 '4606  1 TCF ENDDAPT4  TEND  OF  UP /DOWN) 


0857  REF  8 LAST  1&6  12*3725  3 7643  i DESCLEM  CAF  BUTT  ENGINE  ON  BIT  OF  CHANNEL  11 

0858  12,3726  0 OOO^T  EXTEND  0 MEANS  OFF 

0859  ' 12,3727  02  Oil  0 RAND  U-  ~TXMEANS  ON 

0860  REF  104  LAST  187  12,3730  10  000  0 CC5  A 

0861  REF  1 12,3731  I 3742  1 TCF  DESCDAP  (DESCENT  BURN  BRANCH) 


O862 

REF 

14  LAST  186 

12*3732 

4 7656 

1 

DESCOAST  CS 

6IT2 

SET  BIT2  OF  DAPBOOLS  TO  INDICATE  THAT 

0863 

REF 

7 LAST  18  7 

12*3733 

7 0 765 

1 

MAS< 

DAPBOOLS 

TRIM  gIMbAL  CANNOT  bE  USED  SINCE  THE 

0864 

REF 

15  LAST  188 

12,3734 

6 7636 

0 

AD 

BTT2 

STAGE  IS  DESCENT  ,XUT  THE  ENGINE  IS  NOT 

0865 

REF 

8 LAST  188 

12,3735 

54  765 

1 

TS 

DAPBOOLS 

ON, 

0866 

REF 

57  LAST  167 

12  9 3 7 3 6 

3 7665 

0 

cAF 

ZERO 

ZERO  TRIM  GIMBAL  OFFSET  ACCELERATION 

0867 

REF 

1 

12,3737 

55 ' 642 

1 

TS 

AOSQTERM 

TERMS  IN  THE  DESCENT  RATE  DERIVATION 

0868 

REF 

1 

12*3740 

55 ' 643 

0 

TS 

AOSRTERM 

SINCE  THE  THRUST  IS  ZERO  (ENGINE  OFF), 

0869  REF  4 LA5T  188  12,3741  1 460^1  TCF  ENDDAPT4  (END  OF  UP/DOWN) 


0870  ~ REF  2 LAST  187  12,3742  3X75X0  DESCDAP  CAF  DBAUTO  SINCE  DE5CENT  ENGINE  IS  ON  - 

0871  REF  4 LAST  187  12,3743  55*415XX  — TS““  DB  SET  DEADBAND  TO  1,0  DEGREES 

0S72  rEF  5“XAsT  T8E  12T3744  X460XT.  TCF ENDDAPT4  (END”  T3F~“OP7DOWNT 


°873  REF  6 LAST  188  12,3745  1 4606XX  TCF  ENDDAPT4 


0874 

1Z,3746~ 

003 10  0 

2SEULT4  DEC 

200 

2 SECONDS  WAITLI5T  DT 

0875 

12,3747 

00707  1 

DbMAxUM  dec 

0,02778 

5,0  DEgREL5  SCALED  AT  PI 

RADIANS 

0876 

12 ,3750 

00 133  0 

DBAUTO  DEC 

0,00555 

1,0  DEGKEtS  SCALED  At  PI 

RADIANS 

C 877 

12,3751 

00033“  1 

D8ATTHLD‘~DBC“ 

0.00167 

0,3  DEGREES  SCALED  AT  PI 

RADIAN5 

0878 

REF 

3 last 

164 

12,3545 

NoRRGMqN 

equals 

GPMaTRIX 

0879 

REF 

3 LAST 

3 3 

4606 

ENDDAPT4 

equals 

RESUME 
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L X MU  MODE  SWITCHING  routines  USER 1 S OWN  PAGE  NO.  1 


0001 

REF 

i 

' 4755 

SETLOC 

ENDT4FF 

0002 

REF 

1 

E3 

EBANK= 

COMMAND 

R0003 

fixed-fixed 

routines. 

0004 

REF 

58 

LAST  188 

4755  3 7665  0 

ZEROICDU 

CAF 

ZERO 

ZERO  ICDU  COUNTERS. 

0005 

REF 

4 

LAST  182 

4756  54  032  1 

TS 

CDUX 

0006 

REF 

2 

LAST  151 

4757  54  033  0 

rs 

CDUY 

0007 

REF 

5 

LAST  1 8 1 

4760  54  034  1 

T S 

CDUZ 

0008 

REF 

107 

LAST  177 

4761  0 0002  0 

TC 

Q 

0009 

4762  00454  1 

3SECS 

DEC 

300 

0010  4763  ENDIMODF  EQUALS 


T 
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L 

I MU 

MODE  SWITCHING  ROUTINES 

USER • 5 OWN  PAGE  nO*  2 

POOll 

IMU 

ZEROING 

routine. 

0012 

13*2000 

bank 

13 

0013 

13,2000 

0 0004  0 

IMUzERO  INHINT 

ROUTINE  TO  ZERO  ICDUS. 

0014 

REF 

5 

LAST~ 

174 

13,2001 

4 7650  1 

CS 

imuseflg 

SET  INDICATION  THAT  A MISSION  OR 

TE5T 

0015 

REF 

12 

LAST 

178 

13,2002 

7 0061  1 

MA5K 

STATE 

PROGRAM  IS  U5ING  THE  IMU, 

0016 

REF 

6 

LAST 

190 

13,2003 

6 7650  0 

AD 

IMUSEFLG 

0017 

REF 

13 

LAST 

190 

13,2004 

54  061  1 

TS 

STATE 

0018 

REF 

1 

13,2005 

0 2650  0 

TC 

CAGETSTQ 

IF  IMU  COMING  UP,  TURN-ON  PROGRAM 

WILL 

0019 

REF 

r 

13,2006 

1 2033  1 

TCF 

MODEEXIT 

DO  ALL  THE  WORK. 

0020 

REF 

1 

13*2007 

4 2743  1 

CS 

BITS3&4 

INHIBIT  ICDUFAIL  AND  IMUFAIL  (IN 

CASE  WE 

0021 

REF 

36 

last 

176 

13,2010 

7 0367  1 

MAsK 

IMQDES30 

JUST  CAME  OUT  OF  COARsE  ALIGN). 

0022 

REF 

2 

LA5  r 

190 

13,2011 

6 2743  0 

AD 

BITS364 

”0023 

REF 

37 

LAST 

190 

13,2012 

54  367  1 

“TS 

IM0DES30 

0024 

0075" 

0026 


REF  1 


13 

T3 

13 


"0027 

0028 

0029 


2013 

20lT 

2015 


4 2744  0 
0 0006  1 
03  012  1 


CS 


EXTEND 
«AND  12 


BITS466 


SEND  ZERO  ENCODE  WITH  COARSE  AND  ERROR 
COUNTER  DISABLED.  “ 


3 LAST  170 

13,2016 

3 7653 

0 

CAF 

B I T 5 

13,2017 

0 0006 

1 

EXTEND 

13,2020 

05  012 

1 

WOR 

12 

0030 

0031 
”0032 
COO32 

0033 


REF 

REF 


12  LAST  172 
12  LAST  188 


0034 

0035 

0036 

0037 

0038 

0039 

0040 


REF 

REF 

”REF 


Ml 


38  LAST  190 
”4  LAST  T6~9  ' 
REF  105  LAST  188 
REF  2 LAST  190 

REF  8 LAST  178 


REF  1 


13 

13 

13 

13 

13 

~r 

13 

13 


2021 

2022 


.3,2 


2023 

2024 

2025 
026 


13 

13 

13 

13 


2027 

2030 

2031 

2032 

2033 

2034 


3 7652  1 

0 4536  0 
' 020 3^0 

26003  0 

4 0367  1 
7 7647  1 
10  000  0 

1 2033  1 

0 5413  1 
00210  l 

0 0003  1 

1 4076  0 


CAT  BIT 6 
TC  - WAITLIST 
TGADR  IMUZER02 


WAIT  320  MS  TO  GIVE  AGS  ADEQUATE  TIME  TO 
RECEIVE  ITS  PULSE  TRAIN. 


CS 

TASK 

CC5 

TCF 


IM0DES30 

~BTT9 

A 

MODEEXIT 


SEE  IF  IMU  OPERATING  AND  ALARM  IF  NOT, 


TC  ALARM 

OCT  210 


MODEEXIT  RELINT 

TCF  SWRETURN 


GENERAL  MODE-SWITCHING  EXIT, 


I 
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t i yu  modi  Switching  routines  user»s  own  page  no.  3 


0041 

ref 

2 

LAST 

190 

13,2035 

0 2650  0 

IMUZER02  TC 

CAGETSTQ 

POSSIBLY  SWITCH  TO  TUrN-ON  PrOGrAM. 

0042 

REF 

8 

LAST 

170 

13,2036 

1 4602  0 

^tcf 

TASKOVER 

0043 

REF 

2 

LAST 

170 

13  *2037 

0 4755  1 

TC 

ZEROICDU 

ZtRu  lOUNTcKS# 

0044 

REF 

4 

last 

190 

13,2040 

4 7653  1 

cs 

BIT5 

REMOVE  ZERO  DISCRETE. 

0045 

13,2041 

0 0006  1 

EXTEND 

0046 

13,2042 

03  012  1 

WAND 

12 

0047 

REF 

I 

13,2043 

3 4762  0 

CAF 

3SECSM 

WAIT  FOR  COUNTERS  TO  SYNCRONIZE, 

0048 

REF 

3 

LAST 

170 

1 3 ,2044 

0 4557  1 

TC 

VARDELAY 

0049  REF  3 LAST  lgl  13*2045  0 2650  0 IMUZER03  TC  CAGETSTQ 

0050  REF  9 LAST  191  13.2046  1 4602  0 TCF  TASKOVER 


0051  REF  3 LAST  190  13*2047  4 2743  1 CS  BITS3&4  REMOVE  IMUFAIL  AND  ICDUFAIL  INHIBIT. 

0052  REF  39  LAST  190  13,2050  7 0367  1 MASK  IM0DES30  “ 

0053  REF  40  LAST  lgl  13,2051  54  367  1 TS  IM0DES30 

0054  REF  1 13,2052  0 4156  1 TC  IBNKCALL  SET  ISS  WARNING  IF  EITHER  OF  ABOVE  ARE 

“0055  REF  ~5~ LAST  1T6  13,2053  253WTJ  CADR  SETISSW  PRESENT.  ~ 


0056  REF  2 LAST  I7O  13,2054  1 2633  1 TCF  ~ ENDIMU 


C 

■v 
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L JMU  MODl  SWITCHING  ROUT  I No  5 USER’S  OWN  PAGE  NO.  4 

P0057  TMU  COARSE  ALIGN  MOPE. ~ 


0058 

REF 

5 LAST  173 

13,2055 

3 7654 

1 

I MUCOARS  CAF 

BIT4 

SEND  coarse 

ALIGN  ENABLE  DISCRETE 

0059 

13,2056 

0 0004 

0 

INHINT 

0060 

13,2057 

0 0006 

1 

EXTEND 

0061 

REF 

1 

13,2060 

05  012 

IT 

WOR 

CHAN12 

UO  6 2 

REF 

6 LAST  192 

13,2061 

4 7654 

0 

CS 

BIT4 

inhibit  imu 

FAIL. 

0063 

REF 

41  LAST  191 

13,2062 

7 0367 

1 

MASK 

IM0DES30 

0064 

REF 

7 LAST  192 

13,2063 

6 7654 

1 

AD 

B1T4 

0065 

REF 

42  LAST  192 

13,2064 

54  367 

1 

TS 

IM0DES30 

0066 

REF 

4 LAST  166 

13,2065 

3 6162 

1 

CAF 

SIX 

0067 

REF 

13  LAST  190 

13,2066 

0 4536 

0 

TC 

WAITLIST 

0068 

13,2067 

02072 

0 

2CADR 

COARS 

C0066 

REF 

1 

13,2070 

26003 

0 

0069 

REF 

3 LAST  190 

13,2071 

1 2033 

1 

TCF 

MODEEXIT 

OO7O 

REF  1 

13,2072 

0 2643  1 COARS 

TC 

CAGETEST 

0071 

" REF  13 

LAsT  190 

13,2073 

3 7652  1 

CAF 

B1T6 

ENABLE  ALL  ThKEE  Iss  CDU  ERROR  COUNTERS 

0072 

13,2074 

0 0006  1 

EXTEND 

0073 

REF  2 

LAST  192 

13,2075 

05  012  1 

WOR 

CHAN12 

OO7A  REF  15  LAST  180  13,2076  3 7656~0~  CAF  TWO-  SET  CDU  INDICATOR 

0075  REF  1 13,2077  55*454  1 C0ARS1  TS  CDUINP 


0076 

REF 

2 

LAST 

192 

13,2100 

5 1 ' 454 

0 

0077 

REF 

1 

13*2101 

3 0400 

0 

0078 

13,2102 

'0  0006 

r 

0079 

REF 

3 

LAS7 

192 

13,2103 

5 1454 

0 

0080 

REF 

5 

LAST 

189 

13,2104 

20  032 

1 

0081 

13,2105 

0 0006 

r 

0082 

REF 

9 

LAST 

188 

1 3 « 2, 1 06 

7 7643 

0 

0083 

REF 

36 

LAST 

179 

13,2107 

56  001 

0 

0084 

13,2110 

6 0000 

T 

0085 

RtF 

3 

LAS  r 

9 

1 i , 2 1 1 1 

54  065 

0 

0086 

13,2112 

1 2114 

0 

“0087 

REF 

37 

LAST 

192 

1 3 , 2 1 1 3 

2 6 OOl 

INDEX  CDUIND  COMPUTE  THETAD  - THETAA  IN  1SS 

CA  THETAD  COMPLEMENT  FORM 

EXTEND 

INDEX  CDUIND 

MSU  CoUX 

““EXTEND 

MP BIT13  SHIFT  RIGHT  2 

XCH  1.  ROUND 

DOUBLE 

“TS  ITEMP1 

TCF  +2 

AD  5 C~ 


0088 

REF 

4 

LAST 

192 

13,2114 

5 1 • 454 

0 

INDEX 

CDUIND 

DIFFERENCE  TO  BE  COMPUTED 

0089 

RtF 

2 

LAST 

189 

13*2115 

23 ' 451 

0 

LXCH 

COMMAND 

0090 

ref 

5 

last 

192 

1 3 , 2 1 1 6 

1 1 *454 

1 

CCS 

CDUIND 

0091 

REF 

1 

13,2117 

0 2077 

0 

TC 

C0ARS1 

0092  REF  16  LAST  192  13,2120  3 7656  0 

0093  REF  4 LAST  191  13,2121  0 4557  1 


CAF  TWO  MINIMUM  OF  4 MS  WAIT 

TC  VARDELAY 
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piU  SWITCHING  ROUTINES 


USER»S  OWN  PAGE  NO, 


CO99 

REF 

2 LAST 

192 

13,2122 

0 2643 

1 

C0ARS2 

TC 

CAGETEST 

DONT  CONTINUE  IF  CAGED. 

0095 

REF 

A LAST 

192 

13,2123 

54  065 

0 

TS 

I TEMP  1 

SETS  TO  +0. 

0096 

REF 

17  LAST 

192 

13,2124 

3 7656 

0 

CAF 

TWO 

SET  CDU  INDICATOR 

0097 

REF 

6 LAST 

192 

13,2125 

55 • 454 

1 

♦ 3 

TS 

COUIND 

0098 

REF 

7 

LAST 

193 

13,2126 

51*454 

0 

INDEX 

COUIND 

0099 

REF 

3 

LAST 

192 

13*2127 

11*451 

1 

CCS 

COMMAND 

NUMBER  OF  PULSES 

REQUIRED 

0100 

REF 

1 

13,2130 

0 2134 

0 

TC 

COMPOS 

greater  than  max 

allowed 

0101 

REF 

1 

13,2131 

0 2143 

0 

TC 

NEXTCDU  +1 

0102 

REF 

1 

13,2132 

0 2206 

1 

TC 

COMNEG 

0103 

REF 

2 

LAST 

193 

13,2133 

0 2143 

0 

TC 

NEXTCDU  +1 

0109 

REF 

1 

13,2134 

6 2747 

1 

COMPOS  AD 

-COMMAX 

COMMAX  = MAX  NUMBER  OF  PULSES  ALLOWED 

0105 

13,2135 

0 0006 

1 

EXTEND 

MINUS  ONE 

0106 

REF 

1 

13,2136 

6 2216 

0 

3ZMF 

COMzERO 

0107 

REF 

8 

last 

193 

13,2137 

51*454 

0 

INDEX 

COUIND 

0108 

REF 

4 

LAS  I 

193 

13,2140 

55*451 

1 

TS 

COMMAND 

REDUCE  COMMAND  BY  MAX  NUMBER  OF  PULSES 

0109 

REF 

1 

13,2141 

4 2750 

0 

cs 

-cOmmax- 

allowed 

0110 

REF 

5 

LAST 

193 

13,2142 

24-  065 

1 

NEXTCDU  INCR 

I temp  1 

0111 

REF 

9 

LAST 

193 

13,2143 

51*454 

0 

INDEX 

cduind 

0112 

REF 

2 

LAS  1 

174 

13*2144 

54  O5O 

0 

TS 

CDUXCMD 

SET  UP  COMMAND  REGISTtR. 

0113 

REF 

10  LAST  193 

13,2145 

1 1 • 454  1 

CCS 

cduind 

0114 

REF 

1 

13,2146 

0 2125  0 

TC 

C0ARS2  *3 

0115  REF  6 LAST  193  13,2147  10  065  0 CCS  ITEMP1  SEE  IF  ANY  PULSES  TO  GO  OUT, 

0116  REF  1 13*2150  1 2222  0 TCF  SENDPULS 


0117  REF  1 13 ,2151  0 4554  1 TC  FIXDELAY  WAIT  FOR  GIMBALS  TO  SETTLE, 

0118  13,2152  00226  1 DEC  150 


I 


4 
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\ 


L i MU  W50l  5W jfCH I NG  ROUTINES  USEr»S  OWN  PAGE  NO*  6 


0119 

REF 

18 

LAST  193 

13 

,2153 

3 7656 

0 

CAF 

TWO 

AT  END  OF  COMMAND,  CHECK  TO  SEE  THAT 

■OHO”  REF 

7 

LAST"  193 

13 

,2154 

54  065 

0 

CHKCORS 

TS 

I TEMPI 

GIMBALS  ARE  WITHIN  2 DEGREES  OF  THETAD. 

0121 

REF 

106 

LAST'  190 

13 

,2155 

50  000 

1 

index 

A 

0122 

REF 

6 

LAST  192 

13 

,2156 

3 0032 

0 

CA 

CDUX 

~CT123 

13 

,2157 

0 0006 

i 

EXTEND 

0124 

REF 

8 

LAST  194 

13 

,2160 

5 0065 

1 

INDEX 

ITEMP1 

0125 

REF 

2 

LAST  192 

13 

,2161 

20  400 

r 

MSU 

TFIETAD 

0126 

REF  107  LAST  194 

13 

,2162 

10  000 

0 

CDS" 

A 

0127 

REF 

1 

13 

,2163 

1 2177 

0 

TCF 

COARSERR 

0128 

REF 

r 

13 

,2164 

1 2166 

0 

TCF 

C0RSCHK2 

0129 

REF 

2 

LAST  194 

13 

,2165 

1 2177 

u 

TCF 

COARSERR 

0130 

REF 

9 

LAST  194 

13 

,2166 

10  065 

0 

C0RSCHK2 

CCS 

I TEMP  1 

0131 

REF" 

1" 

13 

,2167 

1 2154 

l 

TCF 

CHKCORS 

0132 

REF 

3 

LAST  19 

13 

,2170 

55*451 

i 

TS 

GCOMP 

ZERO  GYRO  COMPENSATION  REGISTERS  IN 

0133 

REF 

4 

LA5T  19* 

13 

,2171 

55 ' 452 

l 

TS 

GCOMP  +1 

PREPARATION  FOR  COMPENSATION. 

0134 

ref 

“ 5 

LAST  194 

13 

,2172 

55 • 453 

0 

T5 

GCDMP  +2 

0135 

REF 

6 

LAST  194 

13 

,2173 

55*454 

1 

TS 

GCOMP  +3 

0136 

REF 

7 

LAST  194 

13 

,2174 

55  * 455 

0 

T5 

GCOMP  +4 

0137 

REF 

8 

LA5T"  194 

1 3 

<2175 

55*456 

TS 

GCOMP  *5 

0138 

REF 

3 

LAST  191 

13 

,2176 

1 2633 

1 

TCF 

ENDIMU 

END  OF  COARSE  ALIGNMENT, 

0139 

REF 

1 

13 

,2177 

6 2205 

IT 

COARSERR  AD 

COARSTOL 

2 DEGREES. 

0140 

13 

,2200 

0 0006 

1 

EXTEND 

0141 

REF 

2 

LA5  T 194 

13 

,2201 

6 2166 

1 

3ZMF 

COR5CHK2 

0142 

REF 

9 

LASi  190 

13 

,2202 

0 5413 

1 

TC 

ALARM 

C.UAKbt  ALIGN  tRKUR# 

"0143 

13 

,2  2D  3 

00211 

0 

OCT 

211 

U 144 

REF 

2 

LA5  T 169 

13 

,2204 

1 2641 

1 

TCF 

IMUBAD 

0145 

13 

,2205 

77511 

1 

COARSTOL 

DEC 

-.01111 

2 DEGREES  SCALED  AT  HALF-REVOLUT I0N5, 

* 
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I imu  mode  switching  routines  user’s  own  page  no.  7 


0U6 

REF 

2 

LAST 

193 

13,2206 

6 2747  1 COMNEG 

AD 

-COMMAX 

0U7 

13,2207 

0 0006  1 

EXTEND 

0148 

REF 

2 

LAST 

193 

13,2210 

6 2216  0 

3ZMF 

COMZERO 

0149 

13,2211 

A 0000  0 

COM 

0150 

~ RET 

TI 

LAST 

193 

13,2212 

51*454  0 

INDEX 

cduind 

0151 

REF 

5 

LAST 

193 

13,2213 

55*451  1 

TS 

COMMAND 

OI52 

REF 

2 

LAST 

193 

1 3 » 22 14 

3 2750  1 

CA 

-COMMAX- 

0153 

* REF 

3 

last 

193 

1 3 , 22 1 b 

0 2142  1 

TC 

NfXTCDU 

0154 

REF 

59 

LAST  189 

13,2216 

3 7665 

0 

COMZERO  CAF 

ZERO 

0155 

REF 

12 

LAST  195 

13,2217 

51 *454 

0 

index 

CDUIND 

0156 

REF 

6 

LAST  195 

13.2220 

57*451 

0 

XCH 

COMMAND 

0157 

ref 

4 

LAST  195 

13,2221 

0 2142 

1 

TC 

NEXTCDU 

0158 

REF 

1 

13,2222 

3 2746 

0 

SENDPULS  CAF 

13,14,15 

0159 

13.2223 

0 0006 

1 

EXTEND 

0160 

~ REF 

1 

13,2224 

05  014 

1 

A/OR 

Chan  14 

0161 

REF 

1 

13,2225 

3 2751 

0 

CAF 

600MS 

0162 

REF 

2 LAST  193 

13,2226 

1 2121 

0 

TCF 

C0ARS2  -1 

AND  THEN  TO  VARDELAY. 

4 

r 

4 
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L 1 J MODI  SWITCHING  rQU-TiNES  USER'S  OWN  PAGE  NO,  8 

Pc.  1 63  i mu  Fine  align  mode  switch,-  


0164 

13,2227 

0 0004  0 

IMUFINE  INHINT 

0165 

REF 

I 

13,2230 

0 2655  0 

TC 

CAGETSTJ 

see  if  imu  being  caged. 

0166 

REF 

1 

13,2231 

4 2745  1 

CS 

BIT  54-6 

RESET  ZERU,  COARSE,  AND  ECTR  ENABLE, 

0167 

13,2232 

0 0006  1 

extend 

0168 

13*2233 

03  012  1 

wand 

12 

0169 

REF 

8 

LAST 

176 

13,2234 

3 7646  1 

OAF 

BIT10 

IMU  FAIL  WA5  INHIBITED  DURING  THE 

~ 0170 

FEF 

14 

LaST 

192 

13,2235 

0 4536  0 

rc 

WAITLIST 

PRESUMABLY  PRECEDING  COARSE  ALIGN,  LEAVE- 

0171 

13,2236 

02247  1 

2CADR 

IFAILOK 

IT  ON  FOR  THE  FIRST  5 SECS  OF  FINE  ALIGN 

C0171 

REF 

2 

LAST 

151 

13,2237 

26003  0 

0172 

REF“ 

I 

13,2240 

3 2752  0 

CAF 

90SEC 

GYRO  RE-CENTERING  TIME, 

0173 

REF 

15 

LAST 

196 

13,2241 

0 4536  0 

TC 

WAITLIST 

0174 

13,2242 

02245  0 

2CADR 

IMUFINED 

C0174 

REF 

1 

13,2243 

26003  0 

0175 

REF 

4 

LAST 

192 

13,2244 

1 2033  1 

TCF 

MODEEXIT 

0I76 

REF 

3 LAST  193 

13,2245  0 2643  1 

IMUFINED  TC 

CAGETEST 

SEE  THAT  NO  ONE  HAS  CAGED  THE  IMU, 

0177 

ref 

4 LAST  194 

13,2246  1 2633  1 

tcf 

end imu 

0178 

REF 

4 LAST 

191 

13,2247 

0 2650  0 

IFAILOK  TC 

CAGETSTQ 

ENABLE  IMU  FlAL  UNLESS  IMU  BEING  CAGED, 

0179 

REF 

10  LAST 

191 

13,2250 

1 4602  0 

TCF 

TA5K0VER 

IT  1 5 § 

OlgO  REF  8 LAST  192 

13,2251 

3 7654 

T 

CAF 

bit4 

DONT  FESETTMU  FAIL  INHIBIT  IF  SOMEONE 

0181 

13,2252 

0 0006 

1 

EXTEND 

HAS  GONE  INTO  COARSE  AlIGN, 

0182 

13,2253 

02  012 

0 

RAND 

12 

0183  REF  108  UA5T  194 

13,2254 

10  000 

~0 

CC5- 

T 

0184  KcF  il  LAS  1 196 

13,2255 

1 4602 

0 

TCF 

TASKOVER 

Cls5 

RtF 

9 LAST  I96 

13,2256 

4 7654  0 

T5~ 

BIT4 

0166 

REF 

43  LAST  192 

13,2257 

7 0367  1 

PFAIL0K2 

MASK 

IMODES30 

0187 

REF 

44  LAST  196 

13,2260 

54  367  1 

TS 

IM0DE530 

0168 

REF 

1 2 Las  T 196 

13,2261 

1 4602  0 

TCF- 

TA5K0VER 

vi89 

Kth 

5 LAST  196 

13,2262 

0 2650  0 

PFAILOK 

TC 

CAGET5TQ 

ENABLE  PIF  FAIL  PROG  ALARM, 

0190 

REF 

13  LAST  196 

13,2263 

1 4602  0 

TCF 

FASKCTVER 

U 1 9 1 

RtF 

5 LASI  191 

13,2264 

4 7653  1 

CS 

BIT5 

0192 

REF 

1 

13,2265 

1 2257  1 

TCF 

PFRIL0K2 
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L piU  MjDh  SWITCHING  ROUTINES  U5ER»S  OWN  PAGE  NO.  9 

P0193  ROgiTnES  TO  INITIATE  A^D  TERMINATE  PROGRAM  USE  OF  THE  PiPASTl^lMQSmrL  REQUIRED  In  EITHER  CASE. 

0195  REF  6 LAST  196  13,2266  0 2650  0 PlPUSE  TC  CAGETSTO  ~DONT  ENABLE  PIPA  FAIL  IF  IMU  BEING  CAGED 

0196  REF  2 LAST  190  13,2267  1 4076  0 TCF  SwRETURN 


0197 

13,2270 

0 0004 

0 

inhint 

. ') 

0196 

REF 

60  LAST  195 

13,2271 

3 7665 

0 

CAF 

ZERO 

ZERO  COUNTERS. 

0199 

REF 

1 “ 

13,2272 

54  03T 

1 

TS 

PIPAX 

0200 

REF 

1 

13,2273 

54  040 

1 

T S 

PIPAY 

) 

0201 

REF 

1 

13,2274 

54  041 

0 

TS 

PIPAZ 

0202 

REF 

8 

LAST 

177 

13,2275 

4 7657  0 

0203 

REf 

45 

LAST 

196 

13,2276 

7 0367  1 

0204 

REF  ' 

46 

LAST 

T9? 

13,2277 

54  3671 

TT5  BITl  ^TF  PIPA  FAILS  FROM  NOW  ON  (UNTIL 

MASK  ImODESBO  PIPFREE),  LIGHT  ISS  WARNING. 

TS  IM0DES30 


0205  REF  2 LAST  191  13,2300  0 4156  1 PIPFREE2  TC  ' fBNKCALL  ISS  WARNING  MIGHT  COME  ON  NOW. 

0206  REF  6 LAST  191  13,2301  25344  0~  CADR  SETISSW  (OR  GO  OFF  ON  PlPFREE) , 

0207  REF  5 LAST  196  13*2302  1 2O33  ! TCF  MODEEXIT  ~ 


0208 

13,2303 

0 0004  0 

PIPFREE  INHINT 

PROGRAM  DONE  WITH  PIPAS.  DONT  LIGHT 

0209 

REF 

9 

LAST 

197 

13,2304 

4 7657  0 

CS 

BITl 

ISS  WARNING. 

0210 

REF 

47 

LAST 

197 

13,2305 

7 0367  1 

MASK 

IMODES30 

0211 

REF 

10 

LAST 

197 

13,2306 

6 7657  1 

AD 

BITl 

0212 

REF 

48 

LAST 

197 

13,2307 

54  367  1 

T 5 

IM0DES30 

0213  REF  9 LAST  196  13,2310  7 7646  0 MASK  "BlTlO  TF  PIP  FAIL  ON,  DO  PROG  ALSRM  AND  RESET 

0214  REF  109  LAST  196  13,2311  10  000  0 CCS  AT ” ISS  WARNING. 

0215  REF  6 LAST  197  13,2312  1 2033  1 TCF MODEEXIT 


0216  REF  10  LAST  194  13,2313  0 $413  T ' ~TTT~  ALARM 

C2T7  13,2314 0O2TTT3 DcT 2l2~ 


0218  ~ 13,2315  0 0004  0 INHIIlT 


0219  REF  1 13,2316  1 2300  1 TCF  PIPFREE2 


I 
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L I VIU  MODp  SWITCHING  gggfjNjS  USER’S  OWN  PAGE  NO,  IQ 

P0220  THE.  FOLLOWING  ROUTINE  1'ORqUeS  THe  IRIGS  ACCORDING  TO  DOUBLE  PRECISION  INPUTS  IN  THE  Six  REGISTERS 

R0222  BEGINNING  AT  THE  tCADR  ARRIVING  IN  A,  THE  MINIMUM  SIZE  OF  ANY  PULSE  TRAIN  IS  i6  PJLSpS  (.25  COU  COUNTS).  THE 

~ R0224  UNSEAT  PORTION  OF  THE  COMMAND  IS  LeFT  INTaCT  IN  THE  INPUT  COMMAND  RfgTSrEKS. 


0226 

E3 

EBANK= 

1400 

VARIABLE,  ACTUALLY, 

0227 

REF  370  LAST  157 

13*2317 

54  145  0 

IMUPULSE  T5 

MPAC  *5 

SAVE  ARRIVING  bCAuR« 

' 0223 

REf  2 LAST  196 

13,2320 

0 2655~0 

Tc 

CAGET5TJ 

DO  NT  PROCEED  Ip  I MU  BEING  cAGED, 

0229 

REF  2 LAST  158 

13,2321 

10  357  1 

CCS 

LGYRO 

SEE  IF  GYROS  BUSY. 

0230 

REF  1 

13,2322 

0 2364  1 

TC' 

GYROBUSY 

SLEEP. 

0231 

REF  371  LAST  198 

13,2323 

54  142  1 

TS 

MPAC  +2 

TJ232 

rEF  14  LAsT  192 

13,2324 

3 7652  1 

CAP 

BjT6 

Enable  The  power  supply. 

0233 

13,2325 

0 0006  1 

EXTEND 

0234 

13*2326 

05  014  1 

WOR 

14 

0235 

REF 

3 LAST  106 

13,2327 

3 7655  0 

CAF 

FOUR 

0236 

13,2330 

0 0004  0 

GWAKE2  INHINT 

(IF  A JOB  WAS  PUT  TO  SLEEP,  THE  POWER 

0237 

REF 

16  LASI  196 

13,2331 

0 4536  0 

TC 

WAITLIST 

SUPPLY  IS  LEFT  ON  BY  THE  WAKING  JOB), 

0238 

13,2332 

02402  0 

2CADR 

STRTGYRO 

C0238 

RtF 

1 

13,2333 

26003  0 

0239 

REF 

372  LAST  198 

13,2334 

3 0145  1 

CA 

"MPAC  *5 

SET  UP' EBANK,  SAVING  CALLER'S  EBANK  FOR 

0240 

REF 

3 LAST  158 

13,2335 

56  003  1 

XCH 

EBANK 

RESTORATION  ON  RETURN, 

0241 

REF 

373  LAST  198 

13,2336 

56  145  1 

XCH 

MPAC  +5 

0242 

REF 

' 3 LAST  198 

13,2337 

54  357  1 

TS 

UGYRO 

PESERVE5  GYROS, 

0243 

REF 

1 

13,2340 

7 5235  1 

MASK 

LOWS 

0244 

REF 

10  LAST  194 

13,2341 

54  065  0 

TS 

ITEMP1 

0245  REF  19  LAST  I 13,2342  3 7656  0 CAF  TWO-  “ FORCE  SIGN  AGREEMENT  ON  INPUTS, 

0246  REF  374  LAST  198  13,2343  54  143  0 GYROAGRE  TS  MPAC  +3 


0247 

13,2344 

6 0000  1 

■ double 

0248 

REF 

1 1 

LAST  198 

13,2345 

6 0065  1 

AD 

ITEMP1 

0249 

REF 

375 

LAST  198 

13,2346 

54  144  1 

TS 

MPAC  *4 

0250 

13,2347 

0 0006  1 

EXTENT? 

0251 

REF 

110 

LAST  197 

13,2350 

5 0000  1 

INDEX 

A 

0252 

13,2351 

3 1401  0 

DCA 

1400 

0253 

REF 

376 

LA5T  198 

13,2352  52  141  l 

' DXCH 

MPAC 

0254 

REF 

1 

13,2353 

0 7435  1 

TC 

TPAGREE 

0255 

REF 

377 

LAST  198 

13 ,2354 

52  141  1 

DXCH 

MPAC 

02  56 

REF 

378 

LAST  198 

13 ,2355 

50  144  0 

INDEX  MPAC  +4 

0257 

13,2356 

53*401  1 

DXCH 

1400 

RtF  3^9  LASI  198 

13,2357 

10  143  0 

CCS 

MPAC  ♦3 

0259 

K tr 

1 

13,2360 

1 2343  0 

TCF 

GYROAGRE 

U46U 

RtF 

380 

LA5 1 198 

13,2361 

3 0145  1 

CA 

MPAC  +5  RESTORE  CALLER'S  EBANK, 

0261 

ref 

4 

LAST  198 

13*2362 

54  003  0 

TS 

EBAnK 

0262 

REF 

7 

LAST  197 

13,2363 

1 2033  1 

TCF 

modeexit 

I 
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U~  I MU  MQDL  SWITCHING  ROUTINES  USER'S  OwN  PAGE  NO.  11 

P0263  ~ ROUTINES  TO-  ALLOW  tOfiSUHNfl  BY  ONLY  ONE  JOB  AT  7TT1ME. 


0264 

13,2364 

0 0006 

1 

GYROBUSY 

EXTEND 

SAVE  RETURN  2FCADR. 

0265 

ref 

19 

LAST  114 

13,2365 

3 0120 

1 

DCA 

BUF2 

0266 

REF 

381 

LAST  198 

13,2366 

52  141 

1 

dxch 

MPAC 

0267 

REF 

1 

13,2367 

3 2401 

0 

REGSLEEP 

CAF 

LGWAKE 

0268 

REF 

1 

13,2370 

1 4416 

1 

TCF 

JOBSLEEP 

0269  REF  4 LAST  198  13*2371  10  357  1 GWAKE  CCS  LGYRO  WHEN  AWAKENED*  SEE  IF  GYROS  STILL  BUSY. 

0270  REf  1 13.2372  1 2367  0 TCF  REGSlEEP  IF  SO.  SlEEP  SOME  MORE. 


0271 

REF 

382 

LAST 

199 

13,2373 

54  142 

1 

TS 

MPAC  *2 

0272 

13.2374 

0 0006 

1 

EXTEND 

0273 

REF 

383 

LAS  I 

199 

13,2375 

3 0141 

0 

DCA 

MPAC 

0274 

REF 

20 

LAST 

199 

13,2376 

52  120 

0 

DXCH 

6UF2 

0275 

REF 

35 

LAST 

188 

13,2377 

3 7657 

1 

CAF 

ONE 

0276 

REF 

1 

13,2400 

1 2330 

1 

TCF 

GWAKE2 

0277 

REF 

1 

13,2401 

26371 

0 LGWAKE 

CADR 

GWAKE 

RESTORE  SWRETURN  INFO. 
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» 


> 


L I MU  MODE  SWITCHING  ROUTINES  USER'S  OWN  PAGE  NO.  12 

I 

P0278  ~ GYRO»TORQUlN<r  WAjTLlS.T  TASKS. 


0279 

REF 

1 

13,2402 

4 2630 

1 

STRTGYRO 

CS 

GDESELCT 

DE-SELECT  LAST  GYRO. 

0280 

13,2403 

0 0006 

1 

EXTEND 

0281 

13,2404 

03  014 

1 

WAND 

14 

0282 

REF 

4 

LAST 

196 

13,2405 

0 2643 

1 

TC 

CAGETEST 

0283 

REF 

5 

LAST 

199 

13,2406 

3 0357 

0 

STRTGYR2 

CA 

LGYRO 

JUMP  ON  PHASE  COUNTER  IN  BITS  13-14. 

0284 

13,2407 

0 0006 

1 

EXTEND 

' 02  8 5 

REF 

10 

LAST 

196 

13,2410 

7 7654 

0 

"MF 

BIT4 

0286 

REF 

111 

LAST 

198 

13,2411 

50  000 

1 

INDEX 

A 

0287 

13,2412 

1 2413 

1 

TCF 

+ 1 

0288 

REF 

1 

13,2413 

0 2442 

1 

rc 

GSELECT 

=0.  DO  Y GYRO, 

0289 

13,2414 

00202 

1 

OCT 

00202 

0290 

REF 

2 

LA5T 

200 

13,2415 

0 2442 

1 

TC 

GSELECT 

=1,  DO  Z GYRO, 

0291 

13,2416 

00302 

0 

OCT 

00302 

0292  REF  3 LAST  200  13*2417  FT440  0 

0293  13,2420  00100  0 


TC  GSEUECT  -2  =2.  DO  X GYRO, 

OCT  00100 


0294 

REF 

61 

LAST  197 

13,2421 

3 7665  0 

CAF 

ZERO 

=3.  DONE 

O295 

REF 

6 

LA5T  200 

13,2422 

54  357  1 

T5 

LGYRO 

0296 

REF 

2 

LAST  199 

13,2423 

3 2401  C 

CAF 

LGWAKE 

WAKE  A POSSIBLE  SLEEPING  JOB, 

0297  REF 

1 

13 ,2424 

0 4422  “I 

TC 

JOBWAKE 

U298 

REF 

1 6 

LA5T  188 

13*2425 

3 7656  0 

CAF 

BIT2 

DONT  RE5ET  POWER  SUPPLY  IF  BIT  SET 

02~99~ 

ref 

6 

last  r7T 

13,2426 

7 0370  1 

vwsir~ 

(ONLY  DURING  GYRO  TORQUE  ScA|_E  FACTOR 

0300 

REF 

112 

LAST  2OO 

13,2427 

10  000  0 

CCS 

A 

TEST ) , 

0301 

REF 

1 

13,2430 

1 2437  1 

TCF 

NORESET 

U302 

REF 

18 

LA5T  133 

13,2431 

10  071  0 

CCS 

LOCCTR 

1 h A JUb  fl/Ab  AWAKt(NtDf  DON I KtbLT  ^YKU 

0303 

REF 

2 

LAST  200 

13,2432 

1 2437  1 

TCF 

NORESET 

ENABLE, 

0304  REF  3 LAST  200 


- 0305  TTEF  IT  LAST  198 

0306 

0307 


13,2433  1 2437  I 


13,2484  47 68 2 0 “ 

13.2435  0 0006  1 

13.2436  03  014  1 


TCF  NORESET 


CS BTT6 

EXTEND 
WAND  TT4 


TF“NO“JOB  AWAKENED,  RESET  GYRO  ENABLE, 


0308  REF  2 LAST  I96 


13,2437  1 2245  1 NORESET  TCF 


IMUFINED 
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L IMU  MoPe  SWITCHING  routines  USER'S  OWN  PAGE  NO,  13 


0309 

rEF 

4 LAST 

198 

13,2440 

4 7655  1 

-2  CS 

FOUr^ 

SPECjAL  ENTRY  TO  rEGrESS  LGYrO  FOR  X. 

0310 

REF 

7 LAST 

200 

13,2441 

26  357  1 

ADS 

LGYRO 

0311 

REF 

10a  LAST 

189 

13,2442 

50  002  0 

GSELECT  INDEX 

Q 

SELECT  GYRO. 

0312 

13,2443 

3 0000  1 

CAT 

0 

PACKED  WORD  CONTAINS  GYRO  SELECT  BITS 

0313 

REF 

3 LAST 

9 

13,2444 

54  071  0 

TS 

ITEMP4 

AND  INCREMENT  TO  LGYRO, 

0314 

REF 

5 LAST 

160 

13,2445 

7 7663  1 

MASK 

SEVEN 

0315 

REF 

10  LAST 

192 

13,2446 

6 7643  1 

AD 

B I T 1 3 

0316 

REF 

8 LAST 

201 

13,2447 

26  357  1 

ADS 

LGYRO 

0317 

REF 

5 LAST 

196 

13,2450 

54  003  0 

TS 

EBANK 

0318 

REF 

2 LAST 

198 

13,2451 

7 5235  1 

MASK 

LOW  8 

0319 

REF 

12  LAST 

198 

13,2452 

54  065  0 

T S 

I TEMP  1 

0320 

REF 

6 

LAST 

201 

13,2453 

4 7663 

1 

CS 

SEVEN 

0321 

REF 

4 

LA5T 

201 

13,2454 

7 0071 

0 

MASK 

ITEMP4 

0322 

REF 

5 

LAS  I 

201 

13,2455 

54  071 

0 

TS 

ITEMP4 

0323 

13,2456 

0 0006 

I 

EXTEND 

MOVE  DP  COMMAND  TO  RUPTREGS  FOR  TESTING, 

0324 

REF 

13 

LAST 

201 

13,2457 

5 0065 

1 

INDEX 

1TEMP1 

0325 

13,2460  3 1401 

0 

DC  A 

1400 

0326 

REF 

13 

LAST 

171 

13,2461 

52  075 

1 

DXCH 

RUPTREG1 

0327 

REF 

1 4 LAST 

201 

13,2462 

10  O74 

0 

CCS 

RUPTREG1 

0328 

RcF 

1 

13,2463 

1 2476 

1 

tcf 

MAJ  + 

0329 

13,2464 

1 2466 

0 

TCF 

♦ 2 

0330 

RET 

1 

13,2465 

1 2611 

1 

TCF 

MAJ- 

0331 

REF 

7 LAST 

173 

1 3 1 2466 

10  075 

1 

CCS 

RUPTREG2 

0332 

REF 

I 

1 3 ,2467 

1 2473 

T 

TCF 

MIN* 

0333 

REF 

1 

13,2470 

1 2406 

0 

TCF 

STRTGYR2 

0334 

REF 

1 

13,2471 

1 2606 

1 

TCF 

MIN- 

0335 

REF 

2 LAST 

201 

13,2472 

1 2406 

0 

TCF 

STRTGYR2 

-W3423A  yJL  SYSTEM  FOR  BLK2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L i '1U  MODS  SWITCHING  ROUTINES 


USER'S  OrtN  PAGE  NO.  14 


0336  REF  ZU 

0337 

0338  REF  3 LAST  201 


13,2473 


13 

13 


2474 

2475 


6 2527  0 
0 0006  1 
6 2406  1 


MI  N + 


AD  -GYROMIN 
EXTEND^ 

SZMF  STRTGYR2 


SMALL  POSITIVE  COMMAND.  SEE  IF  AT  LEAST 
16  GYRO  PULSES, 


0339 

13*2476 

0 0006 

1 MAJ  + 

EXTEND 

DEFINITE  POSITIVE  OUTPUT. 

0340 

ref 

1 

13,2477 

3 2632 

1 

DCA  GYROFRAC 

0341 

REF 

15 

LAST 

201 

13,2500 

20  075 

1 

DAS  RUPTREG1 

0342 

REF 

6 

LAST 

201 

13,2501 

3 0071 

1 

CA  ITEMP4 

SELECT  POSITIVE  TORQUING  FOR  THIS  GYRO, 

0343 

13.2502 

0 0006 

1 

EXTEND 

0344 

13,2503 

05  014 

1 

WUR“  14 

0345 

REF 

5 LAST  154 

13,2504 

3 6027  1 

CAF  L0W7 

LEAVE  NUMBER  OF  POSSIbLE  8192  AUGMENTS 

0346 

REF 

8 LAST  201 

13,2505 

7 0075  1 

MASK  RUPTREG2 

TO  INITIAL  COMMAND  IN  MAJOR  PART  OF  LONG 

0347 

REF 

9 LAST  202 

13,2506 

56  075  0 

XCH  RUPTREG2 

TERM  STORAGE  AND  TRUNCATED  FRACTION 

0348 

13,2507 

0 0006  1 GMERGt 

EXTEND 

IN  MINOR  PART,  THE  MAJOR  PART  WILL  BE 

0349 

REF 

10  LAST  187 

13,2510 

7 7650  1 

MP  BIT  8 

COUNTED  DOWN  TO  ZERO  IN  THE  COURSE  OF 

0350 

REF 

3 LAST  9 

13,2511 

54  066  0 

TS  ITEMP2 

PUTTING  OUT  THE  ENTIRE  COMMAND, 

0351 

REF 

16  LAST  202 

13,2512 

3 0074  1 

CA  RUPTREG1 

0352  ' 

13,2513 

0 0006  1 

EXTEND 

0353 

REF 

5 LAST  190 

13,2514 

7 7647  1 

MP  BIT9 

0354 

REF 

17  LAST  202 

13,2515 

54-  074  0 

TS  RUPTREG1 

0355  ” 

REF 

38  LAST  192 

13,2516 

3 0001  0 

TOA  L 

0356 

13,2517 

0 0006  1 

EXTEND 

0357 

RtF 

16  LAST  182 

13,2520 

7 7642  1 

MP  BIT14 

0358 

REF 

4 LAST~202 

13,2521 

26  066  0 

AOS  T TEMP  2 

INITIAL  COMMAND. 

0359 

13,2522 

0 0006  1 

EXTEND 

SEE  IF  MORE  THAN  ONE  PULSE  TRAIN  NEEDED 

0360 

REF 

18  LAST  202 

13,2523 

3 0075  0 ' 

UCA 

RUPTREG1 

(TORE  THAN  16383  PULSES). 

0361 

REF 

1 

13,2524 

6 7667  1 

AD 

MINUS1 

0362 

REF 

113  LASI  200 

13,2525 

10  000  0 

CCS 

A 

0363 

REF 

I 

13,2526 

1 255Z  D~ 

TCF 

LUNG GYRO 

0364 

13,2527 

77600  1 

-GYROMIN  OCT 

-177 

MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CMD, 

0365 


13 


2530 


1 2534  0 


TCF  +4 


0366  REF  17  LAST  202 

03F7  REF 3 LA5T  202 

0368  REF  62  LAST  200 

0369  HREF  1 4 LAST  201 

0370 


13 

T3 

13 

13 

13 


2531 

2532 

2533 

2534 

2535 


3 7642  0 
26  066  0 " 
3 7665  0 

5O  O65  I 
53*401  1 


+ 4 


OAF  BIT14 
SOS  ITEMP2 
CAF  ZERO 


INDEX  I TEMPI 
OXCH  1400 


473423A  YJL  SYSTEM  FqR  BLK2:  REVISION  12  OF  PRD6RAM1  AURORA.  BY'  DAP  GROUP 


MOV  10,  1966  (MAIN)  PAGE  203 


# 


# 


L 

I MU 

MODE  SWITCHING 

ROUTINES 

USER'S  OWN  PAGE  NO,  15 

0371 

ref 

6 

LAST  202 

13.2536 

3 0066  1 

CA 

I TEMP2 

entire  command. 

0372 

REF 

2 

LAST  174 

13,2537 

54  047  0 

lastseg  ts 

GYROCMD 

0373 

13,2540 

0 0006  1 

EXTEND 

0374 

REF 

10 

LAST  197 

13,2541 

7 7646  0 

MP 

BIT10 

WAITLIST  DT 

0375 

REF 

2 

LAST  77 

13,2542 

6 6165  0 

AD 

THREE 

truncation  and  phase  UNCERTAINTIES, 

0376 

REF 

17 

LAST  198 

13,2543 

0 4536  0 

TC 

WAITLIST 

0377 

13,2544 

02402  0 

2CADR 

STRTGYRO 

C0377 

REF 

2 

LAST  198 

13,2545 

26003  0 

0378 

REF 

11 

LA5T  203 

13,2546 

3 7646  1 

GYROEXIT  CAF 

BIT10 

TURN  ON  GYRO  ACTIVITY  TO  START  TRAIN, 

0379 

13,2547 

0 0006  1 

EXTEND 

0380 

13,2550 

05  014  1 

WOR 

14 

0381 

REF 

14 

LAST  196 

13,2551 

1 4602  0 

TCF 

TASKOVER 

0382 

REF 

15 

LAST  202 

13,2552 

50  065  1 

LONGGYRO  INDEX 

ITEMP1 

0383 

13,2553 

53*401  1 

dxch 

1400 

initial  command  out  plus  n augments  of 

0384 

REF 

1 8 

LAST  202 

13,2554 

3 7642  0 

CAF 

BIT14 

8192,  INITIAL  COMMAND  IS  AT  LEAST  8192, 

0385 

REF 

7 LAST  203 

13,2555  6 0066  1 

AD 

ITEMP2 

0386 

REF 

3 

LAST  203 

13,2556 

54  047  0 

TS 

GYROCMD 

0387 

13,2557 

0 0006  1 

AUG3  EXTEND 

GET  WAITLIST  DT  TO  TIME  WHEN  TRAIN  IS 

0388 

REF 

12 

LAST  203 

13,2560 

7 7646  0 

MP 

BIT10 

ALMOST  OUT. 

0389 

REF 

1 

13,2561 

6 7671  0 

AD 

NEG3 

0390 

REF 

18 

LAST203 

13.2562 

0 4536  0 

TC 

WAITLIST 

0391 

13,2563 

02566  0 

2CADR 

8192AUG 

C0391 

REF 

1 

13,2564 

26003  0 

0392 

REF 

1 

13,2565 

1 2546  0 

TCF 

GYROEXIT 

U393 

RtF 

5 

LASI  200 

13*2566 

0 2643  1 

8 1 92AUG  TC 

CAGETEST 

0394 

REF 

9 

LA5T  201 

13,2567 

3 0357  0 

CA 

LGYRO 

ADD  8192  PULSES  TO  GYROCMD 

0395 

REF 

6 

LAST  201 

13,2570 

54  003  0 

TS 

EBANK 

0396 

REF 

3 

LAST  201 

13,2571 

7 5235  T 

MASK  ~ 

LO'W  8 

0397 

REF 

1 6 

LAST  203 

13,2572 

54  065  0 

TS 

ITEMP1 

0398 

REF 

17 

LAST  203 

13,2573 

50  065  I 

INDEX 

I TEMPI 

SEE  IF  THIS  IS  THE  LAST  AUG, 

0399 

13,2574 

11* 400  0 

CCS 

1400 

0^00 

REF 

1 

13*2575 

1 2601  0 

TCF 

AUG2 

MORE  TO  COME, 

Kcr 

19 

LA5 1 203 

13,2576 

3 7642  0 

CAF 

BIT14 

0402 

REF 

4 

LhST  203 

13,2577 

26  047  0 

ADS 

GYROCMD 

0403 

REF 

1 

13 ,2600 

1 2540  Or 

TCF 

LASTSEG  +1 

RtF 

18 

LA6I  203 

13, 2601 

50  065  1 

AUG2  INDEX 

I TEMPI 

0405 

13, 2602  55* 400  0 

TS 

1400 

RcF 

20 

LAST  203 

* 3 * 26u3 

3 7642  0 

CAF 

BIT14 

UHU  7 

RcF 

5 

LASI  203 

13 ,2604 

26  047  0 

ads 

GYROCMD 

0A08 

REF 

i 

13,2605 

1 2557  0 

TCF 

ATK33- 

" COMPUTE  DT. 

LS 


« 
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0409 

REF 

2 

LAST 

202 

13,2606 

6 2527  0 MIN- 

AD  -GYROMIN 

POSSIBLE 

NEGATIVE 

OUTPUT, 

0410 

13,2607 

0 0006  1 

EXTEND 

0411 

REF 

4 

LAST 

202 

13,2610 

6 2406  1 

E5ZMF  STRTGYR2 

0412 

13*2611 

0 0006  1 MAJ- 

EXTEND 

DEFINITE 

NEGATIVE 

OUTPUT, 

0413 

ref 

2 

LAST 

202 

13,2612 

4 2632  0 

DCS  gyRQfrac 

0 414 

REF 

19 

LAST 

202 

13,2613 

20  075  1 

DAS  RUPTREGl 

0415 

REF 

7 LAST 

202 

13,2614 

3 007ITT~ 

"CA 

ITEMP4 

SELECT  NEGATIVE 

TORQUING  FOR  THIS  GYRO, 

0416 

REF 

6 LAST 

202 

13,2615 

6 7647  0 

AD 

BIT9 

0417 

13,2616 

0 0006  1 

EXTEND 

0418 

13,2617 

05  014  1 

WOR 

14 

0419 

REF 

20  LAST 

204 

13,2620 

4 0074  0 

CS 

RUPTREGl 

SET  UP  RUPTREGS 

TO  FALL  INTO  GMERGE, 

0420 

REF 

21  LAST 

204 

13,2621 

54  074  0 

TS 

RUPTREGl 

ALL  NUMBERS  PUT 

INTO  GYROCMD  ARE 

0421 

REF 

10  LAST 

202 

13,2622 

4 0075  1 

POSITIVE  - BIT9 

of  chan  14  determines 

0422 

REF" 

6 LAST 

202 

13,2623 

7 6027  0 

MASK 

LOW  7 

THE  SIGN  OF  THE 

COMMAND, 

0423 

13,2624 

4 0000  0 

COM 

0424 

REF 

11  LAST 

204 

13,2625 

56  075  0 

~ 042  5 

13,2626 

4 0000  0 

COM 

0426 

REF 

1 

13,2627 

1 2507  0 

TCF 

GMERGE 

0427 

13,2630 

01700  1 

GDESELCT  OCT 

1700 

TURN  OFF  SELECT 

AND  ACTIVITY  BITS, 

0428  13*2631  00000  1 GYROFRAC  2DEC  ,2T5  B -21 

CWIS  13,2632  00034  0 
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L 

I MU  MODE 

SWITCHING  ROUTINES 

user's  own 

PAGE  NO.  17 

P0A29 

imu  mode  switching  routines 

come  here 

when  action  complete. 

0430 

13,2633  0 0006 

1 ENDIMU 

EXTEND 

MODE  IS  BAD 

IF  CAGE  HAS  0CCURED  OR  IF 

0431 

13,2634  00  Oil 

1 

READ 

11 

ISS  WARNING 

IS  ON, 

0432 

REF 

11 

LAST  197 

13,2635  7 7657 

0 

MASK 

BIT  1 

0433 

REF 

114 

LAST  202 

13,2636  10  000 

0 

CCS 

A 

0434 

REF 

3 

LAST  194 

13,2637  1 2641 

1 

TCF 

IMUBAD 

0435 

REF 

1 

13,2640 

1 2667 

0 

IMUGOOD 

TCF 

GOODEND 

WITH  C (A)  = 0. 

0436 

REF 

63 

LAST 

202 

13*2541 

3 7665 

0 

IMUBAD 

CAF 

ZERO 

0437 

REF 

1 

13,2642 

1 2664 

0 

TCF 

badend 

0438 

REF 

16 

LAST 

200 

13,2643 

3 7652 

1 

cagetest 

CAF 

BIT6 

SUBROUTINE  TO  TERMINATE  IMU  MODE 

0439 

REF 

49 

LAST 

197 

13,2644 

7 0367 

1 

MASK 

IMODES30 

SWITCH  IF  IMU  HAS  BEEN  CAGED, 

0440 

REF 

115 

LAST 

205 

13,2645 

10  000 

0 

CCS 

A 

0441 

REF 

4 

LAST 

205 

13,2646 

1 2641 

1 

TCF 

IMUBAD 

DIRECTLY, 

0442 

REF 

109 

LAST 

201 

13,2647 

0 0002 

0 

TC 

Q 

WITH  C (A)  = .0. 

0443 

REF 

50 

LAST 

205 

13  1 2^50 

4 0367 

1 

cagetstq 

CS 

IM0DES30 

SKIP  IF  IMU  NOT  BEING  CAGED. 

0444 

REF 

17 

LAST 

205 

13,2651 

7 7652 

0 

mask 

BIT6 

0445 

REF 

116 

LAST 

205 

13,2652 

10  000 

0 

CCS 

A 

0446 

REF 

no 

LAS  1 

205 

13,2653 

24  002 

0 

I NCR 

3 

0447 

REF 

111 

LAST 

205 

13,2654 

0 0002 

0 

TC 

Q 

0448 

REF 

51 

LAST 

205 

13,2655 

4 0367  1 C 

TM0DES30 

IF  DURING  MODE  SWITCH 

INITIALIZATION 

0449 

REF 

1 8 

LAST 

205 

13 ,2656 

7 7652  0 

MA5K 

BIT6 

IT  IS  FOUND  THAT  THE 

Imu  is  being  caged, 

0450 

REF 

117 

LAST 

205 

13,2657 

10  000  0 

CCS 

A 

SET  IMUCADR  TO  -0  TO 

INDICATE  OPERATION 

0451 

REF 

112 

LAST 

205 

13,2660 

0 0002  0 

TC 

Q 

^COMPLETE  BUT  FAILED. 

RETURN  IMMEDIATELY 

0452  REF  64  LAST  205  13,2661  A 7665  1 

0453  REf  2 LAST  158  13,2662  54  371  0 

0454  REF  8 LAST  198  13,2663  1 2033  1 


TO  SWRETURN. 


CS 

TS 

TCF 


ZERO 

IMUCADR 

MODEEXIT 
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pc 4ss  SfNeRALTZeP  mode  switching  termination,  enter  Aif ”5ooDeND  FOR  successful  completion  of  an  i/o  opfRation 

R045? ORI  AT  bADENP~TOR  A N UNSUCCESSFUL  ONE.  C (A)  OR  ARRIVAL  =0  FpR  I MU  t' "jpFoR  AOTT~A~ND  2 FOR  RADARS, 


0459 

REF 

12 

LAST 

204 

13,2664 

54  0T5  i 

badend 

TS 

RUPTREG2 

DEVICE  INDEX. 

0460 

REF 

65 

LAST 

205 

13,2665 

4 7665  1 

cs 

ZERO 

FOR  FAILURE. 

0461 

REF 

2 

LAST 

205 

13,2666 

1 2671  1 

TCF 

GOODEND  +2 

0462 

REF 

13 

LAST 

206 

13,2667 

54  075  1 

GOODEND 

T5 

RUPTREG2 

0463 

REF 

36 

LAST 

199 

13,2670 

4 7657  0 

CS 

ONE 

FOR  SUCCESS. 

0464 

REF 

4 

LAST 

32 

13,2671 

54  076 

1 

TS 

RUPTREG3 

0465 

REF 

14 

LAST 

206 

13,2672 

50  075 

0 

INDEX 

RUPTREG2 

SEE  IF  USING  PROGRAM  ASLEEP. 

0466 

REF 

4 

LAST 

15 

13,2673 

10  371 

0 

CCS 

MODECADR 

0467 

13,2674 

1 2676 

0 

TCF 

♦ 2 

YES  - WAKE  IT  UP. 

0468 

REF 

1 

13,2675 

1 2706 

0 

TCF 

ENDMODE 

IF  0,  PROGRAM  not  in  yet. 

0469 

REF 

66 

LAST 

206 

13,2676 

3 7665 

0 

CAF 

ZERO 

WAKE  SLEEPING  PROGRAM, 

0470 

REF 

15 

LAST 

206 

13,2677 

50  075 

0 

INDEX 

RUPTREG2 

0471 

REF 

5 

LAST 

206 

13,2700 

56  371 

1 

XCH 

MODECADR 

0472 

REF 

2 

LAST 

200 

13,2701 

0 4422 

1 

TC 

JOBWAKE 

0473 

REF 

5 LAST  206 

13,2702 

4 OO76 

I 

CS 

RUPTREG3 

ADVANCE  LOC  IF  SUCCESSFUL. 

0474 

REF 

19  LAST  200 

13,2703 

50  071 

1 

INDEX 

LOCCTR 

0475 

REF 

41  LAST  137 

13,2704 

26  150 

1 

ADS 

LOC 

0476  REF  IS  LAST  203  13,2705  146020  ~ ‘ TCF  TASKOVER 


0477 

REF 

6 

LAST 

206 

13,2706 

3 0076 

0 ENDMODE 

CA 

RUPTREG3 

-0  INDICATES  OPERATION  COMPLETE  BUT 

0478 

REF 

16 

LAST 

206 

13,2707  50  075 

0 

index 

1RUPTREG2 

unsuccessful  - -1  indicates  complete  and 

0479 

REF 

6 

LA5T 

206 

13,2710 

54  371 

0 

T5 

MODECADR 

SUCCESSFUL, 

0480 

REF 

16 

LAS  1 

206 

13,2711 

1 4602 

0 

TCF 

TASKOVER 
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PoA8i  general  stalling  routine,  using  programs  come  here  to  wait  for  i/o  completion. 

0483  REF  20  LAST  198  13,2712  3 7656  0 RADSTALL  CAF  TWO  RR  AND  LR  STALL, 

0484  REF  1 13,2713  1 2717  0 TCF STALL 

0485  REF  37  LAST  206  13,2714  3 7657  1 AOTSTALL  CAF  ONE  AOT • 

0486  REF  2 LAST  207  13,2715  0 2717  l TC  STALL  _ 


0487  REF 


13*2714  OPTSTALL  EQUALS  AOTSTALL 


0488  REF  1 13*2712  LOT STALL  EQUALS  RADSTALL 

0489  REF  67  LAST  206  13,2716  3 7665  0 IMUSTA|_L  C*F  ZERO  IMU. 


0490 

13,2717 

0 0004 

0 STALL 

INHINT 

0491 

REF 

17 

LAST 

206 

13,2720 

54  075 

1 

TS 

RUPTREG2 

SAVE  DEVICE  INDEX. 

0492 

REF 

118 

LAST 

205 

13,2721 

50  000 

1 

INDEX 

A 

SEE  IF  OPERATION  COMPLETE. 

0493 

REF 

7 

LAST 

206 

13,2722 

10  371 

0 

CCS 

MODECADR 

0494 

REF 

1 

13*2723 

1 2741 

0 

TCF 

MODABORT 

ALLOWABLE  STATES  ARE  +0,  -1, 

0495 

REF 

1 

13,2724 

1 2735 

0 

TCF 

MODESLP 

OPERATION  INCOMPLETE. 

0496 

REF 

“I 

13,2725 

1 2731 

1 

TCF 

MUDEGOOD 

COMPLETE  AND  GOOD  IF  = -1. 

O497 

REF 

18 

LAST  207 

13*2726 

50  075  0 MG2 

INDEX 

RUPTREG2 

COMPLETE  AND  FAILED  IF  -0.  RESET  TO  *0. 

0498 

REF 

8 

LAST  207 

13,2727 

54  371  0 

TS 

MODECADR 

RETURN  TO  CALLER. 

0499 

REF 

9 

LAST  205 

13,2730 

1 2033  1 

TCF 

M0DEEX1T 

O5OO 

REF 

119  LAST  2O7 

13,2731 

10  000  0 

MDDEGOOD  CCS 

MAKE  SURE  INITIAL  STATE  -1. 

050 1 

REf 

2 LAST  207 

13,2732 

1 2741  0 

TCF 

MODABORT 

0502 

REF 

21  LAST  199 

13,2733 

24  117  0 

I NCR 

BUF2 

IF  SO,  INCREMENT  RETURN  ADDRESS  AND 

0503 

REF 

1 

13,2734 

1 2726  1 

TCF 

MG2 

RETURN  IMMEDIATELY,  SETTING  CADR  = +0. 

0504 

REF- 

1 

0505 

REF 

19 

LAST 

207 

0506 

REF 

9 

LAST 

207 

0507 

REF 

Z 

LAST 

199 

13*2735  0 41H1  MCHOESUP  TC  MAKECADR  CAIX  TROM  5WITCHABLE  FIXED  ONLY. 

13.2736  50  075  0 INDEx  RUPTREG2 

13.2737  54  371  0 TS  MODECADR 

13,2740  1 4416  1 TCF JOB'SLEEP 


O5O8  REF  6 LAST  144  13,2741  0 5446  1 MODABORT  TC  ABORT  TWO  PROGRAMS  USING  SAME  DEVICE. 

TTStrj  13,2742 01210  0 OCT 1210 
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L 

I MU 

Mod,-  switching 

ROUTINES 

U5ER ' 5 OWN  PAGE  NO,  20 

P0510 

CONSTANTS 

FOR  MODE 

SWITCHING  1 

routines  _ 

0511 

13*2743 

00014  1 

BITS364 

OCT 

14 

0512 

13,2744 

00050  1 

BIT  S466 

OCT 

00050 

0513 

13,2745 

00070  0 

BIT  S4-6 

OO^ 

00070 

0514 

REF 

11  LAST  202 

7650 

I MU5EF  LG 

EQUALS 

BITS 

INTERPRETER  SWITCH  7, 

0515 

13,2746 

70000  0 

13,14,15 

OCT 

70000 

0516 

13,2747 

77500  1 

-C0MMAX 

DEC 

-191 

0517 

13,2750 

77477  0 

-COMMAX- 

DEC 

-192 

0518 

13,2751 

00074  1 

600MS 

DEC 

60 

0519 

REF 

2 LAST  170 

4762 

3SECSM 

EQUALS 

3SECS 

0520 

13,2752 

21450  0 

90SEC 

DEC 

9000 

0521 

13,2753 

ENDIMODS 

EQUALS 
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L 

♦ 0001 
0002 

I MU  COMPENSATION  PACKAGE  USERtS  OWN  PAGE  NO.  1 

07*2000  BANK  7 

REF  2 LAST  18  E3  EBANK=  NBDX 

1 R0003 

RC005 
R0007 

* 

ROO09 

R0010 

% R0012 

R0014 
RU016 

| 

program  Description-  imu  compensation  <lem>  date-  30  aug  66 

mod  NO-  0 LOG  SECTION-  ImD  COMPENSATION  PACKAGE 

MOD  BY-  GILBERT  AS5EMBLY-  SUNBURST  REVISION  13 

FUNCTIONAL  DESCRIPTION 

THE  IMU  COMPENSATION  PACKAGE  IS  DESIGNED  W COMPENSATE  FOR  PIPA  BIAS  AND  SCALE  FACTOR  ERROR  AND  AT  THE 
SAME  TIME  ACCUMULATE  OYRO  TOROUING  COMMANDS  NECESSARY  TO  COMPENSATE  FOR  THE  ASSOCIATED  BIAS  AND  ACCeLERAT I ON- 
CAUSED  GYRO  DRIFTS.  i/PIPA  MUST  BE  CALLED  AT  LEAST  EVERY  2.55  SECONDS  DUE  TO  SCALING  CONSIDERATIONS. 
SPECIFICALLY*  THE  CORRECTION  IS 

R0017 
R 0 0 1 8 

% 

PIPA  = (l  + SCALE  FACTOR  ERRORJPIPA  - (BIAS) (DELTAT) 
C I 

R0019 

WHERE  PIPA  IS  THE  COMPENSATED,  data  OBTAINED  FROM  THE  SAMPLED  DATA  PIPA 

R0020 

% 

C I 

_ R0021 

the  COMPENSATED  data  IS  then  JScD  to  COMPUTE  THe  IRIG  TORQUING  NeCeSSARY  TO  CANCEL  THE  NBD * ADIA,  AND  ADSRA 
GYRO  COEFFICIENTS. 

* R002A 

SPECIFICALLY*  THE  COMPUTATIONS  ARE 

1T0025 
% R0026 

R0027 
R0028 

XIRIG  -(ADIAX)  (PIPAX  ) + (ADSRAX)  (PI PAY  > - (NBDX)  (DELTAT) 

C C 

YJRIG  -(ADIAY) (PIPAY  ) + (ADSRAY) (PIPAZ  ) - (NBDY) (DELTAT) 

C " c 

» R0029 

R0030 

ZIRIG  -(ADIAZ) (PIPAZ  ) - (ADSRAZ) (PIPAY  ) + (NBDZ) (DELTAT) 

" • c c 

(•  R0031 

R0033 

THIS  COMPENSATION  IS  SUMMED  INTO  THE  GCOMP  REGISTERS  AND  WHEN  THe  MAGNITUDE  OF  ANY  IRIG  COMMAND  EXCEEDS  2 
PJLSES,  THE  COMMANDS  ARE  SENT  TO.  THE  GYROS. 

* R0034 
R0036 
RQXJ38 

* ROOAO 

DURING  FREE-FALL  PHASES  OF  A FLIGHT  NBDX,  NBDY,  AND  NBDZ  ARE  THE  ONLY  RELEVANT  COEFFICIENTS.  THESE  BIAS  TERMS 
WILL  BE  INTEGRATED  BY  ROUTINE  N3D0NLY  APPROXIMATELY  EVERY  81.93  SECONDS  FOLLOWING  AN  EXECUTIVE  CALL  BY  THE  DUMMY 
TASK  OF  THE-  WAITLIST  PROGRAM,  N3D0NLY  IS  ENABLED  WHEN "BIT  15  OF  FLAGWRD2' IS  SET  TO  INDICATE  FREE-FALL.  DURING 
THIS  TIME  I/PIPA  IS  NOT  CALLED* 

ROUST 

* R00A3 

R00^5 

LASTBI AS  IS  CALLED  VIA  EXECUTIVE  WHEN  MAKJNITTHE  TRANSITION  FROM  FREE-FALL  TO  A PIPA  READING  MODE.  THE  NBD  TERMS 
ARE  COMPENSATED  FOR  FROM  THE  LAST  NBDONLY  CALL  UP  TO  PIPA  ZEROING,  PREREAD  WILL  THEN  ENABLE  1/PIPA  AT  ITS 
REGULAR  INTERVAL,  THE  DRIFT  FLAG-  MUST  BE  DOWN  JUST  PRIOR  TO  LASTBIAS,  GYROCOMPASS  NEVER  CALLS  LASTBI AS, 

* R0046 

R0047 

SCALING  CONSIDERATIONS 

UNITS  MAX.  VALUE  INTERNAL  UNITS  AND  SCALING 

* R00^9 

R0051 
R0053 

% R0055 

R0057 

nJnA  clASc  a T„n  (CM:)  / (SEC)  (SEC)  3.125  (PIPA  PULSES)Z(CS)  X 2<-5) 

pipa  scale  factor  ptpfms  1953*135 — (ppm)  x 2 (-9) 

HEW  126.7A60A  (GYRO  PULSES) / fCS)  X 2 (-5) 

"UIA  ( MERU1)  / (G)  630.36633  (GYRO  PULSES)  / (PI  PA  PULSE)  X2(-6) 

AUSRA  ( MERU) /(G)  630,36633 (GYRO  PULSES) / (PIPA  PULSE)  X 2(-6> 
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USERtS  OWN  PAGE  NO,  2 


R0059  CONVERSION  TABLE  . n 

R0060  1 P I P A PULSE  = 1.00  (CM) / (SEC)  (SEC)  1 ERU  = 7.29209817  X 10 (-5)  HfRAD) / (SEC) 

R0062  1 ERU  = 15.04104488  (ARC5EC) / (SEC)  1 (CM) / (SEC) (SEC)  = ,01  (PIPA  PULSES)/(CS) 

RG064  1 GYRO  PUL5E  = ,61798096  ARC5EC  “HTTilERtrs  ,1)024272592  (GYRO  PUL5ES)/(CS) 

R0066  l- G = 979.24  TCMT/TSEC  JT5EO  (AMR)  1 (MERU)/(Gl  = .000144787174  (GYRO  PULSES) / (PIPA  PULSE) 


R0068 

RG069 


REFERENCE'S  _ 

AGC  PROGRAMMING  ME  MO  NO, 


12* 


T »T> • S , mE|*iO  MO.  247* 


I.S.S.  MEMO  NO,  328,  I .5.5.  MEmO  NO.  339 


R0071  CALLING  SEQUENCE 

R0072  L TC  BANKCALL  _ 

R0073  L+ 1 CADR  1/PIPA 

RC07A  L + 2 RETURNS  HERE 


R0075  NORMAL  EXIT  MODES 

R0076  AT  L + 2 OF  CALLING  SEQUENCE 


R0077  ALARM  OR  ABORT  MODES 
R0078  ENDOFUOB 


R0079  erasable  initialization  required  (consecutive  locations) 

R0080  PBIASX  PIPAX  BIAS 

R0081  " PTPASCFX  PIPAX  SCALE  FACTOR  ERROR 

ROD 8 2 PBIASY  PIPAY  BIAS 

RD0S3  PIPASCFY  PIPAY  SCALE  FACTOR  ERROR 

R0084  PKIAS/.  PIPAZ  BIAS 

R0085  PTPASCFZ  PIPAZ  SCALE  FACTOR  ERROR 

r o o 8 6 nbdx  k trig  bias  drift 

R0087  NBDY  Y IRIG  BIAS  DRIFT 

R0088  NBDZ  Z IRIG  BIAS  DRIFT 

R0089  ADI  AX  IRIG  ACCELERATION  SENSITIVE  DRIFT  ALONG  THE  X INPUT  AXIS 

" RG090  ADTAT  IRIG  ACCELERATION  SENSITIVE^DTRIFT  ALONCr  THE  Y INPUT  AXIS 

R0091  ADIAZ  IRIG  ACCELERATION  SENSITIVE  DRIFT  ALONG  THE  Z INPUT  AXIS 

R0092  ADSRAX  IRIG  ACCELERATION  SENSITIVE  DRIFT  ALONG  THE  X SPIN  REFERENCE  AXIS 

~R0XI94  ADSRAY  IRIG  ACCELERATION  SENSITIVE  DRIFT-  ALONG  TFfE  Y SPIN  REFERENCE  AXIS 

R0096  ADSRAZ  IRIG  ACCELERATION  SENSITIVE  DRIFT  ALONG  THE  Z SPIN  REFERENCE  AXIS 

R00975  GCOMP  GYRO  COMPENSATION  PULSES  (SET  = ZERO  FOR  1ST  PASS) 


R0098 

INPUT 

R0099 

1/PlpADT  - DELTA  TIME 

ScAlED  AT  (CS)  X 2 ( +8 ) 

RO 1 00 

DEEVX,  DELVY*  DELVZ  - 

pipa  Readings  in  the  mauor  parts  — minor  parts  irrelevant 

KO102 

OUTPUT 

R0103 

DELVX*  DELVY * DELVZ  - 

PIPA  COUNTS  SCACED  2 (+14)  COMPENSATED  FOR  PIPA  BIAS  AND  SCALE  FACTOR  ERROR 

RO  105 

GCOMP  - 3 DP  LOCATIONS 

i CONTAINING  GYRO  PULSES  TO  COMPENSATE  FOR  NBD,  AD1A,  AND  ADSRA  COEFFICIENTS 

RO107 

DcBRIS 

R0108 

Centrals  - a*l*Q 

R0109 

OTHLR  - BUF  - BUF  +2* 

V3UF  - VBUF  +2*  GCQMPSW 
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L 

I MU  COMPENSATION  PACKAGE 

user's  own  page  no,  3 

0110 

REF 

T 

07*2000 

3 2233 

1 l/PIPA 

CAF 

LGCOMP 

SAVE  EBANK  OF  CALLING  PROGRAM 

0111 

REF  7 LAST 

203 

07,2001 

56  003 

1 

XCH 

EBANK 

01112 

REF 

23  LAST 

106 

07,2002 

54  147 

1 

TS 

MODE 

01113 

REF 

5 LA5T 

201 

07,2003 

3 7655 

0 

CAF 

FOUR 

PIPAZ,  PIPAY,  PIPAX 

01114 

REF 

63  LAST 

158 

07,2004 

54  116 

0 

TS 

BUF  +2 

0112 

REF 

120  LAST 

207 

07,2005 

50  000 

1 

INDEX 

A 

0113 

REF 

3 LAST 

25 

07,2006 

3 0403 

0 

CA 

DELVX 

CONTAINS  PREVIOUS  P1PA  READING 

0114 

REF 

43  LAST 

103 

07.2007 

54  106 

1 

TS 

VBUF 

TEMPORARY  - MINOR  PARTS  IRRELEVANT 

0115 

REF 

84 

LAST 

211 

07,2010 

50  116 

1 

INDEX 

BUF  *2 

0116 

ref 

1 

07,2011 

4 1432 

1 

cs 

PIPABIAS 

(PIPA  PULSES) / (CS)  X 2(-5) 

# 

0117 

07,2012 

0 0006 

1 

EXTEND 

0118 

REF 

2 

LAST 

17 

07,2013 

7 1110 

1 

MP 

1/PIPADT 

(CS)  X 2 ( +8 ) NOW  (PIPA  PULSES)  X 

2 (+3)# 

0119 

07,2014 

0 0006 

1 

EXTEND 

# 

0120 

REF 

ll 

LAST 

200 

07,2015 

7 7654 

0 

MP 

BIT4 

SCALE  2 (-3)  SHIFT  LEFT  3 

# 

0121 

REF 

44 

LAST 

211 

07,2016 

22  107 

1 

LXCH 

VBUF  +1 

(PIPA  PULSES)  X 2(0)  FRACTIONAL 

PULSE# 

0122 

REF 

85  LAST 

211 

07,2017 

50  116 

1 

INDEX 

BUF  +2 

0123 

REF 

1 

07,2020 

3 1433 

1 

CA 

pIpASCF 

(P.P.M.)  X 2 (-9) 

0124 

07,2021 

0 0006 

1 

EXTEND 

0125 

REF 

45 

LAST 

211 

07,2022 

7 0106 

1 

- MP 

VBUF 

(PIPA  PULSES)  X 2 ( + 14 ) 

0126 

REF 

46 

LAST 

211 

07,2023 

22  no 

1 

LXCH 

VBUF  +2 

SAVE  FOR  FRACTIONAL  COMPUTATION 

0127 

07,2024 

0 0006 

1 

EXTEND 

0128 

REF 

19 

LAST' 

205 

07.2025 

7 7652  0 

MP 

BIT  6 

SCALE  2 ( +9 ) NOW  PIPA  PULSES  X 2 ( +14) 

0129 

REF 

47 

LAST 

211 

07,2026 

20  107 

0 

DAS 

VBUF 

(PIPAI)  - (NBD)  (DELTAT)  - HI  (PIPAI ) (SFE) 

0130 

REF 

48  LAST  211 

07 , 2027 

3 0110 

1 

CA 

VBUF  +2 

NOW  MINOR  PART 

0131 

07,2030 

0 0006 

1 

EXTEND 

0132 

REF 

20  LAST  211 

07,2031 

7 7652 

0 

MP 

BIT6 

SCALE  2 ( +9 ) SHIFT  RIGHT  9 

0133 

REF 

39  LAST  202 

07,2032 

54  001 

I 

TS 

T’ 

0134 

REF 

68  LAST  207 

07,2033 

3 7665 

0 

CAF 

ZERO 

0135 

REF 

49  LAST  211 

07 ,2034 

20  107 

0 

DAS 

VBUF 

(PIPAI)  - (NBD) (DELTAT)  - (PIPAI) (SFE) 

0136 

07,2035 

0 0006 

1 

EXTEND 

0137 

RlF 

50  LAST  211 

07,2036 

3 0107 

1 

DCA 

VBUF 

RESTORE  COMPENSATED  pIpA  READING 

013b 

KtF  66  LA5 1 211 

0 > ,2U37 

1 

INDEX' 

BUF  +2 

0139 

KLI- 

4 LABI  211 

07.2040 

52  404 

0 

DXCH 

DELVX 

OHO  REF  87 

0H1  REF  2 

0H2  REF  1 

0143 


LAST  211 07 

LAST  76  07 

07 
07 


2041  TO  IL6~0 

2042  6 7667  1 

2043  1 2004  0 

2044  1 2045  0 


CCS  BUF  +2  PIPA2*  PI  PAY  * PIPAX 

AO  NEGl 

TCF  l/PIPA  +4 

NOOP  LESS  THAN  ZERO  IMPOSSIBLE 
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0144  ggg  1 ~ " 07*2045  55*457  1 TRlGCOMP  TS  GCOMPSW  INDICATE  COMMAnDS  2 PULSES  Or  LESS 


0145 

REF  88 

LAST 

211 

07,2046 

54  114 

1 

TS  " 

BUF 

INDEX  COUNTER  - IRIGx*  IRIGY,  IRIGZ 

0146 

07,2047 

0 0006 

1 

IRIGX  EXTEND 

"0147 

REF  5 

LAST 

211 

07,2050 

4 0404 

0 

DCS 

DELVX 

(PIPA  PULSES)  X 2 (+14) 

0148 

REF  384 

LAST 

199 

07,2051 

52  141 

1 

dxch 

MPAC 

0149 

REF  1 

07,2052 

3 1443 

0 

CA 

ADI  AX 

(GYRO  PULSES)/ (PIPA  PULSE)  X 2(-6) 

# 

0150  RTF'  I 07,2053  0 2127  1“  TC  ~ GCOMPSUB  - (ADI  AX)  (PIPAX)  (GYRO  PULSES)  X 2(4.14) 


0151 

07,2054  0 0006  l 

EXTEND 

0152 

REF 

1 

07,2055  4 0406  1 

DCS 

DELVY 

(PIPA  pULSES)  X 2 ( + 14) 

0153 

REF 

385 

LAST  212 

07,2056  52  141  1 

DXCH 

MPAC 

0154 

REF 

1 

07,2057  4 1446  1 

cs 

ADSRAX 

(GYRO  PULSES) / (PIPA  PULSE)  X 2 ( -6 ) * 

TI55 

REF 

2 

LAST  212 

07,2060  0 2127  1 

TC 

GCOMPSUB 

+ (ADSRAX)  (PIPAY)  (GYRO  PULSES)  X 2U14) 

0156 

REF 

3 

LAST  209 

07*2061  4 1440  1 

CS 

N6DX 

(GYRO  PULSES) / (CS)  X 2 <-5) 

0157 

REF 

1 

07,2062  0 2156  1 

TC 

DRIFTSUB 

-<NbDX) (DELTAT)  (GyRO  pULSES)  X 2(+14) 

0158 

07,2063 

0 0006 

1 IRIGY 

EXTEND 

D 1 59 

REF 

2 

LAST  212 

07,2064 

4 0406 

1 

DCS 

DELVY 

(PIPA  PULSES)  X 2 ( + 14) 

0160 

REF 

386 

LAST  212 

07,2065 

52  141 

1 

DXCH 

MPAC 

0161 

REF 

1 

07,2066 

3 1444 

1 

CA 

ADI  AY 

(GYRO  PULSES) / (PIPA  PULSE)  X 2 ( -6 ) * 

0162 

TREF 

3 

LAST  212 

07,2067 

0 2127 

r 

TC 

GCOMPSUB 

-(ADIAY) (PIPAY)  (GYRO  PULSES)  X 2(+14) 

0163 

07,2070 

0 0006 

1 

EXTEND 

0164 

REF 

1 

07,2071 

4 0410 

0 

DCS  DELvZ " 

(PIPA  pULSES)  X 2 ( + 14) 

0165 

REF 

387 

LAST  212 

07,2072 

52  141 

1 

DXCH  MPAC 

0166 

REF 

1 

07,2073 

4 1447 

0 

CS  ADSRAY 

(GYRO  PULSES) / (PIPA  PULSE)  X 2<-6)  * 

Cl  6 7 

REF 

4 

LAST  212 

07,2074 

0 2127 

I 

~ TC  “ GCOMPSUB 

♦ (ADSRAY)  (PIPAZ)  (GYRO  PULSES)  X 2(  + 14) 

0168  REF  1 

0169  REF 2 


07*2075  4 l44i  0 

07,2076  0 2156  1 


(GYRO  PULS£S)/(CS)  X 2<-5) 

-(NBPy) (DELTAT)  (GyRO  pUL5ES)  X 2 (+14) 


0170 

07,2077  0 0006  1 IRIGZ 

EXTEND 

0171 

REF  3 

LAST  212 

07,2100  4 0406  1 

DCS 

DELVY 

(PIPA  PULSES)  X 2 (+14) 

OI72 

REF  388 

LAST  212 

07,2101  52  141  1 

DXCH 

MPAC 

0173 

REF  1 

07,2102  3 1450  1 

CA 

ADSRAZ 

(GYRO  PULSES) / (PIPA  PULSE)  X 2(-6)  * 

OI74 

REF  5 

LAST  212 

07,2103  0 2127  1 

TC 

GCOMPSUB 

-(ADSRAZ) (PIPAY  (GYRO  RULSES)  X 2C+14) 

0175 

07*2104 

0 0006  1 

EXTEND 

0176 

REF 

2 LAST  212 

07,2105 

4 0410  0 

DCS ' 

DELvZ 

(PIPA  PUL5ES)  X 2 (+14) 

0177 

REF 

389  LA5T  212 

07,2106 

52  141  1 

dxch 

MPAC 

0178 

REF 

1 

07,2107 

3 1445  0 

CA 

ADIAZ 

(GYRO  PULSES) / (PIPA  PULSE)  X 2 < -6 > * 

0179 

REF 

6 LAST  212 

07,2110 

0 2127  1 

TC 

GCOMPSUB 

-(ADIAZ)  (PIPAZ)  (GYRO  PULSES)  X 2U14) 

0 1 oO 

Kcr 

1 

Of  *2111 

3 1442  1 

NBDZ 

(GYRO  PULSES) / (CS)  X 2<-5) 

~0I81 

RiF 

3 LAST  212 

07,2112 

0 2156  1 

TC 

DRIFTSUB 

+ (NBDZ)  (DELTAT)  (GYRO  pULSES)  X 2 ( + 14) 
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0182  REF  2 LAST  212  07,2113  11*457  1 CCS  GCOMPSW  ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 

0183  07,2114  1 2116  1 TCF  *2  YES 

0184  REF  1 07,2115  1 2124  0 TCF  IRIG1  NO 


0185 

07,2116 

0 0004 

0 

INHINT 

0186 

REF 

2 

LAST 

140 

07,2117 

3 4533 

0 

CAF  PR  1 035 

SEND  OUT  GYRO  TORQUING  COMMANDS 

0187 

REF 

3 

LAST 

153 

07,2120 

0 4363 

0 

TC  NOVAC 

0188 

07,2121 

02211 

1 

2CADR  1/GYRO 

CO  188 

REF 

1 

07,2122 

16003 

0 

0189 

07,2123 

0 0003 

1 

relint 

01892 

REF 

24 

LAST- 

211 

07,2124 

3 0147 

0 IRIGl 

CA  MODE 

SET  EBANK  FOR  RETURN 

01893 

REF 

8 

LAST 

211 

07,2125 

54  003 

0 

TS  EBANK 

01895 

REF 

3 

LAST 

197 

07,2126 

1 4076 

0 

TCF  SWRETURN 

0190 

REF 

390 

LAST 

212 

07,2127 

56  140 

1 GCOMPSUb 

xCH 

MPAC 

ADIA  OR  ADSRA  COEFFICIENT  ARRIVES  IN  A 

0191 

07,2130 

0 0006 

1 

EXTEND 

C (MPAC)  = (PlPA  PULSES)  X 2U14) 

0192 

REF 

391 

LAST 

213 

07,2131 

7 0140 

0 

MP 

MPAC 

(GYRO  PULSES) /(PIPA  PULSE)  X 2 ( -6) 

# 

0193 

REF 

51 

LA5T 

211 

07,2132 

52  107 

0 

DXCH 

VBUF 

NOW  = (GYRO  PULSES)  X 2(+8) 

* 

0194 

REF 

392 

LA5T 

213 

07,2133 

3 0141 

0 

CA 

MPAC  +1 

MINOR  PART  PIPA  PULSES 

0195 

07,2134 

0 0006 

1 

EXTEND 

0196 

REF 

393 

LAS  I 

213 

07,2135 

7 0140 

0 

MP 

MPAC 

ADIA  OR  ADSRA 

0197 

REF 

40 

LAST 

211 

07,2136 

54  001 

1 

TS 

L 

0198 

REF 

69 

La51 

211 

07,2137 

3 7665 

0 

CAF 

ZERO 

0199 

RcF 

52 

LAST 

213 

07,2140 

20  107 

0 

DAS 

VBUF 

NOW  = (GYRO  PULSES)  X 2(+8> 

# 

0200 

REF 

53 

LAST 

213 

07,2141 

3 0106  0 

~ CA  ' 

VBUF 

PARTIAL  RESULT 

- MAJOR 

0201 

07,2142 

0 0006  1 

EXTEND 

0202 

REF 

7 

LAS  I 

204 

07,2143 

7 7647  1 

MP 

B I T9 

SCALE  2 ( +6 ) 

SHIFT  RIGHT  6 * 

0203 

REF 

89 

LA5  1 

212 

07,2144 

50  114  0 

ITOEX 

BUF 

RESULT  = (GYRO 

PULSES)  X 2 (+14) 

0204 

REF 

9 

LAST 

194 

07 ,2145 

21*452  1 

DAS 

GCOMP 

HI (ADIA) (PIPAI ) 

OR  HI (ADSRA) (PIPAI) 

U205 

RtF 

54 

LAST 

213 

07,2146 

3 0107  1 

CA 

VBUF  +1 

PARTIAL  RESULT 

- MINOR 

0206 

07,2147 

0 0006  1 

EXTEND 

0207 

REF 

8 

LAS1 

213 

07,2150 

7 7647  1 

MP 

B I T9 

SCALE  2 ( +6 ) 

SHIFT  RIGHT  6 * 

0208 

REF 

Hi  LAST  213 

0 ( , 2 1 5 1 

54  001  1 

TT 

L 

0209 

REF 

(U 

LAS  1 

213 

07 ,2152 

3 7665  0 

CAF 

ZERO 

0210 

REF 

90 

LAST 

213 

07,2153 

50  114  0 

INDEX 

BUF 

RESULT  = (GYRO 

PULSES)  X 2 (+14) 

0211 

REF 

10 

LAST 

213 

07,2154 

21*452  1 

DAS  GCOMP 

(ADIA)  (PIPAI) 

OR  (ADSRA)  (PIPAI) 

u<:  Li. 

RtF 

1X3 

LASI 

2U5 

u J « 2 1 55 

0 0002  0 

TC 

Q 
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0213 

07,2156 

0 0006 

1 

DRIFTSUB  EXTEND 

0214 

r£f 

91 

LAST 

213 

07,2157 

22  115 

1 

3XCH  BUF  +1 

0215 

07,2160 

0 0006 

1 

EXTEND 

CCA)  = NBD 

(GYRO  PULSES) / (CS)  X 2 (-5) 

0216 

REf 

3 

LAST 

211 

07,2161 

7 1110 

1 

MP  1/plpADT 

<CS)  X 2 ( ♦8 ) 

NOW  (GYRO  PULSES)  X 2(+3) 

0217 

REF 

394 

LAST 

213 

07,2162 

22  141 

0 

LXCH  MPAC  +1 

SAVE  FOR  FRACTIONAL  COMPENSATION 

0218 

07,2163 

0 0006 

1 

EXTEND 

0219 

REF 

12 

LAST 

211 

07,2164 

7 7654 

0 

MP  BIT4 

SCALE  2 ( +1 1 ) 

SHIFT  RIGHT  11 

0220 

REF 

92 

LAST 

214 

07,2165 

50  114 

0 

INDEX  BUF 

0221 

REF 

11 

LAST 

213 

07,2166 

21*452 

1 

DAS  GCOMP 

HI (NBD) (DELTAT)  (GYRO  PULSES)  X 2(+14) 

0222 

ref 

395  LAST  214 

07,2167 

3 0141  0 

CA 

MPAc  +1 

now  minor  part 

0223 

07,2170 

0 0006  1 

EXTEND 

~022~4 

REF 

13  LAST  214 

07,2171 

7 7654  0 

MP 

BIT4 

SCALE  2(411)  SHIFT  RIGHT  11 

0225 

REF 

42  LAST  213 

07,2172 

54  001  1 

TS 

L 

0226 

REF 

71  LAST  213 

07,2173 

3 7665  0 

CAF 

ZERO 

0227 

REF 

93  LAST  214 

07,2174 

50  114  0 

INDEX 

BUF 

ADD  IN  FRACTIONAL  COMPENSATION 

0228 

REF 

12  LAST  214 

07,2175 

21*452  1 

DAS 

GCOMP 

(NBD) (DELTAT)  (GYRO  PULSES)  X 2<+l4) 

0229 

ref 

21 

LAST 

207 

07,2176 

3 7656 

0 

DRFTSUB2  CAF 

TWO 

PlPAX*  PlPAY,  PIPAZ 

0230 

REF 

94 

LAS  1 

214 

07,2177 

6 0114 

0 

AD 

BUF 

0231 

REF 

95 

LAST 

214 

07,2200 

56  114 

0 

XCH 

BUF 

0232 

REF  121 

LAST 

211 

07,2201 

50  000 

1 

INDEX 

A 

0233 

RtF 

13 

LAST 

214 

07,2202 

11*451 

1 

CCS 

GCOMP 

ARE  GYRO  COMMANDS  1 PULSE  OR  GREATER 

0234 

07,2203 

1 2205 

0 

TCF 

+ 2 

YES 

0235 

REF 

96 

last 

214 

TIT, 2204 

0 0115 

1 

TC 

BUF  +1 

^NO 

0236 

REF 

1 

07,2205 

7 2255 

0 

MASK 

COMPCHK 

DEC  -1 

TT237 

REF 

122 

LAST  214 

07,2206 

10  000 

0 

CCS 

A 

ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 

0238 

REF 

3 

LAST  213 

07,2207 

55*457 

1 

TS 

GCOMPSW 

YES  - SET  GCOMPSW  POSITIVE 

0239 

RcF 

97 

LAST  214 

07,2210 

0 0115 

1 

TC 

BUF  +1 

NO 
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0240 

REF 

6 LAST 

211 

07,2211 

3 7655  0 1/GYRO 

CAF 

FOUR 

PIPAz,  PIPAY,  PIPAX 

0241 

REF 

98  LAST 

214 

07,2212 

54  114  1 

TS 

BUF 

0242 

REF 

99  LA5T 

215 

07,2213 

50  114  0 

INDEX 

BUF 

SCALE  GYRO  COMMANDS  FOR  IMUPULSE 

0243 

REF 

14  LAST 

214 

07,2214 

3 1452  0 

CA 

GCOMP 

♦ 1 

fractional  PULSES 

0244 

07,2215 

0 0006  1 

EXTEND 

0245 

REF 

12  LAST 

208 

07,2216 

7 7650  1 

MP 

BITS 

SHIFT  RIGHT  7 

0246 

REF 

100  LAST 

215 

07,2217 

50  114  0 

INDEX 

BUF 

0247 

REF 

15  LAST 

215 

07,2220 

55*452  1 

TS 

GCOMP 

*T 

fractional  PULSES  SCALED 

0248 

ref 

72 

LAST 

214 

07,2221 

3 7665 

0 

CAF 

ZERO 

SET  GCOMP  = 0 FOR  DAS  INSTRUCTION 

0249 

REF 

101 

LAST 

215 

07,2222 

50  114 

0 

INDEX 

BUF 

0250 

REF 

16 

LAST 

215 

07,2223 

57*451 

0 

XCH 

GCOMP 

GYRO  PULSES 

0251 

07 » 2224 

0 0006 

1 

EXTEND 

0252 

ref 

13 

last 

215 

07,2225 

7 7650 

1 

MP 

BIT8 

SHIFT  RIGHT  7 

0253 

REF 

102 

LAST 

215 

07,2226 

50  114 

0 

INDEX 

BUF 

0254 

REF 

17 

LAST 

215 

07,2227 

21*452 

1 

DAS 

GCOMP 

ADD  THESE  TO  FRACTIONAL  PULSES  ABOVE 

0255 

REF 

103 

LAST 

215 

07,2230 

10  114  1 

CCS 

BUF 

PlPAZ,  PlPAY,  PiPAX 

0256 

REF 

3 

LAST 

211 

07,2231 

6 7667  1 

AD 

NEGl 

0257 

REF 

2 

LAST 

213 

07,2232 

1 2212  0 

TCF 

1/GYRO  +1 

0258 

REF 

18 

LAST 

215 

07,2233 

01451  0 LGCOMP 

ECADR 

GCOMP 

LESS  THAN  ZERO  IMPOSSIBLE 

O259 

REF 

2 

LAST  211 

07,2234 

3 2233 

T 

CAF 

LGCOMP 

0260 

ref 

2 

LAST  152 

07,2235 

0 4063 

0 

TC 

BANkcALL 

0261 

REF 

1 

07,2236 

26317 

0 

CADR 

riMUPULSE 

CALL  GYRO  TORQUING  ROUTINE 

0262 

REF 

3 

LAST  215 

07,2237 

0 4063 

0 

TC 

BANKCALL 

0263 

REF 

1 

07,2240 

26716 

0 

CADR 

IMUSTALL 

WAIT  FOR  PULSES  TO  GET  OUT 

0264 

REF 

1 

07,2241 

1 4440 

1 

TCF 

ENDOF JOB 

TEMPORARY 

U265 

RcF 

7 

LAST  215 

07,2242 

3 7655 

0~ 

GCOMP 1 CAF 

FOUR 

PlPAZ*  PIPAY,  PIPAX 

0266 

RlF  104  LAS ' 215 

07 ,2243 

54  114 

I 

TS 

BUF 

0267 

REF 

105 

LAST  215 

07,2244 

50  114 

0 

INDEX 

BUF 

RESCALE 

0268 

RtF 

19 

LAST  215 

07,2245 

3 1452 

0 

C7T 

GCOMP  .1 

0269 

07,2246 

0 0006 

1 

EXTEND 

0270 

REF 

14 

LAST  215 

07,2247 

7 7650 

1 

MP 

BITS 

SHIFT  MINOR  PART  LEFT  7 - MAJOR  PART  = 0 

0271 

REF 

106 

LAST  215 

07,2250 

50  114 

0 

ITTDEX 

BUF 

0272 

REF 

20 

LAST  215 

07,2251 

23 ' 452 

0 

LXCH 

GCOMP  +1 

BIT5  8-14  OF  MINOR  PART  WERE  = 0 

0273 

REF 

1U7 

LASI  215 

07,2252 

10  114 

1 

CCS 

BUF 

PlPAZ,  PlPAY,  PiPAX 

0274 

REF 

4 

LAST  215 

07,2253 

6 7667 

1 

AD 

NEGl 

0275 

REF 

1 

07,2254 

1 2243 

1 

TCF 

GCOMP 1 +1 

0276 

07 ,2255 

77776 

1 

COMPCHK  DEC 

-T 

LESS  THAN  ZERO  IMPOSSIBLE 

0277 

REF 

2 

LAST  215 

07,2256 

1 4440 

1 

TCF 

ENDOF JOB 

473423a  Y JL  SYStEM  f-QR  BLK2!  REVISION  12  qF  PROGRAM  aURqRA  BY  DAP  GRqUP 


NOV  10.  1966  (MAIN)  PftSE  216 


L i mu  compensation  package  user»s  own  page  no.  8 


0278 

ref 

2 

LAST 

28 

07.2257 

3 0025 

0 

_j\|BDOfMLY 

CA 

TiMEl 

(CS)  X 2 ( + 14) 

0279 

REF 

4 

LAST 

214 

07,2260 

57*110 

0 

XCH 

1/PIPADT 

PREVIOUS  TIME 

0280 

07.2261 

4 0000 

0 

COM 

0281 

REF 

5 

LAST 

216 

07,2262 

6 1110 

0 

AD 

1/PlPADT 

0282 

REF 

123  LAST 

214 

07,2263 

10  000 

0 

NBD2 

CCS 

A 

CALCULATE  ELAPSED  TIME 

0283 

REF 

38 

LAST 

207 

07,2264 

6 7657 

1 

AD 

ONE 

NC  TIME1  OVERFLOW 

0284 

REF 

1 

07,2265 

1 2272 

0 

TCF 

NBD3 

RESTORE  TIME  DIFFERENCE  AND  JUMP 

02  85 

07,2266 

1 2270 

1 

TCF 

+ 2 

TIME!  OVERFLOW 

0286 

REF 

3 

LAST 

215 

07,2267 

1 4440 

1 

TCF 

ENDOFJOB 

IF  ELAPSED  TIME  = 0 (DIFFERENCE  = -0) 

0287 

07,2270  A 0000  0 

COM 

calculate  absolute  difference 

0288 

REF  18  LAST  162  07,2271  6 7637  1 

AD 

P05MAX 

0289 

07,2272 

0 0006 

1 NBD3 

EXTEND 

C (A)  = DELTAT  (CS)  X 2 (+14) 

0290 

REF 

13 

LAST 

203 

07,2273 

7 7646 

0 

MP  BITlO 

SHIFT  RIGHT  5 

0291 

REF 

55 

LAST 

213 

07,2274 

52  107 

0 

DXCH  VBUF 

0292 

07,2275 

0 0006 

1 

extend 

0293 

REF 

56 

LAST 

216 

07,2276 

3 0107 

1 

DCA  VBUF 

0294 

REF 

396 

LAST 

214 

07,2277 

52  141 

1 

DXCH  MPAC 

DELTAT  NOW  SCALED  (CS)  X 21+19) 

0295 

REF 

73 

LAST 

21  = 

07,2300 

3 7665 

0 

CAF  ZERO 

0296 

REF 

4 

LAST 

214 

07,2301 

55*457 

1 

TS  GCOMpSw 

INDICATE  COMMANDS  2 pULSES  OR  LESS 

0297 

"REF 

108 

LAST 

215 

07,2302 

54  114 

1 

TS  H BUF 

PIP'AX,  PIPAY,  PIPAZ 

0298 

REF 

4 LAST  212 

07,2303  4 1440  1 

C5 

NBDX 

(GYRO  PULSES) / (CS)  X 2<-5> 

0299 

■REF 

1 

07,2304  0 2322  0 

Tc 

fbtassub 

-(NBDX) (DELTAT)  (GYRO  PULSES)  X 2 ( + 14 ) 

0300 

07,2305  0 0006  1 

EXTEND 

0301 

REF  57 

LAST  216 

07,2306  4 0107  0 

DCS 

"VBUF 

0302 

REF  397 

LAST  216 

07,2307  52  141  1 

DXCH 

MPAC 

DELTAT  SCALED  (CS)  X 2 (+19) 

0303 

REF  2 

LAST  212 

07,2310  3 1441  1 

CA 

NBDY 

(GYRO  PULSES) / (CS)  X 2 ( -5 ) 

0304 

REF  2 

LA5T  216 

07,2311  0 2322  0 

TC 

FBTASSUB 

-(NBDY) (DELTAT)  (GYRO  PUL5ES)  X 2 (+14) 

0305 

07, 23i2 

0 0006 

1 

EXTEND 

0306 

REF 

58  LM5T  216 

07,2313 

4 0107 

0 

DCS 

VBUF 

0307 

REF 

398  LAST  216 

07,2314 

52  141 

1 

DXCH 

MPAC 

DELTAT  SCALED  (CS)  X 2 ( ♦ 19 ) 

0308 

REF 

2 LAST  212 

07,2315 

4 1442 

0 

CS 

NBDZ 

(GYRO  PULSES) / (CS)  X 2(-5) 

0309 

REF 

3 LA5 f 216 

07,2316 

0 2322 

"0  ~ 

TC 

"FBTASSUB 

♦(NBDZ) (DELTAT)  (GYRO  PUL5E5)  X 2 (+14) 

0310 

Ktr 

3 LA5I  21® 

07.2317 

1 1*457 

1 

CC5 

GCOMPSW 

ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSti 

0311 

Rt.F 

3 LAST  215 

®7 « 2320 

1 2211 

0~- 

~TCF 

i/gyro 

yes 

0312 

REF 

4 LAST  216 

07,2321 

1 4440 

1 

TCF 

ENDOFJOB 

NO 

I 
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0313 

REF 

114 

LAST 

2 1 3 

07.2322 

56  002 

0 

FBIASSUB  xCH 

Q 

~ 0314 

REF 

109 

LAST 

216 

07.2323 

54  115 

0 

T 5 

6UF  +1 

0315 

REF 

115 

LAST 

217 

07,2324 

3 0002 

0 

CA 

Q 

NBD  SCALED  (GYRO  PULSES) / (CS)  X 

2 (-5) 

0316 

07,2325 

0 0006 

1 

EXTEND 

0317 

REF 

399 

LAST 

216 

07,2326 

7 0140 

0 

MP 

MPAC 

DELTAT  SCALED  (CS)  X 2<*19) 

03175 

REF 

110 

LAST 

217 

07,2327 

50  114 

0 

INDEX 

BUF 

0318 

REF 

21 

LAST 

215 

07.2330 

21*452 

1 

DAS 

GCOMP 

HI (NBD) (DELTAT)  (GYRO  PULSES) 

X 2L14) 

0319 

REF 

116 

LAST 

217 

07,2331 

3 0002 

0 

CA 

Q 

NOW  FRACTIONAL  PArT 

0320 

07.2332 

0 0006 

1 

EXTEND 

0321 

REF 

400 

LAST 

217 

07,2333 

7 0141 

1 

MP 

MPAC  +1 

0322 

REF 

43 

LAST 

214 

07,2334 

54  001 

1 

TS 

L 

0323 

REF 

74 

LAST 

216 

07,2335 

3 7665 

0 

CAF 

ZERO 

03235 

REF 

111 

LAST 

217 

07,2336 

50  114 

0 

INDEX 

BUF 

0324 

REF 

22 

LAST 

217 

07,2337 

21 '452 

1 

DAS 

GCOMP 

(NBD) (DELTAT)  (GYRO  PULSES)  X 2(+14) 

0325  rEF  1 07.2340  1 2176  1 TCF  DrFTsUB2  CHECK  MAGNITUDE  OF  COMPENSATION 


0326 

REF 

6 

last 

216 

07,2341 

57*110 

0 

LaSTBIaS  XCH 

i/pipadt 

new  i/pipadt  value  scaled  <cs)  x 2(+i4> 

0327 

07.2342 

4 0000 

0 

COM 

0328 

REF 

401 

LAS  1 

217 

07,2343 

6 0140 

r 

AD 

“ MPAC 

C (TIMED  AT  PI  PA I = 0 SCALED  2 < +14) 

0329 

REF 

1 

07,2344 

1 2263 

0 

TCF 

NBD2 

0340 

REF 

3 LAST 

215 

07,2345 

3 2233 

1 gCOMPzER 

CAF 

lgcomp 

ROUTINE  TO  ZERO  GCOMP  BEFORE  FIRST 

0341 

REF 

9 LAST 

213 

07.2346 

56  003 

1 

XCH 

EBANK 

CALL  TO  1/PIPA 

0342 

REF 

25  LAST 

213 

07,2347 

54  147 

I 

"TS 

MTJDE 

u mi 

Kcr 

75  LA5 1 

217 

U7.2350 

3 7665 

0 

CAF 

ZERO 

0344 

REF 

2 3 LAS  I 

217 

07,2351 

55  *451 

1 

T5 

"GTOMP" 

0345 

REF 

24  LAST 

217 

07*2352 

55 1 452 

1 

TS 

GCOMP  +1 

0346 

REF 

25  |_AsT 

217 

0 J ,2353 

55  * 453 

0 

TS 

GCOMP  +2 

0347 

REF 

E6  LAsI 

217 

07,2354 

55*454 

1 

TS 

GCOMP  +3 

0348 

REF 

27  LAST 

217 

0 f ,2355 

55*455 

0 

TS 

GCOMP  +4 

0349 

REF 

28  LAST 

217 

07,2356 

55'456 

0 

T 5 

GCOMP  +5 

U 

Rtf 

C6  LASI 

217 

07.2357 

3 0147 

0 

CA 

MODE 

0351 

REF 

10  LAST 

217 

0 1 , 2 360 

54  003 

0 

T5 

EBANK 

0352 

REF 

4 LAST 

213 

07,2361 

1 4076 

0 

TCF 

5WRETURN 

"RETURN  TO-CALLER 

O 
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A OT 1 Ark 

USER'S  OMN  PAGE  NO.  J, 

0001 

REF 

1 

13,2753 

5ETL0C 

ENDIMODS 

0002 

REF 

2 

LAST  28 

E3 

EBANK= 

AOTAZ 

0003 

13,2753 

0 0004  0 

AOTMARK  INHINT 

0004 

REF 

20 

LAST  207 

13,2754 

54  075  1 

TS 

RUPTREG2 

6ITl4=INFLIGHT  0=N0NFLIGHT 

0005 

REF 

2 

LAST” 158 

13,2755 

10  374  0 

CCS 

MARKSTAT 

ARE  MARKS  BUTTONS  IN  USE 

0006 

13,2756 

0 2760  1 

TC 

+ 2 

MARKS  BUTTONS  NOT  AVAILABLE 

0007 

REF 

T 

13,2757 

0 2763  1 

TC 

MKVAC 

FIND  A VAC  AREA 

0008 

REF 

11 

LAST  197 

13,2760 

0 5413  1 

TC 

ALARM 

0009 

13,2761 

00105  0 

OCT 

00105 

0010 

REF 

5 

LAST  216 

13,2762 

0 4440  0 

TC 

ENDOFJOB 

oon 

REF 

4 

LAST  159 

13*2763 

10  431  0 

MK VAC  CCS 

VAC1USE 

0012 

REF 

1 

13,2764 

0 2777  1 

TC 

MKVACFND 

0013 

REF 

3 

LAST  157 

13,2765 

10  505  0 

CCS 

VAC2USE 

0014 

REF 

2 

LAST  218 

13,2766 

0 2777  1 

TC 

MKVACFND 

0015 

REF 

3 

LAST  157 

13,2767 

10  561  1 

CCS 

VAC3USE 

0016 

RET 

3 

LAST  218 

13,2770 

0 2777  1 

rc 

MKVACFND 

0017 

REF 

3 

LAST  157 

13,2771 

10  635  0 

CCS 

VAC4USE 

0018 

REF 

4 

LAST  218 

13,2772 

0 2777  1 

TC 

MKVACFND 

0019 

REF 

3 LAST  157 

13,2773 

10  711  1 

CCS 

VAC5USE 

0020 

REF 

5 

LAST  218 

13,2774 

0 2777  1 

TC 

MKVACFND 

0021 

REF 

7 

LAST  207 

13,2775 

0 5446  1 

TC 

ABORT 

VAC  AREAS  OCCUPIED 

D022 

13,2776 

01207  0 

~OCT 

01207 

0023 

REF 

22 

LAS  1 214 

13,2777 

6 7656  0 

MKVACFND  AD 

TWO 

0024 

REF 

3 

LAST  216 

13,3000 

54  374  0 

TS 

MARKSTAT 

0025 

REF 

76 

LAST  217 

13,3001 

3 7665  0 

CAF 

ZERO 

0026 

REF 

1 

13,3002 

54  375  1 

TS 

XYMARK 

INITIALIZE  MARK  ID  REGISTER 

0027 

RTF 

4 

LA5T  218 

13,3003 

50“  374  1 

INDEX 

“T1ARKSTAT 

0028 

13,3004 

53*777  0 

T5 

0 -1 

SHOW  VAC  OCCUPIED 

0029 

ref 

21 

LAST  218 

13,3005 

3 0075  0 

CA 

RUPTREG2 

0030 

REF 

5 

LAST  218 

13,3006 

26  374  0 

ADS 

MARKSTAT 

0031 

REF 

1 

13,3007 

3 4530  0 

TAP 

PRI032 

0032 

REF 

4 

LAsT  213 

13*3010 

0 4363  0 

TC 

NOVAc 

OO33 

13,3011 

03022  1 

2CADR 

GETMKS 

CO  031 

REF 

1 

13 ,3012 

26003  0“ 

OO34 

REF 

10 

LAST  207 

13,3013 

0 2033  0 

TC 

MODEEXIT 

OU35 

Rtr 

77 

LAST  218 

13,3014 

3 7665  0 

MKRELEAS  CAF 

TZERO 

0036 

REF 

6 

LAST  218 

13,3015 

56  374  1 

XCH 

MARKSTAT 

SET  MARKSTAT  ZERO 

0037 

REF 

124 

LAST  216 

1 3 , 30 1 6 

10  000  0 

CC5 

A 

0038 

REF  lc5  LA5T  218 

13,3017“ 

50  000  r 

INDEX 

A 

0039 

13,3020 

54  000  0 

TS 

0 

SHOW  VAC  AREA  AVAILABLE 

0040 

RcF 

5 

LAST  217 

13,3021 

0 4076  1 

TC 

SWRETURN 
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0041 

REF 

78 

LAST 

218 

13.3022 

3 7665 

0 

GETMKS 

CAF 

ZERO 

0042 

ref 

2 

last 

218 

13.3023 

54  375 

1 

TS 

XYMARK 

0043 

REF 

21 

LAST 

203 

13,3024 

3 7642 

0 

CAF 

B I T 14 

FIND  IF  IN-FLIGHT  OR  NON-FLIGHT 

0044 

REF 

7 

LAST 

218 

13,3025 

7 0374 

0 

MASK 

MARKSTAT 

0045 

REF 

126 

LAST 

216 

13,3026 

10  000 

0 

CCS 

A 

0046 

REF 

1 

13,3027 

0 3036 

1 

TC 

MKVB53 

IN-FLIGHT 

0047 

REF 

7 

LAST 

180 

13,3030 

4 7645 

0 

CS 

BIT11 

NON-FLIGHT,  SET  Y MARK  =1 

0048 

REF 

8 

LAST 

219 

13,3031 

7 0374 

0 

MASK 

MARKSTAT 

0049 

REF 

8 

LAST 

219 

13,3032 

6 7645 

1 

AD 

BITll 

0050 

REF 

9 

LAST 

219 

13,3033 

54  374 

0 

TS 

MARKSTAT 

0051 

REF 

1 

13,3034 

3 3355 

1 

CAF 

VB51 

REQUEST  X MARK 

0052 

13,3035 

0 3037 

0 

TC 

+ 2 

0053 

REF 

1 

13,3036 

3 3431 

1 

MKVB53 

CAF 

VB53 

REQUEST  X AND  Y MARKS 

0054 

REF 

1 

13,3037 

0 5332 

0 

~rc 

NVSBWAIT 

0055 

REF 

1 

13,3040 

0 5274 

0 

TC 

FLASHON 

0056 

REF 

1 

13,3041 

0 5140 

1 

TC 

ENDIDLE 

0057 

REF 

2 

LAST 

218 

13,3042 

0 3023 

0 

'TC 

GETMKS  +1 

0058 

REF 

3 

LAST 

219 

13,3043 

0 3023 

0 

TC 

GETMKS  +1 

0059 

REF 

14 

LA5T 

216 

13,3044 

3 7646 

1 MKCHEK 

CAF 

BIT10 

WAS  X MARK  MADE 

0060 

REf 

10 

last 

219 

13,3045 

7 0374 

0 

mask 

MARKSTAT 

0061 

REF 

127 

LAST 

219 

13,3046 

10  000 

0 

CCS 

A 

0062 

13,3047 

0 3051 

0 

TC 

♦ 2 

X MARK  MADE-LOOK  AT  Y MARK 

0063 

REF 

1 

13,3050 

0 3055 

1 

TC 

mkalarm 

0064 

REF 

9 

LAST 

219 

13,3051 

3 7645 

1 

CAF 

BITll 

0065 

REF 

IT" 

LAST 

219 

13,3052 

7 0374 

0 " 

MASK 

MARKSTAT 

0066 

REF 

128 

LAST 

219 

13,3053 

10  000 

0 

CCS 

A 

0067 

REF 

1 

13,3054 

0 3063 

1 

TC 

GETDET 

BOTH  MARKS  MADE-SHOw  ACCEPT-GET  DETENT 

0068 

REF 

12 

LAST 

218 

13,3055 

0 5413 

I 

MKALARM  TC 

ALARM 

IF  EITHER  MARK  IS  MISSING  AFTER 

ENTER 

0069 

13,3056 

00111 

0 

OCT 

111 

0070 

REF 

1 

13,3057 

4 4516 

0 

CS  “ 

PR1017 

SET  BITS  10,11,12,13  TO  ZERO  IN 

MARkSTAT 

0071 

REF 

12 

LAST 

219 

13,3060 

7 0374 

0 

MASK 

MARKSTAT 

0072 

REF 

1 3 

LAST 

219 

13,3061 

54  374 

0 

TS 

MARKSTAT 

0073 

REF 

4 

LAST 

2T9 

13,3062 

0 3022 

1 

TC  “ 

GETMKS 

GETMKS  AGAIN 

0074 

REF 

4 

LAST 

157 

13.3063 

4 7644  1 GETDET 

CS 

BIT12 

0075 

REF 

1^ 

LAST 

219 

13,3064 

7 0374  0 

MASK 

MARKSTAT 

0076 

REF 

5 

LAST 

219 

1 3 , 3065 

6 7644  0 

AD 

BIT12 

SET 

BIT12=1  TO  SHOW  MARKS  ACCEPTED 

0077 

REF 

15 

Last 

219 

1 3 *3066 

54  374  0 

T S 

MARKSTAT 

0078 

0079 

REF 

1 

1 3 ,3067 

3 3427"  0 DETVB2T" 

CAF 

V21N43E 

REF 

2 

LAST 

219 

13,3070 

0 5332  0 

TC 

NVSBWAIT 

0080 

REF 

2 

LAST 

219 

13,3071 

0 5140  1 

TC 

ENDIDLE 

0081 

REF 

1 

LAST 

13,3072 

0 3067  0 " 

TC 

DETVB21 

0082 

REF 

2 

219 

13,3073 

0 3067  0 

TC 

DETVB21 

UU03 

Ktr 

1 

i 3 ,3074  4 6165  1 

CS 

OCT  3 

0084 

ref 

1 

i3»3U 75 

7 0375  1 

MASK 

detcode 

0085 

REF 

129 

LAST 

219 

13,3076 

10  000  0 

CCS 

A 

0086 

REF“ 

3 

last 

219 

13,3077 

0 3067  0 

TC 

0ETVE21 

"BAD 

CODE,  REQUEST  AGAIN 
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0087 

13,3100 

0 3103  0 

TC 

+ 3 

LOOKS  GOOD  BUT  COULD  BE  ZERO 

0088 

13,3101 

0 3102  1 

TC 

♦ 1 

0089 

REF  4 LAST  219 

13,3102 

0 3067  0 

T C 

DETVB21 

0090 

REF  2 LAST  219 

13,3103 

3 6165  0 

CAF 

OCT  3 

0091 

REF  2 LAST  219 

13,3104 

7 0375  1 

MASK 

DETCODE 

SEE  IF  ZERO 

0092 

REF  130  LAST  219 

13,3105 

10  000  0 

CCS 

A 

0093 

13,3106 

0 3110  1 

TC 

+ 2 

GOOD  CODE-STORE  ANGLES 

0094 

REF  5 LAST  220 

13,3107 

0 3067  0 

TC 

DETVB21 

ZERO-bAD  CODE-REQUEST  AGAIN 

0095 

REF 

5 

LAST 

135 

13*3110 

3 7672 

0 

CAF 

L0W9 

0096 

REF 

16 

LAST 

219 

13,3111 

7 0374 

0 

mask 

markstat 

0097 

REF 

1 

13,3112 

54  002 

1 

TS 

BASVAC 

STORE 

VAC  AREA  ADDRESS 

0098 

REF 

3 

LAST 

220 

13,3113 

50  375 

0 

INDEX 

DETCODE 

0099 

REF 

~ 1 

13,3114 

3 1465 

1 

CA 

AQTEL  -1 

0100 

REF 

2 

LAST 

220 

13,3115 

50  002 

0 

INDEX 

BASVAC 

0101 

13,3116 

54  Oil 

0 

TS 

9D 

STORE 

ELV  ANGLE  IN  VAC  *9 

~0102 

REF 

4 

last 

220 

13,3117 

50  375 

0 

INDEX 

DETCODE 

0103 

REF 

3 

LASr 

218 

13,3120 

3 1462 

0 

CA 

AOTAZ  -1 

0104 

REF 

3 

LAST 

220 

13,3121 

50  002 

0 

INDEX 

BASVAC 

- XI 05 

13,3122 

54  010 

1 

TS 

8D 

STORE 

AZIMUTH  IN  VAC  +8 

0106 

REF 

22 

LAST 

219 

13*3123 

3 7642 

0 

CAF 

BITI4 

IN-FLIGHT  OR  NON-FLIGHT 

XI 07 

REF 

17 

LAS  1 

220 

13,3124 

7 0374- 

0 

^ASk 

markstat 

0108 

REF 

131 

LAST 

220 

13,3125 

10  000 

0 

CCS 

A 

0109 

REF 

1 

13,3126 

0 3146 

1 

TC 

MKOUT 

IN-FLIGHT,  NO  MORE  DATA  NEEDED 

OHO  REF 

13,5127 

0 3130 

0 

nx 

F0TVB24 

FION-FLIGHT,  GET  ROTATION  ANGLES 

0111 


REF 


13 


3130  3 3430  0 R0TVB24  CAF 


V24N42E 


REQUEST  RETICLE  ROTATION  ANGLES 


“ 0112 

REF 

3 LAST  219 

13,3131 

0 5332  0 

TC 

TiVSBWAIT 

0113 

REF 

3 LAST  219 

13, 3132 

0 5140  1 

T C 

END IDLE 

0114 

REF 

2 LAST  220 

1 3 , 3 1 33 

0 3130  0 

TC 

R0TVB24 

XI 15 

REF 

" 3 LA5T  220 

13,3134 

0 3130  0 

7 cr 

R0TVB24 

Ui  16 

REP 

6 LAST  220 

13,3135 

3 7672  0 

CAF 

LOW9 

0117 

REF 

18  LAST  220 

13,3136 

7 0374  0 

MASK 

markstat 

0118 

REF 

4 LAST  220 

13,3137 

54  002  1 

TS 

BASVAC 

0119 

REF 

1 

13,3140 

3 0336  1 

CA 

DSPTEM2 

YROT 

0120 

REF 

5 LAST  220 

13,3141 

50  002  0 

INDEX 

BASVAC 

0121 

1 3 , 3 142 

54  003  0 

TS 

3 

STORE  Y RETICLE  ROT  ANGLE  IN  VAC  +3 

0122 

REF 

2 LAST  220 

13,3143 

3 0337  0 

CA 

DSPTEM2  *1 

SROT 

0123 

REF 

6 LAST  220 

13,3144 

50'  002  cr 

INDEX- 

BASVAC 

0124 

13,3145 

54  005  0 

TS 

5 

STORE  5PIRAL  ROT  ANGLt  VAC  *5 

012X 

REF 

T 

LAST 

220 

13,3146 

T 

767Z  0 ~ MKOUT 

CAF 

LOW  9 

0126 

RtF 

1 9 

LAST 

220 

13,3147 

7 

0374  0 

MASK 

MARKSTAT 

0127 

REF 

20 

LAST 

220 

13,3150 

54 

374  0 

TS 

MARKSTAT 

SET  HI  5 ZERO 


0128 

0129  REF  39  LAST  216 

0130  REF — 19  LAST  203 


13 
13 

13 ,31 53 


3151  0 0004  0 

3152  3 7657  1 
0 4536  0 


INHINT- 

caf  tone- 

TC WATTLIET 


A73A23A  YJL  SYSTEM  FOR  BL«2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  221 


L AOTMARK 


USER'S  OWN  PAGE  NO.  A 


0131 

13.315A 

03157 

1 

2CADR 

ENDMARKS 

CO  1 3 1 

REF 

1 

13,3155 

26003 

0 

0132 

REF 

6 

LAST 

218 

13,3156 

0 AAAO 

0 

TC 

ENDOFJOB 

0133 

REF 

AO 

LAST 

220 

13*3157 

3 7657 

1 

ENDMARKS  CAF 

ONE 

G13A 

REF 

3 

last 

206 

13,3160 

1 2667 

0 

TCF 

GOOdEND 
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0135 

ref 

"T 

LAST  162 

13,3161 

54  016  1 

MArKrUPT  ts 

BANKRUPT 

0 1 3 6 

REF 

3 

LAST" 189 

33,3162 

3 0033  1 

CA 

CdUY  store  cdu  data  and  time  in  temp 

0137 

REF 

1 

13,3163 

54  072  0 

TS 

RUPTSTOR  +2 

0138 

REF 

6 

LAST  189 

13,3164 

3 0034  0 

CA 

CDUZ 

0139 

REF 

2 

LAST  222 

13,3165 

54  074  0 

TS 

RUPTSTOR  +4 

0140 

REF 

7 

LAST  194 

13,3166 

3 0032  0 

CA 

CDUX 

0141 

REF 

3 

LAST  222 

13,3167 

54  076  1 

TS 

RUPTSTOR  +6 

0142 

13,3170 

0 0006  1 

EXTEND 

0143 

REF 

1 

13,3171 

3 0025  0 

DCA 

7IME2 

0144 

REF 

4 

LAST  222 

13,3172 

52  071  0 

DXCH 

RUPTSTOR 

0145 

REF 

1*7 

LAST  217 

13,3173 

56  002  0 

XCH 

Q 

0146 

ref 

5 

LAsT  162 

13,3174 

54  012  0 

TS 

QRUPT 

0147 

REF  1 

13,3175 

3 3425 

1 

CAF  OCT  34 

SEE  IF  X OR  Y MARK  OR  MKREJECT 

0148 

13,3176 

0 0006 

1 

extend 

0149 

REF  1 

13,3177 

02  016 

1 

RAND  NAVKEYIN 

0150 

REF  132  LAST  220 

13,3200 

10  000 

0 

CCS  A 

0151 

13,3201 

0 3203 

0 

TC  +2 

ITS  A LIVE  ONE-CHECK  FOR  ACCEPT 

0152 

TEF  I 

18,3202 

0 3233 

0 

TC  SOMEKEY 

SOME  OTHER  KEY 

0153  REF  6 LAST  219 

0134  REF  21  LAST  220 

0155  REF  133  LAST  222 

0156  REF  4 LAST  188 


13*3203 

13,3204 


13.3205 

13.3206 


3 7644  0 
1 0374  0 
10  000  0 
0 4606  0 


CAF  BIT  12  HAVE  MARKS  BEEN  ACCEPTEU 

MASK  MARKSTAT 

CCS 

TC  RESUME  MARKS  MADE  AND  ACCEPTED  - DO  NOTHING 
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13*3207 

10  374 
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CCS 

MARKSTAT 

ARE  MARKS  BEING  ACCEPTED 

0158 
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1 

1 3 , 32  1 U 

0 3214 

0 

TC 

FINDKEY 

0159 

REF 

13  EAST  219 

13,3211 

0 5413 

1 

"TC 

' ALARM 

MARKS  NOT  BEING  ACCEPTED 

0 160 

13,3212 

00112 

0 

OCT 

112 

0161 

REF 

5 LA5T  222 

13,3213 

0 4606 

0 

TC 

RESUME 

0162 

REF 

6 LAST 

196 

13,3214 

3 7653 

0 

FINDKEY 

CAF 

BIT5 

0163 

13,3215 

0 0006 

1 

EXTEND 

0164 

REF 

2 LAST 

222 

13,3216 

02  016  1 

RAND 

NAVKEYIN 

CHANNEL  16  " 

0165 

REF 

134  LASI 

222 

13,3217 

10  000 

0 

CCS 

A 

0166 

REF 

1 

13,3220 

0 3361 

0 

TC 

MKREJ 

ITS  A MARK  REJECT 

0167 

REF 

t4  LAST 

214 

13,3221 

3 7654 

7 

"CAF 

BIT4  " 

0168 

13,3222 

0 0006 

1 

EXTEND 

0169 

REF 

3 LAST 

222 

13,3223 

02  016 

1 

RAND 

NAVKEYIN 

0170 

REF  135  LA5 1 

222 

13,3224 

10 "000 

13" 

CCS" 

A 

0 1 T 1 

KEF 

1 

13,3225 

0 3251 

1 

TC 

YMKRUPT 

ITS  A Y MARK 

0172 

REF 

2 LAST 

76 

13,3226 

3 7655 

0 

CAF 

BIT3 

0173 

13,3227 

0 0006 

1 

EXTEND 

0174 

REF 

4 LAST 

222 

13,3230 

02  016 

1 

RAND 

NAVKEYIN 

01 75 

REF 

136  LA5T 

222 

1 3 , 323 1 

10  000 

0 

CCS 

A 

0176 

REF 

1 

13,3232 

0 3245 

1 

7X 

“ XMKRUPT 

ITS  ATT  X MARK 

0177 

REF 

1 

13,3233 
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1 
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OCT140 

NOT  MARK  OR  MARK  REJECT 
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13,3234 
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1 

EXTEND 

0179 
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5 LA5T 
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13,3235 

"02  016 

1 
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13,3236 

0 0006  1 

EXTEND 
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13,3237 

1 3242  1 

BZF 
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IF  NO  INBITS. 

0182 

REF 
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13*3240 

0 <+102  0 

TC 

POSTJUMP 

IF  DESCENT  BITS. 

0183 

REF 

1 

13,3241 

22730  0 

cadr 

DESCBITS 

0184 

REF 

14 
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13,3242 

0 5413  1 
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TC 

ALARM 

0185 

13,3243 

00113  1 

OCT 

113 

0186 

REF 

6 

LAST  222 

13,3244 

0 4606  0 

TC 

RESUME 

0187 

REF 

79 

LA5  T 219 

13,3245 

3 7665  0 

XMKRUPT 

CAF 

ZERO 

0188 

REF 

1 9 

LAST  203 

13,3246 

54  065  0 

TS 

I TEMPI 

0189 

REF 

15 

LAST  219 

13,3247 

3 7646  1 

CAF 

BIT10 

0190 

13,3250 

0 3254  1 

TC 

+ 4 

0191 

REF 

41 

LAST  221 

13,3251 

3 7657  1 

YMKRUPT 

CAF 

ONE 

0192 

REF 

20 

LAST  223 

13,3252 

54  065  0 

T S 

I TEMPI 

0193 

REF 

10 

LAST  219 

13,3253 

3 7645  1 

CAF 

BIT  1 1 

0194 

REF 

3 

LAST  219 

13,3254 

54  375  1 

TS 

XYMARK 

SET  MARK  ID 

0195 

REF 

23 

LAST 

222 

13,3255 

7 0374  0 

MASK 

MARKSTAT 

0196 

ref 

137 

last 

222 

13,3256 

10  000  0 

CCS 

A 

0197 

13,3257 

0 3261  1 

TC 

+ 2 

MARK  MADE  BUT  NOT  DESIRED 

0198 

REF 

1 

13,3260 

0 3264  1 

TC 

VACSTOR 

'MARK  DESIRED  AND  MADE-STORE  CDUS 

0199 

REF 

15 

LAST 

223 

13,3261 

0 5413  1 

T C 

alarm 

0200 

13,3262 

00114  0 

OCT 

114 

0201 
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13,3263 

0 3315  0 

TC 

REMARK 

RENEW  REQUEST 

0202 

REF 

8 
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220 

13*3264 

3 7&72  0 

VACSTOR  CAF 

L0W9 

STORE 

TIME  AND  CDUS  IN  VAC  AREA 

0203 
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24 
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223 

13,3265 

7 0374  0 

mask 

MARKSTAT 

0204 

REF 

8 

LA5  I 

203 

13,3266 

54  066  0 

TS 

ITEMP2 

0205 

13,3267 
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EXTEND 

0206 

REF 

5 
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222 

13,3270 

3 0071  I 

DCA 

RUPTSTOR 

0207 
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9 
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13,3271 

50  066  1 
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ITEMP2 

0208 

13,3272 

52  001  1 

dxch 

0 

STORE 
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0209 
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10 
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13,3273 
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ITEMP2 

0210 
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21 
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223 

13,3274 

26  065  0 
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ITEMP1 

0211 

REF 
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223 

13,3275 

3 0072  1 

CA 

RUPTSTOR 

+2 

0212 

REF 

22 

LAST 

223 

13,3276 

50  065  I 
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I TEMPI 

0213 

13,3277 

54  002  1 
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0214 

REF 
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1 3 , 3300 

3 0074  1 

CA 

RUPTSTOR 

+4 

0215 

REF 
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LAST 

223 
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0216 
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54  004  1 
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4 
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REF 
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1 3 ,3303 

3 0076  0 

CA 

RUPTSTOR 
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REF 

24 
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1 3 , 3305 
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6 

0220 
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0221 
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TS 

MARKSTAT 
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TC 
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0227 

REF  BO  LAST  223 

13,3315 

3 7665  0 

REMARK  CAF 

ZERO 

0228 

REF  1 

13,3316 

54  077  0 

TS 

MKDEX 

MKDEX=0 

0229 

REF  11  LAST  223 

13,3317 

3 7645  1 

CAF 

BITll 

LOOK  A Y MARK 

0230 

REF  27  LAST  224 

13,3320 

7 0374  0 

MASK 

MARKSTAT 

0231 

REF  138  LAST  223 

13,3321 

13  000  0 

CCS 

A 

0232 

13,3322 

0 3325  0 

TC 

+ 3 

Y MARK  MADE 

0233 

REF  15  LAST  215 

13,3323 

3 7650  0 

CAF 

B I T 8 

Y MARK  REQUIRED 

0234 

REF  2 LAST  225 

13,3324 

54  077  0 

TS 

MKDEX 

0235 

REF 

1 6 

LAST 

223 

13,3325 

3 7646 

1 

CAF 

BIT10 

LOOK  AT  X MARK 

0236 

REF 

28 

last 

225 

13,3326 

7 0374 

0 

MASK 

MARKSTAT 

0237 

REF 

139 

LAST 

225 

13,3327 

10  000 

0 

CCS 

A 

0238 

REF 

1 

13,3330 

0 3333 

1 

TC 

MK  JOB 

0239 

REF 

10 

LAST 

179 

13,3331 

3 7651 

1 

CAF 

BIT7 

X MARK  REQUIRED 

0240 

REF 

3 

LA5T 

225 

13,3332 

26  077 

0 

ADS 

MKDEX 

0241 

REF 

2 

LAST 

218 

13,3333 

3 4530 

0 MK JOB 

CAF 

PR  1032 

0242 

ref 

5 

last 

218 

13,3334 

0 4363 

0 

TC 

NOVAc 

ENTER  JOB  TO  PASTE  VERB 

0243 

13,3335 

03343 

0 

2CADR 

CHANGVB 

C0243 

REF 

1 

13,3336 

26003 

0 

0244 

REF 

11 

LAST 

149 

13,3337 

3 0077 

1 

CA 

RUPTREG4 

0245 

REF 

20 

LAST 

206 

13,3340 

50  071 

1 

INDEX 

LOCCTR 

0246 

REF 

402 

LAST 

217 

13,3341 

54  140 

0 

TS 

MPAC 

0247 

REF 

7 

LAST 

223 

13,3342 

0 4606 

0 

TC 

RESUME 

0248 

REF 

403 

LAST  225 

13,3343 

10  140  0 CHANGVB 

CCS 

MPAC 

0249 

REF 

1 

13,3344 

0 3347  1 

TC 

SHOWVB 

0250 

REF 

1 

13,3345 

3 3432  1 

CAF 

VB21N30E 

0251 

REF  2 

LAST  225 

i 3 ,3346 

0 3351  0 

TC" 

SHOWVB  +2 

0252 

REF 

1 

13,3347 

3 3433  0 SHOWVB 

CAF 

VB50 

0253 

REF 

404 

LAST  225 

13,3350 

6 0140  1 

AD 

MPAC 

0254 

REF 

" 1 

13,3351 

54  107  C 

TS" 

“ NvT'EMP 

0255 

REF 

2 

LAST  157 

13,3352 

3 0323  0 

CA 

CADRSTOR 

NVSUB  CLOBBERS  THIS-USE  LOC  AS  TEMP 

0256 

REF 

42 

LAbl  2U6 

13,3353 

54  150  1 

TS 

LOC 

0257 

REF 

i 

13,3354 

0 5112 

TC" 

NV5UB  +3 

0258 

LAST  225 

13,3355 

05100  0 VB5 1 

OCT 

5100 

0259 

REF 

43 

1 3 1 33^6 

3 0150  0 

CA 

LOC 

RESTORE  CADRSTOR 

0260 

REF 

3 

LASi  225 

lb  »3i 57 

54  323  1 

T5 

CADRSTOR 

0261 

REF 

7 

LAST  221 

1 i , 3 36U 

0 4440  0 

TC 

ENDOFJOB 

Kcr 

23 

LAG!  22U 

13,3361 

3 7642  0 MKREJ 

"CAF 

bi  1 14 

IN-FLIGHT  OR  NON-FLIGHT 

0263 

REF 

29 

LAsT  225 

1 3 ,3362 

7 0374  0 

MASK 

MARKSTAT 

0264 

REF 

1 40 

LAST  225 

1 3 , 3383 

10  000  0 

CCS 

A 

0265 

REF 

1 

13 ,3364 

0 3372  1 

TC 

REJIN 

TN-FLIGHT 

0266 

REF 

1 7 

LAST  225 

13,3365 

3 7646  1 

CAF 

BIT10 

NON-FLIGHT,  SEE  IF  X MARK  MADE 

0267 

REF 

30 

LAST  225 

1 3 « 3366 

7 0374  0 

MASK 

MARKSTAT 

0268 

REF 

141 

LAST  225 

1 3 ,3367 

10  000" O'" 

CCS 

— A 

02b9 

REF 

1 

13,3370 

0 3414  0 

TC 

REJECT2 

XMARK  MADE-REJECT  IT 

0270 

REF 

1 

13,3371 

0 3376  0 

TC 

REJALARM 

X MARK  NOT  MADE-ALARM-NO  MARKS  TO  REJ 
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0271 

REF 

1 

13,3372 

3 4504 

1 

REJIN 

CAF 

PR103 

WERE  IN-FLIGHT  MARKS  MADE 

0272 

REF 

31  LAST 

225 

13,3373 

7 0374 

0 

MASK 

markstat 

0273 

REF 

142  LAST 

225 

13,3374 

10  000 

0 

CC5 

A 

0274 

REF 

1 

13,3375 

0 3401 

1 

T C 

REJECT 

MARKS  MADE-REJECT  ONE 

— 0275 

REF 

16  LAST 

223 

13,3376 

0 5413 

1 

RE J ALARM 

TC 

ALARM 

NO  MARKS  MADE  TO  REJECT-GET  MARKS 

0276 

13,3377 

00115 

1 

OCT 

115 

0277 

REF 

2 LAST 

225 

13,3400 

0 3414 

0 

TC 

REJECT2 

0278 

REF  12  LAST 

223 

13,3401 

4 7643 

0 

REJECT 

C5 

imr- 

SHOW  MKREJECJ  AND  SEE  MARK  MADE 

0279 

REF 

32  LAST 

226 

13,3402 

7 0374 

0 

MASK 

markstat 

since  last  reject 

0280 

REF 

13  LAST 

226 

13,3403 

6 7643 

1 

AD 

BIT13 

~ 07281 

REF 

33  LAST 

226 

13,3404 

56  374 

1 

XCH 

MARKSTAT 

0262 

REF 

14  LAST 

226 

13,3405 

7 7643 

0 

MASK 

BIT13 

0283 

REF 

143  LAST 

226 

13,3406 

10  000 

0 

CCS 

A 

0284 

REF 

3 LAST 

226 

13,3407 

0 34l4 

0 

re 

REJECT2 

ANOTHER  REJECT 

0285 

REF 

6 LAST 

224 

13,3410 

4 0375 

1 

C5 

XYMARK 

MARK  MADE  SINCE  LAST  REJECT-REJECT  IT 

0286 

REF 

34  LAST 

226 

13,3411 

7 0374 

0 

MASK 

MARKSTAT 

0287 

W 

35  LAST 

22  b 

13,3412 

54  374 

0 

rs 

"MARKS  TAT 

0288 

REF 

3 LAST 

224 

13,3413 

0 3315 

0 

TC 

REMARK 

GO  REQUEST  MARKS 

0289 

“REF  2 LAST  226 

T3T3414 

4'  4504“ 

0 

reject  2 cs 

PRIO3 

NO  MARKS  SINCE  LAST  REJECT  SO  SET 

0290 

REp  36  LAST  226 

1 i , 34 1 5 

7 0374 

0 

mask 

MARKSTAT 

MARKSTAT  TO  WANT  X AND  y MARKS 

0291 

REF  37  LAST  226 

13,3416 

56  374 

1 

XCH 

MARKSTAT 

“0292 

RcF  24  LAST  225 

1 3 , 341 7 

7 7642 

1 

~MASTC 

BIT14 

IN-FLIGHT  OR  NON-FLIGHT 

0293 

REF  144  LAST  226 

13,3420 

10  000 

0 

CCS 

A 

0294 

REF  4 LAST  226 

13,3421 

0 3315 

0 

TC 

REMARK 

IN-FLIGHT,  GO  GET  MARKS 

0295 

RcF  12  LAST  225 

13,3422 

3 7645 

r 

CAF 

FION-FLIGHT,  STILL  REQUEST  X MARK  ONLY 

0296 

REF  38  LAST  226 

13,3423 

26  374 

0 

ADS 

MARKSTAT 

0297 

REF  5 LAST  226 

13,3424 

0 3315 

0 

TC 

REMARK 

GO  GET  X MARK 

0298 

REF 

3 

LAST  203 

6165 

OCT  3 

EQUALS 

THREE 

0299 

13,3425 

00034  0 

OcT34 

OCT 

00034 

0300 

1 3 ,3426 

00140  1 

OCT 140  - 

OCT 

00140 

0301 

13,3427 

02143  0 

V21N43E 

OCT 

2143 

0302 

13,3430 

02442  1 

V24N42E 

OCT 

2442 

"0303 

13,3431 

05300  1 

VB53 

OCT 

5300 

0304 

REF 

12 

LAST  225 

0077 

MKDEX 

EQUALS 

RUPTREG4 

0305 

REF 

7 

LAST  226 

0375 

DETCODE 

EQUALS 

XYMARK 

U306 

REF  118 

LA5T  222 

0002 

BA5VAC  EQUALS' 

Q 

0307 

13,3432 

02130  1 

VB21N30E 

OCT 

2130 

0308 

13,3433 

05000  1 

VB50 

OCT 

5000 

0309 

13,3434 

ENUAMODS 

EQUALS 
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RRLIMCHK  INDEX 

Q 

READ  GIMBAL  ANGLES  INTO  ITEMP  STORAGE, 

0026 

5000 

3 0000 

1 

CAF 

0 

0027 

REF 

123 

LAST 

228 

5001 

24  002 

0 

I NCR 

Q 

0028 

5002 

0 0006 

1 

EXTEND 

0029 

REF 

145 

LAST 

226 

5003 

5 0000 

1 

INDEX 

A 

TO  30 

5004 

3 0001 

0 

DCA 

0 

0031 

REF 

25 

LAST 

223 

5005 

52  066 

0 

DXCH 

ITEMPI 

0032 

REF 

124 

LAST 

228 

5006 

22  002 

0 

LXCH 

Q 

L (CALLER  +2)  TO  L. 

0033 

REF 

7 

LAST 

222 

5007 

3 7644 

0 

CAF 

BI  T2 

SEE  WHICH  MODE  RR  IS  IN. 

0034 

REF 

14 

LAST 

180 

5010 

7 0413 

0 

mask 

RADMODES 

0035 

REF 

146 

LAST 

22B 

5011 

10  000 

0 

CCS 

A 

0036 

REF 

1 

5012 

1 5025 

1 

TCF 

M0DE2CHK 

C 0 37 

0038 

0039 


REF  26  LAST  228 
REF 


“0U40  REF  44  LAST- 217 


5013 

5014 

5015 

5016 


3 0065  1 
0 4763  1 
66161  I 
0 0001  0 


ta  itempi 

TC  MAGSUB 

DEC  -,305  55 

TC C 


MODE  1 IS  DEFINED  AS 

1,  ABS(T)  L 70  DEGS, 

2,  AB5 ( S + 5,5  DEGS)  L 64,5  DEGS 

(SHAFT  LIMIT5  AT  +59,  -70  DEGS) 


004i 

REF 

1 

5017 

3 5037  0 

CAF 

5.5DEGS 

0042 

REF 

11 

LAST- 

223 

5020 

6 0066  J— 

AD 

ITEMP2 

S 

00<t3 

REF 

2 

LAS  1 

228 

5021 

0 4763  1 

TC 

MAGSUB 

0044 

5022 

64420  0 

DEC 

-,35833 

64,5  DEGS 

0045 

RTEF 

45 

LAST 

228 

5023 

0 0001  0 

TC 

L 

0046 

REF 

1 

5024 

0 5035  1 

TC 

RRLIMOK 

IN  LIMITS, 

0047 

0048 

0049 
GOTO 
0051 


REF  I 

REF  12  LAST  228 
REF  3 LAST  228 

RcF  46  LAST  22a 


5025 

5026 

5027 

5030 

5031 


3 5041  1 
6 0066  1 
0 4763  1 
75567T  CT 
0 0001  0 


AD 

TC 

DEC 

TC 


ITEMP2 

MAGSUB 

-.31667 


MODE" 2 IS  DEFINED  AS 

1,  ABS(T)  G 110  DEGS 

2,  ABS ( S + 82  DEGS)  L 57  DEGS 

T5RAFT“LTMTTS~  AT  -25  , -139  DEGS) 


0052 

REF 

27 

LAST 

228 

5032 

3 0065 

1 

“CA 

ITEMPI 

0053 

REF 

4 

LAST 

228 

5033 

0 4763 

1 

TC 

MAGSUB 

00  5 4 

5034 

54343 

1 

DEC 

-.61111 

110  DEGS 

UU55 

K tr 

47 

LASI 

228 

5035 

50  001 

0 

RRLIMOK  INDEX 

L 

0056 

REF 

48 

LA51 

228 

5036 

0 0001 

0 

TC 

L 

( = TC  1) 

00565  5037  00^65  0 5.5DEG5  DEC  ,o3o56 

0057  5040  00707  1 5DEgS  DEC  ,02777  SCALED  IN  HALF-REvOLUT I0N5, 

'GOES  5041 I6450T — 82DEGS DEC .43556“  ‘ 


473423A  YJL  SYSTEM  FOR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  P«GE  229 


L0001  RADAR  Ll Au- 1 iM  ROUTINES  USER'S  Own  page  NO.  3 


P0059  THt  FOLLOWING  ROUHNi  UPDATES  THE  TRACKER'  FAIL  LAMP  ON  THE  DSKY.  IF  EITHER! 


R006i  i.  N SAMPLES  OF  RR  DATA,  COULD  NOT  BE  OBTAINED  FROM  2N  TRIES 

R0062  2.  N SAMPLES  Of  LR  DATA  COuLD  NOT  BE  TAKEN  IN  2N  TRIES  WITH  EITHER  THE  AlT  OR  VEL  INFORMATION. 

R0064  3.  RR  CDU  FAILED  WITH.  RR  IN  AUTO  MODE  ANDH RR- CDLTNOT  BEING  ZEROED. 


0066 

REF 

12  LAST  205 

5°42 

3 7657  1 SETTRKF 

CAF 

BITl 

NO  ACTION  IF  DURING  LAMP  TEST. 

0067 

ref 

9 LAST  200 

5043 

7 0370  1 

mask 

IM0DES33 

0068 

REF 

147  LAST  228 

5044 

10  000  0 

CCS 

A 

0069 

REF 

125  LAST  228 

5045 

0 0002  0 

TC 

Q 

0070 

REF 

1 

5046 

3 5076  0 

CAF 

13*7,2 

SEE  IF  CDU  FAILED. 

0071 

REF 

15  LAST  228 

5047 

7 0413  0 

MASK 

RADmODES 

0072 

5050 

0 0006  1 

EXTEND 

0073 

REF 

1 

5051 

1 5061  1 

3ZF 

TRKFLON 

CONDITION  3 ABOVE. 

0074 

REF 

16 

LAST 

229 

5052 

4 

0413 

0 

cs 

RADMODES 

SEE  IF  LR  FAILED. 

0075 

ref 

1 

5053 

7 

5077 

0 

MASK 

8,5 

0076 

5054 

0 

0006 

1 

EXTEND 

0077 

REF 

2 

LAS1 

229 

5055 

1 

5061 

1 

BZF 

TRKFLON 

CONDITION  2 ABOVE. 

0078 

REF 

15 

LAST  222 

5O56 

3 7654 

1 

CAF 

BIT4 

SEE  IF  RR  DATA  FAILED. 

0079 

REF 

17 

LAS'T229 

5057 

7 0413 

0 

MASK 

RADMODES 

0080 

REF 

148 

LA5T  229 

5060 

10  000 

0 

CCS 

A 

0081 

REF 

16 

LAST  225 

5061 

3 7650 

0 

TRKFLON  CAF 

BITS 

0082 

REF 

1 6 

LA5TT72 

5062 

6 0322 

1 

,D  HALF  ADD  DESIRED- AND  PRESENT  STATES. 

0083 

REF 

17 

LAST  229 

5063 

7 7650 

1 

MASK 

BITS 

0084 

5064 

0 0006 

1 

EXTEND 

0085 

RcF 

2 

LAST  150 

5065 

1 4712 

0 

BZF 

TCQ 

NO  CHANGE. 

0086 

REF 

49 

LAST  228 

5O66 

54  001  1 

TS 

L 

INVERT  BIT  8 AND  SET 

BIT  15. 

0087 

REF 

IT 

LAST  229 

5067 

3 0322  1 

ZA  ~ 

DSpTAB 

+ 1 ID 

CANT  USE  LXCH  D5pTAB 

+ 1 ID  (RESTART  pROB) 

0088 

5070 

0 0006  1 

EXTEND 

0089 

REF 

60 

LAST  229 

5071 

06  001  0 

RXOR 

L 

0090 

REF 

19 

LAST~2 16 

5072 

77637  0 

MA5K 

P 05 MAX 

UO9I 

REF 

14 

LAST  173 

5073 

6 7641  0 

AD 

BIT15 

0092 

REF 

1 tt 

LAST  229 

5074 

54  322  0 

TS 

DSPTAB 

♦ 1 ID 

0093 

REF 

126 

LAST  229 

5075 

0 0002  0 

TC 

Q ~ 

uu*4 

5076 

10102  0 

13*7,2 

OCT 

10102 

0095 

5077 

00220  1 

8,5 

OCT 

00220 

5100  ENDRMODF  EQUALS 


* 


oc 

T 


0096 


473423A  YJL  SYSTEM  FOR  Bl<2:  REVISION.  12  OF  PROGRAM  AURORA.  BY  PAP  GROUP 


NOy  10*  1966 


(MAIN) 


PAGE  230 


LOOOl 

RADAR  LEAD-IN  ROUTINES 

USER'S  OWN  PAGE  NO.  4 

P0097 

TUrNON  ; 

SEQUENCE  TO  ZERO'  THE  CDUs  AND  DETERMINE 

THE  rr  MODE. 

0098 

10,2000 

BANK 

10 

OO99 

REF 

1 

10,2000 

0 2013  1 

RRTURNON  TC 

RRZEROSB 

0100 

ref 

2 

|_AsT  193 

10,2001 

0 4554  1 

TC 

FIXdElAY 

WAIT  1 sEC  BEFORE  REMOVING  TURN  ON  FlAG 

0101 

10,2002 

00144  0 

DEC 

100 

SO  A MONITOR  REPOSITION  WONT  ALARM, 

0102 

W' 

13 

LAST  229 

"TO,  2 00  3 

4 7657  0 

CS 

BIT1 

0103 

REF 

18 

LAST  229 

10,2004 

7 0413  0 

MASK 

RADMODES 

0104 

ref 

19 

LAST  230 

10,2005 

54  413  0 

TS 

RADMODES 

0105 

REF 

14 

Lff5T~i9ff 

10,2006 

4 0061  1 

CS 

STATE 

SEE  IF  SOMEONE  IS  WAITING  TO  USE  THE  RR. 

0106 

REF 

1 

10,2007 

7 7651  0 

MASK 

RRUSEFLG 

0107 

REF 

149 

LAST  229 

10,2010 

10  000  0 

CCS 

A 

0T08 

“REF 

17 

LAST  206 

10,2011 

1 4602  0 

TCF 

TASKOVER 

OIO9 

REF 

_ 1 

10,2012 

1 3235  1 

TCF 

ENDRADAR 

CHECK  RR  CPU  FAIL  BEFORE  EXIT* 

473423A  YJL  S',  SI  EM  FOk  bLK2;  REVISION  12  OF  PROGRAM  AURORA  By  DAP  GROUP 


NOV  10*  1966  (MAIN)  PAGE  231 


Looo 1 RADAR  LEAb-IN  ROUTINES 


USER'S  OWN  PAGE  NO.  5 


PCllO  CLOSED  SUBROUTINE  TO  ZERO  THE  RRi  CPUS, 


0111 

10,2013 

0 0006 

1 

RRZEROSB  EXTEND 

0112 

REF 

2 

LAST  227 

10,2014 

23*460 

1 

QXCH  RRRET 

0113 

REF 

14 

LAST- 230 

10,2015 

3 7657 

1 

CAF'  BlTl 

BIT  13  OF  RADMODES  MUST  BE  SET  BEFORE 

0114 

10,2016 

0 0006 

1 

EXTEND 

COMING  HERE. 

0115 

10,2017 

05  012 

1 

WOR  12 

0116 

REF 

3 

LAST  230 

10,2020 

0 4554 

1 

TC  FIXDELAY 

0117 

10,2021 

00002 

0 

DEC  2 

0118 

REF 

81 

LAST-  225 

10,2022 

3 7665 

0 

CAF  ZERO 

0119 

REF 

2 

LAST  180 

10,2023 

54  035 

0 

TS  OPTY 

0120 

REF 

1 

10,2024 

54  036 

0 

TS  OPTX 

0121 

REF  " 

42 

LASr  223 

10,2025 

4 7657 

cr 

CS  ONE 

REMOVE  ZEROING  BIT. 

0122 

10,2026 

0 0006 

1 

EXTEND 

0123 

10,2027 

03  012 

1 

WAND  12 

0124 

REF 

4 

LAST  231 

10,2030 

0 4554 

1 

TC  FIXDELAY 

0125 

10,2031 

00454 

1 

DEC  300 

0126 

REF 

15 

LAST 

226 

10,2032 

4 7643 

0 

CS 

BIT13 

REMOVE  ZEROING  IN  PROCESS  BIT. 

0127 

REF 

20 

LAST 

230 

10,2033 

7 0413 

C 

MASK 

RADMODES 

0128 

REF 

21 

L«ST 

231 

10,2034 

54  413 

0 

TS 

RADMODES 

0129 

REF 

3 LAST 

231 

10,2035 

3 0035  1 

CA 

OPTY 

0130 

REF 

5 LAST 

228 

10,2036 

0 4763  1 

TC 

MAGSUB 

0131 

10,2037 

57777  1 

'DEC 

-.5 

0132 

10,2040 

1 2043  0 

TCF 

♦ 3 

IF  MODE  2. 

0133 

REF 

82  LAST  231 

10,2041 

3 7665  0 

CAF 

ZERO'  ' 

0134 

10,2042 

1 2044  1 

TCF 

♦ 2 

0135 

REF 

8 LAST  228 

1 0 , 2043 

3 7644  0 

CAF 

biti2 

0136 

REF 

22  LA5T~231T 

1 U ,2044 

56  413  1 “ 

XCH 

RADMODES 

0137 

REF 

1 

10,2045 

7 4360  1 

MASK 

-BIT12 

0138 

REF 

23  LAST  231 

10,2046 

26  413  0 

ADS 

RADMODES 

0139  REF  2 LAST  179  10,2047  0 5042  1 TC  5ETTRKF  TRACKER  LAMP  MIGHT  GO  ON  NOW, 

TTT4tJ  REF  3~LAST~2TI  10,2050 — 0 1460  1 TC RRRET DONE,  ~ 


0141  REF  2 LAST  124 


4360  -BIT12  EQUALS  -1/8 


IN  SPROOT 


a 


47 342 3A  yUt,.  SySTEM  FOR  bLK2{  REVISION  12  OF  PROGRAM.  AURORA.  By  DAP'  GROUP 


NOy  10,  1966  (MAIN)  PA^E  232 


LC001  RADAR  LEAD-IN  ROUTINES  USER’S  OWN  PAGE  NO.  6 

P0142  SEQUENCE  of  TA5<S  to  drive  therr  to  a safe  position. 

0143  REF  1 10,2051  0 2106  1 DORREPOS  TC  ~~SETRRECR  SET  UP  RR  CDU  ERROR  COUNTERS. 


0144 

REF 

15 

LAST 

231 

10,2052 

3 7657  1 

CAF 

BITl 

DO  AN  ALARM  UNLESS  RR  JUST  TURNED  ON, 

0145 

REF 

24 

LAST 

231 

10,2053 

7 0413  0 

MASK 

RADMODES 

0146 

REF 

150 

LAST 

230 

10,2054 

10  000  0 

CCS 

A 

0147 

10,2055 

1 2060  1 

rcF 

*3 

0148 

REF 

17 

LAST 

226 

10,2056 

0 5413  1 

TC 

ALARM 

0149 

10,2057 

00501  0 

OCT 

501 

0150 

REF 

5 

LAST 

231 

10,2060 

0 4554  1 

TC 

FIXDELAY 

0151 

10,2061 

00002  0 

DEC 

2 

0152 

REF 

9 

LAST 

231 

10,2062 

3 7644  0 

CAF 

BIT12 

MANEUVER  TRUNNION  ANGLE  TO  NOMINAL  P05, 

0153 

REF 

25 

LAST 

232 

10,2063 

7 0413  0 

MASK 

RADMODES 

0154 

REF 

151 

last 

232 

10,2064 

10  000  0 

CCS 

A 

0155 

REF 

15 

LA5T 

229 

10,2065 

3 7641  0 

CAF 

BIT15 

0 FOR  MODE  1 AND  180  FOR  MODE  2, 

0156 

REF 

1 

10,2066 

0 2150  1 

TC 

RRTONLY 

0157 

REF 

10 

LAST 

232 

10,2067 

3 7644 

0 

CAF 

BIT12 

NOW  PUT 

SHAFT  IN  RIGHT  POSITION. 

0158 

REF 

26 

LAST 

232 

10,2070 

7 0413 

0 

MASK 

RADMODES 

~0159 

REF 

152 

LAST 

232 

10,2071 

10  000 

”0 

CCS 

A 

0160 

REF 

1 6 

LA5T 

149 

10,2072 

4 7642 

1 

cs 

HALF 

-90  FOR 

MODE  2. 

0161 

REF 

i 

10,2073 

0 2153 

1 

TC 

RRSONLY 

0162 

REF 

13 

LAST  226 

10,2074 

4 7645 

0 

REPOSRPT  CS 

BlTll 

RETURNS  HERE  FROM  RR1AXIS  IF 

REMODE 

AO  163 

REQUESTED  DURING  REPOSITION. 

0164 

RcF 

27 

LA5T  232 

10,2075 

7 0413 

0~ 

REMOVE  REPOSITION  BIT, 

0165 

REF 

28 

LAST  232 

10,2076 

54  413 

0 

TS 

RADMODES 

0166 

RcF 

18 

LAST  225 

10,2077 

7 7646 

0 

MASK 

BIT10 

5EE  IF  SOMEONE  IS  WAITING  TO 

DESIGNATE. 

0167 

RCF 

153 

LAST" 232 

10,2100 

10  000 

0 

CCS  — 

A 

0168 

REF 

1 

10,2101 

1 2422 

0 

TCF 

BEGDES 

0169 

REF 

17 

LAST  200 

10,2102 

4 7656 

1 

CS 

BIT2 

IF  NO  FURTHER  ANTENNA  CONTROL 

RtUUlRED , 

0170 

10,2103 

0 0006 

1 

EXTEND 

REMOVE  ERROR  COUNTER  ENABLE. 

0171 

10,2104 

03  012 

1 

WAND 

12 

0172 

REF 

18 

LAST  230 

10,2105 

1 4602 

0 

TCF 

TASKOVER 

U173 

RcF 

1 8 

LA5T  232 

10,2106 

3 7656 

0 

SETRRECR  CAF 

BIT2 

Sb  1 Ur  Kk  bKRUK  CuUl'il  Lkb« 

0174 

10,2107 

0 0006 

1 

EXTEND 

0175 

10,2110 

~oyoi2 

1 

WOR 

12  “ 

0176 

REF 

83  LAST  231 

10,2111 

3 7665  0 

CAF 

ZERO 

0177 

REF 

4 LA5TT66 

10,2112 

54  362  1 

"TS" 

LA5TYCMD~ 

0178 

0179 

REF 

REF 

4 LAST  166 
127  LAST  229 

10.2113 

10.2114 

54  363  0 
0 0002  0 

TS 
— TD 

LASTXCMD 

Q 

ft 


473423A  YJL  SYSTEM  FOR  BI.K2:  REVISION  \Z  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10»  1966  (MAIN)  PAGE  233 


LOOOl  RADaR  LEAD-JN  ROUTINES  USER'S  OwN  PAGE  NO,  7 


PO  1 80 

GENERAL 

REM0D1NG  SUBROUTINE,  DRIVES  TRUNION  TO 

0 (180)  , THEN 

DRIVES  SHAFT  TO  -45,  AND  FINALLY  DRIVES 

R0182 

TRUNNION  TO  -1315 

(-50)  BEFORE 

IN  IT  I AT  TNG 

2-AXIS  CONTROL 

, ALL  RE-MODTNG 

IONE  WITH  SINGLE  AXIS  ROTATIONS  (RRlAXIS) 

0184 

REF 

11 

LAST  232 

10,2115 

3 7644  0 

REMODE  CAF 

BIT12 

DRIVE  TRUNNION  TO  0 (180) , 

0185 

REF 

29 

LAST  232 

1 0 | Z 1 1 6 

7 0413  0 

MASK 

RADMODES 

(ERROR  COUNTER  ALREADY  ENABLED) 

0186 

REF  154 

LAST  232 

10,2117 

ID  000  0 

CCS 

A 

0187 

REF 

16 

LAST  232 

10,2120 

3 7641  0 

CAF 

B I T 1 5 

0188 

REF 

2 

LAST  232 

10,2121 

0 2150  1 

TC 

RRTONLY 

0189 

REF 

1 

10,2122 

3 2137  0 

CAF 

-45DEGSR 

0190 

REF 

2 

LAST  232 

10,2123 

0 2153  1 

TC 

RRSONLY 

0191 

REF 

30 

LAST 

233 

10,2124 

4 0413 

0 

CS 

RADMODES 

0192 

REF 

12 

LAST 

233 

10,2125 

7 7644 

1 

MASK 

B I T 1 2 

0193 

REF 

155 

LAST 

233 

10,2126 

10  000 

0 

CCS 

A 

0194 

REF 

1 

10,2127 

3 2141 

1 

CAF 

-80DEGSR 

GO  TO  T = -130  (-50) , 

OI95 

REF 

2 

LAST 

233 

10,2130 

6 2141 

1 

AD 

-80DEGSR 

0196 

REF 

3 

LAST 

233 

10,2131 

0 2150 

I 

TC 

RRTONLY 

0197  REF  1 10,2132  0 2142  1 TC  RMOPINV 


0198 

REF 

25  LAST  226 

10,2133 

4 7642  1 

CS 

BIT14  END  OF  REMODE, 

0199 

ref 

31  LAST  233 

10,2134 

7 0413  0 

MASK 

RADMODES 

0200 

REF 

32  LA5T  233 

10,2135 

54  413  0 

0201 

REF  1 

10,2136 

0 2431  0 

TC 

STDESIG 

BEGIN  2-AXIS  CONTROL, 

0202 

10,2137 

70000  0 

-45DEGSR 

OCT 

70000 

02025 

10,2140 

67070  1 

-500EGSR 

DEc 

-.27778 

0203 

10,2141 

6161S  1 

-80DEGGR 

DEC 

-.44444 

020  A 

Ktr  33  LA5 I 233 

10,2142 

22  413  1 

RMUDINV 

LXCH 

RADMODES 

INVERT  THE  MODE  STATUS. 

0205 

REF  13  LAST  233 

10,2143 

3 7644  0 

CAF 

BITI2 

0206 

10,2144 

0 0006  1 

EXTEND 

0207 

REF  51  LAS)  229 

10,2145 

06  001  0 

RXOR 

L 

0208 

RtF  34  LA5I  233 

10,2146 

54  413  0 

TS 

RADMODES 

0209 

REF  128  LAST  232 

10,2147 

0 0002  0 

TC 

Q 

* 

ft 

* 

% 


C 

r 


% 


4T3423A  YJL  SYSTEM  FOR  ELK2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  234 


L0001  RADAR  LbAD-lN  ROUTINES  USEr*S  OWN  PAGE  NO#  8 

Po 2 1 0 SUBRqUt INeS  FOR  DOING1  SINGLE  AXIS  RR  MANEUVERS  FoR  ReMQDe  AND  REPOSITION,  DRIVES  TO  WITHIN  i DEGREE, 


0212 

REF 

1 

10,2150 

55*461 

1 

RRTONLY 

TS 

RDES 

DESIRED  TRUNION  ANGLE. 

0213 

REf 

84 

LAST  232 

10,2151 

3 7665 

0 

cAf 

ZERO 

0214 

REF 

1 

10,2152 

1 2155 

0 

tcf 

RR1AXIS 

0215 

REF 

2 

LAST  234 

10,2153 

55*461 

1 

RRSONLY 

TS 

RDES 

SHAFT  COMMANDS  ARE  UNRESOLVED 

SINCE  THIS 

02F  6 

ref 

4T 

LAsT  231 

10,2154 

3 7657 

1 

C"AF 

one 

routine  entered  only  when  T = 

0 OR  180, 

0217 

REF 

1 

10,2155 

55 ' 462 

1 

RR  1 AX  I S 

TS 

rrindex 

0218 

10,2156 

0 0006 

1 

EXTEND 

0219 

ref 

4 

LAST  231 

10,2157 

23*460 

1 

QXCH 

RRRET 

0220 

REF 

1 

10,2160 

1 2163 

0 

TCF 

RR1AX2 

0221  REF  6 LAST  232 

10,2l6l 

0 4554  1 

NXTRR1AX  TC 

fixdelay 

0222 

10,2162 

00062  0 

dec 

50 

2 samples  per  second. 

0223 

0224 
OZ2T 
0226 


REF  35  LAST  233 
FEF  IT 

REF  1 


10 

10 

10 

10 


2163  4 0413  0 

2164  7 45ZCT  CT 

2165  0 0006  1 

2166  1~2074  1 


RR1AX2 


CS  RADMODES  IF  SOMEONE  REQUESTES  AS  DESIGNATE  WHICH 

MASK  PR  1 02 2 REQUIRES  A REMODE  AND  A REPOSITION  IS  IN 

EXTEND  PROGRESS,  INTERRUPT  IT  AND  START  THE 

BZF  REPOSRPT  REMODE  IMMEDIATELY, 


0227 

REF 

3 LAST  234 

10,2167 

3 1461 

D - 

- CAT 

RDES 

0228 

10,2170 

0 0006 

1 

EXTEND 

0229 

RtF 

2 LAST  234 

10,2171 

5 1462 

0 

INDEX 

RRINDEX 

0230 

REF 

4 LAST  231 

10,2172 

20  035 

0 

OPTY 

0231 

REF 

129  LAST  233 

10,2173 

54  002 

1 

TS 

Q 

save  error  signal. 

0232 

10,2174 

0 0006 

1 

EXTEND 

1 

10,2175 

7 2212 

0 

VfP 

RRSPGAIN 

TRIES  TO  NULL  ,7  OF  ERROR  OVER  NEXT  .5 

0234 

REF 

52  LAST  233 

10,2176 

54  001 

1 

TS 

L 

0235 

REF 

130  LAST  234 

10,2177 

3 0002 

0 

CA 

Q 

SEE  IF  WITHIN  1 DEGREE, 

0236 

REF 

6 LA5rZ31 

10,2200 

0 4763 

T 

TC 

MAGSUB 

0237 

10,2201 

77644 

1 

DEC 

-.00555 

SCALED  IN  HALF-REV5. 

0238 

10,2202 

1 2204 

1 

TCF 

+ 2 

NO. 

0239 

ref 

5 LA5T  234 

10,2203 

0 1460 

1 

TC 

RRRET 

RETURN  TO  cAllER* 

“ 0240 

~ REF 

3 LAST  234 

10,2204  11*462  1 

CCS 

RRINDEX 

0241 

10,2205  1 2207  1 

TCF 

*2 

0242 

ref 

53  LAST  234 

10,2206  56  001  0 

XCH 

L 

0243 

RlF 

c LAST  16 

10,2207  52  424  1 

TDXCH 

TANG 

U244 

Kch 

1 

10,2210  0 2213  0 

TC 

RROUT 

COMMAND  FOR  OTHER  AX 1 5 IS  ZERO, 
SETTING  A TO  0. 


0245  REF  1 10,2211  1 2161  1 TXF NXTRRTAX-  COME  bAC<  IN  ,5  SECONDS. 

0246  10,2212  Z271S  RR5PGAIN  DEC .T5062 NULL  ,7  ERRUR“TN  .5  SEC, 
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L0001  radar  LEAD-IN  ROUTINES  USEri»S  OWN  PAGE  NO.  9 

P0247  THE  FOLLOWING  RoUT I NJ  = RfCITVIS  RR  GYRO  commands  in  taN6,u  IN  ERROR  counter  SCALING,  rrout  limits  them 

R0249  AND  GENERATES  COMMANDS  to  the  CDU  TO  ADJUSrtRE  'ERROR  COUNTERS  TO  THE  DESIRED  VALUES.  RUPT  MUST  EE  INHIBITED. 


0251  REF  131  LAST  234  10,2213  22  002  0 RROUT  LXCH  0 SAVE  RETURN. 

0252  REF  44  LAST  234  10,2214  3 7657  1 CAF  'ONE  LOOP  TWICE* 

0253  REF  13  LAST  226  10,2215  54  066  0 RR0UT2  TS  ITEMP2 

0254  REF  156  LAST  233  10,2216  50  000  1 ~ INDEX  A " 

0255  REF  LAST  234  10,2217  3 0423  1 CA  TANG 

0256  REF  28  LAST  228  10,2220  54  065  0 TS  ITEMPl  SAVE  SIGN  OF  COMMAND  FOR  LIMITING. 


0257 

REF 

7 LAST  234 

10,2221 

0 4763 

1 

TC 

MAGSUB 

SEE  IF  WITHIN 

LMITS. 

0258 

10,2222 

77177 

0 

-rrlimit  dec 

-384 

0259 

REF 

1 

10,2223 

1 2241 

0 

TCF 

RROUTLIM 

LIMIT  COMMAND 

TO  MAG  OF  384. 

0260 

REF 

29 

LAST 

235 

10,2224 

3 0065 

1 

SETRRCTR  CA 

ITEMPl 

COUNT  OUT  DIFFERENCE  BETWEEN  DESIRED 

0261 

REF 

14 

LAST 

235 

10,2225 

50  066 

1 

INDEX 

ITEMP2 

STATE  AND  PRESENT  STATE  AS  RECORDED  IN 

0262 

REF 

5 

LAST 

232 

10,2226 

56  362 

0 

XCH 

lastycmd 

LASTYCMD  AND  LASTXCMD 

0263 

10,2227 

4 0000 

0 

COM 

0264 

REF 

30 

LAS  1 

235 

10,2230 

6 0065 

1 

AD 

ITEMPl 

0265 

REF 

15 

LAS  1 

235 

10,2231 

50  066 

1 

INDEX 

ITEMP2 

0266 

REF 

2 

LAST 

166 

10,2232 

54  053 

0 

T5 

OPTYCMD 

0267 

REF 

1 6 LAST  235 

10,2233 

10  066 

0 

CCS 

ITEMP2 

PR0CES5  BOTH  INPUTS, 

0268 

REF 

1 

10,2234 

1 2215 

1 

TCF 

RR0UT2 

0269 

REF 

1 

10,2235 

3 4506 

0 

CAF 

PR  1 06 

enable  counters. 

0270 

10,2236 

0 0006 

1 

EXTEND 

0271 

10,2237 

05  014 

1 

WOR 

14 

0272  REF  54  LAST  234  10,2240  0 0001  0 TC  L RETURN. 


' 0273  REF  31  LAST  23 5 1 0 ,22 4 1 10  065  0 RROUTLIM  CCS  ITEMPl 

0274  REF  1 10,2242  4 2222  0 CS  -RR LIMIT 

0275  10,2243  1 2245  1 TCF  +2 

0276  REF  2 LAST  2 35  T07T2<f4  3 2222  1 CA -RRLIMIT 

0277  REF  32  LAST  235  10,2245  54  065  0 TS TTEMFI 

0278  REF  1 10,2246  1 2225  1 TCF  SETRRCTR  +1 


LIMIT  COMMAND  TO  ABS  VAL  OF  384. 
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L.0 001  RADAR  lead-in  ROUTINES  _ _ USER  * S OWN  PAGE  NO#  10 

PQ279  ROUTINE  TO  ZERO  THE  RR  CPUS  AND  DETERMINE  THe  ANTENNA  MODE. 


0230 

10.2247 

0 0004  0 RRZERO 

INHINT 

RRUSEFLG 

02al 

REF 

2 

LAST 

230 

10,2250 

4 7651  0 

CS 

SET  FLAG  TO  SHOW  SOMEONE  USING  THE  RR. 

0282 

“ RTF 

1 5 

LAST 

2 30 

10,2251 

7 0061  1 

MASK 

STATE 

0283 

~~  REF 

3 

LAST 

236 

10,2252 

6 7651  1 

AD 

RRUSEFLG 

0284 

REF 

16 

LAST 

236 

10,2253 

54  061  1 

TS 

STATE 

0285 

REF 

16 

LAST 

232 

10,2254 

3 7657  1 

CAF 

B1T1 

SEE  IF  RR  COMING  UP,  IF  SO,  TURNON 

0286 

REF 

36 

LAST 

234 

10,2255 

7 0413  0 

MASK 

RADMODES 

PROGRAM  WILL  DO  THE  WORK, 

0287 

“REF 

157 

LAST 

235 

10,2256 

10  000  0“ 

CCS 

A 

0288 

REF 

1 

10,2257 

1 2302  0 

TCF 

ROADBACK 

0289 

REF 

14 

LAST 

232 

10 « 2260 

3 7645  1 

CAF 

6IT11 

SEE  IF  MONITOR  REPOSITION  IN  PROGRESS, 

0290 

REf 

37 

last 

236 

10,2261 

7 0413  0 

mask 

RAqMOdES 

IF  SO,  dONT  RE-ZERO  CDUS. 

0291 

REF 

158 

LAST 

236 

10,2262 

10  000  0 

CCS 

A 

0292 

REF 

1 

10,2263 

1 3227  1 

TCF 

RADNOOP 

(IMMEDIATE  TASK  TO  RGOCDeND) . 

0293 

REF 

16 

LAST  23l 

10,226“+ 

4 7643 

0 

ch 

B I T 1 3 

SET  FLAG  TO  SHOW  ZEROING  IN  PR0GRE5S. 

0294 

REF 

38 

LA51  236 

10,2265 

7 0413 

XT 

IASk 

RADMODES 

0295 

REF 

17 

LAST  236 

10,2266 

6 7643 

1 

AD 

BIT13 

0296 

RtF 

39 

LAS i 236 

10,2267 

54  413 

0 

TS 

RADMODES 

0297 

REF 

45  LAST  235 

10,2270 

3 7657  1 

CAF 

ONE 

0298 

REF 

20  LAST  220 

10,2271 

0 4536  0 

TC 

WAITLIST 

0299 

10,2272 

02304  1 

2CADR 

RKZ2 

C0299 

REF 

1 

10,2273 

20003  0 

0300 

REF 

4U  LAST  236 

lU  ,2274 

4 0413  0 

CS 

RADMODES 

5EE  IF  IN  AUTO  MODE, 

0301 

RtF 

1 9 TA5T2TZ 

lu , 2275 

“776561 

MASK  ' 

BIT2 

0302 

REF 

159  LA5 1 236 

10,2276 

10  000  0 

CCS 

A 

0303 

REF 

2 LAST  236 

10,2277 

1 2302  0 

TCF 

ROADBACK 

0304 

REF 

18  EA5T  232 

10,2300 

0 5413  1 

“ TC  - 

ALARM 

AUTO  DISCRETE  NOT  PRESENT  - TRYING  “ 

0305 

10,2301 

00510  0 

OCT”' 

510 

0306 

10,2302 

0 0003  1 

ROADBACK  RELINT 

~U307 

REF 

6 LAST  218 

10,2303 

1 4076  0 

“TCF  - 

SWRETURN 

0308  REF  2 LAST  230  10,2304  0 2013  1 RRZ2  IX RRZEROSB  COMMON  TO  TURNON  AND  RRZERO. 

“03T9  REF  2“LA“5T“2T0“  10723X5  I““3235  1 TCF ENDRADAR 


0310  RtF  11  LAST  225  RRUSEFLG  EQUALS  B JT7 

X3TI  RTF  7 1AST  222  7653 — LUKUNFLG  EQUALSETTT 


473423A  YJL  SYSiE-i  FOR  E)LK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOv  10*  1966  (MAIN)  PAGE  237 


LOOOl 

RADAR 

LEAD-IN  ROUTINES 

USER'S  O/JN  PAGE  NO.  n 

P0312 

STABLE-MEMBER  rr  desi 

GNATE  ROUTINE.  DESI 

, oNATE 

TO  A SM  L05 

VECTOR  (HALF-UNIT)  IN  RRTARGET.  REMODES  IF 

R0314 

RtQxrnrEirri^ETORNS 

TO  CALLER  IF 

, MANEUVER  REQUIRED  FOR  DES  AND  SKIPS 

IT  CAN  BE  DONE  IN  PRESENT  VEH  ATTITUDE. 

0316 

10.2306 

43030 

0 RRDESSM 

STQ 

CLEAR 

0317 

REF 

2 

LAST  16 

10,2307 

00427 

0 

desret 

0318 

REF 

1 

10,2310 

00271 

0 

RRNBSW 

0319 

10,2311 

66224 

0 

RTB 

SSP 

READ  CDUS  FOR  SMNB. 

0320 

REF 

1 

10.2312 

33361 

0 

READCDUS 

0321 

REF 

2 

LAST  117 

10,2313 

00051 

0 

SI 

0322 

10,2314 

00024 

1 

200 

0323 

10,2315 

22025 

D 

STOVL 

200 

0324 

REF 

1 

10,2316 

00416 

1 

RRTARGET 

0325 

10,2317 

36041 

1 

STCALL 

320 

0326 

REF 

1 

10,2320 

32473 

0 

SMNB 

0327 

10,2321 

77634 

0 

CALL 

GET  RR  GIMBAL  ANGLES  IN  PRESENT  AND 

0328 

REF 

1 

10,2322 

33267 

1 

RRANGLES 

ALTERNATE  MODE, 

0329 

10,2323 

77776 

1 

EXIT 

O33O 

10,2324 

0 0004 

0 

INHINT 

0331 

REf 

2 

LAsT  180 

10,2325 

0 4777 

1 

TC 

RRlimchk 

0332 

REF 

1 

10,2326 

00423 

1 

AORES 

modea 

CONFIGURATION  FOR  CURRENT  MODE. 

0333 

REF 

1 

10,2327 

1 2351 

XT  ~ 

TCF 

TRYSWS 

0334 

REF 

3 

LAST  237 

10,2330 

24  427 

0 OKDESSM 

INCR 

desret 

INCREMENT  SAYS  NO  VEHICLE  MANEUVER  RED, 

C 
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L0001  _.  RADAR  LEAD-IN  ROUTINES  USER’S.  OWN  PAGE  NO,  12 

PG335  AT"  THIS  POINTW^ARE  READY  TO  "BEGIN  DESIGNATION^  THE~TARgET  IS  STORED  AS  A HALF-UNIT  VECTOR  IN  RRTAR^ET 

RC337  a I Th  R'RHBS'W  SgTTF  "IT  IS  REFERRED  TO  NAV  8ASe  AXeS.  LOKONSW  IS~5eT  IF  LoCKON  IS  DESIRED,  BIT14  OF  RADMOoeS  IS 

r o 339  set  if  a tremode  is  required.  a,t  this  t it*te , the"  antenna  may  be  th  a monitor  Reposhion  operation,  in  this 

RG341  CASE*  IF  A REMODE  IS  REQUIRED  IT  MAY  HAVE  ALREADY  BEGUN  BUT  IT  ANY  CASE  THE  REPOSITION  WILL  Be  INTERRUPTED, 

R01S43 OTHERWISE*  THE HREPOS IT  ION  W rCUTSF'COMPLETED  BEFORE  2-AXIS  DESIGN TTON  BEGINS, 


03A5  REF  1 10,2331  3 2350  0 STARTDES  CAF  MAXTRIE5  ALLOW  30  SECS. 

0346  REf  I 54-  430  1 TS  pEScOUNT" 


0347 

REF 

19 

LAST 

232 

10,2333 

3 7646 

1 

CAF 

BIT10 

SHOW  DESIGNATE  REQUIRED, 

0348  REF 

236 

10,2334 

26  413 

0 

ADS 

radmodes 

0349 

REF 

15 

LAS  1 

236 

10 ,2335 

7 7645 

0 

MASK 

BITll 

SEE  II-  REPOSITION  IN  PRQGRE5S. 

0350 

REF 

lbO 

LAST 

236 

10,2336 

10  000 

0 

CCS 

A 

0351 

"REF 

1 

10,2337 

1 2345 

0 

TCF 

desretrn 

ECTR  ALREADY  SET  UP. 

0352  REF  2 LAST  232  10,2340  0 2106  1 TC  SETRRECR  ""  SET  UP  ERROR  COUNTERS. 


0353 

REF 

23  LAST  218 

10,2341 

3 7656  0 

CAF 

TWO 

0354 

REF 

21  LAST  236 

10,2342 

0 4536  0 

r c 

WAITLIST 

"0355 

10,2343 

02422  1 

2CADR 

BEGDES 

C0355 

REF 

2 LAST  232 

10,2344 

20003  0 

0356 

10,2345 

0 0003  1 

DESRETRN 

relint 

RETURN  VIA  DeSRET 

~0357 

R"EF 

4 LAST  23T 

10,2346 

3 0427  0 

+ 1 

CA 

DESRET 

0358 

REF 

2 LAST  118 

10,2347 

1 4105  0 

TCP 

BANK JUMP 

035*? 

10,2350 

OOO74  1 

MAXTRIES 

DEC 

60 

*73*23A  YJL  SYSTEM  FOR  BLK2J  RtVISIOM  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  239 

L0001 

RADAR 

LEAD-Il' 

1 ROUTINES 

USER'S  OwN  PAGE  NO.  13 

P0360 

SEE 

IF  RRDeSSM  CAN  Si 

; ACCOMPLISHED  AFTER  A ReMODe. 

0361 

REF 

2 

LAST 

233 

10,2351 

0 21*2  1 

TRYSWS 

TC 

RMODINV 

(NOTE  RUPT  INHIBIT) 

0362 

REF 

3 

LAST 

237 

10,2352 

0 *777  1 

T C 

RRLIMCHK 

TRY  DIFFERENT  MODE. 

0363 

REF 

2 

LAST 

16 

10,2353 

00*25  1 

ADRES 

MODEB 

036* 

REF 

1 

10,235* 

1 2361  0 

TCF 

NODESSM 

VEHICLE  MANEUVER  REQUIRED. 

0365 

REF 

3 

LAST 

239 

10,2355 

0 21*2  1 

TC 

RMODINV 

RESET  BIT12 

0366 

REF 

26 

last 

233 

10,2356 

3 76*2  0 

CAf 

BIT1* 

SET  FLAG  FOR  REMOpE. 

0367 

REF 

*2 

LAST 

238 

10,2357 

26  *13  0 

ADS 

RADMODES 

0368 

REF 

1 

10,2360 

1 2330  1 

TCF 

OKDESSM 

0369 

REF 

* 

LAST 

239 

10,2361 

0 21*2  1 

NODESSM 

TC 

RMODINV 

RE-INVERT  MODE  AND  RETURN  WITHOUT  IN- 

0370  REF  2 LA5T  238  10,2362  1 23*5  0 TCF  DEsRETRN  CREMENTING  DEsRET 
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> 


L0001 


P P3  7.1 


R0373 


RADAR TEAD-iN  ROUTINES  USER’S.  OWN  PAGE  NO.  14 

Designate  to  specific  rr  gimbal  angles  (inDePenDeNtoF  vehicle  motion),  enter  with  deSired  angles  in 

TANG  AND  TANG  +1. 


0374 

10,2363 

77430 

0 

RRDESNB 

STO  EXIT 

ENTER  IN  INTERP,  - EXIT  IN  BASIC, 

0375 

REF 

5 

LAST 

238 

10,2364 

00427 

0 

DESRET 

0376 

10,2365 

0 0004 

0 

INHINT 

SEE  IF  CURRENT  MODE  0^, 

0577 

REF 

4 

LAST 

239 

10,2366 

0 4777 

1 

TC  RRLIMCHK 

0378 

REF 

4 

LAST 

235 

10,2367 

00423 

1 

ADRES  TANG 

0379 

REF 

1 

10,2370 

1 2402 

1 

TCF  TRYSWN 

SEE  IF  IN  OTHER  MODE, 

0380 

10,2371 

0 0003 

1 

OKDESNB 

RELINT 

0361 

REF 

4 

LAST 

54 

10,2372 

0 6000 

1 

TC  INTPRET 

0382 

10,2373 

77634 

0 

CALL 

GET  LOS  IN  NB  COORDS, 

0383 

REF  1 

10,2374 

33243 

1 

RRNB 

0384 

RET  2 LAST  237 

10,2375 

00416 

1 

"STORE 

RRTARGET 

[| 

0385 

10,2376 

77414  0 

SET 

EXIT 

N0366  REF  2 LAST  237 

10,2377 

00071  1 

RRNBSW 

0387 

10,2400  0 0004  0 

INHINT 

0388  "REF  r 

10,2401  1 2331  0~“ 

TCF  STARTDES 

0389 

REF 

5 

LAST  239 

10,2402 

0 2142 

1 TRYSWN" 

TC 

RMODINV 

SEE  IF  OTHER  MODE  WILL  DO, 

0190 

REF 

5 

LA5T  240 

10,2403 

0 4777 

T 

T C 

RRLIMCHK 

0391 

REF 

5 

LAST  240 

10,2404 

00423 

1 

ADRES 

TANG 

0392 

REF 

1 

10,2405 

1 2412 

0 

TCF 

NODESNB 

NOT  POSSIBLE, 

0393 

REF 

6 

LAST  240 

10,2406 

0 2142 

1 

TC 

RMODINV 

0394 

REF 

27 

LAST  239 

10,2407 

3 7642 

0 

CAF 

BIT14 

CALL  FOR  REMODE. 

0395  REF 

43 

LASTZ39 

10,2410 

26  413 

~cr 

ADS 

RADMODES 

U396 

REF 

1 

10,2411 

1 2371 

l 

TCF 

OKDESNB 

0397 

REF 

17 

LAST  236 

10,2412 

3 7657 

1 N0DESN6 

CAF 

B IT  1 

CALL  FOR  ERROR  RETURN. 

0398 

ref 

22 

LAST  238 

10,2413 

0 4536 

0 

TC 

waitlist 

0399 

10,2414 

03251 

1 

2CADR 

RDBADEND 

CC399 

REF 

1 

10,2415 

"20003 

"0  "" 

0400 

KEF 

7 

LAST  240 

10,2416 

0 2142 

1 

TC 

RMODINV 

040  1 

REF 

19 

LAST  236 

10,2417 

0 5413  1 

TC 

ALARM 

BAD  GIMBAL  ANGLE  INPUTS, 

0402 

10,2420 

00502 

"0 

“OCT" 

" 502 

0403 

ref 

3 

LAST  239 

10,2421 

1 2346 

0 

TCF 

desretrn  +1 

ALARM  DID  A RELINT . 

i 

< 


i 
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I 


/ 


L0001  RADAR  LEAD- 1 N ROUTINES  USER'S  OWN  PAGE  NO,  15 


PU404  WAlTLlST  TASKS  TO  RUN  RR  DESIGNATION* 


0405 

REF 

28 

LAST 

240 

10,2422 

3 7642 

0 

BEGDES 

CAF 

BIT14 

ENTER  HERt  FROM  STARTDES  OR  REPDSRPT. 

0406 

REF 

44 

LAST 

240 

10,2423 

7 0413 

0 

MASK 

RADMODES 

SEE  IF  REMODE  REQUIRED, 

0407 

REF 

161 

LrtSr 

238 

10,2424  10  000 

0 

CCS 

A 

0408 

REF 

1 

10,2425 

1 2115 

1 

TCF 

REMODE 

0409 

REF 

2 

LAST 

233 

10,2426 

1 2431 

1 

TCF 

STDESIG 

0410 

REF 

7 

LAST 

234 

10,2427 

0 4554 

1 

DESLOOP 

TC 

FIXDELAY 

2 SAMPLES  PER  SECOND, 

0411 

10,2430 

00062 

0 

DEC 

50 

0412 

REF 

16 

LAST  238 

10,2431 

3 

7645 

1 

STDESIG  CAF 

BITll 

ENTRY  FROM  BEGDES  AND  REMODE, 

0413 

REF 

45 

LAST  241 

10,2432 

7 

0413 

0 

MASK 

RADMODES 

SEE  IF  GIMBAL  LIMIT  MONITOR  HAS  FOUND  US 

0414 

REF 

162 

LAST~241 

10,2433 

10 

000 

0 

CCS 

A 

OUT  OF  BOUNDS.  IF  SO,  THIS  BIT  SHOWS  A 

0415 

REF 

1 

10,2434 

I 

2454 

1 

TCF 

BADDES 

REPOSITION  TO  BE  IN  PROGRESS, 

0416 

REF  46  LAST  241 

10,2435 

10 

413 

0 

CCS 

RADMODES 

SEE  IF 

CONTINUOUS  DESIGNATE  WANTED, 

0417 

10,2436 

I 

2441 

0 

TCF 

+ 3 

IF  SO, 

DONT  CHECK  BIT  10  TO  SEE  IF  IN 

0416 

10,2437 

1 

2441 

0 

TCF 

+ 2 

LIMITS 

BUT  GO  RIGHT  TO  F1NDVAC  ENTRY, 

0419 

REF  1 

10,2440 

1 

2461 

1 

TCF 

MOREDES  +1 

0420 

REF 

47 

LAST 

241 

10,2441 

4 0413  0 

CS 

RADMODES 

IF  NON-CONTINUOUS,  SEE  IF  END 

OF 

0421 

REF 

20 

LAST 

238 

10,2442 

7 7646  0 

MASK 

BIT10 

PROBLEM  (DATA  GOOD  IF  LOCK-ON 

WANTED  OR 

0422 

REF 

163 

LAST 

241 

10,2443 

10  000  0 

CCS 

A 

WITHIN  LIMITS  IF  NOT) . IF  SO, 

EXIT  AFTER 

0423 

REF 

3 

LAST 

236 

10 ,2444 

1 3235  1 

TCF 

ENDRADAR 

CHECKING  RR  CDU  FAIL, 

0424 

REF 

2 LAST  238 

10,2445 

10  430  1 

CCS 

DESCOUNT 

SEE  IF  TIME  LIMIT  HAS  EXPIRED. 

0425 

ref 

2 LAST  241 

10,2446 

1 2460  0 

TCF 

M0KEDE5 

0426 

REF 

20  LAST  240 

10,2447 

0 5413  1 

TC 

alarm 

OUT  OF  TIME, 

0427 

10,2450 

00503  1 

OCT 

503 

" 0428 

REF 

1 

10,2451 

4 2466  0 

CS 

B14+B2 

IF  OUT  OF  TIME,  REMOVE  ECR  ENABLE  + TRKR 

0429 

10,2452 

0 0006  1 

EXTEND 

0430 

10,2453 

03  012  1 

WAND 

12 

0431 

REF 

21  LAS1  241 

10,2454 

4 7646  0~  BADDES 

CS 

BIT  10 

REMOVE  DESIGNATE  FLAG. 

0432 

REF 

48  LAST  241 

10,2455 

7 0413  0 

MASK 

RADMODES 

0433 

REF 

49  LAST  241 

10,2456 

54  413  0 

TS 

RADMODES 

0434 

REF 

2 LAST  240 

10,2457 

1 3251  0 

TCF 

RDBADFND 

0435 

REF 

3 

LAST 

241 

10,2460 

54  430 

1 

MOREDES  TS 

DESCOUNT 

0436 

REF 

1 

10,2461 

3 4524 

0 

CAF 

PR  102 6 

UPDATE  GYRO  TORQUE  COMMANDS. 

0437 

REF 

2 

LA51 

1 52 

10,2462 

0 4374 

0 

TC 

FINDVAC 

0438 

10,2463 

02467 

0 

2CADR 

DODES 

C0438 

REF 

1 

10,2464 

20003 

cr 

0439 

REF 

1 

10,2465 

1 2427 

0 

TCF 

DESLOOP 

°A40  10,2466  20002  1 BT4“+B'2  OCT 2000T 
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LOOOI 

RADAR 

Lt AD—  I i'N  ROUTINES 

USER'S  OWN 

PAGE  NO, 

16 

P0441 

CALCULATE 

GYRO  TORQJ: 

. COMMANDS, 

0442 

10*2467 

0 0006  1 DODES 

EXTEND 

0443 

ref 

5 

LAST 

234 

10,2470 

3 0036  1 

DCA 

OpTY 

0444 

REF 

6 

LAST 

240 

10,2471 

52  424  1 

DXCH 

TANG 

0445 

REF 

5 

LAST 

240 

10,2472 

0 6000  1 

TC 

INTPRET 

0446 

10,2473 

77775  1 

VLOAD 

MOvt  TARGET 

VECTOR  TO 

32D, 

0447 

REF 

3 

LAST 

240 

10,2474 

00416  1 

RRTARGET 

0448 

10,2475 

00041  1 

STORE 

32D 

0449 

10,2476 

45014 

0 

SON 

RTB 

DO  STABLE-MEMBER  TO  NAV6ASE  TRANSFORMA- 

0450 

REF 

3 

LAST 

240 

10,2477 

00311 

1 

RRNBSW 

TION  IF  TARGET  IN  SM  COORDS,  OTHERWISE, 

0451 

REF 

1 

10,2500 

20507 

1 

DONBRD 

IN  NB  C00RD5  ALREADY, 

0452 

REF 

2 

LAST 

237 

10,2501 

33361 

0 

READCDUS 

0453 

10,2502 

77731  1 

SSP 

0454 

REF 

3 LAST  237 

10,2503 

00051  0 

SI 

0455 

10,2504 

00024  1 

20D 

LOC  OF  ICDUS. 

0456 

10,2505 

36025  0 

STCALL  20D 

0457 

REF 

2 LAST  237 

10,2506 

32473  0 

SMNB 

► 


► 


> 

I 


> 


> 


473423A 

YJL 

SYSTEM  FOR  BLK2; 

REVISION 

12  OF  PROGRAM  AURORA  BY  1 

DAP  GROUP 

NOV  10,  1966  (MAIN) 

PAGE  243 

L0001 

RADAR  Lt AD-IN  ROUTINES 

USER'S  OWN  PAGE  NO.  i7 

0458 

10,2507 

67201  0 

DONBRD  SETPD 

SLOAD 

DO  NAVBASt  TO  RADAR  DI5H  TRANSFORMATION, 

0459 

10,2510 

00001  0 

0 

0460 

REF 

7 LAST  242 

10,2511 

00425  1 

TANG  *1 

0461 

10,2512 

41424  0 

RTB 

PUSH 

SHAFT  COMMAND  = V (32D) . (COS (S)  . 

0, 

0462 

REF 

1 

10,2513 

33345  0 

COULOGIC 

(-sun  (s> ) . 

0463 

10,2514 

65356  1 

SIN 

PDDL 

SIN (S)  TO  0 AND  COS(S)  TO  2, 

0464 

10,2515 

41546  0 

COS 

PUSH 

0465 

10,2516 

65205  0 

DMP 

PDDL 

0466 

10,2517 

00041  1 

32D 

0467 

10,2520 

00045  0 

36D 

0468 

10,2521 

44205  0 

DMP 

BOSU 

0469 

10,2522 

00001  0 

0 

0470 

10,2523 

77626  0 

STADR 

0471 

REF 

8 LAST  243 

10,2524 

77352  0 

STORE 

TANG  +1 

SHAFT  COMMAND 

0472 

10,2525 

45135 

1 

SLOAD 

RTB 

0473 

REF 

9 LAST  243 

10,2526 

00424 

0 

TANG 

0474 

REF 

2 LAST  243 

10,2527 

33345 

0 

CDULOGIC 

0475 

10,2530 

71406 

0 

PUSH 

COS 

COS  (T)  TO  4. 

0476 

10,2531 

73525 

T 

PDDL 

SIN 

0477 

10,2532 

41206 

0 

PUSH 

DMP 

SIN ( T ) TO  6. 

0478 

10,2533 

00003 

1 

2 

0479 

10,2534 

65352 

0 

SLl 

PDDL 

DEFINE  VECTOR  U = 

(SIN(T)SIN(S) ) 

0480 

10,2535 

00005 

1 

4 

(COS  (T ) ) 

0461 

10,2536 

41325 

0 

PDDL 

DMP 

(SIN  U ) COS (S) ) 

0482 

10,2537 

00007 

0 

6 

0483 

10,2540 

00001 

0 

0 

0484 

10,2541 

55552 

0 

SLl 

VDEF 

0485 

10 ,2542 

77441 

0 ~ 

“DOT 

“ EXIT 

DOT  U WITH  LOS  TO 

GET  TRUNNION  COMMAND, 

0486 

10,2543 

00041 

1 

32D 

LO 
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LC001  RADAR  LEAD-iN  ROUTINES  USER «S  OWN  PAGE  NO*  18 

P04B7  AT  THIS  POINT  WE  HAVE  A ROTATION  VECTOR  IN  DISH  AXES  LYING  IN  jHe  TS  PLANE.  CONVERT  THIS  JO  A 

R0489  COMMANDED  RaTT^NCT" [FABLE  THE  TICKER  IF  WE  ARE  WITHIN  1 DEGREE  OF  THE  TARG E T . 


0491 

REF 

4O5 

LAST 

225 

10,2544 

4 0140 

0 

cs 

MPAC 

DOT  WAS  NEGATIVE  OF  DESIRED  ANGLE. 

0492 

REF 

10 

last 

IV 

kx) 

10,2545 

54  423 

0 

TS 

TANG 

0493 

REF 

50 

LAST 

241 

10,2546 

4 0413 

0 

cs 

RADMODES 

A RELAY  IN  THE  RR  REVERSES  POLARITY  OF 

0494 

REF 

14  LAST  233 

10,2547 

7 7644 

1 

MASK 

BIT12 

THE  SHAFT  COMMANDS  IN  MODE  2 SO  THAT  A 

0495 

REF 

164 

LAST 

241 

10,2550 

10  000 

0 

CCS 

A 

POSITIVE  TORQUE  APPLIED  TO  THE  SHAFT 

0496 

10,2551 

1 2554 

0 

TCF 

+ 3 

GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 

0497 

REF 

11 

LAST 

244 

10,2552 

4 0424 

1 

CS 

TANG  *1 

SHAFT  ANGLE.  COMPENSATE  FOR  THIS  SWITCH 

0498 

REF 

12 

LAs  r 

244 

10,2553 

54  424 

1 

TS 

TANG  +1 

by  changing  the  polarity  of  our  command. 

0499 

REF 

85 

last 

234 

10,2554 

3 7665  0 

CAF 

ZERO 

0500 

REF 

406 

LAST 

244 

10,2555 

54  141  1 

TS 

MPAC  +1 

0501 

' REF 

A6 

LAST 

236 

10,2556 

3 7657  1 

CAF 

ONE 

0502 

REF 

4O7  LAST  244 

10,2557 

54  140 

0 

RRSCALUP  TS 

MPAC 

0503 

REF 

165  LAST  244 

10,2560 

50  000 

1 

INDEX 

A 

O5O4 

REF 

13  LAST  244 

10,2561 

3 0423 

1 

CA 

TANG 

TRUNNION  COMPONENT  OF  ROTATION. 

0505 

10,2562 

0 0006 

1 

EXTEND 

0506 

REF 

1 

10 ,2563 

7 2635 

1 

MP 

RDESGAIN 

SCALING  UN  INPUT  ANGLE  WAS  4 RADIANS. 

0507 

REF 

408  LAST  244 

10,2564 

50  140 

1 

INDEX 

MPAC 

0508 

RtF 

14  LAST  244 

10,2565 

56  423 

1 

XCH 

TANG 

MAKE  EACH  COMPONENT  LESS  THAN  .7  DEGREES 

0509 

TREF 

8 LAS  1 235 

10 ,2566 

0 4763 

r 

MAGSUB 

BEFORE  SENDING  TRACK  cNABLE. 

0510 

10,2567 

77715 

1 

DEC 

-.00305 

0511 

REF 

409  LAST  244 

10,2570 

24  141 

0 

I NCR 

MPAC  +1 

IF  OUT  OF  BOUNDS, 

0512 

RtF 

410  LAST  244 

10,2571 

10  140  0 

CCS 

MPAC 

0513 

REF 

1 

10,2572 

1 2557 

0 

TCF 

RRSCALUP 
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L0001  rAOAr  LEAD-iN  ROUTINES  user's  Own  page  NO.  19 

P0514  SEE  IF  TRACKER  should  3e  enabled  or  disabled. 


0515 

10,2573 

O 

c 

0 

0 

0 

INHINT 

0516 

REF  51  LAST  244 

10,2574 

10  413 

0 

CCS 

RADMODES 

IF  CONTINUOUS  DESIGNATE  WANTED,  PUT 

OUT 

0517 

10,2575 

1 2600 

1 

TCF 

+ 3 

COMMANDS  WITHOUT  CHECKING  MAGNITUDE 

OF 

0518 

10,2576 

1 2600 

1 

TCF 

+ 2 

ERROR  SIGNALS, 

0519 

REF  1 

10,2577 

1 2625 

0 

TCF 

TRKOFF 

0520 

REF 

411 

LAST 

244 

10,2600 

10  141  1 

CCS 

MPAC  +1 

SEE  IF  BOTH  AXES  WERE  WITHIN  .7  DEGS. 

0521 

REF 

2 

last 

245 

10,2601 

1 2625  0 

TCF 

TRKOFF 

0522 

REF 

17 

LAST 

236 

10,2602 

4 0061 

1 

CS 

STATE 

IF  WITHIN  LIMITS  AND  NO  LOCK-ON  WANTED, 

0523 

REF 

1 

10,2603 

7 7653 

1 

MASK 

LOKONFLG 

problem  is  finished. 

0524 

REF 

1 66 

LAST 

244 

10,2604 

10  000 

0 

CCS 

A 

0525 

REF 

1 

10,2605 

1 2616 

0 

TCF 

rrdesdun 

0526 

REF 

29 

LAST 

241 

10,2606 

3 7642 

0 

CAF 

BIT14 

ENABLE  THE  TRACKER. 

0527 

10,2607 

0 0006 

1 

EXTEND 

0528 

10,2610 

05  012 

1 

WOR 

12 

0529 

REF 

16 

LAST 

229 

10,2611 

3 7654 

1 

CAF 

BIT4 

SEE  IF  DATA  GOOD  RECEIVED 

YET. 

0530 

10,2612 

0 0006 

1 

EXTEND 

0531 

10,2613 

02  033 

0 

RAND 

33 

0532 

REF 

167 

LA5T 

245 

10,2614 

10  000 

0 

CCS 

A 

0533 

REF 

1 

10,2615 

1 2630 

1 

TCF 

DORROUT 

0534 

REF 

22 

LAST 

241 

10,2616 

4 7646 

0 RRDESDUN  CS 

BIT10 

WHEN  PROBLEM  DONE,  REMOVE 

BIT  10  SO  NEXT 

0535 

REF 

52 

LA5T  245 

10,2617 

7 0413 

0 

MASK 

RADMODES 

WAITLIST  TASK  WE  WILL  GO 

TO  RGOODEND, 

0536 

REF 

53 

LASi 

245 

10,2620 

54  413 

0 

TS 

RADMODES 

0531  REF  Z0~  LAST  236  ~ TO ,2621 

0538  10,2622 

0539  10,2623 

0540  REF  8 LA5T  225  10,2624 

0541  REF  30  LAST  245  10,2625 

054"2  rO>Z626 

0543  10,2627 


4 7656“!  C5  BTT2 

0 0006  1 EXTEND 

03  012  1 WAND  12 

1 44401  TCF~~  ENDOFJOB 


4 7642  1 TRKOFF  CS  BIT14 

0 0006  I EXTEND'  " 

03  012  1 WAND  12 


VTTH  ECTR  DISABLED. 


0544  “REF  54  LAST  24E 

0545  REF  17  LAST  241 

0546  REF  168  LAST  245 

0547  REF  2 LAST  234 

0548  REF  9 LAST  245 

0549 


1 0 , 2630  4 041 3 0 DORROUT  CS 


10.2631  7 7645  0 MASK 

10.2632  10  000  0 CCS 

10.2633  0 2213  0 TC 

10.2634  1 4440  1 TCF 


10,2635  21122  0 RDESGAIN  DEC 


RADMODES 

Brm 

A 

RROUT 

ENDOFJOB 

•53624 


PUT  OUT  COMMAND  UNLE55  MONITOR 
REPOSITION  HAS  TAKEN  OVER. 


TRIES  TO  NULL  .5  ERROR  IN  .5  SEC. 


Cl 
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L.0001  RADAR  LEAD-IN  ROUTINES  USER'S  OWN  PAGF~NO.  20 

P0550  RADAR  READ  INITIALIZATION 

R0551  RADAR  DATA  aRe  READ  BY  A BANCALL  FQR~fHE~APPRQPRiATE  LEAD-IN  BeLOW, 


0552 

ref 

X 

10,2636 

0 2652  1 

LrALT 

TC 

LNITrEAD  -1  0~n"E  SAMPLE  PER  READING* 

0553 

10,2637 

00017  1 

ALLREAD 

OCT 

17 

0554 

REF 

2 

LAST 

246 

10,2640 

0 2653  0 

LRVELZ 

TC 

INITREAD 

0555 

10,2641 

00016  0 

OCT 

16 

0556 

REF 

3 

LAST 

246 

10,2642 

0 2653  0 

LRVELY 

TC 

INITREAD 

0557 

10,2643 

00015  0 

OCT 

15 

0558  REF  4 LAST  246 

10,2644 

0 2653  0 LRVELX 

TC 

INITREAD 

0559 

10,2645 

00014  1 

OCT 

14 

0560 

REF 

5 LAST  246 

10,2646 

0 2652 

1 

RRRDOT 

TC 

INITREAD  -1 

0561 

10,2647 

00012 

1 

OCT 

12 

0562 

REF 

6 LAST  246 

10,2650 

0 2652 

1 

RRRANGE 

TC 

INITREAD  -1 

0563 

10,2651 

00011 

1 

OCT 

11 
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L0001 

RADAR-  LEAD-IN  ROUTINES 

USER'S  OWN  PAGE  NO, 

21 

0564 

ref 

47  LAST  244 

lU  * Zb5Z 

3 7657 

1 

-1 

CAF 

ONE 

ENTRY  TO  TAKE  ONLY  1 

SAMPLE. 

0565 

10,2653 

0 0004 

0 

INITREAD 

inhint 

0566 

REF 

1 

10,2654 

54  421 

1 

TS 

timehqld 

GET  DT  OF  MIDPOINT  OF 

NOMINAL  SAMPLING 

0567 

10,2655 

0 0006 

1 

EXTEND 

INTERVAL  (ASSUMES  NO 

BAD  SAMPLES  WILL  BE 

0568 

REF 

3 LAST  222 

10,2656 

7 7655 

1 

MP 

BIT3 

ENCOUNTERED) , 

0569 

REF 

2 LAST  247 

10,2657 

52  422 

1. 

DXCH 

timehold 

0570 

REF 

169  LAST  245 

10  f 2660 

10  000 

0 

CCS 

A 

0571 

REF 

1 

10,2661 

54  425 

0 

TS 

NSAmP 

0572 

REF 

48  LAST  247 

10,2662 

6 7657 

1 

AD 

ONE 

R0573 

insert  1 

-OLLOWING  INSTRUCTION  TO 

GET  2N 

TRIES  FOR  N SAMPLES, 

A0574 

DOUBLE 

0575 

REF 

2 LAST  158 

10,2663 

54  414 

1 

TS 

samplim 

0576 

REF 

1 

10,2664 

3 2706 

1 

CAF 

DGBITS 

READ  CURRENT  VALUE  OF 

DATA  GOOD  BITS, 

0577 

10,2665 

0 0006 

1 

EXTEND 

0578 

10,2666 

02  033 

0 

RAND 

33 

0579 

REF 

1 

10,2667 

54  427 

1 

TS 

OLDATAGD 

0580 

REF 

1 

10,2670 

4 2637 

0 

cs 

ALLREAD 

0581  10,2671  0 0006  1 EXTEND 

"0512  10,2672  '03  013  0 SAND  13  REMOVE-  A LITTRADAfi  Bl TS 


0583  REF  132  LAST  235  10,2673  50  002  0 “INDEX- GT" 

U5BA  10,2674  rUOOO“I  CAT  S~"“ 

0585  10,2675  0 0006  1 EXTEND 

0586  10,2676  05  013  0 WOR  fg  SET  NEW  RADAR  BITS 


05e7 

10,2677 

0 0006 

I 

EXTEND 

0568 

REF 

2 

LAST  222 

10,2700 

3 0025 

0 

DCA 

TIME2 

0389 

“RtF 

3 

LAST  247 

10,2701 

20  422 

1 

DAS" 

TIMEHOLD 

TIME  "OF  NUWTWAL "MIDPOINT. 

U590 

Rl.F 

86 

LAST  244 

10,2702 

3 7665 

0 

CAF 

ZERO 

0591 

REF 

55 

LAST  235 

10,2  703 

54  001 

r 

“TS 

L 

0592 

REF 

3 

LAST  16 

10,2704 

52  416 

0 

DXCH 

SAMPLSUM 

0593 

REF 

3 

LAST  236 

10,2705 

1 2302 

0 

TCF 

roadback 

US94 

1U  ,27°6 

00230 

0 DGBIT5 

OCT 

230 

F- 

♦ 
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I) 


Loooi  RADAR  LEAD-IN  ROUTINE'S"'  USERlS  OWN  PAGE  NO.  22 

P0595  RADAR  RUPT  READER 

R0596  this  routine  starts  from  a radarupt.  it  reads  the"data“$  lots  more,- 


0597 

REF 

5 

LAST 

222 

10,2707 

54  016 

1 

RADAREAD  TS 

BANKRUPT 

0598 

10,2710 

0 0006 

1 

EXTEND 

0599 

REF 

6 

LAST 

222 

10,2711 

22  012 

1 

OXCH 

ORUPT 

0600 

10,2712 

0 0006 

1 

ANGLREAD  EXTEND 

0601 

REf 

6 

LA51 

242 

10,2713 

3 0036 

1 

DCA 

OpTy 

0602 

REF 

1 

10,2714 

52  420 

0 

DXCH 

OPTYHOLD  SAVE  RAW  CDU  ANGLES 

0603 

REF 

3 

LAST 

247 

10,2715 

10  414 

1 

TRYCOUNT  CCS 

SAMPLIM 

0604 

ref 

1 

10,2716 

1 2730 

0 

TCF 

plenty 

0605 

REF 

1 

10,2717 

1 2723 

1 

TCF 

nomore 

0606 

REF 

21 

LAST 

241 

10,2720 

0 5413 

1 

TC 

alarm 

0607 

10,2721 

00520 

0 

OCT 

520 

0608 

REF 

8 

LAST 

225 

10,2722 

0 4606 

0 

TC 

RESUME 

0609 

REF 

22  LAST  248 

10,2723 

0 5413  1 

NOMORE 

TC  ALARM 

0610 

10,2724 

00521  1 

OCT  521 

0611 

REF 

49  LA5T  247 

10,2725 

4 7657  0 

BADRAD 

CS  ONE 

0612 

RtF 

4 LAST  246 

10,2726 

54  414  1 

IS"  SAfiPLlM 

0613 

REF 

3 LAST  241 

10,2727 

0 3247  0 

TC  RDBADEND  -2 

0614 

REF 

5 LAST  248 

10,2730 

54  414  1 

PLENTY 

TS  SAMPLIM 

06 1 5 

REF 

4 LA5T  247 

10,2731 

3 7655  0 

CAF  BIT3 

0616 

10,2732 

0 0006  1 

EXTEND 

“0617 

10,2733 

02  013  1 

"RAND  13  TO  FIND  OUT  WHICH  RADAR 

0618 

10,2734 

0 0006  1 

EXTEND 

0619 

REF 

1 

10,2735 

1 3014  0 

BZF  RENDRAD 

0620  REF  55  LAST  245  “TO 

0621  10 


2736 

2737 


3 0413  1 
0 0006  1 


LRPOSCHK  CA  RADM0DE5 

extend 


5EE  IF  LR  IN  DESIRED  POSITION. 


0622 

10,2740 

06  033 

T 

RXOR 

33 

0623 

REF 

21  LASl 

211 

10,2741 

7 7652 

0 

MA5K 

BIT6 

0624 

10,2742 

0 0006 

1 

EXTEND 

0625 

REF 

1 

10,2743 

I 2747 

0 

BZF 

VELCHK 

U626 

KtF 

23  LA5T 

248 

10,2744 

0 5413 

1 

TC 

alarm 

0628  REF  1 


10 


2746  0 2725  0 


TC 


BADRAD 


0629  REF" 

0630 

0631 

0632  REF 

0633 

0634  REF 


r 10,2747  3 6165  0 VELCHK CRF BTNS 

10.2750  0 0006  1 EXTEND 

10.2751  06  013  0 RXOR  T3— 

2 LAST  248  10.2752  7 6165  1 MASK BTNT 

10,2753  0 0006  1 EXTEND 

1 10,2754  1 3010  1 BZF  LRHEIGHT 


= 00003  OCT 


TAKE  A LR  RANGE  READING 
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0635 

REF 

20 

LAST  229 

10,2755 

3 7637 

1 

CAF 

POSMAX 

0636 

REF 

r 

TO  ,2756 

7 0046 

1 

MASK 

RNRAD 

0637 

REF 

r 

10,2757 

6 3167 

1 

AD 

LVELBI AS 

0638 

REF 

56 

LAST  247 

10,2760 

54  001 

1 

TS 

L 

0639 

REF 

2 

LAST  249 

10,2761 

30  046 

0 

CAE 

RNRAD 

0640 

10,2762 

6 0000 

1 

DOUBLE 

0641 

REF 

18 

LAST  240 

10,2763 

7 7657 

0 

MASK 

BIT1 

0642 

REF 

4 

LAST  9 

10,2764 

52  071 

0 

DXCH 

ITEMP3 

0643 

REF 

16 

LAST  229 

10,2765 

3 7650 

0 

CAF 

BITS 

DATA  GOOD  ISNT  CHECKED  UNTIL 

AFTER  READ- 

0644 

REF 

1 

10,2766 

0 3137 

1 

TC 

DGCHECK 

ING  DATA  SO  SOME  RADAR  TESTS 

WILL  WORK 

A0645 

INDEPENDENT  OF  DATA  GOOD, 

0646 

REF 

2 LAST  247 

10,2767 

10  425 

0 

CCS 

NSAMP 

0647 

REF 

1 

10,2770 

0 3000 

1 

TC 

NOEND 

0648 

REF 

50  LA5T  248 

10,2771 

4 7657 

0 GOODRAD 

CS 

ONE 

0649 

REF 

6 LAST  246 

10,2772 

54'  414 

1 

TS 

SAMPLIM 

0650 

REF 

33  LAST  235 

10,2773 

4 0065 

0 

CS 

ITEMPl 

WHEN  ENOUGH  GOOD  DATA  HAS 

BEEN  GATHERED, 

0651 

REF 

56  LAST  248 

10,2774 

7 0413 

0 

MASK 

RADMODES 

RESET  DATA  FAIL  FLAGS  FOR 

SETTRKF. 

0652 

REF 

57  LAST  249 

10,2775 

54  413 

0 

TS 

RADMODES 

0653 

REF 

3 LAST  231 

10,2776 

0 5042 

1 

TC 

SETTRKF 

LAMP  MIGHT  Go  OFF  IF  DATA 

JUST  GOOD. 

0654 

REF 

1 

10,2777 

0 3242 

0 

TC 

RGOODEND  -2 

0655 

REF 

3 

LAST 

249 

10,3000 

54  425 

0 

NOEND 

TS 

NSAMP 

0656 

REF 

7 

LA5l 

249 

10,3001 

10  414 

1 

RE5AMPLE 

CCS 

SAMPLIM 

SEE  IF  ANY  MORE  TRIES  SHOULD  BE  MADE. 

0657 

10,3002 

1 300A 

1 

TCF 

+ 2 

0658 

REF 

1 

10,3003 

1 3156 

1 

TCF 

DATAFAIL 

N SAMPLES  NOT  AVAILABLE. 

0659 

REF 

17 

LAST 

245 

10,3004 

3 7654 

1 

CAF 

BIT4 

RESET  ACTIVITY  BIT. 

0660 

10,3005 

0 0006 

T 

EXTEND 

0661 

10,3006 

05  013 

0 

WOR 

13 

RESET  ACTIVITY  BIT 

0662 

REF 

9 

LM5 1 

r\j 

00 

10,3007 

0 4606 

0 

TC 

RE5UME 

0663 

REF 

8 

LAST 

236 

10*3010 

3 7 6 S3  o 

LRHeIGHT  CAF 

B IT  5 

0664 

REF 

34 

LAST 

249 

10,3011 

54  065  0 

TS 

ITEMPl 

(POSITION 

OF  DATA  GOOD  fclT  IN  CHAN 

33) 

U665 

REF 

9 

LA51 

213 

10,301Z 

3 7647  0 

CAF 

BIT9 

0666 

REF 

1 

10,3013 

0 3047  1 

TC 

SCALECHK  -1 

0667 

KEF 

18 

LA5  1 

245 

10,3014 

3 7645  1 

RENDRAD  CAF 

MAKE  5URE 

ANT  ENINA  HA5  NOT  GONE  OUT 

ur 

0668 

REF 

58 

LAST 

249 

10,3015 

7 0413  0 

MASK 

RADMODES 

LIMITS* 

0669 

REF 

170 

LAST 

247 

1 0 ,30 1 6 

10  000  0 

CCS 

A 

0670 

RtF 

2 

LAST 

248 

10,3017 

1 2725  1 

TCF 

BATORAD 

U671 

KCF 

59 

LAE  l 

249 

10,3020 

4 0413  0 

CS 

RADM0DE5 

BE  5URE  RK 

CDU  HA5NT  FAILED, 

0672 

REF 

12 

LAST 

236 

10,3021 

7 7651  0 

MASK 

BIT7 

0673 

REF 

171 

LAST 

249 

10,3022 

10  000  0 

CCS 

A 

0674 

REF 

3 

LAST 

249 

10  t 

1 2725  1 

TCF 

BADRAD 
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0675 

REF 

15 

LAST 

244 

10,3024 

3 7644 

0 

CAF 

B I T 1 2 

DONT  ACCEPT  RR  DATA  IF  TRUNNION  MORE 

0676 

REF 

60 

LAST' 

249 

10,3025 

7 0413 

0 

MASK 

r a Modes 

TRAN  55  DEGREES  FROM  NOMINAL  POsITIO'N. 

0677 

REF 

172 

LAST 

249 

10,3026 

10  000 

0 

CCS 

A 

0678 

REF 

17 

LAST 

233 

10,3027 

3 7641 

0 

CAF 

B I T 1 5 

180  FOR  MODE  2 - 0 FOR  MODE  1, 

0679 

10,3030 

0 0006 

1 

EXTEND 

0680 

REF 

7 

LAST 

248 

10,3031 

20  035 

0 

MSU 

OPTY 

0681 

REF 

9 

LAST 

244 

10,3032 

0 4763 

1 

TC 

MAGSUB 

“11682 

10 , 3033 

66161 

1 

DEC 

-.30555 

55  DEGS  AT  HALF-REVS, 

0683 

REF 

4 

LAST 

249 

10,3034 

1 2725 

1 

TCF 

BADRAD 

0684 

REF 

1 8 

LAST 

249 

10,3035 

3 7654 

1 

CAF 

BIT4 

SEE  IF  DATA  HAS  BEEN  GOOD, 

0685 

REF 

35 

LAST 

249 

10,3036 

54  065 

0 

T5 

I TEMP  1 

(POSITION  OF  DATA  GOOD  BIT  IN  CHAN  33) 

0686 

REF 

19 

LAST 

249 

10*3037 

3 7657 

1 

CAF 

BITl 

SEE  IF  RR  RDOT. 

0687 

10,3040 

0 0006 

1 

extend 

0688 

10,3041 

02  013 

1 

rand 

13 

0689 

REF 

133 

LAST 

247 

10,3042 

54  002 

1 

T5“ 

Q 

FOR  LATER  TESTING, 

0690 

REF 

173 

LAST 

250 

10,3043 

10  000 

0 

CCS 

A 

0691 

10,3044 

J.  3046 

1 

TCF 

+ 2 

“0692 

REF 

1 

10,3045 

I 3060 

0 

^TCF 

RAD  IN 

NO  SCALE  CHECK  FOR  RR  RDOT, 

0693 

REF 

5 

LAST' 

248 

10,3046 

3 7655 

0 

CAF 

B I T 3 

0694 

REF 

57 

LAST 

249 

10,3047 

54  001 

1 

TS 

L 

0695 

10,3050 

0 0006  1 

SCALECHK  EXTEND 

0696 

10,3051 

02  033  0 

RAND  33 

SCALE  STATUS  NOW 

11697 

REF 

58  LAST  250' 

10,3052 

56  00 ro 

XCH  L 

0698 

REF 

61  LAST  250 

10,3053 

7 0413  0 

MASK  RADMODES 

SCALE  STATUS  BEFORE 

0699 

10,3054 

0 0006  1 

EXTEND 

0700 

10,3055 

06  001  0 

RXOR  01 

SEE  TF~ THEV  DIFFER 

0701 

REF 

1 74  LAST  250 

10,3056 

10  000  0 

CCS  A 

0702 

REF 

1 

10,3057 

0 3077  1 

TC  SCALCHNG 

THEY  DIFFER 

0703 

REF 

21 

LAST 

249 

10,3060 

3 7637 

I RADTN 

CAF 

POSMAX 

0704 

REF 

3 

LAS  1 

249 

10,3061 

7 0046 

1 

MA5K 

RNRAD 

0705 

TTEF 

8 

HAST 

204 

10,3062 

54  071 

cr 

TS 

' ITEMP4 

REF  4 LAST  250 


10 


0706 

TJTOT 10 

0708  REF  20  LAST  250  10 


3063  30  046  0 


3UM" 

3065 


6 0000 
7 7657 


CAE  "RNRAD 
DOUBLE 


MASK 


BITl 


0709 

REF 

5 LAST 

249 

10,3066 

54  070 

r 

TS 

ITEMP3 

U710 

REF 

134  LA5T 

250 

10,3067 

10  002 

1 

CCS 

Q 

SEE  IF  RR  RDOT, 

0711 

REF 

1 

10,3070 

1 3111 

1 

TCF 

SCALADJ 

NO,  BUT  SCALE  CHANGING  MAY 

BE  NEEDED, 

u7 1 2 

10,3071 

0 0006 

i 

EXTEND 

IF  RR  RANGE  RATE,  THRUW  OUT 

b A Ab  § 

0713 

REF 

1 

10,3072 

4 3171 

1 

DCS 

Rdotbias 

0714 

6 LAST 

250 

10,3073 

20  071 

Tr 

DASAMPL  DAS 

I TEMP 3 

0715 

REF 

36  LAST 

250 

10,3074 

3 0065 

1 

DGCHECK2  CA 

I TEMPI 

SEE  THAT  DATA  HAS  BEEN  GOOD 

BEFORE  AND 

O7I6 

REF 

2 LAST 

249 

10,3075 

0 3140 

1 

TC 

DGCHECK  +1 

AFTER  TAKING  SAMPLE, 

0717 

REF' 

T 

10,3076 

0 2771 

T~ 

-TC 

GOQDRAD 

1 
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0718 

REF 

62 

LAST 

250 

10,3077 

22  Al3 

1 

SCALCHNG  LXCH  RADMODES 

0719 

REF 

21 

LAST 

250 

10,3100 

6 7657 

1 

AD  BIT1 

0720 

10,3101 

0 0006 

1 

EXTEND 

0721 

10,3102 

06  001 

0 

RXOR  01 

0722 

REF 

63 

LAST 

251 

10,3103 

5 A A13 

0 

TS  RADMODES 

0723 

REF 

2 

LAST 

2A7 

10,3104 

3 2706 

1 

CAF  DGBITS 

UPDATE  LAST  VALUE  OF  DATA  GOOD  BITS. 

072A 

10,3105 

0 0006 

1 

EXTEND 

0725 

10,3106 

02  033 

0 

RAND  33 

0726 

REF 

2 

LAST 

2A7 

10.3107 

5 A A27 

1 

TS  OLDATAGD 

0727 

REF 

5 

LAST 

250 

10,3110 

1 2725 

1 

TCF  BADRAD 

473423a  YJL  SYSTEM  FQr  BLK2  i REVISION  12.  OF  PrOGRaM  aURORa  BY  DaP  GROUP 
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P0728  THE  FOLLOW  1 mG  ROUTImE  INCORPORATES  RR  RAnGE  AnD  LR  ALT  SCALE  inFORMATiQn  AnD  LEAVES  DATA  AT  LO  SC ALE. 


0730 

ref 

59  LAST  250 

10,3111 

10  001 

1 

SCALADJ  CCS  L 

L HAS  SCALE  INBIT  FOR  THIS  RADAR. 

0731 

10,3112 

1 3114 

1 

TCP  +2 

ON  HIGH  SCALE. 

0732 

REF 

1 

10,3113 

1 3074 

0 

TCF  DGCHECK2 

0733 

REF 

7 LAST  250 

10,3114 

52  071 

0 

DXCH  ITEMP3 

0734 

TO, 3115 

20  001 

1 

DDOUBL 

0735 

10,3116 

20  001 

1 

ddoubl 

0736 

10,3117 

20  001 

1 

ddoubl 

0737 

REF 

8 LAST  252 

10,3120 

52  O7I 

0 

DXCH  ITEMP3 

0738 

REF 

6 LAST  250 

10,3121 

3 7655 

0 

CAF  BIT3 

SEE  IF  LR  OR  RR. 

“07  3 9 

10,3122 

0 0006 

1 

extend 

0740 

10,3123 

02  013 

1 

RAND  13 

0741 

10,3124 

0 0006 

1 

EXTEND 

IF  RR,  NO  MORE  ACTION  REQUIRED. 

0742 

REF 

2 LAST  252 

— 10,3125 

1 3074 

0 

UZF  DGCHECK2 

07^3 

REF 

1 

10,3126 

3 3106 

0 

CAF  LRRATIO 

IF  LR » CONVERT  TO  LO  SCALING. 

0744 

10,3127 

0 0006 

1 

EXTEND 

0745 

REF 

9 LAST  250 

10,3130 

7 0071 

0 

MP  ITEMP4 

0746 

REF 

10  LAST  252 

10,3131 

54  071 

0 

TS  ITEMP4 

“0747 

REF 

87  LAST  247 

10,3132 

3 7665 

0 

CAF  ZERO 

(SO  SUBSEQUENT  DAS  TVTLL  BE  OK) 

0748 

REF 

9 LAST  252 

10,3133 

56  070 

0 

XCH  ITEMP3 

0749 

10,3134 

0 0006 

1 

EXTEND 

10,3135 

7 31 6 6 

1 

MP  LRRATIO 

0751  REF  1 10,3136  1 3073  1 IXF  DASAMPL 
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0752 

ref 

37 

last 

250 

10,3137 

54  065 

0 

dgcheck  ts 

ITEMPI 

UPDATE  DATA  GOOD  BIT  IN  OLDATAGD  AnD 

0753 

10,3140 

0 0006 

1 

extend 

MAKE  SURE  IT  WAS  ON  BEFORE  AND  AFTER  THE 

0754 

10,3141 

02  033 

0 

RAND 

33 

SAMPLE  WAS  TAKEN  BEFORE  RETURNING.  IF 

0755 

REF 

60 

LAST 

252 

10,3142 

54  001 

1 

TS 

L 

NOT,  GOES  TO  RESAMPLE  TO  TRY  AGAIN,  IF 

0756 

REF 

38  LAST 

253 

~ 10,3143 

4 0065 

0 

CS 

ITEMPI 

MAX  NUMBER  OF  TRIES  HAS  BEEN  REAChED, 

0757 

REF 

3 

LAST 

251 

10,3144 

7 0427 

1 

MASK 

OLDATAGD 

THE  BIT  CORRESPONDING  TU  THE  DATA  GOOD 

0758 

REF 

61 

LAST 

253 

10,3145 

6 0001 

a 

AD 

L 

WHICH  FAILED  TO  APPEAR  IS  IN  ITEMPI  AND 

0759 

REF" 

“ 4 

LAST 

253 

10,3146 

56  427  0 

XCH 

OLDATAGD 

CAN  BE  USED  TO  SET  RADMODES  WHICH  VIA 

0760 

REF 

39 

LA5T 

253 

10,3147 

7 0065 

0 

MASK 

I TEMPI 

SETTRKF  SETS  THE  TRACKER  FAIL  LAMP. 

0761 

REF 

62 

LAST 

253 

10,3150 

6 0001 

0 

AD 

L 

0762 

REF 

175 

LAST 

250 

10,3151 

10  000 

0 

CCS 

A 

SHOULD  BOTH  BE  ZERO. 

0763 

REF 

1 

10,3152 

0 3001 

0 

TC 

RESAMPLE 

0764 

REF 

10 

LAST 

252 

10,3153 

52  071 

0 

DXCH 

ITEMP3 

IF  DATA  GOOD  BEFORE  AND  AFTER,  ADD  TO 

0765 

REF 

4 

LAST 

247 

10,3154 

20  416 

0 

DAS 

SAMPLSUM 

ACCUMULATION. 

0766 

REF 

135 

LAST 

250 

10,3155 

0 0002 

0 

TC 

Q 

0767 

REF 

4C 

LAST 

253 

10,3156 

4 

0065 

0" 

DATAFAIL  CS 

ITEMPI 

0768 

REf 

64 

LAST 

251 

10,3157 

7 

0413 

0 

mask 

RADMODES 

0769 

REF 

41 

LAST 

253 

10,3160 

6 

0065 

1 

AD 

ITEMPI 

0770 

' REF~ 

65 

LAST 

253 

10,3161 

5 4 

413 

0 

TS 

RADMODES 

IN  THE  ABOVE  CASE*  SET  RADMODES  BIT 
SHOWING  SOmE  RADAR  DATA  RAILED. 


0771 

REF 

11  LAST  253 

10,3162 

52 

071 

0 

DXCH 

ITEMP3 

IF  WE  HAVE  BEEN  UNABLE  TO  GATHER  n 

0772 

REF 

5 LAST  253 

10,3163 

52 

416 

0 

DXCH 

SAMPLSUM 

SAMPLES,  USE  LAST  ONE  ONLY, 

0773  REF  A LAST  249 


10 


3164  0 5042  1 


TC  SETTRKF 


0774  REF  2 LAST  246 


10 


3165 


1 2723  1 


TCF  NOMORE 


0775 

10,3166 

23773 

0 

LRRATIO  DEC 

4,9977  B -3 

0776 

10,3167 

50437 

1 

LVELBIA5  DEC 

-12000 

LANDING  RADAR  VELOCITY  BIAS, 

0777 

10,3170 

00001 

0 

RDOTBI AS  2DEC 

17000 

BIAS  COUNT  FOR  RR  RANGE  RATE 

C0777 

10,3171 

01 15CT 

1 
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L00C1 

PQ776 


radar  l e ad-in  rou Tin e s 


USEr  * S OWN  PAGE  NO*  28 


this  routine  changes  the  lr  position*  and  crocks  thatit got  there * 


0779 


10.3172  0 0004  0 LRP0S2  INHINT 


0780 

REF 

22 

LAST 

248 

10,3173 

4 7652  0 

CS 

BIT6 

DESIRED  LR  POSITION  IS  NOW  2, 

0781 

REF 

66 

LAST 

253 

10,3174 

7 0413  0 

MASK 

RADMODES 

0782 

REF 

23 

LA5  1 

254 

10,3175 

6 7652  1 

AD 

6IT6 

0783 

REF 

67 

LAST 

254 

10,3176 

54  413  0 

TS 

RADMODES 

0784 

REF 

13 

LAST 

249 

10,3177 

3 7651  1 

CAF 

BIT7 

0785 

10,3200 

0 0006  1 

EXTEND 

0786 

10,3201 

02  033  0 

RAND 

33 

SEE  IF  ALREADY  THERE. 

0787 

10,3202 

0 0006  1 

EXTEND 

0788 

REF 

2 

LAST 

236 

10,3203 

r 3227  1 

SZF 

RADNOOP 

0789 

0790 

0791 


REF  18  LAST  23& 


10 

ro 

10 


3204 

3205 

3206 


3 7643  1 


~5~0OP6~T 
05  012  1 


CAF 


TxTEND' 
WOR 


BIT13 


12 


command  to  position  2 


0792 

REF 

I 

10,3207 

3 3234 

1 

CAF 

5SECS 

0793 

REF 

23  LAST  240 

10,3210 

0 4536 

0 

TC 

WAITLIST 

0794 

10,3211 

03214 

0 

2CADR 

MAKESURE 

007  94 

REF 

1 

10,3212 

20003 

0 

0796 

0797 

0798 

0799 

0800 


~RTF  1 9 LAST  Z54 


REF  14  LAST  254 


TO 

TO 

10 

TO 

10 


3214 

3215 

3216 

3217 
3220 


0 2302 1 

"4  7643  0 
0 OOOF  1 
03  012  1 


TC 


ROADBACK 


MAKESURE  ""C5“ 


B IT  1 3 


extend 

WAND 


"REMOVE’  LR  POSITION  COMMAND  OUTBIT. 


7651 

0006 


CAF 
EXTEND 


J.2 

BIT7 


-08111' 

10,3221 

02  033  C~ 

RAND 

33 

0802 

10,3222 

0 0006  1 

EXTEND 

0803 

REF 

2 LAST  249 

10,3223 

1 3244  1 

BZF 

RGOODEND 

USU4 

Ktr 

24  LAST  24° 

10,3224 

0 5413  1 

TC 

alarm 

LR  ANTENNA  DIDNT  MAKE  IT. 

0805 

10,3225 

00523  0 

OCT 

523 

0806 

REF 

4 LAST  248 

10,3226 

I 3251  tr 

' TCF  ' 

ROBADEND' 

0807 

0808 
0809 

CO8O9 


REF  51  LAST  249 
REF  24  LAST  254 


10 

TO 

TO 

10 

10 


3227 

3230 

3231 

3232 


3 7657  I 
0 4536  0 

03244  nr 
20003  0 
2302  1 


RADNOOP  CAF 
TC 


ONE 


NO  FURTHER  ACTION  REQUESTED. 


REF  3 LAST  254 


2CADR 


WAITLIST 

RGOODEND 


ROADBACK 


0811 


10.3234  00764  1 5SECS 


DEC  5 E2 
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L0001 
Poe  1 2 


RADAR  LEAD^TW  R0UTINE5 


USER'S  OwN  PAGE  NO.  29 


SEQUENCES  to  terminate  rr  OPERATIONS. 


0613 

REF 

15 

LAST 

254 

10,3235 

3 7651 

1 

ENDRADAR  CAF 

BIT7 

PROLOG  TO 

CHECK  RR 

CDU 

FAIL  BEFORE  END. 

0814 

REF 

68 

LAST 

254 

10,3236 

7 0413 

0 

mask 

RADMODES 

0815 

RTF 

176 

LAST 

253 

10,3237 

10  000 

0 

CCS 

A 

0816 

REF 

4 

LAST 

254 

10,3240 

1 3244 

1 

TCF 

RGOODEND 

0817 

REF 

5 

LAST 

254 

10,3241 

1 3251 

0 

TCF 

RDBADEND 

0818 

REF 

88 

LAST 

252 

10,3242 

4 7665 

1 

-2  CS 

ZERO 

RGOODEND 

WHEN  NOT 

UNDER 

WAITLIST  CONTROL 

0819 

REF 

5 

LAST 

147 

10,3243 

55 ' 070 

0 

TS 

RUPTAGN 

0820 

ref 

24 

LAST 

238 

10,3244 

3 7656 

0 

RGOODEND  CAF 

TwO 

0821 

REF 

4 

LAST 

223 

10,3245 

0 4102 

0 

TC 

POSTjUMP 

> 0822 

REF 

4 

LAST 

221 

10,3246 

26667 

1 

CADR 

GOODEND 

0823 

REF 

89 

LAST 

255 

10,3247 

4 7665 

1 

-2  CS 

ZERO 

RDBADEND 

WHEN  NOT 

UNDER 

WAITLIST. 

0824 

0825 

0826 
0827 


REF 

REF 

REF 

REF 


6 LAST  255 
25  LAST  255 
5 LAST  255 
2 LAST  205 


10.3251 

10.3252 

10.3253 


3 76560  RDBADTNWCAF  TWO 


0 4102 
26664 


TC 
CADR 


POSTJUMP 

BADEND 


0828 

0829 


REF  4 LAST  226 


6165 

10.3254 


BIN3  EQUALS  THREE 
ENDRMODS  EQUALS 


I 


«fn 


■=3- 


473423A 

YJL 

SYSTEM  FOR  BL<2: 

REVISION 

12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  256 

L 

RADAR  Tl 5T  PROGRAMS 

USER’S  OWN  PAGE  NO,  1 

0001 

REF 

1 

10,3254 

SETLOC 

ENDRMODS 

0002 

REF 

1 

E7 

ebank= 

RSTKLOC 

R0003 

RADAR  SAMPLING  LOOP. 

0004 

REF 

1 

10,3254 

11*435  0 

RADSAMP  CCS 

RSAMPDT 

TIMES  NORMAL  ONCE-PER-SECOND  SAMPLING, 

0005 

10,3255 

1 3257  0 

TCF 

+ 2 

0006 

REF 

19  LA5 1 232 

10,3256 

1 4602  0 

TCF 

TASKOVER 

+0  INSERTED  MANUALLY  TERMINATES  TEST, 

OOO7 

REF 

25  LAST  254 

10,3257 

0 4536  0 

TC 

WAITLIST 

0008 

10,3260 

03254  1 

2CAQR 

RADSAMP 

C0008 

REF 

1 

10,3261 

20007  1 

0009 

REF 

1 

10,3262 

3 4523  1 

CAF 

PRI025 

0010 

REF 

6 LAST  225 

10,3263 

0 4363  0 

TC 

NOVAC 

oon 

10,3264 

03274  0 

2CADR 

DORSAMP 

coon 

REF 

1 

10,3265 

20007  1 

0012 

REF 

1 

10,3266 

3 3325  0 

CAF 

1/6 

for  cyclic  sampling,  rtstdex  = 

0013 

10,3267 

0 0006  1 

EXTEND 

RTSTL0C/6  ♦ RT5TBASE, 

0014 

~re:f 

2 LAST  25 

10,3270 

7 1434  1 

hip 

RTSTLOC 

0015 

REF 

1 

10,3271 

6 1433  1 

AD 

rtstbase 

0 FOR  RR,  2 FOR  LR. 

0016 

REF 

I 

10,3272 

55*431  1 

TS 

RTSTDEX 

0017 

RtF 

20  LAST  256 

10  *3273 

1 4602  0 

TCF 

TASKOVER 

R0018 

DO  THE  ACTUAL  RADAR 

sample; 

0019 

REF 

1 

10,3274 

0 3326  0 

DORSAMP  TC 

VARADAR 

SELECTS  VARIABLE  RADAR  CHANNEL, 

CTO  20 

REF 

4 CAST  215 

10,3275 

0 4063  0“ 

TC 

BANKCALL 

0021 

REF 

2 LAST  207 

10,3276 

26712  1 

CADR 

RADSTALL 

0022 

REF 

1 

10,3277 

25*436  I 

I NCR 

RFAILCNT 

ADVANCE  FAIL  COUNTER  BUT  ACCEPT  BAD  DATA 

0023 

10,3300 

0 0004  0 

D0RSAMP2  INHINT 

YES  - UPDATE  TM  BUFFER, 

0024 

REF 

6 LAsT  253 

10,3301 

52  416  0 

DXCH 

samplsum 

0025 

REF 

2 LAST  256 

10,3302 

51*434  0 

INDEX 

“RSTKLOC 

0026 

REF 

1 

10,3303 

53*440  1 

DXCH 

RSTACK 

0027 

RPF 

2 LAST  248 

iU  t 33U4 

52  420  CT 

DXCh  ' 

OPTYHOCD 

0028 

REF 

3 LAST  256 

10,3305 

51*434  0 

INDEX 

RSTKLOC 

0029 

REF 

2 LAST  256 

10 , 33U6 

53*442  0 

DXCH 

RSTACK  *2 

0030  rEF  4 LAsT  247  10,3307  52  422  l DXCH  TiMEhOLD 

0031  REF  4 LAST  256  10,3310  51*434  0 INDEX  RSTKLOC 

0032  REF  3 LAST  256  10,3311  53*444  0 DXCH R STACK  t4 


0033 

ref 

3 

LAST  256 

10,3312 

4 1434 

1 

C5 

RTSTLOC 

CYCLE  RTSTLOC. 

0034 

REF 

1 

lo , a 1 3 

6 1432 

O 

- AD  - 

RTSTMAX 

OO35 

10,3314 

0 0006 

1 

EXTEND 

0036 

lo , a 1 5 

1 3320 

1 

SZF 

♦ 3 

0037 

~REF 

5 

LAST  256 

1 u , 3 5 1 6 

3 1434' 

“0 

CA 

R5TKL0C 

« 


I I 1 


* 
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L 

radap 

! test  programs 

USER'S  OWN  PAGE  NO.  2 

* 

0038 

REF 

5 LAST  192 

10,3317 

6 6162  1 

AD 

SIX 

0039 

REF 

6 LASTH256 

10,3320 

55  *434  1 

rs 

RSTKLOC 

0040 

-HSr- 

2 LAsT  256 

10,3321 

11*435  0 

CCS 

RSAMPDT 

SEE  iF  Time  to  re-sample. 

0041 

10  LAST  245 

10,3322 

1 4440  1 

TCF 

ENDOFjOB 

NO  - wAIT  FOR  T3  (REGULAR  SAMPLING), 

004,2 

REF 

11  LAST  257 

10,3323 

1 4440  1 

TCF 

ENDOFJOB 

TEST  TERMINATED, 

004,3 

REF 

2 LAST  256 

10,3324 

1 3274  1 

TCF 

DORSAMP 

jump  right  back  and  get  another  sample. 

004,4, 

10,3325 

05341  1 

1/6 

DEC 

.17 

R0045 

VARIABLE  RADAR  DATA 

CALLER  FOR 

ONE  MEASUREMENT 

ONLY. 

0046 

REF 

52  LAST  254 

10,3326 

3 7657  1 

VARADAR 

CAF 

ONE 

WILL  BE  SENT  TO  RADAR  ROUTINE  IN  A BY 

0047 

REF 

22  LAST  207 

10,3327 

54  117  1 

TS 

BUF2 

swcall. 

0048 

REF 

2 LAST  256 

10,3330 

51*431  0 

INDEX 

RTSTDEX 

004,9 

REF 

1 

10,3331 

3 3333  1 

CAF 

RDRLOCS 

0050 

REF 

3 LAST  154 

10,3332 

1 4067  0 

TCF 

SwCALL 

NOT  TOUCHING  Q. 

OO5I 

REF 

1 

10,3333 

20650  0 

RDRLOCS 

CADR 

RRRANGE 

= 0 

0052 

REF 

1 

10,3334 

20646  1 

CApR 

rrrdot 

= 1 

0053 

REF 

1 

10,3335 

20644  0 

CADR 

LRVELX 

= 2 

0054 

REF 

1 

10,3336 

20642  0“ 

CADR 

LRVELY 

= 3 

OO55 

REF 

1 

10,3337 

20640  1 

CADR 

LRVEL2 

s4 

0056 

REF 

1 

10 ,334U 

20636  0 

CADR 

LRALT 

= 5 

0057  10*3341  ENDRTSTS  EQUALS 


9 

C\J 

9 
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L EXTENDED  VERBS  USER'S  OWN  PAGE  NO.  1 

0001  11 f 2000  BANK  11 

0002  REF  1 E5  EBANK=  OGC 

ROOb  3 FAN-OUT 


0004 

REF 

1 

11,2000 

0 2070 

1 

LST2FAN  TC 

vbzero 

VbAO  ZERO  (USED  WITH  NOUN  20  OR  40  ONLY) 

0005 

REF 

1 

11,2001 

0 2073 

1 

TC 

V6C0ARK 

V641  C0AR5E  ALIGN  (USED  WITH  NOUN  20  OR 

A0006 

40  ONLY) 

0007 

REF 

1 

11,2002 

0 2204 

0 

TC 

IMUFINEK 

VB42  FINE  ALIGN  IMU 

0008 

REF 

1 

11,2003 

0 2566 

0 

TC 

IMUATTCK 

VB43  LOAD  IMU  ATTITUDE  ERROR  METERS. 

0009 

REF 

1 

11,2004 

0 2066 

0 

TC 

ALM/END 

ILLEGAL  VERB, 

0010 

REF 

1 

11,2005 

1 2126 

1 

TCF 

LRP0S2K 

VB45  COMMAND  LR  TO  POSITION  2. 

oon 

REF 

1 

11,2006 

0 2407 

0 

TC 

REGRSAMP 

VB46  SAMPLE  RADAR  ONCE  PER  SECOND 

0012 

REF 

1 

11,2007 

0 2401  0 

TC 

DOFCSTST 

VB47  PERFORM  LEM  FCS  TEST 

0013 

REF 

1 

11,2010 

0 2262 

0 

TC 

GQLOADLV 

VB50  PLEASE  PERFORM 

0014 

REF 

2 LAST  258 

11,2011 

0 2262 

0 

TC 

GQLOADLV 

VB51  PLEASE  MARK 

0015 

REF 

3 LAST  258 

11,2012 

0 2262 

0 

HT 

GQLOADLV 

VB52  PLEASE  MARK  Y 

0016 

REF 

4 LAST  258 

11,2013 

0 2262 

0 

TC 

GOLOADLV 

VB53  PLEASE  MARK  X OR  Y. 

0017 

REF 

1 

11,2014 

0 2266 

1 

TC 

TORQGYRS 

VB54  PULSE  TORQUE  GYROS 

0018 

REF 

1 

11,2015 

0 2303 

0 

rc 

ALINTIME 

VS 5 5 ALIGN  time 

0019 

REF 

1 

11,2016 

0 2377 

0 

TC 

GOSHOSUM 

VB56  PERFORM  BANKSUM 

0020 

REF 

1 

11,2017 

0 2327 

0 

TC 

SYSTEST 

VB57  PERFORM  SYSTEM  TEST 

TJ021 

*REF 

1 

11,2020 

0 3142 

15“ 

TC 

PRESTAND 

VB60  PREPARE  FOR  STANDBY 

0022 

REF 

1 

11,2021 

0 3210 

1 

TC 

POSTAND 

VB61  RECOVER  FROM  STANDBY 

0023 

REF 

1 

11,2022 

0 2634 

1 

TC 

SETUPMSG 

VB62  SCAN  LEM  INBITS 

0024 

*REF 

1 

11,2023 

1 2524 

1 

TCF 

* AGS IN  IT 

VB63  INITIALIZE  AGS 

0025 

REF 

2 LAST  258 

11,2024 

1 2066 

1 

TCF 

ALM/END 

0026 

REF 

3 LA5T  258 

11,2025 

1 2066 

1 

TCF 

ALM/END 

“0027 

REF 

4 LATT  258 

11,2026 

1 2066 

1 

TCF" 

ALM/END 

0028 

REF 

5 LAST  258 

11,2027 

1 2066 

1 

TCF 

ALM/END 

0029 

REF 

6 LAST  258 

11.2030 

1 2066 

1 

TCF 

ALM/END 

0030 

REF 

1 LAST  258 

11,2031 

1 2066 

r 

TCF 

ALM/END 

0031 

REF 

8 LAST  258 

11,2032 

1 2066 

i 

TCF 

ALM/END 

0032 

REF 

1 

11,2033 

1 3122 

i 

TCF 

MINIMP 

VERB  73  - RHC  USED  FOR  MINIMUM  IMPULSE. 

*0033 

REF 

I 

1 1 ,2034 

1 3130 

T” 

TCF 

NOMINIMP 

VERB  74  - RHC  NOT  USED  FOR  MIN  IMPUL5E, 

0034  REF  9 LA5T  258 
W35  REF  10  LAST  25B 
0036  REF  11  LAST  258 


11 

II 

11 


2035 

2036 


1 2066  1 
1 2066  1 


2037  0 2066  0 


TCF  ALM/END 

TCF AlM/END 

TC  ALM/END 


“0U37  REF  7 LAST  252 

0038  REF  2 LAST  158 

0039  REF  177  LAST  255 

0040  REF  1 

0041  REF  8 LAST  258 

*0042 

0043  REF  3 LAST  258 

0044  REF  9 LAST  258 

~ 004*5  REF  4 LAST  258 


*11 

11 

-11 

“IT 

11 


TT 

11 

11 


2040  3 

2041  7 0332  1 

2042  10  000  0 

2043  0 2053  0 


MASK 

CCS 

TC 


EXTVBACT 

A 


XACTALM 


2044  4 7655  1 XACT1 


2045  0 0004TT 

2046  7 0332  1 

2047  6 7655  0 

2050  54  33Z  1 


BIT3 


INhTMT 
MASK  EXTVBACT 
AD  BIT3 

TS EXTVBACT 


ft 
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L EXTENDED  VERBS  USEr»S  OWN  PAGE  NO.  2 

0046  11.2051  0 0003  1 REUJNT 

0047  REF  136  LAST  253  11  .2052  0 0002  0 “HT”  Q 


0048  REF  1 II.2O53  0 5243  1 XACTALM  TC  FALTON 

0049  REF  12  LAST  257  11.2054  0 4440  0 TC  ENDOFJOB 


0050 

REF 

2 

LAST 

127 

11,2055 

0 

5401 

1 

TERMEXTV 

TC 

FREEDSP 

IF  WE  GET  A TERMINATE  INSTEAD  OF  A LOAD, 

0051 

REF 

1 

11.2056 

0 

2060 

0 

ENDEXTVB 

TC 

XACTO 

0052 

R£f 

13 

last 

259 

11.2057 

0 

4440 

0 

TC 

ENDOFJOB 

0053 

REF 

10 

LAST 

258 

11,2060 

4 7655 

1 

XACTO 

CS  BIT3 

0054 

11,2061 

0 0004 

0 

INHINT 

0055 

REF 

5 

LAST 

258 

11,2062 

7 0332 

1 

MASK  EXTVBACT 

0056 

REF 

6 

LAST 

259 

11,2063 

54  332 

1 

TS  EXTVBACT 

0057 

11,2064 

0 0003 

1 

RELINT 

0058 

REF 

137 

LAST 

259 

11,2065 

0 0002 

0 

XACTOQ 

rc  a 

0059  REF  2 LAST  259  11,2066  0 5243  1 AlM/ENd  TC  FALTON 

0060  REF  1 11.2067  0 2056  0 TC  ENDEXTVB 


0061 

rEF 

1 

11,2070 

nr 

2076  1 

VBZErO  TC 

op/inert 

0062 

REF 

1 

11.2071 

0 

2110  0 

TC 

IMUZEROK 

RETURN 

HERE 

IF 

NOUN 

= ICDU (20) 

0063 

REF 

1 

11.2072 

0 

2117  1 

TC 

RRZEROK 

RETURN 

HERE 

IF 

NOUN 

= RCDU ( 40 ) 

0065 

REF 

2 LAST  259 

1 1 *2073 

0 

2076  1 

VBCOARK  TC 

OP/ INERT 

0066 

REF 

1 

11,2074 

0 

2132  0 

TC 

IMUCOARk 

RETURN 

HERE 

IF 

NOUN 

= ICDU (20) 

0067 

“REF 

1 

11,2075 

0 

2234  0 

TC 

rrdesnbk 

RETURN 

HERE 

IF 

NOUN 

= RCDU (40 ) 

Roo69  returns  to  l+i  if  rwin»  l+2  if  rr,  and  l+3  if  ot. 


0070 

REF 

9 LAST  249 

11,2076 

4 

7653 

1 

OP/INERT 

CS 

BIT5 

0CT2Q 

0071 

RiiF 

2 LAST  157 

11,2077 

6 

0267 

1 

AD 

NOUNREG 

0072 

11,2100 

0 

0006 

1 

EXTEND 

0073 

REF 

1 

11,2101 

1 

2065 

1 

BZF 

XACTOQ 

IF  = 20. 

uu  T 4 

Ktr 

138  LA5T  259 

11,2102 

INCR 

0 

0075 

REF 

1 

11,2103 

6 

2107 

0 

AD 

RRlMUDIF 

= -20  OCT. 

0076 

1 1 ,2104 

0 

0006 

1 

EXTEND 

0077 

REF 

2 LAST  259 

11.2105 

1 

2065 

I 

BZF 

XACTOQ 

Kcr 

12  LASI  258 

11,2106 

0 

2066 

0 

TC 

ALM/END 

ILLEGAL. 

UU83 

11,2107 

77757 

1 

RR I MUD IF 

OCT 

-20 

CO 

0 
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L 

extended  verbs 

USER  » S OWN  PAGE  NO,  3 

P0085 

KEYBOARD  ReSUeST 

TO  ZERO  IMU 

ENCODERS 

0086 

REF  l 

11*2110 

0 2O4O  1 

IMUZEROK  TC 

TESTXACT 

ZERO  LNC0DER5# 

0087 

REF  5 LAST  256 

11.2111 

0 4063  0 

TC 

bankcail 

0088 

REF  1 

11.2112 

26000  0 

CADR 

imOzero 

0089 

REF 

6 LAST 

260 

11.2113 

0 4O63 

0 

TC 

bankcall 

STALL 

0090 

REF 

2 LAST 

215 

11.2114 

26716 

0 

CADR 

IMUSTALL 

0091 

11.2115 

0 2116 

0 

TC 

+ 1 

0092 

REF 

2 

LAST  259 

11.2116 

0 2056 

0 

TC 

ENDEXTVB 

0093 

REF 

2 

LAST  260 

11.2117 

0 2040 

1 

RRZEROK 

TC 

TESTXACT 

0094 

REF 

7 

LAST  260 

11.2120 

0 4063 

0 

TC 

BANKCALL 

ZERO  RR 

cous. 

0095 

REF 

1 

11,2121 

20247 

1 

CADR 

RRZERO 

0096 

REF 

8 

LAST  260 

11*2122 

0 4O63 

0 

RWAITK 

TC 

BANKCALL 

0097 

ref 

3 

LAST  256 

11,2123 

26712 

1 

CADR 

RADSTALL 

0098 

11,2124 

1 2125 

1 

TCF 

♦ 1 

0099 

REF 

3 

LAST  260 

11,2125 

1 2056 

1 

TCF 

ENDEXTVB 

0100 

REF 

3 

LAST  260 

11*2126 

0 2040 

1 

LRP0S2K 

TC 

TESTXACT 

COMMAND 

LR  TO 

POSITION  2. 

0101 

REF 

9 

LA5T  260 

11,2127 

0 4063 

0 

TC 

BANKCALL 

■CTff!  REF  r~  11.2130  21172  0 CAUR  LRP0S2  ~ 

0103  REF  1 11.2131  1 2122  0 TCF  R'wAlTK 
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L EXTEN&E&  VERBS  USER'S  OWN  PAGE  NO*  4 


poioa  < eyboaro  request  to  coarse  align  the  imu 


0105 

REF 

4 

LAST 

26° 

11,2132 

0 

2040 

1 

IMUCOARK 

TC 

TcSTXACT 

COARSE  ALIGN  FROM  KEYBOARD, 

0106 

REF 

1 

11,2133 

0 

5317 

1 

TC 

grabwait 

0107 

REF 

1 

11.2134 

3 

2152 

0 

CAF 

VNLODCDU 

CALL  FOR  THETAD  LOAD 

0108 

REF 

4 

LAST 

220 

11,2135 

0 

5332 

0 

TC 

NVSBWAIT 

0109 

REF 

4 

LAST 

220 

11,2136 

0 

5140 

1 

TC 

END  IDLE 

STALL  WAITING  FOR  THE  LOAD 

0110 

REF 

1 

11,2137 

0 

2055 

0 

TC 

TERMEXTV 

0111 

REF 

1 

11,2140 

0 

2154 

0 

TC 

ICSDEL 

PROCEED  - ASK  FOR  INCREMENTAL  LOAD. 

0112 

REF 

1 

11*2141 

3 

2153 

1 

IC0RK2 

CAF 

IMUCOARV 

RE-DISPLAY  COARSE  ALIGN  VERB, 

0113 

REF 

5 

last 

261 

11,2142 

0 

5332 

0 

TC 

NVSBWAIT 

0114 

REF 

3 

LAST 

259 

11,2143 

0 

5401 

1 

TC 

FREEDSP 

RELEASE  THE  DISPLAYS 

0115 

REF 

10  LAST  260 

11,2144 

0 4063 

0 

TC 

BANKCALL 

CALL  MODE  SWITCHING  PROG 

0116 

REF 

1 

11,2145 

26055 

0 

CADR 

1 MUCOARS 

0117  REF  11  LAST  261  11,2146  0 4063  0 TC  BANKCALL  STALL 

0118  REF  3 LAST  260  11,2147  26716  0 CADR  IrtUSTALL  _ 

0119  REF  4 LAST  260  11,2150  0 2056  0 ' ENDEXTVB  ~ 

0120  REF  5 LAST  261  11,2151  0 2056  0 TC  ENDEXTVB 

0121  11,2152  B8522  0 VNLODCDU  UCT  02522 

0122  11,2153  04100  1 IMUCOARV  OcT  04100 


J-j 


473423A  YJL  SVSTgM  Kqk  BLK2!  RpVISlpN.  llTpF  PROGRAM  AURoRA  BY  DAP  GRqUP 


NOV  1q*  1966  (MAIN)  PAGe'  262 


] ' 


L extended  verbs  user t s own  page  no. 5 


~~ P0123  PROVISION  FOR  CQAR S E ALT G N TO  INCREMENTAL  ANGLES. 


0124 

REF 

1 

11,2154 

3 2202 

0 ICSDEL 

CAF 

DELLOAD 

0125 

REF 

6 

LAST 

26 1 

11,2155 

0 5332 

0 

TC 

NVSBWAIT 

REQUEST  LOAD  OF  DELTA  ICDU  ANGLES. 

0126 

REF 

5 

LAST 

261 

11,2156 

0 5140 

1 

TC 

ENDIDLE 

0127 

REF 

2 

LAST 

261 

11,2157 

0 2055 

0 

TC 

TERMEXTV 

0128 

REF 

1 

11,2160 

0 2141 

1 

TC 

IC0RK2 

PROCEED  WITHOUT  DATA  hERE  TOO, 

0129 

REF 

1 

11,2161 

0 2163 

1 

TC 

INCLOOP 

LOOP  TO  INCREMENT  THETAD  FROM  DSPTEM2. 

OI3O 

REF 

2 

LAST 

262 

11,2162 

0 2141 

1 

TC 

IC0RK2 

RE-DISPLAY  COARSE  ALIGN  VERB. 

0131 

REF 

139 

LAST 

259 

11,2163 

56  002 

0 INCLOOP 

XCH 

0 

INCREMENTS  THETADS  IN  2S  COMPLEMENT  FROM 

0132 

ref 

412 

last 

245 

11,2164 

54  140 

0 

T S 

MPAc 

Three  angle  increments  in  dsptem2s. 

0133 

REF 

I 

1 1 ,2i65 

3 2203 

1 

CAF 

LTHD+2 

CI34 

REF 

112 

LAST 

217 

11,2166 

54  114 

1 

7S 

BUF 

SET  UP  FOR  CDUJNC. 

0135 

REF 

26 

LAST 

255 

11,2167 

3 7656 

0 

CAF 

TWO 

THREE  TIMES  THROUGH, 

0136 

REF 

413  LAST  262 

11,2170 

54  141  1 

INCLOOP2  TS 

MPAC  *1 

0137 

ref 

178  LAST  258 

11,2171 

50  000  1 

INDEX 

A 

0138 

REF 

3 LAST  220 

11,2172 

56  336  1 

XCH 

DSPTEM2 

INCREMENT  TO  TEM2  FOR  CDUINC. 

0139 

~ REF 

12  LAST  261 

11,2173 

0 4063  0 

TC 

BANKCALL 

0140 

REF 

1 

11,2174 

33470  1 

CADR 

CDUINC 

0141 

REF 

113  LAST  262 

11,2175 

10  114  1 

CCS 

BUF 

0142 

RcF 

114  LAST  262 

11,2176 

54  114  r 

TS 

BUF 

0143 

REF 

414  LAST  262 

11,2177 

10  141  1 

CCS 

MPAC  +1 

0144 

REF 

1 

11,2200 

0 2170  0 

TC 

INCL00P2 

0145 

REF 

415  LAST  262 

11,2201 

O 

4- 

O 

O 

1 

TC 

MPAC 

RETURN  WHEN  FINISHED. 

0146 

11,2202 

02523 

1 

DELLOAD 

OCT 

02523 

0147 

REF 

3 LAST  194 

11,2203 

00402 

1 

LTHD+2 

adres 

THETAD  ♦ 2 

4734235  YJL  SYSTEM  f- OR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L EXTENDED  VERBS  USER’S  OWN  PAGE  N0'« 6 

PoiAs  keyboard  request  to  fine  align  and  gyro  torque  imu 


0149 

REF 

5 

LAST 

261 

11*2204 

0 

2040 

1 

IMUFINEK  TC 

TESTXACT 

FINE  ALIGN  WITH  GYRO  TORUUING. 

0150 

REF 

2 

last 

261 

11,2205 

0 

5317 

1 

TC 

GRABWAIT 

0151 

REF 

1 

11,2206 

3 

2232 

0 

CAF 

VNLODGYR 

CALL  FOR  LOAD  OF  GYRO  COMMANDS 

0152 

REF 

7 

LAST 

262 

11,2207 

0 

5332 

0 

TC 

NVSBWAIT 

0153 

REF 

6 

LAST 

262 

11,2210 

0 

5140 

1 

TC 

ENDIDLE 

HOLD  UP  FOR  THE  DATA  LOAD 

0154 

REF 

3 

LAST 

262 

11,2211 

0 

2055 

0 

TC 

TERMEXTV 

0155 

11,2212 

0 

2213 

0 

TC 

♦ 1 

PROCEED  WITHOUT  A LOAD 

0156 

REF 

1 

11,2213 

3 

2233 

1 

CAF 

IMUFINEV 

RE-DISPLAY  OUR  OWN  VERB 

0157 

REF 

8 

LAST 

263 

11,2214 

0 

5332 

0 

TC 

NVSBWAIT 

0158 

REF 

4 

LAs  f 

261 

11,2215 

0 

5401 

1 

TC 

FREEDSP 

RELEASE  DISPLAYS 

0159 

REF 

13  LAST  262 

11,2216 

0 4063  0 

TC 

BANKCALL 

CALL  MODE  SWITCH  PROG 

0160 

REF 

1 

11,2217 

26227  1 

CADR 

IMUFINE 

0161 

REF 

1 4 LAST  263 

0162 

REF 

4 LAST  261 

0163 

REF 

6 LAST  261 

0164 

RcF 

1 

0165 

REF 

15  LAsT  265 

0166  REF  2 LAST  215 


11.2220  0 4063  0 

11.2221  26716  0 

11.2222  0 2056  0 


11 

11 


2223 

2224 


3 2301  1 
0 4063  0 


11,2225  26317  0 


TC  BANKCALL  HIBERNATION 

cadr  imustall 

TC  ENDExTVB 


FINEK2  CAF  LGYR0BIN  PINBALL  LEFT  COMMANDS  IN  OGC  REGIST5RS 

TC  BANKCALL  " 

CADR  IMUPULSE 


0167  REF  16  LAST  263 

0168  REF  5 LAST  263 

0169  REF  7 LAST  263 

0170  REF  8 LAST  263 

0 1 7 1 

0172 


11,2226 

11,2227 

11,2230 

11,223! 


2232 

2233 


0 4062TJ  TC  BANKCALL  WATT  FOR  PULSES  TO  GET  OUT, 

26716  0 CADR  IMUSTALL 

0 2056  0 TC  ENDEXTVB 

0 2056  0 TC ENDEXTVB 


02567  1 VNLODGYR  OCT  02567 

04200  1 TMUFlNEV  DcT  04200  FINE  AlIGn  VERB 


A 


4 
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L 

EXTENDED  VERBS 

USER'S  OWN  PAGE  NO.  7 

PO  173 

designate  to  desired  gimbal  angles. 

0 1 7 4 

REF 

6 LAST  263 

11,2234 

0 2040 

1 

RRDESNBK 

TC 

TESTXACT 

0175 

"REF 

3 LAST  263 

11,2235 

0 5317 

1 

TC 

GRABWAIT 

01 76 

" 7RE  F 

’ 1 

11,2236 

3 2255 

1 

CAF 

VNLDRCDU 

ASK  FOR  GIMBAL  ANGLES, 

0177 

REF 

9 LAST  263 

11,2237 

0 5332 

0 

TC 

nvsbwait 

0178 

REF 

7 LAS  I 263 

11,2240 

0 5140 

1 

TC 

ENDIDLE 

WAIT  FOR  THE  LOAD 

0179 

REF 

4 LAST  263 

11,2241 

0 2055 

0 

TC 

TERMEXTV 

0180 

11,2242 

0 2243 

0 

TC 

+ 1 

PROCEED 

0181 

REF 

17  LAST  263 

11,2243 

0 4063 

0 

TC 

BANKCALL 

ASK  OP  FOR  LOCK  ON  REQUIREMENTS, 

0182 

REF 

1 

11.2244 

23001 

T 

CADR 

AURLOKON 

0i83 

REF  ~ 

1 

11,2245 

3 2153 

1 

CAF 

OPTCOARV 

RE-DISPLAY  OUR  OWN  VERB 

0184 

~ RE? 

10  LAST  264 

11,2246 

0 5332 

0 

TC 

nvsbwait 

0185 

11,2247 

0 0004 

0 

INHINT 

FIRE  UP  JOB  TO  DO  DESIGNATE, 

”0186 

REF 

1 

11,2250 

3 7642 

0 

CAF 

PR  1 020 

0187 

REF 

3 LAST  241 

11,2251 

0 4374 

IT 

1 ^ 

FINDVAC 

0188 

11,2252 

02256 

r 

2CADR 

RRDESK2 

cores 

REF 

1 

11,2253 

22005 

l 

”0189 

REF 

5 LAST  264 

11,2254 

1 2055 

i 

TCF 

TERMEXTV 

FREES  DISPLAY. 

0190  “ 1 1 *2255  02441  1 VNLDRCOU  OCT  2441 

0191  REf  2 LAST  261  ~ 11*2153  OPTcOARV  EaUA^TMUcDARV  D I F F ERENT  NOuNS. 


0T92  REF  6 LAST  242  11,2256  0 6000  1 RRDESK2  TC  INTPREt 


0193  11*2257  77634  0 CALL 

0194  REF  ~1  11*2260  20363  0 — _ RRpEsNB  RETURNS  IN  BASIC* 

0195  REF  2 LAST  260  11,7261  0 2122  1 TC  RWAITK 


R 0 1 9 6 PLEASE  PERFORM  VERB  AND  PLEASE  MARK  VERB PRESSING  ENTER  INDICATES 

R0197  ACTION  REQUESTED  HAs  BEEN  PErFOr(MED,  AND  DOES  SAME  RECALL  As  A COMPLETED 

R0T9TS  LOAD,  CPERATOR  SHOULD  DO  VB  PROCEED  WITHOUT  DATA  IF  HE  WISHES  NOT  TO 

RCI99  PERFORM  THE  REQUESTED  ACTION, 


0200 

REF 

1 " 

11*2262 

0 5300 

I 

GOLCADLV  TC  - 

“FLASHOFF 

C201 

REF 

2 lAsT 

259 

1 1 ,2263 

0 2060 

0 

TC 

XACTO 

0202 

RtF 

6 LAs  1 

255 

11.2264 

0 4102 

0 

TC 

POSTJUMP 

0203 

Rth 

1 

1 1 *2265 

12002 

0 

“CADR  ” 

LOADLVT 

4 
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L EXTENDED  VERBS  I USER'S  OWN  PAGE  NO.  “ 8 

~Fg20A~  KEYBOArITrEQUEST  TO  PULSE  TORQUET  'IRIGA 


02  0 5 

REF 

7 

LA5T  264 

11,2266 

0 2040 

1 

TORQGYRS 

TC 

testxact 

GYRO  TORQUING  WITH  NO  MODE-SWITCH, 

0206 

REF 

4 

LAST  264 

11,2267 

0 5317 

1 

TC 

grabwait 

' 0207 

REF 

2 

LAST  263 

11,2270 

3 2232 

0 

CAF 

VNLODGYR 

0208 

REF 

11 

LAST264 

11,2271 

0 5332 

0 

TC 

NVSBWAIT 

0209 

REF 

8 

LAST  264 

11,2272 

0 5140 

1 

TC 

ENDIDLE 

0210 

REF 

6 

LAST  264 

11,2273 

0 2055 

0 

TC 

TERMEXTV 

0211 

11,2274 

0 2275 

0 

TC 

♦ 1 

0212 

REF 

1 

11,2275 

3 2302 

1 

CAF 

TORQGYRV 

RE-DISPLAY  OUR  OWN  VERB 

0213 

REF 

12 

LAST  265 

11,2276 

0 5332 

0 

TC 

NVSBWAIT 

021 4 

~ REF~ 

5 

LAST  263 

11,2277 

0 5401 

1 

TC 

FREEDSP 

0215 

REF 

1 

11,2300 

1 2223 

1 

TCF 

FINEK2 

0216 

REF 

6 

LAST  212 

11,2301 

00403 

0 

lgyrobin 

ecadr 

DELVX 

0217 

11,2302 

05400 

0 

torqgyrv 

OCT 

05400 

I 
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L EXTENDED  VERBS  __  ______________  USER'S  ^QWN  PAGE  NO.  9 


P0218 

ALIGN  TIME 

0219 

REF 

1 

11*2303 

3 2326 

1 

altnttme 

CAF 

VNLODDT 

USES  TNVSUBMON.  DOES  NOT  TEST  DSPLOCK. 

0220 

“REF 

2 LAST 

225 

11,2304 

54  107 

0 

TS 

NVTEMP 

DOES  NOT  KILL  MONITOR. 

0221 

REF 

1 

11,2305 

0 5123 

1 

TC 

NVSUBMQN 

0222 

REF 

14  LAST 

259 

11,2306 

0 4440 

0 

TC 

“ENDOF JOB 

IN  CASE  OF  ALARM  IN  LOAD  REQUEST  SET  UP, 

13223 

REF 

9 LAST 

265 

11,2307 

0 5140 

1 

“TC 

ENDIDLE 

0224 

REF 

15  LASl 

266 

11,2310 

0 4440 

0 

TC 

ENDOF JOB 

TERMINATE 

0226 

REF 

i6  LAST 

266 

11,2311 

0 4 4401 

0 

TC 

ENDOF JOB 

proceed  WITHOUT  DATA 

13226 

11,2312 

0 0004 

0 

UPDATIME 

INHTNT 

DELTA  TIME  IS  IN  DSPTEMl , +1. 

0227 

REF 

90  LAST 

255 

11,2313 

3 7665 

0 

CAF 

ZERO 

0228 

REF 

4 I 6 TAST 

262 

11,2314 

54  142 

I 

TS 

“MPAC  *2 

NEEDED  FOR  Tp  AGREE 

0229 

RtF 

63  LA5T 

253 

11,2315 

54  001 

1 

T5 

L 

ZERO  T1  6 2 WHILE  ALIGNING. 

02:30 

RtF 

3 LAST 

247 

11,2316 

52  025 

1 

DXCH 

TIME2 

0231 

"RtF 

41  7 lAST 

266 

11,2317 

52  141 

i 

DXCH 

MPAC 

0232 

REF 

1 

11,2320 

52  334 

1 

dxch 

DSPTEM1 

INCREMENT, 

0233 

REF  418  LAST 

266 

11 ,2321 

20  141 

1 

DAS 

MPAC 

0234 

RtF 

2 LAST 

198 

11,2322 

0 7235 

1 

TC 

TPAGREE 

FORCE  SIGN  AGREEMENT. 

0235 

RtF  419  LAST 

266 

11,2323 

52  141 

1 

dxch 

MPAC 

NEW  CLOCK. 

“H236 

RtF 

4 LAST 

266 

11,2324 

20  025  1 

“DAS 

TIME2 

“ 0237 

REF 

17  LA5T 

266 

11,2325 

0 4440 

0 

TC 

ENDOFJOB 

02T8 


11*2326  02124  1 VNLODDT  OCT 


02124 


V/N  FOR  LOAD  DELTA  TIME 
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L EXTENDED  VERBS  _ ” ___  USER'S  OWN  PAGE  NO.  10 

PQ243  5ELICTAND  INITIATE  De5TReP~5YSteM  TEST  PROGRAM. 

0244  REF  1 E5  £BANK=  QPLACE 


0245  REF  5 LAST  1 5 1 ”11*2327  10  276  0 SYSTEST  CCS  MODREG  DEMAND  MODE  00. 

0246  REf  2 LAST  258  1 1 *2330 ”~T~2053  1 TCF  XACTALM 


0247 

REF 

5 LAST 

265 

11*2331 

0 5317 

1 

TC 

GRABWAIT 

0248 

REF 

1 

11,2332 

3 2376 

1 REDO 

CAF 

LQPL 

ASK  FOR  TEST  OPTION  (1  - 7) . 

0249 

RcF 

420  LAST 

266 

11,2333 

54  142 

1 

TS 

MPAC  +2 

0250 

REF 

1 

11,2334 

3 2375 

1 

CAF 

TESTNV 

0251 

REF 

13  LAS  1 

265 

11,2335 

0 5332 

0 

TC 

NVSBWAIT 

02  52 

RtF 

10  LA5I 

266 

11 ,2336 

0 5140 

1 

TC 

END IDLE 

0253 

RcF 

1 

11,2337 

0 4437 

0 

TC 

EJFREE 

0254 

REF 

1 

11*2340 

0 2332 

1 

TC 

REDO 

(3255  REF  1 

11,2341 

0 4667  1 

TC 

NEWMODEX 

0256 

11,2342 

00007  0 

OCT 

07 

D257 

11,2343 

0 0004 

0 

INHINT 

0258 

REF 

2 

LAST  264 

1 1 ,2344 

3 7642 

0 

CAF 

PRI020 

0259 

REF 

4 

LAST  264 

11,2345 

0 4374 

0 

1 c 

F1NDVAC 

“02'60 

i 1 ,2346 

02351 

1 

2CADR 

nrsELECT 

C0260 

REF 

1 

11,2347 

22005 

1 

0261 

RcF 

18 

LASI  266 

1 1 ,2350 

0 4440 

0 

TC 

ENDOF JOB 

LEAVING  DISPLAY  GRABBED  FOR  SYSTEM  TE5T, 

0262 

REF 

2 

LAST 

148 

11,2351 

3 

5224 

0 

TSELECT  CAF 

LOWS 

0263 

ref 

2 

last 

267 

11,2352 

7 

1546 

0 

MASK 

qplace 

0264 

REF  179 

LAST 

262 

11.2353 

50 

000 

I 

INDEX 

A 

0265 

RCF 

1 

11,2354 

3 

2356 

0 

CAF 

TESTCADR 

0266 

REF 

3 

LAST 

238 

11,2355 

0 

4105 

1 

TC 

BANK JUMP 

SAFETY  play. 


0267 

REF 

13  LAST  259 

11,2356 

22066  1 

TESTCADR 

CADR 

ALM/END 

0 ILLEGAL 

0268 

REF 

1 

11,2357 

36000  1 

CAdR 

IMUTEST 

i gyro  drift  test 

0269 

RcF 

1 

11,2360 

36024  1 

TADR 

“ IMUBACK 

2 REPEAT  OF  1MUTEST 

0270 

RcF 

1 

11,2361 

30000  1 

CADR 

AOTNBIMU 

3 IMU  ALIGNMENT  TEST 

0271 

RcF 

1 

11,2362 

36245  1 

CADR 

OPCHK 

4 IMU  CHECK 

0272 

PcF 

1 

il ,2363 

36445  1 

“CfiDR 

gyksftst 

5 GYRO  TORQU I NG  TEST 

0273 

11,2364 

22364  0 

CADR 

AVAILABLt 

0274 

REF 

1 

1 1 ,2365 

43413  0 

CADR 

GTSCPSS 

7.  OPTIMUM  COMPASS 

0275 

RcF 

I 

11,2366 

34556  0 

~CADR~ 

5AM0DCHK 

10  SEMI-AUTOMATIC  MOD TNG  CHECK 

0276 

RtF 

1 

11 ,2367 

31324  0 

CADR 

SAUTOIFS 

11  SEMI-AUTOMATIC  INTtRFACE  TEST 

0277 

REF 

1 

1 1 , 2370 

31562  1 

CADR 

AOTANGCK 

12  AOT  ANGLE  CHtCK 

0278 

RcF 

1 

11*2371 

31 120- 0 

CADR 

RDRINIT 

13  RENDEZVOUS  RADAR  / ANTENNAE  TRACKING 

0279 

REF 

1 

11,2372 

22403  0 

CADR 

FSTRSAMP 

14  HIGH  SPEED  RADAR  SAMPLING, 

U23U 

RtF 

i 

11,2373 

31613  1 

CADR 

~ZER0ERA5 

0231 

REF 

1 

11,2374 

23030  0 

CADR 

DISINDT 

display  inertial  data  test. 

0282 

1 i *23  rs 

02101  0 

TESTNV 

OCT 

2101 

0283 

RcF 

3 LAST  26 T 

1 i *2376 

02546  1 

LQPL 

~ECADR~ 

QPLACE 

i^- 
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L EXTENDED  VERBS  USER'S  Own  page  no.  11 

0284  RIF  rXSST  _2  64  “ _Tl,2377  0 4102  0 GOSHOSUM  TC  POSTJUMP  START  ROUTINE  TO  DISPLAY  SUM  OF  EACH 

0285  REF  1 11.2400  41454  1 CADR  SHOWSUM  BANK  ON  DSKY 

02a6 REF  8 LAST 268  11.2401  0 4102  0 DOFCSTST  TC  POSTJUMP 

~0287  REF  1 11*2402  14000  1~  CApR  FCSSTART 
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extended  verbs 


USER'S  OWN  PAGE  NO.  ~ 12 


P0288 


SET  UP  FOR  RADAR  SAMPLiimG. 


0289 

REF 

7 

LAST 

257 

E7 

EBANK= 

rstklqc 

0290 

REF 

1 

1 1 *2403 

3 24  f 2 1 

FSTRSAMP  CAF 

RSTKLIST 

HIGH  SPEED  SAMPLING.  SWITCH  TO  SPECIAL 

0291 

REf 

2 

LAST 

158 

11,2404 

54  411  1 

TS 

DNL5TADR 

DOwNL 1ST, 

0292 

REF 

53 

LAST 

257 

1 1 ,2405 

4 7657  0 

CS 

ONE 

WANTS  TM  BUFFERING. 

0293 

REF 

1 

11,2406 

1 2411  0 

tcf 

RSAMPTST 

0294 

0295 


REF 

REF 


6 LmST  267 


11 

11 


2407 

,2410 


0296 

REF 

421 

LAST 

267 

11,2411 

54  142 

1 

RSAMPTST  TS 

MPAC  +2 

"0297 

11,2412 

0 0004 

0 

inhint 

0298 

REF 

1 

11,2413 

4 2474 

0 

CS 

LRPOSCAL 

INITIALIZE  SCALE  AND  LR  POSITION  BITS, 

0299 

REF 

69 

LAST 

255 

11,2414 

7 0413 

0 

MASK 

RADMODES 

" "0300 

"REF" 

70 

LAST" 

269 

11,2415 

54  413 

0 

TS 

RADMODES 

0 5317  1 
3 2473  0 


REGRSAMP  TC 
“CAT 


GRABWAIT 
TSEC  + 1 


SHOWS  NO  TM  BUFFERING. 


0301 

REF 

2 LAST 

269 

11,2416 

3 2474 

1 

CAF 

LRPOSCAL 

0302 

11,2417 

0 0006 

1 

EXTEND 

0303 

11,2420 

02  033 

0 

RAND 

33 

0304 

REF 

71  LAST 

269 

11,2421 

26  413 

0 

ADS 

RADMODES 

0305 

11,2422 

0 0003 

1 

RELINT 

0306 

REF 

1 

11,2423 

3 2444 

1 

CAF 

LRT5TDEX 

0307 

“REF 

11  EAST 

217 

11,2424 

54  003 

0 

TS" 

EBANK 

0308 

REF 

422  LA5T 

269 

11,2425 

56  142 

0 

XCH 

MPAC  +2 

0309 

RcF 

3 LAST 

257 

1 l *2426 

55,435 

0 

TS 

RSAMPDT 

HI  SPEED  NNZ  - LO  SPEED  PNZ. 

“03T0 

"REF" 

91  LA5 1 

266 

I1,2T427 

3 7665 

0" 

" C AF  ' 

ZERO 

0311 

REF 

4 LAST 

256 

1 1 ,2430 

55 • 434 

1 

TS 

RTSTlOC 

0312 

REF 

2 Last 

256 

11 ,2431 

55*436 

0 

TS 

rfailcnt 

ZERO  BAD  SAMPLE  COUNTER. 

0313 

KfcF 

r 

11,2432 

3 2470 

"0 

““CAF  " 

"HISPMAX 

~0314 

REF 

2 LA5  I 

256 

11,2433 

55 • 432 

1 

TS 

RTSTMAX 

0315 

REF 

1 

" IT, 24 3 4 

■3"  2471 

1 

CAF 

"rTSTNV 

0316 

REF 

1 4 

LAST  267 

11,2435 

0 5332 

0 

TC 

NVSBWAIT 

0317 

REF 

1 1 

LAST  267 

11, 2436 

0 5140 

1 

TC 

ENDIDLE 

0318 

REF 

2 

LAST  267 

Hi  2437 

"0  4437 

v~ 

TC 

""EuFREE 

ON  TERMINATE. 

0319 

REF 

1 

1 1 ,2440 

1 2475 

1 

TCF 

RSEMIAUT 

PROCEED  MEANS  SEMI-AUTO  SEQUENCING. 

0320 

REF 

6 

LAST  265 

1 1 ,2441 

0 5401 

1 

RDRDFREE  TC 

FREEDSP 

0321 

REF 

4 

LAST  269 

11,2442 

11*435 

CT 

CCS 

RSAMPDT" 

SEE  IF  HI  OR  LO  SPEED  5AMPLING, 

0322 

11,2443 

1 2447 

0 

TCF 

+4 

"0323  HREF  3 LAST  257 


TT 


2444  03431  V LRTSTDEX  ECAOR  RTSTDEX 


0324 

0325 


REF 

"REF 


9 LAST  268 
“3  LAST  257 — 


2445 

2446 


0 4102  0 
21274  0- 


TC 

CAOFT 


POSTJUMP 

DORSAMP 


EXEC.  OTHERWISE,  SET  UP  WAITLIST  TIMING, 


0326 

-032T 


REF  6 LAST  257 

REF  4 LAST  269 


II 


2447 
0 


1 ,24-5' 


3 6162 
7 1431 


CAF 

MASK" 


"RTS  TO  EX" 


FIND  OUT  WHICH  RADAR  WANTED, 


cc 


473423A  YJL  SYSTEM  FOR  BLK2)  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10.  1966  (MAIN)  PAGE  270 


L.  .......  EXTENDED  VERBS  USER*S  OWN  PAGE  nO»  13 

”0320  REF  180  LAST  26 1~  11.2451  10!  000  0 CCS  A”~ 

0329  RTF  1 11.2452  1 2456  0~~  TCF  LRCYCLE  LANDING  RADAR  ARE  SERIALS  2 5. 


C33D  REF  2 LAST  256  " 11,2453  55*433  0 ”73  RTSTBASE  FOR  RR  BASE  = 0,  MAX  si. 

0331  REF  7 LAST  269  11.2454  "3  6U2  1 CAF  SIX 

0332  11,2455  1 2461  1 TCF  +4 


0333 

REF 

27  LAST  262 

11,2456 

3 7656  0 

LRCYCLE  CAF 

TWO 

FOR  LR  BASE  = 2,  MAX  = 3. 

0334 

REF 

3 LAST  2 7 0 

11,2457 

55*433  0 

TS 

RTSTBASE 

0335 

' REF 

1 

11,2460 

3 2467  0 

CAF 

18R 

0336 

REF 

3 

LAST  269 

11,2461 

55*432  1 +4 

TS  RTSTMAX 

0337 

11,2462 

0 0004  0 

INHINT 

0338 

REF 

26 

LAS  T”2  5 6 

1 1 ,2463 

0 4536  0 

~7C  WAITLIST 

0339 

11,2464 

03254  1 

2CADR  RADSAMP 

C0339 

REF 

2 

LAST  256 

11,2465 

20007  1 

0140 

' REF 

19 

LAST' 267 

11,2466 

0 4440  0 

TC  ENDOFJOB 

0341  11.2467  00022  1 18R  DEC  18 


0342 

11,2470 

00102  1 

hispmax  DEC 

66 

0343 

11,2471 

02101  0 

RTSTNV  OCT 

2101 

0344  REF  1 

11,2472 

02253  1 

RSTKLIST  5ENADR  FSTRADTM 

0345 

II  ,2473 

00145  1 

1SEC+1  DEC 

101 

0346 

11,2474 

00444  0 

LRPOSCAL  OCT 

444 

4 7 jg 23A  YJL  SYS TEM  FOR  BlK2S  REVISION  12.  OF  PROGRAM  AURORA  BY  pAP  GROUP 


NOV  10.  1966  (MAIN)  PAGE  271 


L extended  verbs 

USER'S  OWN  PAGE  NO,  14 

P0347  SEMi-AUTO  RADAR  TESTiNG. 

0348 

11*2475 

0 0004  0 

RSEM1AUT  INHINT 

TJ349 

REF 

2 

LAST  256 

11,2476 

3 4523  1 

CAF 

PRI025 

START  HI  SPEED  SAMPLING, 

~TT350 

RTF 

7 

LAST'  2 56 

IT  ,2477 

0 4363  0 

NOVAC 

0351 

11,2500 

03274  0 

2CADR 

DQRSAMP 

C0351 

RTF 

4 

LAST  269 

11,2501 

20007  1 

03  52 

11,2502 

0 0003  1 

RELINT 

03  53 

REF 

3 

LAST  159 

11,2503 

3 7664  1 

CAF 

five 

SEQUENCE  THROUGH  ALL  SIX 

CHANNELS, 

0354 

REF 

5 

LAST  269 

11,2504 

55 ' 43 1 1 

-1  TS 

RTSTDEX 

0355 

ref 

1 

11,2505 

3 2523  1 

33PASTE  CAF 

RV33 

ON  ENTER,  SWITCH  TO  NtXT 

CHANNEL. 

0356 

REF 

15 

LAST  269 

11,2506 

0 5332  0 

TC 

nvsbwait 

"0357 

' REF 

2 

LAST  219 

11,2507 

0 5274  0 

TC 

flasHoT“ 

0358 

REF 

12 

LASl  269 

11,2510 

0 5140  1 

TC 

END  IDLE 

0359 

REF 

1 

11,2511 

0 2516  1 

TC 

ENDRTST 

ON  TERMINATE, 

03'60“ 

T1,2512 

1 2514  1 

TCF 

+ 2 

0361 

REF 

r 

11,2513 

1 2505  1 

TCF 

33PASTE 

DONT  ACCEPT  DATA, 

0362 

REF' 

6 

LAST  271 

11,2514 

11*431  1 

CCS 

RTSTDEX 

0363 

REF 

2 

LAST  2 7 1 

11,2515 

1 2504  0 

TCF 

33PASTE  -1 

0364  - 

'REF 

92 

LAST'2  69 

11,2516 

3 7665  0 

ENDRTST  CAF 

ZERO 

ENDTEST. 

0365 

REF 

5 

LAST  269 

11,2517 

55*435  0 

TS 

RSAMPDT 

0366 

RtF 

2 

LAST  267 

11,2520 

0 4667  1 

T C 

NEWMODEX 

0367 

T 1 ,2521 

"OOOOO  1 

OCT  ' 

0 

0368 

REF 

3 

LAST  269 

11,2522 

0 4437T 

TC 

EUFREE 

17169  11*2523  03300  1 R733  OCT  3300' 


473423A  YUL'  SYSTEM  FQR  BU2  8 ReVISIQNi  12;  OF  PROGRAM  AURORA,  BY  DAPi  GROUP 


NOV  10*  1966  (MAIN)  _ PAGE  272 


L EXTENDED  VE-.SS  USER'S  OWN  PAGE  NO*  15 

P0370 ags  initialization'  program. 


0371  REF  2 LAST  I5I  11*2524  10  4l2  1 AGSINIT  ~CC5  AGSwORD  ZERO  IF  AGS  NOT  NOW  BEING  INITIALIZED. 

0372  REp  14  LAST  267  11,2525  0 2066  0 Tc  ALM/ENIT  DO  IT  LATER. 


♦ 

0373 

REF 

3 

LAST 

216 

11,2526 

3 0025  0 

CA 

TIME1 

0374 

REF 

1 

11,2527 

6 2564  1 

AD 

12SECS 

0375 

REF 

64 

last 

266 

11,2530 

54  001  1 

rs 

L 

0376 

REF 

1 

11,2531 

0 2546  1 

TC 

SENDIT 

0377 

11,2532 

0 0004  0 

INHINT 

T 1 WILL  OVERFLOW,  DELAY  FOR  12  SECS 

0378 

REF 

2 LAST 

272 

11,2533 

3 2564  1 

CA 

12SECS 

0379 

REF 

3 LAST 

272 

11,2534 

54'  412  1 

TS 

AGSWORD 

0380 

REF 

27  LAST 

270 

11,2535 

0 4536  0 

TC 

WAITLIST 

0381 

i 1 , 2536 

02541  0 

2CADR 

AGSJOB 

C0381 

REF 

1 

11,2537 

22007  0 

0382 

REF 

20  LAST 

270 

11,2540 

0 4440  0 

TC 

ENDOFJOB 

0383 

REF 

1 

11,2541 

3 4526  1 AGSJOB 

CAF 

PRI030 

ENTER  AGSINIT  JOB  VIA  EXEC 

X)  3 8 4 

*Ef~ 

8 LAST  271 

1 1 ,2542 

0 4363  0 

TC 

NOVAC 

0385 

11,2543 

02546  1 

2CA10R 

5ENDIT 

C0385 

REF 

2 LAST  272 

11,2544 

22007  0 

0386 

RET 

21  LAST  256 

11,2545 

0'  4602“  1 

TC 

TASKOVER 

0387 

11,2546 

0 0004  0 SENDIT 

INHINT 

0383 

REF 

1 

11,2547 

3 '2  5 65  “O' 

~caf 

CACslIsT 

switch  to  special  downlisT  FOR  10  SECS. 

0389 

REF 

3 

LAS  i 

269 

11,2550 

56  411  0 

XCH 

DNLSTADR 

0390 

RtF 

4 

LAS  1 

272 

11,2551 

54  412  1 

TS 

AGSWORD 

TO  SHOW  INITIALIZATION  IN  PROGRESS, 

0391  REF  1 11*2552  3 2563  0 CAF  10SECS 

0392  REf  28  LAST  272  11,2553  0 4536  0 TC  WAITLIST 

TW3  IT,2'55A  0255n  2TADR  A05TNTTT' 

C0393  REF  1 11,2555  22007  0 

0394  REF  21  LAST  272  11,2556  1 4440TT"  TCF  ENDOFJOB 


0395 

REF 

93 

LAST  27I 

11,2557 

3 7665  0 

AGSINIT2  CAF  ZERO 

END  OF  INITIALIZATION. 

0396 

REF 

5 

LAST  272 

11,2560 

56  412  0 

XCH  AGSwORD 

0397 

REF 

4 

LAST  272' 

11,2561 

54  411  1 

TS  T5NEST  ADR 

TREVERT  TO  ORIGINAL  DOWNLIST. 

0398 

REF 

22 

LAST  272 

11,2562 

1 4602  0 

TCF  TASKOVER 

0399 

11,2563 

01750  1 

10SECS  DEC  1000 

0400 

11,2564 

02260  1 

12SECS  DEC  1200 

0401 

REF 

1 

11,2565 

02001  1 

LAGSLIST  GENADR  AGSLIST 

nov  tOt  i 966  (Main ) pase  273 


0 


473423a  YJL  SYSTEM  FOR  BLK2 ! REVlSlO n 12.  OF  PROGRAM  AURORA  BY  DaP  GROUP 

0 ! _ = 


L EXTENDED  VERBS  V __  ______  __  __  __  ____  _____  _ USER ' S OWN  PAGE  NO.  16 

P0402  VB  43  lMU~ATTjTUDE  ERRPrMETER" LOADER. 


0403 

REF 

8 LAST 

265 

11,2566 

0 2040  1 

IMUATTCK  TC 

TESTXACT 

0 

0404 

REF 

1 

11,2567 

4 2631  0 

cs 

0CT50K 

REMOVE  COARSE  AND  ECTR  ENABLE. 

0405 

11,2570 

0 0006  1 

extend 

0406 

11,2571 

03  012  1 

WAND 

12 

1 ) 

0407 

REF 

7 LAST 

269 

11,2572 

0 5317  1 

TC 

GRABWAIT 

0408 

RtF 

2 LAST 

261 

11,2573 

3 2152  0 

CAF 

VNLODCDU 

__  __  ..  ') 

0409 

RtF 

16  LAS1 

271 

11,2574 

0 5332  0 

TC 

NVSBWAI T 

0410 

REF 

— T3  LAST 

271 

11,2575 

0 5140  1 

~TC 

ElMDIDLE 

0411 

REF 

7 LAST 

265 

11,2576 

0 2055  0 

TC 

TERMEXTV 

/ 

0412 

11,2577 

0 2600  0 

TC 

+ 1 

0413 

REF 

1 

11,2600 

3 2632  1 

CAF 

V43K 

redisplay  our  verb. 

0414 

REF 

17  LAST 

273 

11,2601 

0 5332  0 

TC 

NVSBWAIT 

0 

0415 

REF 

24  LAS  1 

254 

11  1 2602 

3 7652  1 

CAF 

BI1  6 

enable  error  counter. 

0416 

11,2603 

0 0006 

i 

EXTEND 

0417 

11,2604 

05  012 

1 

WOR 

12 

0418 

REF 

2a  LAST 

270 

11,2605 

3 7656 

0 

CAF 

TWO 

0419 

1 1 , 2606 

0 0004 

0 

INHINT 

0420 

REF 

29  LAST 

272 

11,2607 

0 4536 

0 

TC 

WAITLIST 

PUT  OUT  COMMAND  IN  .32 

SECS. 

0421 

11,2610 

02613 

1 

2CADR 

ATTCK2 

C0421 

ref 

1 

11,2611 

22007 

0 

0422 

RtF 

6 LAS  1 

273 

11,2612 

1 2055 

1 

TCF 

TERMEXTV 

FREES  DISPLAY. 

0423 

REF 

29  LAST 

273 

11,2613 

3 7656 

0 ATTCK2 

CAF 

TWO 

PUT  OUT  ALL  COMMANDS  - 

CDU  WILL  DO  LIMIT 

II  ' 

0424 

RtF 

140  [.AST 

262 

11,2614 

54  002 

1 

T5 

Q 

INCASE  Op  excess  data. 

0425 

RtF 

181  LAST 

270 

11,2615 

50  000 

1 

INDEX 

A 

0426 

RtF 

4 LAST 

262 

1142616 

3 0400 

“0 

THETAD 

0427 

11,2617 

0 0006 

1 

EXTEND 

• 

0428 

REF 

20  LAST 

254 

11,2620 

7 7643 

0 

MP 

BIT  13 

SHIFT  RIGHT  2. 

0429 

RtF 

T4I  LAST 

273 

IT, 2621 

50  002 

“0 

index 

0 

0430 

REF 

3 LASI 

193 

11,2622 

54  050 

0 

T5 

CDUXCMD 

♦ 

0431 

REF 

142  LAS  f 

273 

11,2623 

10  002 

1 

CC5 

Q 

0432 

“REF~ 

2 “LAST 

273 

" 11,2624 

I 2614 

I 

TCF 

ATTCK2  +1 

0433 

REF  1 

11,2625 

3 2633 

0 

CAF 

OCT7OK 

0434 

IT,  2626 

0 0006 

1 

EXTEND 

0435 

1 1 , 262  l 

05  014 

1 

WOR 

14 

0436 

REF  23  LAST  272 

11,2630 

1 4602 

0 

TCF 

TASKOVER 

* 


0 


0437 

— 0438 — 
0439 


2631  00050  1 

2632  04300  0 

2633  70000  0 


0CT50K 

V43K 


OCT 

OCT 


5CT 

4300 


0 


1 


CD 


473423A 

YJL 

SY5TEM  FOR  BLK2! 

REVISION 

12.  OF  PROGRAM  AURORA  By  DAP  GROUP 

NOV  10*  1966  (MAIN)  PAGE  274 

L 

extended  verbs 

USER'S  OWN  PAGE  NO,  17 

P0449 

PROGRAM  TO 

SCAN  CHANNELS  30  - 

32  FOR  CHANGES  IN  SELECTED 

INBITS,  CALLED  BY  SPECIAL  VERB, 

0451 

REF 

1 

E7 

EBANk=  MSGCNT 

0452 

REF 

22  LAST  251 

11,2634 

3 7657  1 

SETUPMSG  CAF  BITl 

BEGIN  SCAN, 

0453 

11,2635 

0 0004  0 

INHINT 

E454 

REF 

30  LAST  273 

11,2636 

0 4536  0 

TG  WAITLIST 

0455  ' 

11,2637 

02644  0 

2CADR  MSGSCAN  +2 

C0455 

REF 

1 

11,2640 

22007  0 

0456 

REF 

22  LAST  272 

11,2641 

0 4440  0 

TC  ENDOFJOB 

0457 

RcF 

8 LAST  24l 

11,2642 

0 4554  1 

MSGSCAN  TC  FIXDELAY 

E458 

11,2643 

00062  0 

DEC  50 

0459 

REF 

30  LAST  273 

11,2644 

3 7656  0 

CAF  TWO 

SCAN  ALL  3 CHANNELS  FOR  CHANGES. 

0460 

REF 

2 LASl  274 

11,2645 

55*606  1 

TS  MSGCNT 

“0461 

REF 

182  LAST  273 

1 1 ,2646 

50  ooo  r 

INDEX  A 

0462 

REf 

“1 

1 1 ,2647 

3 1603  0 

CA  LAST30 

old  value  of  inbits. 

0463 

11*2650 

0 0006  1 

EXTEND 

0464 

“REF 

3 LAST  274 

11,2651 

5 1606  0 

INDEX  MSGCNT 

0465 

11,2652 

06  030  1 

RXOR  30 

0466 

REF 

4 LAST  274 

1 i , 465 i 

51*606  0 

INDEX  MSGCNT 

0467 

REF 

1 

11*2654 

7 2724  0 

TASK  30MSGMSK 

0468 

11.2655 

0 0006  1 

EXTEND 

0469 

REF 

1 

11,2656 

1 2721  0 

BZF  NOMSG 

0470  REF  143  LAST  273  rr,2657  54  002  1 TS  Q SAVE  DIFFERENCE* 

0471  REF  5 LAST  274  11*2660  51*606  0 INDEX  MSGCNT 

0472  REF  2 LAST  274  11*2661  23*603  0 EXCfl  CAST  30  UPDATE  OLD-  VAEUE. 

0473  11*2662  0 0006  1 EXTEND 

0474  REF  65  LAST  27 2 11 ,2663 — 06  001  0 RXOR L 

“0475  REF  6 LAST  274  11,2664  51*606  0 TNDEX  MSGCNT” 

”0476  REF  3 EAST  274  11 ,2665  “55*603  1 TS LAST30 


0477 

11,2666 

4 0000 

“0  “ 

“COM 

0478 

RtF 

144  LAST  274 

11,2667 

56  002  0 

XCH 

0 

0479 

RtF 

145  LAST  274 

11,2670 

7 0002 

1 

MASK 

Q 

SEE  IF  ANY 

OF 

CHANGED  BITS  JU5T  ON. 

04rscr- 

“ 11,2671 

0 0006 

T 

EXTENTT 

0481 

RcF 

2 LAST  274 

11,2672 

1 2721 

0 

BZF 

NOMSG 

NO  ME5SAGE 

IF 

SO, 

0482 

RtF 

86  LASl  274 

1 1 , 2°73 

54  00  r 

1 

IS 

Ti 

0483 

RtF 

T LAST  274 

11,2674 

3 1606 

0 

CA 

MSGCNT 

0484 

11,2675 

6 0000 

1 

DOUBLE 

0485 

11,2576 

6 OCTOCr 

T “ 

DOUBLE 

0486 

RcF 

11  LASi  259 

11,2677 

7 7655 

1 

MASK 

BIT3 

0487 

RcF 

67  LASl  274 

1 1 ,2700 

7 0001 

1 

MASK 

L 

OF  8 8 

11,2701 

0 0005 

1 

EXTEND 

0489 

REF 

1 

11,2702 

1 2714 

0 

BZF 

NOTRHC 

0490  REF  8“EA5T  270  11*2703  3 6162  7 CAF SIX 


I* 


473423A 

YJL 

system  for  blk2; 

! REVISION 

12  OF  PROGRAM 

AURORA  By 

DAp  GROUp 

NOV  10,  1966  (MAIN)  pAGE  275 

L 

extended  verbs 

USER'S  OwN  PAGE  NO.  18 

0491 

REF 

31  LAST  274 

11,2704 

0 4536  0 

TC 

WAITLIST 

0492 

REF 

1 

E6 

EBANK 

= PCOM 

T?493 

11,2705 

03264  1 

2CADR 

RHCNTRL 

CO  4 9 3 

REF" 

1 

11,2706 

22006  1 

0494 

REF 

3 LAST  267 

11,2707 

3 7642  0 

CAF 

PRI020 

INITIATE  MONITOR. 

0495 

REF 

9 LAST  272 

11,2710 

0 4363  0 

TC 

NOVAC 

0496 

11,2711 

02733  1 

2CADR 

RHCMON 

CO  49  6 

REF 

1 

11,2712 

22007  0 

0497 

REF 

3 LAST  274 

11,2713 

1 2721  0 

TCF 

NOMSG 

0498 

REF 

1 

11,2714 

3 2727 

1 

NOTRHC  CAF 

0KT30 

0499 

REF 

8 

LAST 

274 

11,2715 

6 1606 

0 

AD 

MSGCNT 

0500 

REF 

22 

LAST 

218 

11,2716 

54  075 

1 

TS 

RUPTREG2 

0501 

REF  146  LAST  274 

11,2717 

4 0002  1 

CS 

Q 

0502 

REF  1 

11,2720 

0 2745  0 

TC 

VMESSAGE 

0503 

REF 

9 

LAST  275 

11,2721 

11*606 

1 NOMSG 

CCS 

MSGCNT 

0504 

RfcF 

2 

LAST  274 

11,2722 

1 2645 

0 

TCF 

MSGSCAN  +3 

“U5O5 

RtF 

3 

LAST_275 

11,2723 

1 2642 

1 

TCF 

MSGSCAN 

0506 

11,2724 

00017 

1 

30MSGMSK  OCT 

17 

0507 

11,2725 

77777 

0 

OCT 

77777 

0508 

11  %2126 

03777 

0 

OCT 

3777 

0509 

11,2727 

00030 

1 

OKT  30 

OCT 

30 

0510 

REF 

1 

11,2730 

0 2740 

0 

DESCB ITS 

TC 

MESSAGE 

descent  bits  come  here  IN  A, 

0511 

11,2731 

00016 

0 

OCT 

16 

05  T 2 

FEF~ 

TO  LAST  249 

1 1 • 2 f 32  0 ^60b 

0 

TC 

RESUME- 

0513“  REF  8 LAST  273  IT,  27  3 3 0 5317  l RHCMON  TC  HRABWAIT  FIRE  UP  D5KY  MONITOR. 

“05T4  REF  I 11,2734  3 2737  0 CAF  RHCMONVN' ' 

“0515  REF  18  LAST  273  11,2735  0 5332  0 TC NV5BWAIT 

0515  REF  4 LAST  271“  11,2736  0 443T~0  TC  EJFREE  — 

0517  11,2737  — 01645  I — RflCWONVN  OCT 1645 


V 
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l ' eXtfndep  Verbs  " user's  own  page  no,  19 


P0518 

MESSAGE 

DISPLAY  - 3 COMPONENT 

OCTAL, 

0519 

REF  23  LAST  275 

11,2740  54  075  1 

MESSAGE 

TS 

RUPTREG2 

NEW  CHANNEL  CONTENTS  ARRIVE  IN  A, 

0520 

REF  147  LAST  275 

11,2741  50  002  0 

INDEX 

Q 

CHANNEL  NUMBER  in  OCTAL  at  CALLER  +1, 

“0521 

11,2742  3 0000  1 

CAF 

0 

U522 

REF  148  LAST  276 

11,2743  24  002  0 

I NCR 

Q 

0523 

REF  24  LA5l  276 

11,2744  56  075  0 

XCH  RUPTREG2 

O524 

REF  22  LAST  204 

11*2745  54  O74  0 

VMESSAGE 

TS 

RUPTREG1 

FOR  VARIAbLE  CHANNEL, 

0525 

11,2746  0 0006  1 

extend 

0526 

REF  7 LAST  206 

11,2747  22  076  0 

DXCH 

RUPTREG3 

0527 

REF  1 

11,2750  3 4525  1 

CAF 

PRI027 

FIRE  UP  SPECIAL  JOB, 

0528 

REF  10  LAST  275 

11,2751  0 4363  0 

TC 

NOVAC 

“0529 

11,2752  02763  1 

2CADR 

DOMSG 

CU529 

REF  1 

11,2753  22007  0 

0530 

REF  23  LAST  276 

11,2754  52  075  1 

DXCrl 

RUPTREG1 

NEW  CONTENTS  TO  MPAC  - CHANNEL  NUMBER  TO 

0531 

REF  21  LAST  225 

11,2755  50  071  1 

INDEX 

LOCCTR 

MPAC  +1, 

0532 

REF  423  LAST  269 

11,2756  52  141  1 

DXCH 

MPAC 

0533 

REF  4 LAST  272 

11,2757  3 0025  0 

CA 

TIME1 

0534  " 

REF  22  LAST  276 

li  ,2760  50  071  1 

INDEX 

LOCCTR 

0535 

REF  424  LAST  276 

11  ,2761  54-  142  1 

TS 

MPAC  +2 

0536 

REF  8 LAST  276 

11,2762  0 0076  0 

TC 

RUPTREG3 

0537 

REF  9 LASi  275 

11,2763  0 5317  1 

DOMSG 

TC 

grabwait 

0538 

11,2764  0 0006  1 

EXTEND 

0539 

REF  425  LAST  276 

11  ,2765  3 0141  T) 

TDCA 

WAC 

0540 

REF  2 LAST  266 

11,2766  52  334  1 

DXCH 

DSPTEM1 

0541 

REF  426  LA5T  276 

11,2767  3 0142  0 

CA 

MPAC  +2 

U54 

REF  3 LAST  276 

1 1,2  7 7 0 54  33 5 "7T~ 

T5 

"DSPTEiMT  +2 

0543 

RtF  1 

11,2771  3 3000  1 

CAF 

MSGVN 

0544 

REF  2 LAST  225 

11,2772  0 5107  1 

TC 

NVSUB 

0545 

RtF 1"  “ 

11,2773  1 2775  I 

TCF 

IMBGBUSY 

0546 

REF  5 LAST  275 

11,2774  0 4437  0 

TC 

EjFREE 

11547"' 

11,2775  3 2777  1 

MSGBUSY 

CAP 

+ 2 

0548 

REF  T 

11,2776  0 5327  1 

TC 

NVSUBUSY 

0549 

REF  2 LASI  276 

11,2777  22764  1 

CADR 

DOMSG  +1 

0550 


11,3000  00535  T MSGVN 


OCT  0535 
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USER  * S OWN  PAGE  NO,  20 


Po55i  ' "Routine  for  aurora  only  to  ask  operator  if  rr  lock  on  requested.' 


0553 

REF 

2 

LAST 

207 

11,3001 

0 4112 

1 AURLOKON 

TC 

MAKECADR 

0554 

RcF 

6 

LAST 

240 

11,3002 

54  427 

1 

rs 

DESRET 

0 5 55 

~ REF 

2 

LAST 

2 71 

11,3003 

3 2523 

1 

CAF 

RV  33 

ASSUMES  DSKY  GRABBED. 

0556 

REF 

T9 

LAST 

275 

11,3004 

0 5332 

0 

TC 

NVSBWAIT 

0557 

RcF 

3 

LAb  1 

271 

11,3005 

0 5274 

0 

TC 

FLASHON 

0558 

REF 

14 

LAST 

273 

71  ,3006 

0 5140 

1 

TC 

END  IDLE 

0559 

11,3007 

1 3012 

0 

TCF 

+ 3 

ON  TERM, 

0560 

REF 

2 

LAST 

245 

11,3010 

3 7653 

0 

CAF 

LOKONFLG 

0561 

11,3011 

1 3013 

1 

TCF 

+ 2 

- 0562 

REF 

94 

LAST 

272 

11,3012 

3 7665 

0 

CAF 

ZERO 

0563 

11,3013 

0 0004 

0 

INHINT 

0564 

~ RE  F 

T8 

LAST  245 

11,3014 

56  061 

0 

XCH 

STATE 

0565 

REF 

" 1 

11,3015 

7 3027 

0 

MASK 

-LOKONFG 

0566 

REF 

19 

LAST 

277 

11 9 30 1 6 

26  061 

1 

ADS 

STATE 

0567' 

REF 

3 LAST 

277 

11,3017 

7 7653 

1 

MASK 

LOKONFLG 

IF  NO  LOCK-ON  CALLED  FOR,  SET  BIT15  OF 

0568 

RcF 

183  LA5T 

274 

11,3020 

10  000 

0 

CCS 

A 

RADMODES  TO  INDICATE  THAT  ARBITRARILY- 

0569 

11,3021 

1 3024 

0 

TCF 

+ 3 

LONG  DESIGNATION  IS  WANTED  (TO  BE 

TT570  REF  18  LAST  250  11*1022  3 7641  0 CAT  BTTl5  TERMINATED  BY  FRESH  START). 

0571  REF  7TTAST 269  11*3023  26  413  0~  ADS  RADmODES 


0572 

"0573  REF  7 "LAST  '277 

0574  REF  4 LA5T2F7 


11,3024'  0 0003  1 

11,3025 3 0427  0 

11*3026  1 4105  0 


RELINT 

Xfi  DESRET 

TCF  BANKJ'UMP 


0575 


TT73027  777571  -LOKONFG  OCT  =20 


il 
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PC576  P^pGRAM.TO  RUN  DISPLAY  INERTIAL  DATA  TEST. 


0577 

REF 

1 

11,3030 

3 

3120 

1 

DI5INDT  CAF 

flvelvn 

ASK  FOR  FORWARD,  LATERAL  VELOCITY. 

0578 

REF 

20  LAST 

277 

11,3031 

0 

5332 

0 

TC 

nvsbwait 

0579 

REF 

15  LAST 

277 

11,3032 

0 

5140 

1 

TC 

ENDIDLE 

0580 

REF 

1 

11,3033 

1 

3055 

0 

TCF 

ENDDISIN 

0581 

11,3034 

1 

3035 

0 

TCF~ 

+ 1 

0582 

REF 

1 

11,3035 

3 

3121 

0 

CAF 

ALT  ,R  ,VN 

ASK  FOR  INITIAL  AND  FINIAL  ALT I TUBES  AND 

0583 

REF 

21  LAST 

278 

11,3036 

0 

5332 

0 

TC 

nvsbwait 

ALTITUDE  RATE. 

0584 

REF 

16  LAST 

278 

11,3037 

0 

5140 

1 

TC 

ENDIDLE 

"0585 

"REF 

2 LAST 

278 

11,3040 

1 

3055 

0 

rep 

ENDDISIN 

0586 

11,3041 

1 

3042 

0 

TCF 

+ 1 

0587 

11,3042 

0 0004  0 

INHINT 

0588 

REF 

54  LAST 

269 

11,3043 

4 7657  0 

CS 

ONE 

0589 

REF 

5 LAS) 

166 

11,3044 

54  351  1 

T S 

DIDFLG 

0590 

11,3045 

0 0006  1 

EXTEND 

0591 

REF  “ 

4 LAST 

165 

1 1 ,3046 

3 0353  1 

OCA 

ALT 

SO  FOLLOWING  MONITOR  WORKS, 

0592 

"REF 

IT  LAST" 

165 

11,3047 

52  365  13 

“DXCH 

ALTSAVE 

0593 

REF- 

55  LAST  278 

11,3050 

3 7657  1 

CAF 

~~  ONE 

13594 

‘EEF 

32  LAST  275 

11,3051 

04536  0 

Tc 

WAIT LIST 

0595 

11,3052 

03063  1 

2CADR 

DISINLUP  +2 

C0595 

REF 

11,3053 

22007  0 

0596 

HREF" 

6 LAST  276 

11,3054 

1 4437  1 

TCF 

EJFREE 

0597  REF 

0598  Rep 

0599 


7 LAST  269 
3 LAST  271 


11*3055  0 5401  1 

IT73U56—0”4557Hr 

11.3057  00000  1 


ENDDISIN  TC 
—*l  TC~ 
OCT 


FREEDSP 

newmodex 

“0“ 


"CT600  REF  23  LAST  274 


T 1*3060  0 4440  0 


ENDOFJOB 
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USER'S  OWN  PAGE  NO.  22 


PG601 


WATCH  ALTSAVE  FOR  END  OF  PROBLEM. 


0602  REF 

0603 


9 LAST  274 


11.3061 

11.3062 


0604 

0605 


REF  r 


~ 0606 

REF 

42  LAST  253 

11,3065 

52  066 

0 

DXCH 

I TEMP  1 

0607 

11,3066 

0 0006 

1 

EXTEND 

0608 

REF 

12  LAST  278 

11,3067 

4 0365 

0 

DCS 

ALTSAVE  LATEST  ALTITUDE. 

0609 

REF 

43  LAST  279 

11,3070 

20  066 

0 

DAS 

I TEMPI 

0610 

REF 

44  LASI  279 

11,3071 

10  065 

0 

CCS 

I TEMPI 

0611 

"REF" 

1 

11,3072 

1 3112 

1 

TCF 

+ D I F 

0612 

11,3073 

1 3075 

1 

TCF 

+ 2 

0613 

REF 

1 

11,3074 

1 3116 

0 

TCF 

-DIF 

0614 

REF 

17  LAST  235 

11,3075 

10  066 

0 

CCS 

ITEMP2 

0615 

REF 

2 LAST  279 

11,3076 

1 3112 

1 

TCF 

+ DIF 

0616 

11,3077 

1 3101 

0 

TCF 

+ 2 

0617 

REF 

2 LAST  279 

11,3100 

1 3116 

0 

TCF 

-DIF 

0 4554  1 DISINLUP  TC 
00062"  0 DEC 


FIXDELAV 

50 


3063 

3064 


0 0006 
3 0356 


+ 2 


EXTEND 

DCA 


FINALT 


0618 

0619 

0620 


“RET 

REF 

REF 


95  LAST  277 
3 LA5T  166 
2 LAST  279 


"0621 

"REF 

5 

LAST 

278 

— n 

0622 

REF 

4 

LAST 

275 

11 

0623 

REF 

11 

LAST 

276 

11 

0624" 

11 

C0624 

REF 

3 

LA5I  278 

11 

0625 

Rtr  24 

LASI 

273 

11 

3101  3 7665  0 DISINDUN  CAF 

3102  54  354  1 

3103  52  356  0 

2T04  52"  35"3~0 

3 7642  0 
0 4363 


3105 

3106 

3107 
3110 
3Tir 


ZERO 
TS  ALTRATE 
DXCH  FINALT 
OXCH  ALT 
CAF^  PR  1 020 


:! 


IT 

" 03056  I 
22007  0 
1 4602  0 


TC 

"2CADR 


TCF 


NOVAC 

ENDDISIN 

TASKOVER 


TT 


0626  REF  4 LAST  2 79 

0627 


0628" 

0629 


IT 

11 


"REF 

REF 


TI 

11 


3112  3 0354  0 +DTF 

3113  0 0006TT“ 


3 1 1"4 
3115 


”6  "3T0TT 
1 3061  r 


CA  ALTRATE 
EXTEND 


SZMF 

TCF 


T 

2 LAST  2 78 


"DISINDUN 

DISINLUP 


0630 

0631 


""REF" 

REF 


5 LAST  "279“ 
3 LAST  279 


TT 

11 


3TT5  4 0354  1 -DIF 
31171  3113  0— 


C5  ALTRATE " 
TCF-  ♦ DIF  +1 


0632 

0633 


3120 

3121 


"02444  1 
02564  T 


tlvelvn  oct 

ALT.R.VN  OCT 


2444 

2564 


0638 

T3639 

0640 

—0641 

0642 

0643 


TT 

11 

II 

TT 

11 

11 


3122 

3123 

3124 

3126 

3127 


0 0004  0 
4 7646  0 
7 0765  1 
6 7646  1 
54  765  1 

1 4440  1 


REF 

REF 

-RET 

REF 

REF 


23  LAST  245 
- 9 LAST  188 
-24-LAST  279 

10  LAST  279 

24  LAST  278 


"MTTTIWP 


TWINT"-" 

CS  B1  TlO 

MASK  DAPBOOLS 
BIT  10 


BIT  10  OF  DAPBOOLS  INDICATES  MINIMP  MODE 


-ACT- 

TS 

TCF 


DAPBOOLS 

ENDOFJOB 


BIT  10  OF  DAPBOOLS  NOr PRESENT. 
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0644 

11*3130 

0 0004 

0 

NOMINI MP  INHINT 

”0645 

REF 

25 

LAST 

279 

11,3131 

4 7646 

0 

CS 

B I HO 

0646 

REF 

Tl 

LAST 

2 79 

11,3132 

7 0765 

1 

MASK 

DAPBOOLS 

0647 

REF 

12 

LA5T 

280 

11,3133 

54  765 

1 

TS 

DAPBOOLS 

A ZERO  IN  POSITION  10  OF  DAPBOOLS  NOW, 

0648  11*3134  0 0006  1 

0649  REF  8 LAST  222  11*3135  3 0033  1 

0650  RIF  1 11*3136  52.  775  0 

”10651  REF  7 LAST  222  ”11,3137  3 0034  0 

”0652  REF  1 1173140  54'  776  0 

0*653  REF  25”L£ST”279  TIT3T4I  1 4440  1 


“Extend 

DEA  CDUX 

DXCH  CDUXD 

CA  CDUZ 

TS  " CDUZD 
TCP  ENDOFJOB 
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P0654"  VBI  6Q' PREPARE  FOR.  STANDBY  OPERATION! 

R0655  ROUTINE;  WRITTEN  FOR  TEST  ROPES-  ONLY**#-  MUST  BE  UPDATED  TO'  INCLU D e 
RQ656  ' FL.I5HT~REQUIREMEiMTS  FOR  FLIGHT  OPERATION 


065?  REF  39  LAST  159 


E3  EBANK = LST 1 


0658 

REF 

1 

11,3142 

3 3263 

0 

PRESTAND 

CAF 

EBANK3 

COMES  HERE  FROM  LST2FAN 

0659 

REF 

12 

LAb  I 

269 

11,3143 

56  003 

1 

XCH 

EBANK 

SET  UP  EBANK  FOR  BANK  3 

0660 

11,3144 

0 0004 

0 

INHINT 

0661 

REF 

5 

LAST 

276 

11,3145 

3 0025 

0 

CA 

TIME1 

0662 

REF 

1 

11,3146 

55*502 

0 

T 5 

TIMESAV 

THIS  ROUTINE  wILL  LOOK  AT  TlMEl  UNTIL 

0663 

ReF 

2 

LAST 

275 

11,3147 

3 2727 

1 

CAF 

OKT  30 

TIME1  IS  INCREMENTED,  THEN  IT  WILL 

"0664 

RtF 

1 

11,3150  55  * 506 

1 

LONGER 

TS 

timar 

SNATCH  THE  MISSION  TiME  REGS  AND  STORE 

0665 

REF 

2 

LAST 

281 

11,3151 

4 1502 

0 

C5 

TIMESAV 

THEN  IN  TIMESAV  FOR  LATER  ISE  IN  ARITH, 

0666 

RcF 

6 

last 

281 

11,3152 

6 0025 

0 

AD 

TIME1 

OPERATIONS  WHICH  SHOULD  FIND  THE 

0667 

11,3153 

0 0006 

1 

EXTEND 

STANDING  DIFFERENCE  BETWEEN  THE  SCALAR 

0668 

REF 

1 

11,3154 

1 3161 

0 

3ZF 

CHKTIME 

AND  THE  T1ME1-TIME2S  REGS. 

0669 

11,3155 

0 0006 

1 

EXTEND 

0670 

REF 

5 LAST  266 

1 1 , 3 1 56 

3 0025 

0 

DCA 

T 1 ME2 

READ  AND  STORE  THE  Dp 

time  and  go 

0671 

REF 

3 LA5T  281 

11,3157 

53*503 

1 

DXCH 

TIMESAV 

READ  THE  SCALAR  USING 

THE  EXISTING  PROG 

0672 

KEF 

r 

11,3160 

1 3 16  7 

0 

TCP 

CATCHFIN 

FI  NET  I MET 

0673  REF  2 LAST  281 

0674  RIF  T~ 

0675 

0676  "RCF  17  LAST  157 

OFT?  ReF  2 LAST’  126 

0678  REF  2 LAST  281 


11.3161  1 1 ' 506  1 CHKTIME  CCS  TIMAR 

11.3162  0"""3 1 SO  0 TC  LONGER 

11.3163  0 0003  1 RELINT 

11.3164  10  067  I CCS  NEWJOB 

11,3165"“  0 4404  0 TC  CHA'NGlT" 

— 11,3166  0 314 7 0 TC  LONGER  -1 


MUST  WATCH  THE  TIME  SPENT  IN  INHIMT  OR 
~TFiE  “COPS  MIGHT  CATCH  US.  “ 


GO  BACK  ANO  LOOK  AGAIN 


0679 

REF 

11,3167 

0 5470 

T~ 

"CATCHFINl  TC 

FINETIME 

W1LL~READ  CHANNELS  3 

AND  4 AND  RETURN" 

0680 

ref 

1 

1 I , 3 1 7U 

53*505 

1 

dxch 

SCAlsAV 

WITH  3 IN  A AND  4 IN 

L*« 

0681 

11,3171 

0 0003 

1 

relint 

0"68"2 

~ReF 

19  LAST 

250 

11 ,31T2"" 

4 7654 

"0~ 

C5 

C1T4 

0683 

ReF 

52  LAST 

205 

11,3173 

7 0367 

1 

MASK 

1M0DES30 

INHIBIT  THE  IMU  FAIL 

LIGHT , 

0684 

REF 

20  LA5T 

281 

11,3174 

6 7654 

1 

AD 

BIT4 

0685 

"RCF 

53  LA5T 

281 

" 11,3175 

54  367 

1 

TS 

TM0DES30 - 

0686 

0687 

0688 


REF  21  LAST  281  11,3176  3 7654  1 

11,3177  0 0006  T 

ri,3200  133 nn 2 r 


CAF  BIT4  SET  ALL  CHAN  12  BIT5  EXCEPT  C/A  TO  ZERO, 

"EXTEND THIS  IS  NECESSARY  "50  THAT  THE  GIMBALS  DO 

"WAND 12  NOT  DRIFT  INTO  GIMBALLOCK  IF  THE  SYSTEM 


“ 0689 REF — 22  "LAST  281 

— 0690 
0691 


"TT 

II 

11 


3201^3  ~TF?4nr 

3202  0 0006  r 

3203  05  012  r 


CAF BIT4 

- EXTEND  “ 

WOR  12 — 


SHOULD  BE  IN"  "OPERATE  AT  THE'TTMET  5TBr 
WAS  STARTED*  THIS  SECTION  WILL  MAKE 
SURE  THE  IMU  IS  IN  C/A 


0692" 

0693 

0694 


REF  19  LAST  249 


11.3204  3 7645TT 

11.3205  0 0006  1" 
11,3206 — 05  013  CT 


CAF BTT1I  — WHEN  BIT  11  IS  PRESENT  IN  CHANNEL  13  THE 

EXTEND — DSKY  PB,  CAN  THEN  ENERGIZE  THE  STANDBY 

"WOR 13 RILAyiNTHE  CGC  PWR  SUPPLIES...,  " 
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L I EXTENDED  VERBS  ””I  ””  I “7  7 USER'S  Own  page  NO.  26 

_P0696  V B 61  RECOVER  "FROM  STANDBY  OPERATION  “ 

R0697  ROUTINE!  WRITTEN  FDR  TEST  ROPES  ONLY****  MUST  Be  UPDATED  TO  INCLUDE 

RW98  FLTGHT  REQUIREMENTS  FOR  FLIGHT  01*ER"ATlONS  SEQUENCES. ...  ~~ 


0699 

""“REF 

“ 2 LAST  281 

11,3210 

3 3263  0 POSTAND 

CAF  EBANK3 

COMES  HERE  FROM  LST2FAN 

0700 

REF  “ 

13  LAST  281 

11,3211 

56  003  1 

XCH  EBANK 

SET  UP  EBANK  FOR  BANK  3 

H70I 

"REF  ” 

2 EAST  281 

11,3212 

0 5470  1 

TC  FINETIME 

0702 

REF 

3 LAST  281 

11,3213 

53 ' 507  0 

DXCH  TIMAR 

READ  THE  SCALAR  AND  SEE  IF  IT  OVERFLOW- 

0703 

11,3214 

0 0003  1 

RELINT 

ED  WHILE  THE  CGC  WAS  IN  STBY,  IF  SO 

0704 

REF 

4 LAST- 283 

11,3215 

3 1 ' 506  0 

CAE  TIMAR 

THE  OVERFLOW  MUST  BE  ADDED  OR  IT  WILL 

0705 

11,3216 

0 0006  1 

EXTEND 

SEEM  THAT  THE  REALATIVITY  THEORY  W0RK5 

0706 

REF 

2 LAST  281 

11,3217 

61*504  1 

su  scalsav 

BETTER  THAN  IT  SHOULD... 

0707 

11,3220 

0 0006  1 

EXTEND 

0708 

REF 

1 

11,3221 

6 3244  0 

BZMF  ADDTIME 

IF  ITS  NEG,  IT  MUST  HAVE  OVtFLWD,. 

07o9 

REF 

7 LAST  264 

11,3222 

0 6000  1 

TC 

INTPRET 

0710 

11,3223 

45345  1 

dload 

DSU 

IF  IT  DID  NOT  0V-FLW.  FIND  OUT  HOw  LONG 

0711 

REF 

5 LAST  283 

11,3224 

01507  1 

TIMAR 

THE  CGC  WAS  IN  STBY  BY  SUBTRACTING  THE 

0712 

REF" 

3 LAST  283 

11,3225 

01505  0 

SCALSAV 

SCALAR  AT  THE  START  OF  STBY  FROM  THE 

0713 

11,3226 

45061  1 

SRR 

RTB 

SCALAR  AT  THe  END  OF  STBY  AND  THEN  ADD 

0714 

11,3227 

01606  0 

5 

THE  DIFFERENCE  TO  THE  TIME  EXISTING 

“0715 

REF 

“I 

11*3230" 

33406  0 

SGNAGREE 

WHEN"  THE  SCALAR  WAS  READ  AT  STBY  ENTRY** 

0716 

11,3231 

77615  0 

dad 

0717 

REF 

4 LAST  281 

11,3232 

01503  0 

TIMESAV 

0718 

REF 

6 LAST  283" 

11  1 32  33 

0T507  1 

STORE 

"TIMAR 

0719 

11,3234 

77776  1 

exit 

0720 

11,3235 

0 0006  1 

CORCTTIM  EXTEND 

0721 

"REF~ 

7 LAsf  283 

11,3236 

3 1507  1 

DCA 

TIMAR 

This  is  The  corrected  time  to  be  read 

0722 

~ 1 RtF 

6 LAST  281 

11,3237 

52  025  1 

DXCH 

TiME2 

INTO  TIME1  AND  TIME2  REG5.  ADDR  24-25 

0723  REF  20  LAST  2sl 

0724 
0T25 

0726  REF  27  LAST  282 


11*3240  4 7645  0 

11.3241  0 0006  r 

11.3242  03  013  0 

11.3243  0 4440  0 


T5~  BITll 

EXTEND  DISABLE  The  DSKY  sTBY  PUSHBUTTON. 

■SAND  I~3 
TC  ENDOFJOB 


0727 

11,3244 

0 0006 

I " ADDTIME 

""EXTEND 

0728 

REF 

1 

1 1 ,3245 

3 7637 

1 

DCA 

DPOsMAX 

IF  The  scalar  overflowed*  find  out  how 

0 729 

REF 

1 

11,3246 

53*511 

1 

DXCH 

TIMEDIFF 

MUCH  TIME  REMAINED  WHEN  READ  THE  FIRST 

0730 

REF 

8 "LAST 

283 

11,3247 

0 6000 

1 

TC 

INTPRET 

TIME  AND  THEN  ADD  THE  PRESENT  READING- 

073 1 

11,3250 

45345 

1 

DLOAD 

DSU 

WHICH  WILL  BE  THE  TOTAL  TIME  SPENT  IN 

0732 

RcF 

2 LAS  1 

283 

1 1 ,3251 

01511 

0 

TIMEDIFF 

STANDBY,  TO  WHICH  THE  TIME  AT  STBY 

13733 

REF 

LW6I  288 

11  ,3232 

01505 

0 

SCAL5AV  " 

MAY  "BE  ADDED  TO  FIND  THE  PRE5ENT  TIME 

0734 

REF 

8"  LAST 

283 

11,3253 

54215 

0 

DAD 

SRR 

CORRECT  TO  10  MSEC., 

0735 

11,3254 

01507 

1 

TIMAR 

****  THE  TIME  IN  STANDBY  MODE  MUST  NOT 

0736 

11,3235 

01606 

“0 

~5 

“EXCEED  23  HOURS” IF  TTKE  TS  TO  BE 

0737 

1 1 ,3256 

77615 

“0 — 

DAD 

CORRECTLY  COMPUTED  BY  THIS  ROUTINE.***** 

0738 

REF 

5 LAST 

283 

1 1 , 32 5 7 

01503 

0 

TIMESAV 

0739 

REF 

9 LAST 

283 

11 ,3260 

01507  I 

STORE 

TIMAR" 

C 
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L EXTENDED  VERBS  ~ ~ ZZ  USER»S  own  PAGE  NO.  27  “ 

0740  Tl«3261  77776  1 E)TlT 

0741  REF  I 11*3262  0 3235  0 TC  CORCTTIM 

0742  ~ 11*3263  01400  1 "EBANK3  OCT  "01400  ~C0N5~T  USED  TO  SET  EBANK  REG  FOR  BANK  3 

0743  11*3264  ENDEXTVS  EQUALS 
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L k£YR UPT , UPRUPT 


USER* 5 OWN  PAGE  NO.  1 


0001 


07*2362  ...  BANK  7 


0C02~ 

REF 

6 

LAST 

248 

07*2362 

54  0 1 6 

1 

KEYRUPT1 

TS 

BANKRUPT 

0003 

REF 

149 

LAST 

276 

07*2363 

56  002 

0 

XCH 

Q 

TT004 

REF 

7 

LAST 

248 

07.2364 

54  012 

0 

TS 

QRUPT 

0005 

REF 

1 

07.2365 

0 5257 

1 

TC 

LODSAMPT 

0006 

REF 

LAST 

267 

07.2366 

3 5224 

0 

CAF 

L0W5 

XT007 

07.2367 

0 0006 

1 

EXTEND 

0008 

REF 

1 

07.2370 

02  015 

1 

RAND 

MNKEYIN 

0009 

REF 

13 

LAST 

226 

07,2371 

54  077 

XT 

KEYCOM 

TS 

RUPTREG4 

TOO  10 

REF 

1 

07,2372 

3 5233 

0 

CAF 

CHRPRIO 

0011 

REF 

12 

LAST 

279 

07,2373 

0 4363 

0 

TC 

NOVAC 

0012 

REF 

2 

LAST 

158 

EO 

EBANK= 

DSPCOUNT 

0013 

07,2374 

02002 

1 

2CADR 

CHARIN 

C0013 

REF 

1 

07.2375 

10000 

0 

0014 

REF 

14 

LAST 

285 

07,2376 

3 0077 

1 

CA 

RUPTREG4 

“00T5 

REF  23 

LA'S! 

276 

07 .2377 

50  071 

1 

INDEX 

LOCCTR 

0016 

REF 

427 

LAST 

276 

07,2400 

54  140 

TS 

MPAC 

0017 

REF 

11 

LASl 

275 

07,2401 

0 4606 

0 

TC 

RESUME 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN  65. 


LEAVE  5 BIT  KEY  CDE  IN  MPAC  FOR  CHARIN 


CC 

■<3 
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L KEYRUPTi  UPRUPT  USER»S  OWN  PAGE  N0»  2 


POO  18  UPRUPT  PROGRAM 


0019 

REF 

7 LAST  285 

07,2402 

54  016  1 

UPRUPT 

TS 

BANKRUPT 

0020 

“REF 

150  LAST  285 

07,2403 

56  002  0 

XCH 

Q 

0U21 

REF 

8 LAST  285 

07,2404 

54-  012  0 

TS 

QRUPT 

0022 

REF 

2 LAST  285 

07,2405 

0 52571 

TC 

L0D5AMPT 

TIME  IS  SNATCHED  IN  RUPT  FOR  NOUN 

65, 

002  3 

“ RTF 

96  LAST  279 

07,2406 

3 7665  0 

CAF 

ZERO 

0TT2A 

REF 

T~ LAST  157" 

07,2407 

5 6 OAT  0 

"XCH 

INLINK 

0025 

“RTF 

2 LAST  23 

07,2410 

54  077  0 

T S 

KEYTEMP1 

0026 

REF 

12  LAST  274 

07,2411 

3 7655  0 

CAF 

BIT3 

TURN  ON  UPACT  LIGHT 

0027 

07,2412 

0 0006  1 

EXTEND 

(BIT  3 OF  CHANNEL  11) 

0028 

REF  4 LA5 1 137 

07,2413 

05  Oil  1 

W0R 

DSALMOUT 

0029 

REF 

4 LAST  285 

07*2414 

3 5224  0 

UPRPT1 

L AF 

L0W5 

TEST  FOR  TRIPLE  CHAR  REDUNDANCY 

“1003  0“ 

RTF 

3 LAST  286 

07,2415 

7 0077  0 

TASK 

KEYTEMP1 

LOW 5 OF  WORD 

0031 

REF 

4 LAST  236 

07,2416 

56  077  1 

XCH 

KEYTEMPl 

L0W5  INTO  KEYTEMPl 

C032 

REF 

16  LAST  125 

07,2417 

56  021  1 

XCH 

SR 

whole  word  into  SR 

00133 

1RTF 

T 

07,2420 

55*070“O“ 

TS 

KEYTEMP2 

ORIGINAL  SR  INTO  KEYTLMP2 

0034 

REF 

I 

0?  *242 1 

0 2465  1 

1 0 

SRGHT5 

0035 

REF 

5 LAST  286 

07,2422 

7 5224  1 

MASK 

L0W5 

MID  5 

11036 

"REF 

1 

07.2423 

6 2477  1 

AD 

HI  10 

0037 

REF 

1 

07,2424 

0 2474  1 

TC 

UPTEST 

0038 

RTF 

2 LAST  286 

0 7 ,2425 

0 2465  1 

TC 

SRGHT5 

' 0039 

“RTF" 

6 LAST  286 

07,2426 

7 52Z4  1 

"MASK 

C0W5 

HIGH  5 

0040 

07.2427 

4 0000  0 

COM 

0041 

REF 

2 LAST  286 

07,2430 

0 2474  1 

TC 

UPTEST 

0042 

REF 

1 

07,2431 

0 2461  0 

UPOK 

"TC 

RtSTORSR 

CODE  IS  GOOD" 

0043 

RTF 

1 

07,2432 

4 2436  0 

cs 

ELRCODE 

IF  CODE  = ERROR  LIGHT  RESET.  PUT 

+0 

0044 

REF 

5 LAST  286 

07,2433 

6 0077  1 

AD 

KlYTEMPI 

INTO  BITl  OF  UPLOCK, 

0045 

RtF  184  LASl  277 

07.2434 

nr  000  0“ 

CCS 

"A 

‘ TF  CODE  NOT  = ELR,  PASS  CODE  ONLY 

TF 

0046 

REF 

1 

07.2435 

0 2444  1 

TC 

TSTUPLOK 

BITl  OF  UPLOCK  = 0, 

0047 

07,2436 

00022  1 ELRCODE 

OCT 

22 

0048 

REF 

2 CAST  286 

07,2437 

0 2444  I 

TSTUPLOK 

0049 

REF 

23  LASl  274 

07,2440 

4 7657  0 

CS 

BITl 

PUT  0 INTO  BITl  OF  UPLOCK 

U050  RtF 

2 LA5T  151 

07,2441 

7 0342  0 

MASK 

UPLOCK 

0051 

RtF 

TTTA5T  236 

07,2442 

54  342  0 

T5 

UPLOCK 

0052 

KtF 

1 

07 ,2443 

0 2450  1 

rc 

ACCEPTUP 

0053 

REF 

44  LAST  286 

" 07,2444 

3 7657  1 

T5TUPL0K 

CAF 

BITl 

0054 

TEF 

4 LAST  236 

07 ,2445 

T 0342  0 

MASK 

UPLOCK" 

UU8S  RtF  185  LA5 1 286 

07,2446 

10  000  0" 

CCS 

A 

UU56 

KtF 

14  LK5I  485 

07 ,2447 

0 4606  0 

TC 

RESUME 

BITl  OF  UPLOCK  = 1, 

005T 

KcF 

T LAST  286 

PT.Z45CT  ~56  077  1 

n 

XCH 

KEYTEMPl 

BITl  OF  UPLOCK  = 0# 

0058 

RtF 

1 

07,2451 

0 2371  0~ 

KEYCOM 

UU59 

RtF 

2 LAST  286 

07.2452 

TT2461  0 

TMFAIL2 

TC 

“Restorer 

CODE  T5  B AD 

0060 

REF 

25  lAsT  286 

07.2453 

4 7657  0 

CS 

BITl 

lock  out  further  uplink  ACTIVITY 

(BY 

0061 

RtF 

5 LAST  286 

07 . 2454 

7 0342  0 

MASK 

UPLOCK 

PUTTING  1 INTO  BITl  UF  UPLULK.)  UN  1 i L CEK 

0062 

REF 

46  LAST  286 

07.2455 

6 7657  1 

AD 

BITl 

T5  SEimUP  "UPLINK , 

0063 

RtF 

6 LAS  1 2 86 

07.2456 

54  342  0 

TS 

UPLOCK 

0064 

RtF 

1 

07.2457 

0 4606  0 

TMFAIL1 

TC 

TMALM 

CO  65 

KtF 

13  LASl  286 

07.2460  - 

0 4606“0 

TC 

RESUME 

* 
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L KEYRUPT , UPRUPT USER’S  OWN  PAGE  NO*  3 


0066  REF  2 LAST  286  07,2*61  57*070  1 RESTORER  XCH  KEYTEMP2 

0067  07*2462  6 OOOO  1 DOUBLE 

0068  REF — 17  LA5T“286*~  07,2463  54  021  0~  TS  SR 

0069  REF  151  LAST  286  07,2464  0 0002  0 TC  Q 


0070 

REF 

14 

LAST  286 

4606 

TMALM 

= 

RESUME 

FOR  NOW 

0071 

REF 

1 8 

LAST  287 

07,2465 

4 

0021  0 

SRGHT5 

CS 

SR 

0072 

REF 

19 

LAST  287 

07*2466 

4 

0021  0 

cs 

SR 

0073 

REF 

20 

LAST  287 

07,2467 

4 

0021  0 

CS 

SR 

0074 

REF 

21 

LAST  287 

07,2470 

4 

0021  0 

CS 

SR 

0075 

REF 

22 

LAST  287 

07,2471 

4 

0021  0 

CS 

SR 

0076 

REF 

186 

LAST  286 

07,2472 

4 

0000  0 

CS 

A 

OO77 

REF  152 

LAST  287 

07,2473 

0 

0002  0 

tc 

0 

DELIVERS  WORD  UNCOMPLEMENTED 

0078 

REF  7 LAST 

286 

07,2474 

6 0077 

1 

UPTEST 

AD 

KEYTEMP1 

*0079 

RcF  187  LAST 

287 

*07,2475 

10  000* 

0 

CCS 

A 

0080 

REF  1 

07,2476 

0 2452 

0 

TC 

TMFAIL2 

0081 

07,2477 

77740 

1 

HI10 

OCT 

77740 

0082 

REF  2 LASl 

287 

07,2500 

0 2452 

0 

TC 

TMFAIL2 

0083 

RcF  153  LASt 

287 

07,2501 

0 0002 

0 

TC 

0 

BY  VBRELDSP,  ALSO  BY  ERR OR  LIGHT  RESET, 


r~ 


■=3 
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L 

KEYRUPT,  uprupt 

USER'S  OWN  PAGE  NO, 

R0085 

HE  RECEPTION  OF  A BAD  CODE  BY  UPLINK  LOCKS  OUT  FJRTHpR  UPLINK  ACTIVITY 

R00'86 

BY  Pl.AC*NG  a i INTO  BTfl  OF  JPLOCKT  BTT9  (ALONG  WITH  BITll)  OF  TMKEYBUF 

RQ087 

IS  5ET  TO  1 TO  SEF1D  7$N  INDICATION  OF  fHT5  SITUATION  DOWN  THe  DOWNLINK, 

R0088 

THe  UPLINK  INTERLOCK  IS  ALLOWED  WHE~N  AN  ERROR  LIGHT  RESET  CODE  IS  SENT 

R0089 

UP;  THE  UPLINK,  OR'WHeN  A FRESHi  START  IS  PERFORMED, 

0090 


07 ♦2502  ENDKRURS  EQUALS. 


473A23A 

YJL  SYSTEM  FOR  BLK2 ! REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

PINBALL  GAME  BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO.  1 

R0001 

KEYBOARD  AND  DISPLAY  PROGRAM 

R0002~  THE  FOLLOWING  QUOTATION  iS  PROVIDED  THROUGH  THE~COUTEsY  OP  THE  AUTHORS* 

R 0003  5 1 IT  WILL:  BE  PROVED  TO  THY  FACE  THAT  TH0"LT HAST  MEN  ABOUT  THEE  THAT 

ROOOA  USUALLY'  TALK  OF  AXiQUN  AND  A VERBl  AND  SUCHTaBOMINABLE  WORDS  AS  NO 

~ I R0005  CHRISTIAN  EAR  CAN  ENDURE  TO  HEAR;,!!  


r u o o 6 henry  6,  act  2,  scene  4 


R0007  THE  FOLLOWING  ASSIGNMENTS  FOR  PINBALL  ARE  MADE  ELSEWHERE 


R0008  RESERVED  FOR  PINBALL  EXECUTIVE  fl,CT I 0,m 


R0009 

RC'OIO 

ft  o on 
ROO 12 
ROO  13 
ROO  14 
R0015 
R0016 
R0017 
ROO  18 
"ROOTS' 
"R0020 
" R0021 
R0022 
R0023 
R0024 
” R0025 
"ROTT26" 
R0027 
R0028 
ROO  2 9 
R0030 
" R0031 
" R0032 


DSPCoJNt 
DECBRNXH 
VERBREB” 
NOUNREG 
XREG 
“TREO 
ZREG 
XREOLP 
TREGLP 
ZREGLP 
MODREG”" 
DSPUOCiC" 
REQRLT 
LOADSTAt 
CLPASS 
"NDUT" 
NOUNCADR 
"MON SAVE 
~MONSAVEl 
DSPTA8 
"CADFSTUT 
GRABLOCK 
NVQTEM 


tRA&E 

ERASE 

ERASE 

ERA5E" 

ERASE 

ERASE" 

ERASE 

ERASE 

ERASE" 

erase- 

ERASE 

ERA"5E 

erase 

erase 

erase— 

erase- 

erase 

ERASE  " 
ERASE 
ERASE 
ERASE" 

erase 

ERASE 


+ 1 3D 


display  position  indicator 

♦DEC,  - DEC,  OCT  INDICATOR 
VERB  CODE 
NOUN  CODE 
Rl"TNPUT  BUFFER 
R2  INPUT  BUFFER 
R3  INPUT  BUFFER 
LO  PART  OF  XREG 

LO  PART  OF-  ZREG 
MODE  CODE 


(FOR  DEC  CONV  ONLY) 
(FOR  DEC  CONV  ONLY) 
(FOR  DEC  CONV  ONLY) 


RETURN  REGISTER  FOTTLOAD" 

STATUS  INDICATOR  FOR  LOADTST 

PASS  INDICATOR  CLEAR 

ACTIVITY  COUNTER  FOR  D5PTAB 

MACHINE  CADR  FOR  NOUN 

N/VTODE  FOR  MONITOR.  ( =~MONS"AVET-T ) 

NOUNCADR  FOR  MONITOR (MATES)  =MONSAVE  +1 

0-10, DISPLAY  PANEL  BUFFER . 1 1-1 3 ,C  RELAYS 

ENDTDLE  STORAGE 

NVSUB  STORAGE  FOR  CALLING  ADDRESS 


MU5T"  = NVBNKTEM-1 
NVSUB  STORAGE  FOR 
MUST  = NVQTEM+1 

+Z — WAITING  list  for  DSP  "SYSTTNTERNAt  USE 
extended  verb 
+2  buffer  storage 

+2  BUFFER  STORAGE  AREA  2 (MOSTLY  FOR  DEG) 


R0033 

R0034 

T7U035 

R0036 

R0037 


NVBNKTEf'i  ERASE 


DSPLIST  ERASE 
EXTV8ACT  ReASe 
DSPTEMl  ERASE 
DSPTEM2  ERASE 
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L PINBALL  game  BUTTONS  and  LIGHTS USER  IS  OWN"  PAGE  NO."  2 

pQ039  END  qp  erasablestheSeWed-fqr.  pinbatl  eXeCOtTVe  action- 


roo^o  "Temporaries' "for  pinball  executive  action 


R0041  DSEXIT  5 INTB1S+  RETURin  FOR  DSPIN 

R00A2  EXJTEM  INTB15+-  RETURN~T0R  GCALeTTACTOR  ROUTINE  SELECT 

R0043  3u.AN<RET  = INTB15+  RETURN  TOR  2BLANK 


TT0044  WRDRET  b7"  INTBIT  15  RETURN  FOR  5BLANK 

RU045  wORET  = INTBIT15  ^RETURN  F0RTD5PWD 

R0046  DECRET  = INTBIT'15  RETUR.-i  FOR  PUTCoM(DEC  LOAD) 

R0047  2I/22REG  = TNTBIT15  TEMPTOR  CHAR  IN 


R0048  UPDATRET  • POLISH  RETURN  FOR  UPDAfNN V UPDATVB 

W049  cHRR"“  = “ PDLT5FT-  ~ TEMP  ' FOR"  CHAR  I N 

R0050  ERCNT  = ““  P0LI5H  “ COUNTER  FOR  ERROR  LIGHT  RESET 

R0051  DECOJNT  = POLISH  COUNTER“FOR_SCALING  AND  DISPLAY  (DEC) 


R0052  53N0N  = VBUF  TEMP  FOR  ON  

R0053  NOUN T EM  = VBUF  COUNTER'  FOR  MIXNQUN  FETCH 

R0054  DISTEM  = VBUF  COUNTER  FOR  OCTAL  DISPLAY  VERBS” 

R0055  DECTEM  = VBUF'  COUNTER  FOR  FETCH  (DEC  DISPLAY  VERBS) 


R0056  S3N0FF  = 

VBUF 

+ 1 

temp  FOR  ♦*-  ON 

R0057  NVTEMP  = 

VBUF 

+ 1 

TEMP  FOR  NVSUB 

R0058  SFTEMPl  = 

VBUF 

+ 1 

STORAGE  FOR  SF  CONST  Hi  PART ( =SFTEMP2-1 ) 

RC059 

code  = 

VBUF  ‘ 

+ 2 

FOR  DSPIN 

KU06U 

SFTEMP2  = 

VBUF 

+ 2 

STORAGE  FOR  SF  CONST  LO  pART ( =5FTEMPl  + 1 ) 

R0061  MUXTEMP  8 VBUF  +3  FOR  MIXNOUN  DATA 

R0062'  5IGNRET  = VBUF  + 5 RETURN  FOR  +♦-■  ON 


RUU53  ALSO  M-IXTEMP+l  = VBUF  + 4*  MIXTEMP+2  = VBUF  + 5i 


R0064  ENTRET  = DO TIN C EXIT  FROM  ENTER 


RQ065  WBCNT  = ' DOTRET  CHAR  COUNTER  FOR  DSPtfD" 

-R0!766  IlREi:  = DOTRET TNPUT  BUFFER  ‘ SELECTOR"  ! " X VTYZT~REB 


R0067  DSPMMTEM?*b,i MAT  INC 

'■“R0OB8 MIXBR MATTNC 

R0069  TEM1  ERASE 

R0070  D5REC = TEMl 


DSPCOUNT  SAVE  FOR  DSPMM 
indicator:  for  MIXED  OR  normal  noun 

EXEC  TEMP 

REL  ADDRE55  FOTCU'SPTN 


RQ071 

TEM2 

erase 

EXtC  TEMP 

R0072 

DsmAG 

= TEffiT 

MAGNITUDE  STORE  FOR  DSPIN 

*> 
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RQQ73  IDADPTEM  = TEM2:  MIXNOUN  INDIRECT  ADDRESS  STORAGE 


R007A  TEM3  ERASE  EXEC  TEMP 

R0075  COUNT  =■'"  T EM 3 FOR  DSPIN 


R0076  TEMA  ERASE ” EXEC  TEMP 

R0Q77  CBTPTR  TEM4  LIST  POINTER  TOR  GRABUSY 

R0078  RELRET'  = TEM4  REfDRffTOR  RELDSP 

R0079  FREERET  = TEMA  RETURN  FOR  FREEDSP  ~ 


R0080  TEM5  ERASE  EXEC  TEMP 

R0081  NOuNAOD  = ” TEMS  TEMP  STORAGE  FOR  NOUN  ADDRESS 


~E0082 

R0083 

R008A 

R0085 

R0086 

R0087' 

“RTKT88 

R 0 0 8 9 
R0090 
R0091 


NNADTEM  ERASE 
NNTYPTEM  ERASE 
IOADlTEf  ERASE 

I DAD 2 T Ei  ERASE 

I DAD  31  EM  ER7T5T 

RWMXTEM  ERASE 


TEMP  FOR  NOUN  ADDRESS  TABLE  ENTRY 

temp  for  noun  type  table  entry 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY (MIXNN) 
TOST  = IDAD2TEM-1,  = IDAD3TEM-2# 

TEMP  FOR  INDIR  ADRESS  TABLE  ENTRY (MIXNN) 
MUST  = IDAD1TEM^IT-=“"IDAD3TEM-1. 

TEMP  FOR  INDIR  'ADRESS  TABLE  ENTRY  (MIXNN) 
MUST  = TDADlTEM+2*  = IDAD2TEM+1, 

TEMP  FOR  SF  ROUT  TABLE  ENTRY (MIXNN  ONLY) 
‘TTNBTOLTEXECUT 1 V E ACTTON 


R0092  REsERVED^FO^PTMBRLinNTERRUPT  ACTION 


"R0093 

R009A 

A0095 

R0096 


DSPCNT  ERASE  COUNTER  FOR  DSPoUT 

J?LOC<  ERASE  BIT1  = UPLINK  INTERLOCK  (ACTIVATED  BY 


RECEPTION  OF  a BAD  MESSAGE  IN  UPLINK) 


R0097  TEMPORARIES  FOR  PinBALL  INTERRUPT  ACTjOn 


*0098  KETTEMPi  = WATTEXTT  TEMP  FOE~KEYRUPT « UPRUPT 

R0099  DSRUPTEM-=  WAITEXIT  TEMP  FOR  DSPOUT 

R0100  KEYTEMP2-=  RUPTAGN  TEMP  FOR  KEYRUPT*  UPRUPT 

ROIOI  END- OF  TEMPORARIES  FOR  P I RBALL7  INTERRUPT  ACTION 
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L PINBALL  Game  buttons  AND  LIGHTS USER’S  OWN  PAGE  NO.  A 

POT 02  TrlE  l NPuTCOPES  ASSUMED  F0r~THE  KEYBOArDArE* 


R0103 0 1000Q 

R0104  1 OOOOl 

R 0 1 0 5 9 01001 

RO 106  VERB  10001 

R0107  ERROR  RES10010 

R0108  KEY  RLSE  11 00 1 

RO 109  + 11010 

R0110  - 11011 

ROlll  “ENTER  11130 

WiT2  CLEAR  11110 

R0113  NOUN  T 111 T 


ROIIA 

Roils 


ROll  6 
FE0T17 
Rc  1 1 8 
RO  1 19 


OJTPUt  FORMAT  FOR  DISPLAY  PANeL.  Set  OUTo  TO  AAAABCCCCCDDDDD. 

■'A-S  5'ELECT"'A'ReLAywORD.  THIS  DETEWr^ES^T/HTCH  pAIR  OF  CHARACTERS  ARE 

energized*  

B FOR  5P EC I AL  RELAYS  5UCH  AS  SIGNS  ETC * 

CAS  r^TTRELAY  COD"E ' F0RTeF7~CHAR  OF  PAIR  SELECTED  BY  RELAYWORD 
D-S  S:  BIT  REtArXODE  FOR  RIGHT  CHAR  OF  PAIR  5EEECTED  BY  RELAYWORD. 


R0120  THE  PANEL  APPEARS  AS  FOLLOWS* 

ROTH  MCI  RD2  f MAJOR  MODE) 

R0122  VDl VD2 ' (VERB)  NCI  ND2  (NOUN)  " 

RCT23  RTCI  RIC2  RTD3  RTU4  RTC5  (RT) 

R0124  R2D1 R2D2 — R2D3  R2CA  R2D5  (R2) 

R0125  R3D1  R3D2 R3D3  R3D4  R3D5  (R3) 


RQ12&  EACH  OF  THESE  IS  GIVEN  A DSP COUNT  NUMBER  FOR  USe  WITHIN  COMPUTATION  ONLY 

R0127  MCI  25 R2D1  II ALL” ARE  OCTAL 

R0128  MC2  Z4-  R2D2  TO- 

R0129  7 Cl  23  R2D3  7 

ROI30  VO 2 22  R2C4  6 

RU131  NCI  TT~  R2D5  5~ 

R0I32  NC2  20  R3DI  4~ 

ROT33  RTCI JT6  ~ R302" 3 

' R0134  RTC2  ””“RSC3  2 

R0TT5  R1D3  14  ~ R3C4 T~ 

R0136  R1P4  13  - R3D5 0~ 

R0T37  RTC5  U~ 


~ R0138  THERE  IS  ANTT  REGISTER  TABLE  (DSPTAB)  FOR  THETDI SPLAY  PANEL* 

R0139  DSPTAB  RELAYWC  BIT  1 1 BITS  10-6 BITS  5-1 

ROKO  RELADD 

R0141 10 1011 

R0T42 9 1010” 


MDl  (25) 
VD1  123T 


MD2  (24) 
"VC2  (22T 


4 7 3 4 2 3 A 

YJL 

SYSTEM  FOR 

BLK2  S REVISION 

12  OF  PROGRAM 

AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  293 

L 

PINBALL  game 

BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO.  5 

R0143 

6 

1001 

NIDI  (21) 

ND2  (20) 

R0144 

7 

1000 

R1D1  (16) 

ROI45 

6 

0111 

+R1 

R1D2  (15) 

R1D3  (14) 

RO  146 

5 

Clio 

-Rl 

R1D4  (13) 

R1D5  (12) 

WJ147 

4 

0101 

+ K2 

R2D1  (11) 

R2D2  (10) 

R0I48 

3 

0100 

-R2 

R2D3  (7) 

R2D4  (6) 

R0149 

2 

0011 

R2D5  (5) 

R3D1  (4) 

ROlbO 

T 

"W10 

+ R3 

R302  (3) 

R3D3  (2) 

RO  1 5 1 

0 

0001 

-R3 

R3D4  (1) 

R3D5  (0) 

R0152 

0000 

NO  RELAYWORD 

RO  1 53  THE  5 BIT  RELAY  CODES  ARE* 


RO 1 54  BLANK.  OOOOO 

R0155  0 10101 

R0156  1~  OOQli 

R0157  2 11001 

RfirSB  3~  noil 

R0159  4 01111 

R0160  5 "11110 

R0161  6 111 00 

"W162  ~7  10011 

"R0163  8 " 11101 

1*0164  9 TIHT 


P 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  USeR»S  OWN  PAGE  NO, 6 

P0165  START  OF  EXECUTIVE  SECTION" OF 'PINBALL 


0166 

04*2000 

_ setloc 

20000 

0167 

REF 

1 

04*2000  0 3454  1 

GRABUSYd  TC 

GRABUSY 1 

STANDARD  LEAD 

INS.  DONT  MOVE. 

0168 

REF 

1 

04,2001  0 3476  1 

nvsubsyb^tc 

NVSUBSY1 

0169 

REF 

56  LAST  278 

04,2002  3 7657  i 

CHARIN  CAF 

ONE 

BLOCK  DISPLAY 

SYST 

OTTO 

REF 

2 LAsl  157 

""04*2003  56  277  0 

ACh 

dsFlock 

MAKE  DSP  SYST 

BU'sY,  BUT  SAVE  OLD 

0171 

REF 

1 

04,2004  54  101  0 

T5 

21/22REG 

C ( DSPLOCK ) FOR 

ERROR  LIGHT  RESET, 

0172 

REF  426  LAST  285 

04,2005  56  140  1 

XCH 

MPAC 

OT73 

REF 

1 

04,2006  54  103  1 

~TS 

~CHAR 

0174 

REF 

188  LAST  267 

04,2007  50  000  1 

INDEX 

A 

0175 

04,2010  0 2011  0 

TC 

♦ 1 

INPUT  CODE 

FUNCTION 

0176 

REF 

1 

04,2011  0 3275  "1 

10 

"CHARALRM 

0 

0177 

" REF 

1 

04,2012  0 2062  1 

TC 

NUM 

1 

0178 

REF 

2 LAST  294 

04,2013  0 2062  1 

TC 

NUM 

2 

0179 

R'EF“ 

3 LAST- 294 

04,2014  "0  2062  1 

TC 

NUM” 

3 

0180 

REF 

4 LAST  294 

04,2015  0 2062  1 

TC 

NUM 

4 

orai 

REF 

5 LAST  294 

04,2016  0 2062  1 

TC 

NUM 

5 

0182 

REF"" 

6 LAST  294 

04,2017  or  2062"  1 

TC 

NUT 

6 

0183 

REF 

7 LATT  294 

04,2020  0 2062  1 

TC 

NUM 

7 

0184 

RtF 

1 

04,2021  0 2053  0 

TC 

89TEST 

10 

8 

0183 

REF" 

2 LAST  294 

04,2022  0 2053  0 

TC“ 

89TEST 

11 

9 

C186 

REF 

2 LAST  294 

04,2023  0 3275  1 

TC 

CHARALRM 

12 

0187 

REF 

3 LAST  294 

04,2024  0 3275  1 

TC 

CHARALRM 

13 

0188 

REF 

4TT5T294 

04T202T"  0 3275  1 

TC 

“CHARALRM- 

14 

0189 

REF 

5 LAST  294 

"04,2026  0 3275  1 

TC 

CHARALRM 

15 

0190 

RcF 

6 LAST  294 

04,2027  " 0 3275  1 

TC 

CHARALRM 

16 

~ 0I9T” 

REF“ 

7TAST  294 

04,2030  0 3275  I 

"TC 

CHARALRM 

17 

0192 

"REF 

8 LA5T  294 

04,2031  0 2060  0 " 

TC  NUM  -2 

20 

" 0 

0193 

REF 

1 

04,2032  0 2235  1 

TC 

VERB 

21 

VERB 

0T94 

REF 

1 

04 ,2033  0 2343  1 

TC 

"TRTTO"R 

22 

ERROR  LIGHI  HEBE  1 

QI95 

REF 

8 LAST  294 

04,2034  0 3275  1 

TC 

CHARALRM 

23 

0196 

REF 

9 LAST  294 

"04,2035  0 3275  1 

TC 

CHARALRM 

24 

RcF 

10  TAST  294 

04,2036  ""  0 3275  1 

re 

“CHARALRW  " 

25 

0198 

REF 

11  LAST  294 

04,2037  0 3275  1 

TC 

CHARALRM 

26 

0199 

REF 

12  LAST  294 

"04,2040  0 3275  1 

TC 

CHARALRM 

27 

ozoxr 

REF  13  LA5T  294 

T4,2Q4l  0 3275  i " 

" TC" 

CFTARSLRW 

30  - 

0201 

KEF 

1 

04,2042  0 3320  0 

TC 

VBRELDSP 

31 

KEY  RELEASE 

0202 

REF 

1 

04,2043  0 2267  0 

TC 

POSGN 

32 

+ 

0203 

"REF- 

I “ 

04,2044  0 2254  TT 

"TC 

TEG5GN" 

33 

0204 

REF 

1 

04,2045  0 2051  1 

TC 

ENTER JMP 

34 

ENTER 

0205 

RcF 

14  LAST  294 

04,2046  0 3275  1 

1C 

CHARALRM 

35 

0206 

REF 

T" 

" 04,2047  "0  2431  0 

TC 

"CLEAR 

36 

"CLEAR 

0207 

RcF 

1 

04,2050  0 2250  1 

TC 

NOUN 

37 

NOUN 

* 
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L 

pinball  game  buttons  and  lights 

user's  own  page  NO.  7 

* 

) 

0208 

REF  10 

LAST  269 

04*2051 

0 4102 

0 

ENTERJMP  TC 

POSTJUMP 

0209 

RtF  T 

774  * 2 0 5 2 

12003 

1 

CADR 

ENTER 

t 

J 

0210  REF  5 

LAST  255 

04  *2053 

3 6165 

0 

89TEST  CAF 

THREE 

' 021 1 

RtF  1 

04.2054 

7 0265 

1 

~MS< 

DECBRNCH 

l ’ 0212 

RtF  T89 

LAST  294 

04,2055 

10  000 

0 

CCS 

A 

) 

02  1 3 

REF  9 

LAST  294 

04,2056 

0 2062 

1 

TC 

NUM 

IF  DECBRNCH  IS  +,  8 OR  9 OK 

0214 

REF-  15 

LAST  294 

04f2U57  0 327b 

1 

TC 

charalrm 

IF  DECBRNCH  IS  +0,  REJECT  8 OR  9 

* 3 


R0215  njm  Assembles  octal  3 bits  at  a time,  for  decimal  it  converts  incoming 

R0216  WORD  AS  A FRACTION,  KEEPING  RESULTS  TO  DP. 

~ R02i7  octal  results  are  left  tt  xres. yreg,  or  zreg.  hi  parttjftec  in  xreg  , 

R02I8  YREGrZREG,  THE  LOW  PART5  IN  XREGLP,  YREGLP,  OR  ZREGLP) 

R0219  DECBRNCH  IS  LEFT  AT  +0  FOR  OCT»-+T  FOR  V DEC,  +2  TOR  «.  DEC', 

” R 0 220  rmSFCOUNT  WAS  LEFT  -,  NO  MORE  DATAT S’  ACCEPTED. 


0221 

REF 

97  LAST  286 

04,2060 

3 7665  0 

CAF 

ZERO 

0222 

~REF 

2 LAST- 294 

04,2061 

54  103  1 

TS 

CHAR 

0223 

RtF 

3 LASI  285 

04*2062 

10  264  0 

NUM 

CCS 

DSPCOUNT 

0224 

04,2063 

0 2067  1 

TC 

+ 4 

+ 

"0  225 

04,2064 

0 2067’  1 

TC 

+ 3 

+ 0 

0226 

04,2065 

0 2066  0 

TC 

+ 1 

-BLOCK  DATA  IN  IF 

DSPCOUNT  IS 

- 

0227 

REF 

28  LAST  283 

04,2066 

0 4440  0 

TC 

ENDOFJOB 

-0 

0228 

REF 

I 

04,2067 

0 2205  1 

TC 

GET INREL 

0229 

REF 

2 LAST  157 

" 04,2070 

10  302  1 

CCS 

CLPASS 

IF  CLPASS  IS  + OR 

+0,  MAKE  IT 

+ 0. 

0230 

REF 

98  LAST  295 

04,2071 

3 7665  0 

CAF 

ZERO 

0231 

REF’ 

3 T-AST  295 

04,2072 

54  302  1 

TS 

CLPASS 

0232 

04,2073 

0 2074  0 

TC 

+ 1 

0233 

REF 

3 LAST  295 

04,2074 

SO  103  0 

INDEX 

CHAR 

”0234 

REF 

2 LTASi  163 

04 ,2075 

3 4741  1 

’TAF’ 

RELTAB 

0235 

REF 

7 LAST  286 

04,2076 

7 5224  1 

MASK 

L0W5 

0236 

RtF 

l 

04,2077 

54  110  0 

TS 

CODE 

0237 

REF 

4TA5T  295 

’04’, 2100 

3 0264  1 

CA 

DSPCOUNT  ’ 

0238 

REF 

l 

04,2101 

54  127  1 

T5 

COUNT 

0239 

RtF 

1 

04,2102 

0 3201  1 

TC 

DSPIN 

0240 

Ktr  6 LASI  295 

“ 04,2 103 

3 ’ 6165’  0’ 

”CAF  ’ 

THREE” 

0241 

Ktr 

2 LAB  1 295 

04,2104 

7 0265  1 

MASK 

DECBRNCH 

0242 

REF 

190  LAST  295 

04,2105 

10  000  0 

CCS 

A 

+0,  OCTAL.  +1,  + 

DEC.  +2,  - 

DEC. 

0243 

REF 

1 

04,2106 

0 2117  1 

TC 

DECTOBTN 

♦ 

0244 

REF 

1 

04,210? 

50  123  1 

INDEX  INREL 

+0  OCTAL 

RtF 

Z LAST  157 

04,2110 

56  266  0 

aCH 

VERBREG 

0246 

RcF 

4 LAST  HO 

04,2  m 

54  022  0 ’ 

TS 

CYL’ 

0247 

RtF 

5 LAST  295 

04,2112 

4 0022  0 

CS 

CYL 

Rtr 

6 LAST  295 

04,2113 

4 0022  0 

CS 

CYL 

0249 

REF 

7 LAST  295 

04,2114 

56  022  1 

XCH 

CYL 

Ktr 

A LA5I  295 

04,2115 

6 0103  0 

AD 

CHAR 

0251 

Rtr 

i 

04,2116 

0 2134  0 

TC 

ENDNMTST 

0252 

REF 

2 LAST  295 

04,2117 

SO  123  1 

DECTOBTN 

INDEX 

INREL 
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PINBALL  GAME  BUTTONS  ANp  LIGHTS 


USER'S  Own  PAGE  no* 


0253 

REF  3 LAST  295 

04,2120  56  266  0 

XCH 

VERBREG 

0254 

REF  429  LAST  294 

0472121  54  140“0“ 

TS 

MPAC 

SUM  X 2EXP-14  IN  MPAC 

0255 

REF  99  LAST  295 

04,2122  3 7665  0 

CAF 

ZERO 

0256 

REF  430  LAST  296 

“04,2123  54  141  1 

TS 

MPAC  +1 

“ 0257  “ 

REF  3 LAST  157 

04,2124  3 7661  1 

“TAP 

TEN 

10  X 2EXP-14 

0258 

ref  r 

04,2125  0 7266  I 

TC 

SHORTMP 

10SUM  X 2EXP-28  IN  MPAC,  MPAC+1 

0259 

REF  43 T LAST  296 

04,2126  56  141  0 

XCH 

MPAC  +1 

““13160 

REF  5 LAST  295 

04,2127  6 0103  0 

AD 

CHAR 

" 0261 

“REF  432  LAST  296 

04,2130  54  141  1 

TS 

MPAC  +1 

0262 

REF  2 LAST  295 

04,2131  0 2134  0 

TC 

ENDNMTST 

NO  OF 

0263 

REF  433  LAST  296 

04,2132  26  I40TT 

ATS 

MPAC 

OF  MUST  BE  5TH  CHAR 

0264 

REF  1 

04,2133  0 2152  0 

TC 

DECEND 

0265 

REF  3 LAST  295 

04,2134  50  123  1 

ENDNMTST  INDEX 

INREL 

0266 

REF  4 LAST  296 

04,2135  54  266  1 

TS 

VERBREG 

0267 

REF  5 LAST  295 

04,2136  4 0264  0 

CS 

DSPCOUNT 

0268 

REF  4 LAST  296 

04,2137  50  123  1 

INDEX 

INREL 

0269 

REF  1 

04,2140  6 2176  0 

AD 

CRITCON 

0270 

04,2141  0 0006  1 

EXTEND 

0271 

REF  1 

04,2142  1 2144  0 

BZF 

ENDNUM 

-0,  DSPCOUNT  = CRITCON 

0272 

“RTF  T “ 

04,2143  0 2173  0 

TC 

MORNUM 

- , DSPCOUNT  G/  CRITCON 

0273  REF  7 LA5T  295 

04,2144  3 6165  0 

ENDNUM 

CAF 

THREE 

0274 

REF  3 LASI  295 

04,2145  7 0265  1 

MASK 

DECBRNCH 

0275 

REF  191  LAST  295 

04,21 46  1 0“000  XT 

“CCS 

A 

0276 

REF  2 LA5T  296 

04,2147  0 2152  0 

TC 

DECEND 

0277 

REF  6 LA5T  296 

04,2150  4 0264  0 

END ALL 

CS 

DSPCOUNT 

BLOCK  NUMIN  BY  PLACING  DSPCOUNT 

“0278” 

“RTF  T LAST  296 

D4T215T  0 217*7  I 

T C 

“MORNUM  +1 

NEGATIVELY 

0279 

REF  1 

04,2152  0 7063  0 

DECEND 

TC 

DMP 

MULT  SUM  X 2EXP-28  IN  MPAC,  MPAC+1  BY 

0280 

REF  1 

04,2153  02203  1 

ADRES 

DECON 

2EXP14/10EXP5.  GIVES (SUM/10EXP5) X2EXP-14 

0281 

KtF  8 LA5)  T96 

0*7,2X54  “X  6165  CT 

CAF 

THREE 

IN  MPAC,  +1,  +2, 

0282 

Kt  F 4 LA  5 1 296 

04,2155  7 0265  1 

MA5K 

DECBRNCH 

0283 

RtF  192  LASI  296 

04,2156  50  000  1 

INDEX 

A 

0284* 

“04,2157  0 2 1ST  XT 

“TC 

+ 0“ 

0285 

REF  1 

04,2160  0 2164  0 

TC 

+DECSGN 

0286 

04,2161  U 0006  1 

EXTEND 

- CASE 

0287 

REF  434  LAST  296 

04,2162  4 0142  1 

DCS 

“MPAC  71 

0288 

REF  435  LAST  296 

04,2163  52  142  1 

DXCH 

MPAC  +1 

0289 

RcF  436  LAST  296 

04,2164  56  142  0 

+DECSGN 

XCH 

MPAC  +2 

0270 

REF  E HAST  296 

04,2 165  50  1 2 3 I 

INDEX 

i nrel 

0291 

REF  1 

04,2166  54  271  1 

TS 

XREGLP  -2 

0292 

REF  437  LASI  296 

04,2167  56  141  0 

XCH 

MPAC  + 1 

0293 

REF  6 LASI  296 

04,2170  50  123  1 

INDEX 

INR  E L “ 

0294 

REF  5 LAST  296 

04,2171  54  266  1 

TS 

VERBREG 

0295 

RtF  1 

04,2172  0 2150  1 

TC 

ENDALL 

0296 

KEF  7 LA5 1 296 

04,2173  10  264  0 

“MORNUM” 

CCS  “ 

DECREMENT T3SFC0UN  T 

0297 

REF  8 LAST  296 

04,2174  54  264  0 

TS 

DSPCOUNT 

0298 

REF  29  LAST  295 

04,2175  0 4440  0 

TC 

ENDOFJOB 

W2vy 

04*2176  00022  1 

CRITCON 

OCT 

22 

(DEC  16) 

0300 

04,2177  00020  0 

OCT 

20 

(DEC  16) 

O301 

“ 04,2200  00012  1 

OCT 

12  “ 

(DEC  10) 

I 
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”0302  04.2201  00005  1 OCT  ~5~ 

”0303  04.2202  00000  1 OCT  0 

0304  04,2203  05174  0 DECON  20fC  E-5  B14  2EXPl4/10tXP5  = ,1638~4“DEC 

C0304  04,2204  13261  0 


R0305  getinrel  Gets "PROPER  data  REG'  rel  ADDRESS  For  CURRENT  C(DSPCOUNT)  and 
R0306 PUTS  I N INTO  INREL .'>0  VERBR E 3,  1 NOUnREG,  2 XREG , 3 VREG , 4"2REG . 


0307 

REF  9 LAST  296 

0 4,2205 

50  264  1 

GETINREL  INDEX 

DSPCOUNT 

0308 

REF  1 

04,2206 

3 2211  1 

CAF 

INRELTAB 

0309 

REF  7 LAST  296 

04,2207 

54  123  0 

TS 

INREL 

(A  TEMP,  REG) 

0310 

"REF  154  EAST  287 

04,2210 

0 0002  0 

TC 

G 

0311 

04*2211 

00004  0 

INRELTAB  OCT 

4 

R3D5  (DSPCOUNT 

= 0) 

0312 

04,2212 

00004  0 

OCT 

4 

R3D4 

= (1) 

0313 

04,2213 

00004  0 

OCT 

4 

R3D3 

= (2) 

0314 

04,2214 

00004  0 

OCT 

4 

R3D2 

= (3) 

- 0315 

04,2215 

00004  0 

OCT 

4 

R3D1 

= (4) 

0316 

04,2216 

00003  1 

OCT 

3 

R2D5 

= <5> 

0317 

04,2217 

00003  1 

OCT 

3 

R2D4 

= (6) 

"0318 

04,2220 

"00003  1 

GCT 

3 

R2D3 

= (7) 

0319 

04,2221 

00003  1 

OCT 

3 

R2D2 

= (8D) 

O32O 

04,2222 

00003  1 

OCT 

3 

R2D1 

= ( 90) 

0321 

04,2223 

00002  a 

OCT 

2 

RID  5 

= < 100) 

0322 

04,2224 

00002  0 

OCT 

2 

R1D4 

=(110) 

0323 

04,2225 

00002  0 

OCT 

2 

R103 

= < 120  > 

"0T24 

0472226 

"0  00  02  TT" 

~~UCT~ 

" 2 

R1D2 

= < 1 30 ) 

0325 

04,2227 

00002  0 

OCT 

2 

- R1D1 

= C 140) 

0326 

REF  13  LAST  136 

04,2230 

0 5464  1 

TC 

CCSHOLE 

NO  DSPCOUNT  NUMBER  = 15D 

0327 

"0472231 

"OOOOTTT" 

OCT 

1 

ND2 

= ( 160) 

0328 

04,2232 

00001  0 

OCT 

1 

ND1 

= ( 170) 

0329 

04,2233 

00000  1 

OCT 

0 

VD2 

= (180) 

"0330 

04,2234 

— 00000  1 

OCT 

"7) 

VD1 

= < 190) 

0331  REF  100  LAST  296  04,2235  3 7665  0 VERB CAp ZERO 

0332  REF  6 LAST  296  04,2236  54  266  1 ""  TS VERBREG 

0333  REF  2 LAST"15B  04,2237 — 3 52 37  1 CAT VDl — 

0334  PET  10  LAST  297  04,2240  54  264  0 NVCOM TS DSPCOUNT 

~~ 0335  REF  1 04,2241  0 2541  0 TC 2BLANK 

~~  0336  REF  7Q1LAST  297 04  ,2242 — 3 7665  0 CAF ZERO — 

0337  REF  5 LAST  296  04,2243  54  265  1 TS DECBRNCH 

0338  REF  2 LAST  157 04,2244  54  300  0 TS REGRET" 

0339  REF  1 04,2245 — 3"5l50  0 CAT ENDINST 

"”0340  REF  1 04,2246 — 54  122  1 TS ENTRET — 

AG  341  " 

0342  RET  30  LAST  296  0472347 — 0 4440"0 TC EN  DOF  JOB- 


SET  FOR  ENTPASO" ~ 

IF  DSPALARM  OCCURS-  BEFORE  FIRSE  ENTPASO 
OR  NVSUB,  ENTRET  MUST  ALREADY  BE  SET 
TO  TC  ENDOFJOB  


* 


* 
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0343  REF  102  LAST  297  04,2250"  3 7665  0 NOUN"  CAF  ZERO  _ 

“0344  REF  3 LAST  259  — 04,2251  54  Z67~~ 0 TS""  NOUNREG 

U345  REF  1 04,2252  3 5240  l CAF  ND1  ND1 , OCT  21  (DEC  17) 

0346  REF  1 I 04,2253  0 2240  0 _ _ TC  NVCOM 


0347 

ref 

1 

04,2254 

0 2326  1 nEGSGN 

TC 

SI GnTEsT 

0348 

REF 

1 

04,2255 

0 2313  1 

TC 

-ON 

0349 

REF 

31  LAST  274 

04,2256 

3 7656  0 

CAF 

TWO 

0350 

ref- 

8 LAST  297 

04,2257 

50  123  1 BOTHSGN 

index 

INREL 

SET  DEC  COMP  BIT  TO  1 (IN  DECBftNCH) 

0351 

REF 

1 6 LAST- 255 

04,2260 

6 7651  1 

AD 

BIT7 

BIT  5 FOR  Rl,  BIT  4 FOR  R2, 

0352 

REF 

6 LAST  297 

04*2261 

26  265  1 

ADS 

DECBRNCH 

BIT  3 FOR  R3. 

0353 

“REF 

4 LAST  295 

“04, 2262 

10  302  1 FIXCLPAS 

CCS 

CLP ASS 

IF  CLPASS  IS  + OR  +0,  MAKE  IT  +0. 

0354 

REF 

103  LAST  298 

04,2263 

3 7665  0 

CAF 

ZERO 

0355 

REF 

5 LAST  298 

04,2264 

54  302  1 

T S 

CLPASS 

0356 

04,2265 

0“  2266  l 

TC 

+ 1 

0357 

REF 

31  LAST  297 

04,2266 

0 4440  0 

TC 

ENDOFJOB 

0358 

REF 

2 LAST  298 

04*2267 

0 2326  1 P05GN 

TC 

SIGNTEST 

0359 

REp 

1 

04,2270 

0 2273  0 

TC 

♦ ON 

0360 

REF 

57  LAST  294 

04,2271 

3 7657  1 

CAF 

ONE 

0361 

RcF 

1 

04,2272 

0 2257  0 

TC 

BOTHSGN 

0362 

0363“ 

0364 

0365 


REF  155  LAST  297 


“rEF  Z” LAST  295 

REF”  9 LAST  298 
REF  r- 


04.2273 

04.2274 
“0“4,“2Z“75“ 

04 ,2276 


22  002  0 
IT  2205  1 
50  123  1 
3 2321  0 


+0N 


LXCH 

"TC 

” INDEX 

CAF- 


GETinrEL 
INREL 
SGNTAB  -2 


0366 

REF  1 

04,2277 

54  107  0 

T“S 

SGNOFF 

0367 

RtF  58  LA5T  298 

04,2300 

6 7657  1 

AD 

ONE 

0368 

RtF  T 

04,2301 

54'  106  1 

TS 

SGNON 

0369 

“REF  r04  LAST  298 

“04,2302 

3 7665“  (T  “5GNC 

OM  CA“F“ 

' ZERO 

0370 

RcF  2 LAST  295 

04,2303 

54'  110  0 

TS 

CODE 

0371 

RcF  2 LAST  298 

04,2304 

56  107  1 

XCH 

SGNOFF 

“0372  “ 

RtF 1 

04,2305 

0 3263  0 

TC 

11DSPIN 

0373 

REF  21  LAST  283 

O4 ,2306 

3 7645  1 

CAF 

BITll 

O374 

RcF  3 LA5T  298 

0 4 , 2 5 0 7 

54  110  0 

TS 

CODE 

0375 

“REF  2 LAST  298 

“04,2310  “ 

56  106  0" 

“ "Xcf r 

“ 5GNUN~ 

0376 

REF  2 LA5T  298 

04,2311 

0 3263  0 

TC 

11D5PIN 

0377 

REF  68  LAST  274 

O4 , 2 3 i 2 

0 0001  0 

TC 

L 

03  7 8 

RcF  156  LAS!  298 

04,2313 

22  002“  “0“  -ON 

LXCFT  ' 

““  Q 

0379 

RcF  3 LAST  298 

04,2314 

0 2205  1 

TC 

GETINREL 

0380 

REF  10  LASi  298 

04,2315 

50  123  1 

INDEX 

INREL 

0381 

REF  2 LAST  “298 

04,2316 

3 232 10 

CAF  “ 

SGNTAB-  -2 

0383 

“03134 


REF 

“REF 


59  LAST  298 
3 LAST 


“298 


0385  REF  1 


04,2317 

04.2320 

04.2321 

04.2322 


6 7657 
54  107 


0 2302  1 


AD 

TS“ 

TC 


ONE 


“50N0FF 

5GNC0M 


0386 


04,2323  00005  1 SGNTAB OCT 


y 


R1 
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0387 

75388 


04*2324  00003  1 OCT  3 ~^R2 

04*2325  00000  1 OCT 0 -R3 


0389 

REF 

157 

LAST 

298 

04,2326 

22  002 

0 

signtest 

LXCH 

Q 

ALLOWS  +,-  ONLY 

WHEN 

DSPCOUNT  = R 1D1 * 

C390 

REF 

1 

04,2327 

4 5175 

0 

CS 

RlDl 

R2D1,  OR  R3D1, 

0391 

REF 

1 

04,2330 

0 2336 

0 

TC 

SGNTST1 

0392 

REF 

1 

04,2331 

4 5176 

0 

CS 

R2D1 

0393 

REF 

2 

LAST 

299 

04,2332 

0 2336 

0 

TC 

SGNTST1 

0394 

REF 

T 

04,2333 

4 5177 

1 

CS 

R3D1 

0395 

REF 

3 

LAST’ 

299 

04,2334 

0 2336 

0 

rc 

SGNTST 1 

0396 

REF 

32 

LAST 

298 

04,2333 

0 4440 

IT 

TC 

ENDOFJOB 

NO  match  found. 

SIGN 

ILLEGAL 

0397 

REF 

’ll 

LAST’ 

297 

04 ,233b 

6 0264 

1 

sgntst 1 

AD’ 

DSPCOUNT 

0398 

04,2337 

0 0006 

1 

EXTEND 

0399 

04 ,2340 

1 2342 

i 

BZF 

+ 2 

MATCH  FOUND 

0400 

RtF 

158 

LAST 

299 

04,2341 

0 0002 

0 

TC 

Q 

0401 

REF 

69 

LA5T 

298 

04,2342 

0 0001 

0 

TC 

L 

SIGN  LEGAL 

error  eight  reset  < rset ) turns  off* 

LP L I N < ACTIVITY,  AUTO,  HOED , rREE.NO"  ATT,"'T>PERAT3R’  ERROR, 


R 0 40  2 
ROW’ 

R0404  PROG  ALM*  TRACK E R T^ATL. 

R0405  LEAVES  GIMBAL  LOCK  ALONE. 

R0406 IT  ALSO  ZER0E5  THE  ITEST  ALARMVi’OUT”  BIT* 

TO 


R’0407 

R0408 


IT’ ALSO  SETS  {CAUTION  RESET!  TO  1. 

IT  ALSO  F0RCE5  BIT  12  OF  ALL  DSPTAB  ENTRIES  TO 


0409  REF  2 LAST  294  04,2343  56  101  1 ERROR  XCH  21/22REG  ’RESTORE  ORIGINAL  C(DSPLOCK),  THUS  ERROR 

0410  R”EF 3”T  A S T 294  04,2344  54  277  1 ~TS^  DSPLOCK  LIGHT  RESET  LEaVES  DSPLOCK  UNCHANGED, 


04X1  ” 

’ 04,2345 

0 0004 

O 

’’TNHINX 

0412 

REF 

26 

LA5 1 230 

”04,2346 

3 7646 

1 

CAF 

BIT10 

TURN  ON  {CAUTION  RESET;  OUtBIT 

0413 

04,2347 

0 0006 

1 

tXTEND 

04  T4 

REF 

5 

LAST” 

286 

04,2350 

05  on 

r 

i*TOR 

’DSALMODT 

BlTlO  CHAN  ll 

0415 

REF 

25 

LAST 

273 

04,2351 

3 7652 

1 

CAF 

BIT6 

LEAVE  GIMBAL  LOCK  LAMP  INTACT, 

0416 

RtF 

19 

LAST 

229 

04,2352 

7 0322 

0 

MASK 

DSPTAB  +1  ID 

TURNING  Opp*  AUlU,  HOLD,  PREt,  NO  ATT., 

04T7 

RtF 

1 9 

LA5  1 

277 

04,2353 

6 7641 

0 ’” 

AD 

Bins 

PROG  ALARM”,  AND  TRACK tR . 

0418 

REF 

20 

LAST 

299 

04 ,2354 

54  322 

0 

T 5 

DSPTAB  + 1 ID 

0419 

REF 

2 

LAST 

177 

04,2355 

4 4515 

0 

CS 

PRI016 

RESET  FAIL  BITS  WHICH  GENERATt  PROG 

0420 

RtF 

IT 

LAST 

229 

04,2356 

7 0370” 

1 

MASK 

” IW0DES33 

ALARM”  SO  THAT  IF  THE  FAILURE  STILT 

042 1 

RcF 

3 

LAST 

299 

04,2357 

6 4515 

1 

AD 

PR  1 01 6 

EXISTS,  THE  ALARM  WILL  COME  BACK, 

0422 

REF 

1 1 

LAST 

299 

04,2360 

54  370 

i 

T S 

IM0DES33 

0423 

REF 

04,2361 

4 7646 

0 

” ”05 

BTT10 

0424 

54 

LAST 

281 

04,2362 

7 0367 

1 

MASK 

IM0DES30 

0425 

RcF 

28 

LAST 

299 

O4 1 23&3 

6 7646 

1 

AD 

BIT10 

0426 

REF 

55 

LAST 

299 

L4,2364  54  367 

I 

TS 

TMDDES30 

«427 

Rtr 

1 

04,2365 

4 2427 

0 

CS 

RFAIL5 

042  8 

REF 

73 

LAST” 

2 77 

”774 ,2366 

7 0413  0 

MASK” 

radmddes 

( 
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0429  REF  17  LAST  298  "04,2367  6 7651  1 *0 B I T 7 

0430  REF  74  LAST “2 9 9 ~ 04,2370  54  413  0 IS  RADMODES 


0431 

REF  2g 

LAST  299 

04,2371 

4 7646  0 

CS 

BIT10 

TURN  OFF  5 TEST  ALARM:  OUTBIT. 

043  T 

04,2372 

0“  0006  1 

Extend 

0433 

REP  1 

04,2373 

03  013  0 

wand 

CHAN13 

0434 

REF  ~T 

04,2374 

4 2426  1 

cs 

ERCON 

TURN  OFF  UPLINK  ACTIVITY, 

0435 

04,2375 

0 0006  1 

extend 

OPERATOR  ERROR, 

0436 

REF  6 

LAST  299 

04,2376 

03  Oil  1 

WAND 

DSALMOUT 

0437 

REF  1 

04,2377 

3 5242  0 

TSTAB  OAF 

BINCON 

(DEC  10) 

0438 

REF  1 

04,2400 

54  103  1 

TS 

ERCNT 

ERCNT  = COUNT 

0439 

04,2401 

0 0004  0 

tnhint 

0440 

REF  2 

LAST  300 

04,2402 

50  103  0 

INDEX  ERCNT 

0441 

REF  21 

LAST  299 

"04,2403 

10  307  1 

CCS 

DSPTAB 

0442 

REF  60 

LAST  298 

04,2404 

6 7657  1 

AD 

ONE 

0443 

REF  1 

04,2405 

0 2412  1 

TC 

ERPLUS 

0444 

REF  61 

LAST  300 

04,2406 

6 7657  1 

AD 

ONE 

0445 

REF  193 

LAST  296 

04,2407 

4 0000  0 

erminus  CS 

A 

0446 

REF  1 

04,2410 

7 2430  0 

MASK 

N0TBIT12 

0447 

REF  1 

04,2411 

0 2415  0 

TC 

ERCOM 

0448 

REF  194 

LAST  300 

04,2412 

4 0000  0 

ERPLUS  CS 

A 

0449 

RtF  2 

LAST  300 

04,2413 

7 2430  0 

MASK 

N0TBIT12 

0450 

RTF"  195 

LAST  300 

04,2414 

4 OOOO  ”0 

CS 

A 

MIGHT  WANT  TO  RESET  CLPASS,  DECBRNCH, 

0451 

REF  3 

LAST  300 

04,2415 

50  103  0 

ERCOM  INDEX 

ERCNT 

ETC, 

0452 

REF  22 

LAST  300 

04,2416 

54  307  1 

T 5 DSPTAB 

0453 

04,2417 

0 0003  1 

irelint 

0454 

RtF  4 

LA5T  300 

04,2420 

10  103  1 

CCS 

ERCNT 

0455 

REF  I 

04 ,242 1 

0 2400  1 

TC 

TSTAB  +1 

0456  REF  105  LAST  298 

04*2422 

3 7665  0 

CAF  ZERO 

0457 

RtF  2 

LASI  151 

04,2423 

55 1 363  1 

T5 

FAILREG 

O458 

REF  2 

LAST  I54 

O4 ,2424 

55' 364  0 

TS 

5FAIL 

0459 

REF  03 

LA5T  299 

04 ,2425 

0 4440  0 

T C — 

ENDOpJOB 

0460 

04,2426 

00104  1 

ERCON  OCT 

104 

CHAN  11  BITS  3,7, 

A0461 

UPLINK  ACTIVITY,  AND  OPERATOR  ERROR,  ' 

0462 

04 ,2427 

00330  1 

RFAILS  OCT 

330 

RADAR  CDU  AND  DATA  FAIL  FLAGS, 

0463 

04,2430 

73777  1 

N0TBIT12  OCT 

73777 

RU464^ 

R0465 

CLEAR  BLANKS  WHICH  Rl,  R2 , RTTS  CURRENT  OR  La5T  TO  BE  DISPLAYED  (PERTl,\E 

NT  xRES, YREu.zREG  IS  CLEARED),  SUCCESSIVE  CLEARS  TAKE  CARE  OF  EACH  Rx 

RQ466 

L/  RC  U TIL  Rl  IS  DONE,  THEN  NO  FURTHER  ACTION 

RQ467 

THE  SINGLE  COMPONENT  LOAD  VER35  ALLOW  ONLY  THE  SINGLE  RC  THAT  IS 

R0468 

APPROPRIATE  TO  BE  CLEARED, 

“0469 

LLrMBo  +0  PAS50 , CAN  BE  BACKED  OP 

R0470 

+NZ  HIPASS*  CAN  BE  SACKtD  UP 

R04T1 

-\'2  PASS 0 , CANNOT  3E  3 ACK ED  UP 
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0472 

REF  12  LAST  299 

04,2431 

10  264  0 

CLEAR 

CCS 

DSPCOUNT 

“ 0473 

REF~  62  LAST300 

04,2432 

6 7657  1 

AD 

ONE 

0474 

04,2433 

0 2435  1 

TC 

+ 2 

0475 

REF  63  LAST  301 

04,2434 

6 7657  1 

AD 

ONE 

0476 

~REF  13  LAST  301 

04,2435 

54  264  0 

TS 

DSPCOUNT 

MAG  OF  DSPCOUNT 

0477 

REF  4 LASl  298 

04,2436 

0 2205  1 

TC 

GETINREL 

MUST  SET  INREL,  EVEN  FOR  HIPaSS 

0478 

REF  6 LAST  298 

04,2437 

10  302  1 

CCS 

CLPASS 

^0479 

REF  “ 1 

04,2440 

5 2446  0 

TC 

CLPASHI 

+ 

0480 

04 ,2441 

0 2443  0 

TC 

+ 2 

+0  IF  CLPASS  IS  +0  OR  -,  IT  IS  PASSO 

0481 

04,2442 

0 2443  0 

TC 

+ 1 

- 

0482 

REF  11  LAST  298 

04,2443 

3 0123  1 

CA 

INREL 

0483 

REF  1 

04,2444 

0 2470  0 

TC 

LEGALTST 

0484 

REF  1 

04,2445 

0 2463  1 

TC 

CLEAR1 

0465 

~ REF  12  LAST  301 

04,2446 

10  123  0 

CLPASHI 

CCS 

INREL 

0486 

REF  13  LASF301 

04,2447 

54  123  0 

T5 

INREL 

0487 

REF  2 LAST  301 

04,2450 

0 2470  0 

[ c 

LEGALTST 

HREF  ' 1 

04,2451 

3 2537  1 

CAF 

DOUBLX  +2 

♦3  TO  - NUMBER.  BACKS  DATA  REQUESTS. 

0489 

REF  3 LAST  297 

04,2452 

26  300  0 

ADS 

REQRET 

0490 

REF  14  LAST  301 

04,2453 

3 0123  1 

CA 

INREL 

~049l 

ref  r 

04,2454 

54  111  1 

TS 

MTXTEMP 

TEMP  STORAGE  FOR  INREL 

0492 

04,2455 

0 0006  1 

EXTEND 

0493 

REF  7 LAST  297 

04,2456 

26  266  1 

DIM 

VERBREG 

DECREMENT  VERB  AND  RE-DI5PLAY 

0494 

REF  IS  LAST  264 

04 ,2457 

0 4063  T 

TC 

BAMCALL 

0495 

RcF  1 

04,2460 

12315  0 

CADR 

UPDATV6 

0496 

REF  2 LAST  301 

04,2461 

3 0111  0 

CA 

MIXTEMP 

0497 

REF  15  LAST 30T 

54  ,2462 

54-  123  0 

rs 

INREL 

RE5T0RE  INREL 

0498 

RcF  1 

04,2463 

0 2466  1 

CLEAR1 

TC 

CLR5 

0499 

REF  7 LAST  301 

04,2464 

24  302  0 

INCR 

CLPASS 

ONLY  IF  CLPA55  IS  + OR  +0, 

0500 

" REF  34  LAST  300 

04,2465 

0 4440  0 

T C 

“ENDUFjOB 

SET  FOR  HIGHER  PASS. 

0501 

REF  15g  LAST  299 

04,2466 

22  002  0 

CLR5 

LXCH 

0 

USES  5BLANK  BUT  AVOIDS  ITS  TC  GETINREL 

0502 

REF  1 

04,2467 

0 2500  0 

TC 

5BLANK  +2 

0503 

REF  1 

04,2470 

6 7670  1 

LEGAUTST 

AD 

NEG2  ' 

0504 

REF  196  LAST  300 

04,2471 

10  000  0 

CCS 

A 

0505 

REF  160  LAST  301 

04,2472 

0 0002  0 

TC 

Q 

LEGAL  INREL  G/  2 

0506 

REF  14  LAST  2 9 T~ 

‘ 54,2473 

0 5464  1 

TC 

CC5H0LE 

0507 

REF  35  LASl  301 

04,2474 

0 4440  0 

TC 

ENDOFJOB 

ILLEGAL  INREL=  0,1 

0508 

REF  161  LAST  301 

04,2475 

0 0002  0 

TC 

Q 

LEGAL  INREL  = 2 

roso1?  53lank  blanks  5 char  display  *iord  in  ri»  R2,  or-  R3.  it  also  zeroes  xreg* 

R0510  YREG,  OR  ZREG. PLACE  ANY  + DSPCOJNT  NUMBER  FOR  PERTINENT  RC  INTO  DSPC0UNT 

R05U  DSPCOUNT  IS  LEFT  SET  TO  LEFTMOST  DSP  NUMB  FOR  RC  JUST  BLANKED. 


0512  REF  162  LAST  301  04,2476  22  002  0 5BLANK  LXCH  Q 

0513  REF  5 LAST  301  04,2477  0 2205  1 TC  GETINREl 

0514  REF  1 06  "LAST  "300 04,2500 — 3 7665  0 CAF ZERO — 

0515  REF  16  LAST  301  04,2501  5O  123  1 INDEX  INREL 

0516  REF 8 LAST  301  04,2502  54  266  1 TS VERBREG ZERO  X,  Y,  Z REG, 

"0"5T7  REF  im^Sr-301 04,2503 — 50  123  1 INDEX — INREL — 
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L 

pinball  game  buttons  and  lights 

USER’S  OWN  page  NO,  14 

0518 

REF 

2 LAST  296 

04,2504 

54  271 

1 

TS 

XREGLP  -2 

0519 

REF 

4 LAST  298 

04,2505 

54  110 

0 

TS 

CODE 

0520 

REF 

18  LAST  301 

04,2506 

50  123 

1 

index 

INREL 

ZERO  PERTINENT  DEC  COMP  BIT. 

0521 

REF 

I 8 LAST  300 

04,2507 

4 7651 

0 

CS 

BIT7 

PROTECT  OTHERS 

0522 

REF 

7 LAST  298 

— 04,2510 

7 0265 

1 

MASK 

DECBRNCH 

"0523 

REF 

1 

04,2511 

7 2540 

0 

MASK 

BRNCHCON 

ZERO  LOW  2 BITS, 

70524 

REE 

8 LAST  302 

04,2512 

54  265 

1 

T 5 

DECBRNCH 

0525 

“REF 

19  LAST  302  " 

"0472513 

50  123 

1 

“INDEX 

INREL 

0526 

REF 

1 

04,2514 

3 2530 

0 

CAF 

SINBLANK  -2 

BLANK  ISOLATED  CHAR  SEPARATELY 

0527 

REF 

2 LAST  295 

04,2515 

54  127 

1 

TS 

COUNT 

0528  ' 

" REF  " 

2 LAST  295 

04,2516 

0 3201 

I 

TC 

DSP  IN 

0529 

"REF 

20  LAST  302 

04,2517 

50  123 

1 5BLANK1 

index 

INREL 

0530 

REF 

2 LAST  301 

04,2520 

3 2533 

T 

CAF 

DOUBLK  -2 

053 1 

REF 

14  LAST  301 

04,2521 

54  264 

73 

TS 

DSPCOUNT 

0532 

"REF 

2 LAST  297 

04,2522 

0 2541 

0 

TC 

26LANK 

0533 

REF 

32  LAST  298 

04,2523 

4 7656 

1 

CS 

TWO 

0534 

“REF 

15  LAST  302 

04,2524 

26  264 

0 

ADS 

DSPCOUNT 

0535 

REF 

3 LAST  302 

04,2525 

0 2541 

0 

T L 

26LANK 

"0536 

RcF 

21  LA5 I 302 

04,2526 

50  123 

1 

INDEX 

INREL 

0537 

REF 

2 FAST  299 

04,2527 

3 5173 

1 

CAF 

R1D1  -2 

“0538 

REF 

16  LAST  302 

04,2530 

54  264 

0 

TS 

DSPCOUNT 

SET  DSPCOUNT  TO  LEFT  MOST  DSP  NUMBER 

0539 

REF 

70  LAST  299 

04,2531 

0 0001 

0 

TC 

L 

OF  REG,  JUST  BLANKED 

0540  04,2532  00016  0 S INBLANK  OCT  U DEC  14 

0541  04,2533  00005  1 OCT  5 

0342  0471534  DDOU5"'0  OCT  V 

0543  ""047F535  00015  0 DOUBLE  OCT  15  DEC  13 

054^  04,2536  OOOTI  1 OCT  TI  DEC  9 

0545  0472537  OOOW'l  OCT  3 


0546 


04,2540  77774  0 BRNCHCON  OCT  77774 


R0547 

2 BLANK  BLANKS  TWO 

CHAR,  PLACE 

DSP  NUMBER  OF  LEFT 

CHAR  1 

OF  THE  PAIR  INTO 

R0548 

DbPC.QJNT , THIS  NUMBER  IS  LEFT 

IN  DSPCOUNT 

U54? 

RcF  17  LAST 

302 

04,2541 

3 0264  1 2 BLANK 

CA 

DSPCOUNT 

0550 

RcF  23  LAST 

287 

04,2542 

54  021  0 

TS 

SR 

TT551 

REF  ' 1 ' 

04*2543 

4 2554  0 

"CS" 

BLANK CON 

0552 

04,2544 

0 0004  0 

INHINT 

0553 

REF  24  LAST 

302 

04,2545 

50  021  1 

INDEX 

SR 

0554 

kcF  23  LASI 

300 

04,2546 

36  307  TO' 

XCH 

DSPTAB 

0555 

U4,2547  0 0006  1 

EXTEND 

0556 

6 2558  1 

3ZMF 

+ 2 IF 

OLD  CONTENTS  -, 

NOUT  OK 

0557 

RcF  5 LAST 

163 

"04,2551 

24  303  1 

INCR 

NOUT  IF 

OLD  C0NTENT5  +, 

tl  TO  NOUT 

0558 

04*2552  U 0003  i 

relint 

IF 

-♦NOUT  OK 

0559 

RcF  163  LAST 

301 

U4  *2553 

0 0002  0 

TC 

Q 

4000 
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PINBALL  GAME  BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO.  15 

P0561 

emteftpass  0 is  the  execute  FUNCTION.  higher  order  enters  are  TO 

LOAD 

R0562 

“ DATA,  THE  5IGN~OF  REQRET  DETERMINES  THE  PASS,  + FOR  PASS  0,-  FOR 

higher 

R 0 5 6 3 

PASSES. 

Ro564 

machtte  cadr  jo  be  specified  (mltbs)  nouns  desire  an  ecadr  to  be  loaded 

“ R0565 

ahe.\  used  with  load  verbs,  monitor  verbs,  or  display  verbs  (Except 

RQ566 

verb  = fixed  memory  display,  which  requires  an  fcadrj. 

0567 

05,2000 

SETLOC  22000 

0568 

REF 

1 

05,2000 

0 3344 

1 NVSUBB 

TC 

NVSUBl 

standard  lead  ins.  dont  move. 

0569 

REF 

1 

05,2001 

1 3403 

1 DSPMM 

TCF 

DSPMM1 

0570 

REF 

1 

05,2002 

0 2663 

0 L0ADLV1 

TC 

loAdlv 

A0571 

END  of  STANDARD  LEAD  INS. 

0572 

REF 

107 

LAST 

301 

05,2003 

3 7665  0 ENTER 

caf 

ZERO 

0573 

REF 

8 

LASi 

301 

" 05,2004 

54  302“  1 

TS 

CL PASS 

0574 

REF 

2 

LA5  r 

297 

05,2005 

3 5150  0 

CAF 

ENDINST 

0575 

REF 

2 

LAST 

297 

05,2006 

54  122  1 

TS 

ENTRET 

05  fb 

REF 

4 

LASi 

301 

05,2007 

10““300  0 

CCS 

REQRET 

0577 

REF 

1 

05,2010 

0 2031  1 

TC 

ENTPASO 

IF  +,  PASS  0 

0578 

ReF 

2 

LAS  I 

303 

05,2011 

0 2031  1 

TC 

ENTPASO 

IF  +,  PASS  0 

0579 

05,2012 

0 2013  r 

T C 

+ 1 

IF  -,  /TOT  PASS  0“ 

0580 

REF 

9 

LAST 

296 

05,2013 

3 6165  0 

CAF 

THREE 

IF  DEC,  ALARM  IF  LESS  THAN  5 CHAR  IN, 

0581 

RtF 

9 

LAST 

302 

05 ,2014 

7 0265  1 

MASK 

DECBRNCH 

BUT  LEAVE  REQRET  - AND  FLASH  ON,  SO 

03  82 

REF 

197 

LA5T 

301 

05,2015 

10  000  0 

CCS 

A 

OPERATOR!  CAIN  SUPPLY  MISSING  NUMERICAL 

0583 

05,2016 

0 2020  1 

TC 

+ 2 

CHARACTERS  AND  CONTINUE. 

0584 

REF 

1 

05,2017 

0 2024  0 

TC 

ACCEPTWD 

octal,  any  number  OF  CHAR  OK, 

~0585 

RtF 

18 

LASI 

“302 

“ “05,2020 

10  264  0 

“CC5“ 

DSPCOUNT 

0586 

REF 

1 

05,2021 

0 2324  0 

TC 

GODSPALM 

LESS  THAN  5 CHAR  DEC  (DSPCOUNT  IS  +) 

0587 

REF 

z 

LAST 

303 

05 ,2022 

0 2324  0 

TC 

GODSPALM 

LESS  THAN  5 CHAR  DEC (DSPCOUNT  IS  +) 

0588 

05,2023  0 2024  0 

TC 

““_T“ 

5 CHAR  IN  (DSPCOUNT  15  -) 

0539 

REF 

5 

LAST 

303 

05,2024 

4 0300  0 ACCEPIWD 

cs 

REQRET 

5 CHAR  IN  (DSPCOUNT  IS  -) 

0590 

REF 

6 

LAS ! 

303 

05,2025 

54  300  0 

TS 

REQRET 

SET  REQRET  +, 

0591 

REF 

264 

05,2026 

0 5300  1 

TCT 

FTA5H0FF 

0592 

RiF 

7 

LAST 

303 

05,2027 

0 0300  1 

TC 

RtQRET 

0593  REF  BLAST  303  0122  ENTEXIT  = ENTRET 


0594 

05,2030 

00030  1 

LOWVERB 

OCT 

30 

LOWER  VERB 

THAT  AVOIDS  NOUN  TEST 

'-'593 

K C.F  108  LnS  1 3 03 

t <2U31 

3 7665  0 

ENTPASO 

CAF 

ZERO 

NOUN  VERB 

SUB  ENTtRS  HERE 

0596 

R-F  iO  L.A5T  303 

05,2032 

54  265  1 

TS 

DECBRNCH 

0597 

REF  9 LAST  801 

05,2033 

4 0266  T 

TESTVB 

CS 

VERFREG 

IF  VERB-  TS 

30-7T,  SKIP  NUUN  IbSl 
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PINBALL  GAME  BUTTONS  ANp  LIGHTS 


USER'S  OwN  pAgE  NO.  16 


0598 

REF 

1 

05.2034 

6 2030  0 

AD 

LGWVERB 

30-VB 

0599 

05.2035 

0 0006  1 

EXTEND 

0600 

REF 

1 

05.2036 

6 2116  0" 

3ZMF 

VERBFAN 

VERB  G/E  30 

0601 

05,2037 

0 0006  1 TESTNN 

EXTfcND 

VERB  L/  30 

0602 

’RTF” 

1 

"05.2040 

3 2076  1 

OCA 

L’odnnloc 

SWITCH  BANK’S  TO  NOUN  TABLE  READING 

"0603 

RTF"’ 

"T 

05,2041 

52  006  0 

dxch 

Z 

ROUTINE. 

0604 

RTF’ 

1 

05,2042 

50  124  0 

INDEX 

MIXBR 

0605 

05.2043 

0 2043  1 

TC 

+ 0 

0606 

05,2044 

0 2046  1 

TC 

+ 2 

NORMAL 

0607 

REF 

1 

05,2045 

0 2176  0 

TC 

MIXNOUN 

MIXED 

0608 

REF 

1 

05,2046 

10  132  0 

CCS 

NNADTEM 

NORMAL 

0609 

REF 

2 

LAST 

304 

05,2047 

0 2114  1 

TC 

VERBFAN  -2 

NORMAL  IF  + 

0610 

REF 

3 

LAST 

303 

05,2050 

0 2324  0 

TC 

GQDSPALM 

NOT  IN  USE  IF  +0 

~ 0611 

"R  EF"  ’ 

1 

05,2051 

0 2055  0 

TC 

REQADD 

"SPECIFY  MACHINE  CADR  IF  - 

0612 

REF 

1 

05,2052 

24  304  0 

I NCR 

NOUNCADR 

AUGMENT  MACHINE  CADR  IF  -0 

0613 

REF 

1 

05,2053 

0 5167  1 

TC 

setnadd 

ECADR  FROM  NOUNCADR.  SETS  EB,  NOUNADD, 

0614 

"RTF 

1 

05,2054 

O’  2102  0 

TC” 

INTMCTBS  +2 

" 0615 

REF 

20 

LA5T" 

299 

05,2055 

3 7641  0 REQADD 

CAF 

B I T 1 5 

SET  CLPASS  FOR  PASSO  ONLY 

0616 

RTF 

9 

LAST 

303 

05,2056 

54  302  1 

TS 

CLPASS 

0617 

”05,2057 

4 5150  "I 

C5 

ENDINST 

TEST  IF  REACHED  HERE  FROM  INTERNAL  OR 

0618 

REF 

1 

05,2060 

6 0122  0 

AD 

ENT EX  IT 

FROM  EXTERNAL 

0619 

05,2061 

0 0006  1 

EXTEND 

062CT 

’ 05,2062 

1 2064  "0 

BZF 

+ 2 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED  ’ 

0621 

REF 

2 

LAST 

304 

05,2063 

0 2100  I 

TC 

INTMCTBS 

0622 

REF 

1 

05,2064 

0 2256  1 

TC 

REQDATZ 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

0623 

REF 

ii 

L7T5T" 

"303 

05,2065 

10  265  1 

CCS 

"DECBRNCH 

0624 

REF 

4 

LAST 

304 

05 ,2066 

0 2324  0" 

T C 

GODSPALM 

ALARM  IF  DECIMAL  USED  FOR  MCTBS 

0625 

REF 

"1 

05 ,2067 

56  2^2  0 

XCH 

4KLG 

OCTAL  USED  OK 

"0626 

KlF 

"I 

’ 05,2070 

0 5 1 6 1 1 

TC 

SETNCADR 

ECADR  TNTO  NOUNCADR.  SET  EB,  NOUNADD. 

0627 

05 ,2071 

0 0006  I 

EXT  END 

0628 

REF 

2 

LA5T 

304 

05,2072 

3 2076  1 

DCA 

LODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

T>62’9 

REF 

2 

LAST" 

304 

"05,2073 

52  006  0 

DXCH 

ROUTINE."’ 

0631 

RfcF  19  LASI  303 

EO 

EBANkT" 

DSPCOUNT 

0632 

05,2075 

02000  0 LODNNLOC 

2CADR 

LODNNTAB 

C0632 

REF  1 

05,2076 

34000  0 

"0633" 

05,2077 

77772  0 NEG5" 

OCT" 

77772 

0634" 

REF  438 

LAST 

296 

05,2100 

3 0142 

"CT" 

INTMCTBS  CA 

MPAC  ^+2 

INTERNAL  MACH  CADR  TO  BE  SPECIFIED, 

0635" 

REF  2 

LA5T 

"304  " 

□6,2101  0 5161 

"I 

TC 

SETNCADR 

""ECADR  INTO  NOLTnCADR.  "SET  EB,  nOUnADD. 

0636 

ReF  23 

LAST 

281 

05,2102 

4 7654 

0 

cs 

B 1 1 4 

NVSUB  CALL  LEFT  CADR  IN  MPAC+2  FOR  MACH 

0637 

RcF  10 

LAST 

303 

05,2103 

7 0266 

1" 

MASK 

VERBREG 

cadr  to  Be  specified. 

0633 

05,2104 

6 2077  0 

AD 

NEG5 

TTASKING  "MAKES  VB15  LOOK  LIKE  VB05, 

0639 

05,2105 

0 0006 

1 

EXTEND 

0640 

REF  4 

LAS  r 

304 

O5  1 2 1 06 

1 2116 

1 

BZF 

VERBFAN 

VB  = U5  OK  l5t  00  NOT  DISPLAY  CADR* 

064T 

"ReF  2 

LA5 I 299 

05,2107 

3 5 1 7T 

' CAF" 

"RTDT 

Vts  NOT  = 05  OR  "15,  DISPLAY  CADR, 

0642 

REF  20 

1 

3U4 

05,2110 

54  264 

0 

T 5 

DSPCOUNT 

0643 

REF  2 

LASI " 

304 

05,2111 

3 0304 

0 

~ CA — 

NOUNCADR 

sf 

D 

REF  1 

Os, 211 2 

0 3222 

"0 

TC 

DSPOCTWD 
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l pinball  game  buttons  and  lights 

USER'S  OWN  PAGE  NO.  17 

0645  REF  5 LAST  304  05,2113  0 2116  0 

TC 

VERBFAN 

0646 

REF  64 

LAST 

301 

05,2114 

6 7657  1 

AD 

ONE 

" 0647 

R~EF  3 

LAST 

304 

05,2115 

0 5161  1 

T C 

SETNCADR 

ECADR  INTO  NOUNCADR,  SETS  EB, 

NOUNADD, 

0648 

REF  T 

05,2116 

4 2131  1 

VERBFAN  CS 

LST2C0N 

0649 

REF  IT 

LAST 

304 

05,2117 

6 0266  0 

AD 

VERBREG 

VERB-LST2C0N 

~ 0650 

REFT?  8 

LAST 

303 

05,2120  10  000  0 

CCS 

A 

"0651 

REF"  55 

"LAST" 

305 

05,2121 

6 7657  1 

"AD 

ONE 

VERB  G/  LST2C0N 

0652 

05,2122 

0 2124  1 

TC 

+ 2 

0653 

REF  1 

05,2123 

0 2133  1 

TC 

VBFANDIR 

VERB  L/  LST2C0N 

U654 

REF  439 

"LAST 

304 

05,2124 

54  140  0 

TS 

MPAC 

0655 

REF  1 

05,2125 

0 5341  1 

TC 

RELDSP 

RELEASE  DISPLAY  SYST 

0656 

REF  440 

LAST 

305 

05,2126 

56  140  1 

XCH 

MPAC 

ALSO  TURN  OFF  RELEASE  DISPLAY 

SYST  LIGHT 

" 0657 

"REF  1 

05,2127 

6 2132 "0 

AD 

LST2CADR 

0658 

REF  5 

LAST 

277 

05,2130 

0 4105  1 

TC 

BANK JUMP 

0659 

05,2131 

00040  0 

LST2C0N  OCT 

40 

FIRST  LST2  VERB 

0660 

REF  1 

05,2132 

22000  1 

LST2CADR  CADR 

LST2FAN 

0661 

REF  12 

LAST 

305 

05,2133 

50  266  0 

VBFANOIR  INDEX 

VERBREG 

U662 

" RTF  " T 

05,2134 

3 2136  1 

CAP 

VERBTAB 

0663 

REF  6 

LAST  305 

05,2135 

0 4105  1 

TC 

BANK JUMP 

0664 

""REF 

5 LAST 

"304 

05,2136 

12324  1 

VERBTAB  CADR 

GODSPALM 

VBOC  ILLEGAL 

0665 

REF 

1 

05,2137 

12340  0 

CAdR 

dspa 

vboi  display  oct  comp  i <rd 

0666 

REF 

I 

05,2140 

12345  0 

CADR 

DSPB 

VB02  DISPLAY  OCl  COMP  2 (R 1 ) 

06  6 7" 

"REF" 

" I 

05,2141 

12352  "0 

CADR 

DSPC 

VB03  DISPLAY  OCT  COMP  3 (Rl) 

0668 

REF 

1 

05,2142 

12333  1 

CADR 

D5PAB 

VB04  DISPLAY  OCT  COMP  1,2  <R1,R2) 

0669 

REF 

1 

05,2143 

12326  0 

CADR 

DSPABC 

VB05  DISPLAY  OCT  COMP  1,2,3  (R1,R2,R3) 

0670 

REF 

I 

05 ,2 1 44 

12445  1 

VB06  DECIMAL  DISPLAY 

0671 

REF 

1 

05,2145 

10704  0 

CADR 

D5PDPDEC 

VB07  DP  DECIMAL  DISPLAY  (R1,R2) 

0672 

REF 

1 

05,2146 

11277  0 

CADR 

DSPALARM 

VB 10  SPARE 

"0673" 

"RET  " 

I 

05,2147 " " 

13077  "0" 

CADR"" 

MONITOR 

VBTT  MONITOR  OCT  COMP  1 (Rl) 

0674 

RtF 

2 LAST 

305 

05,2150 

13077  0 

CADR 

TONI  TOR 

VB12  MONITOR  OCT  COMP  2 (Rl) 

0675 

REF 

3 LAST 

305 

05,2151 

13077  0 

CADR 

MONITOR 

VB13  MONITOR  OCT  COMP  3 (Rl) 

"0676 

KcF 

4 TAUT 

305 

05,2152 

13077  0 

CADR 

monitor 

VB14  MUNTTOR  OCT  COMP  1,2  (R 1 ,R2 ) 

0677 

REF 

5 LAST 

305 

05,2153 

13077  0 

CADR 

monitor 

VB15  MONITOR  OCT  COMP  1,2,3  (RI,R2,R3) 

0678 

REF 

6 LAST 

305 

05,2154 

13077  0 

CADR 

monitor 

VB16  MONITOR  DECIMAL 

T0679 

REF 

T LAST 

305 

05 ,2155 

1307TAT 

CADR  "MUNTTOR 

VB17MUNIT0R  DP  DEC  CR1,R2) 

0680 

REF 

6 LAST 

305 

05,2156 

12324  1 

L/MJR 

GOUSPALM 

VB20  SPARt 

0681 

REF 

1 

05,2157 

12620  0 

CADR 

ALOAD 

VB21  LOAD  COMP  I (Rl) 

0682 

REF 

~1 

05,2160 

12631  0 

BLOAD 

VB 2 2 "LOAD  "COMP  2 (R27 

0683 

REF 

1 

05 ,2161 

12646  0 

CADR 

CLOAD 

VB23  LOAD  COMP  3 (R3) 

0684 

REF 

1 

05,2162 

12572  1 

CADR" 

ABLOAD 

VB24  LOAD  COMP  1,2  (R1,R2) 

0685 

REF 

1 

t>5 , 2 1 63 

12535  1 

CADR 

A B CLOAD 

VB25  LOAD  COMP  1,2,3  (RI,R2,R3) 

0 686 

REF 

7 LAST 

305 

05,2164 

12324  1 

CADR- 

GODSPALM 

VB26  SPARE 

0687 

REF 

1 

05,2165 

13214  1 

CADR 

DSPFMEM 

VB27  FIXED  MEMORY  DISPLAY 

A0688 

06f|  REF  r 

0690 REF f 

&691  REF T 


05 

05 

-QT 


2166  1331 A 0 

2167  13340  1 

2170  11325 


REQEXLOC  CADR 
CAUR 


VBRQEXEC 
VBROWAIT 
"BUMP 


"THE" 

VB30  REQUEST  EXECUTIVE 
VB31  REQUEST  WAITLIST 
V632CTR2)  INTO  R3,"C(R17  INTO  R2 


a 


*c 
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l pinball  game. buttons  and  lights. usep^s  own  page  no*  is 


0692 

REF 

1 

05*2171 

11310 

0 

CADR 

VBPROC 

VB33  PROCEED  WITHOUT  DATA 

0693 

REF 

1 

"05*2172 

11315 

0 

CADR 

VBTERM 

VB34  TERMINATE  CURRENT  TEST  OR  LOAD  RCQ 

0694 

REF 

1 

05,2173 

13414 

1 

CADR 

VBTSTLTS 

VB35  TEST  LIGHTS 

0695 

REF 

1 

05,2174 

24000 

1 

CADR 

SLAPl 

VB36  FRESH  START 

0696 

REF 

1 

05,2175 

13267 

0 

ENDVBFAN  CADR 

MMCHANG 

~W37  Change  major  mode 

R0697  The  L I S TT17ERBFAN~Ts~XSC ated~~i n the  extended  verb  BANK, 


HI 
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L 

PINBALL  GAME  BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO,  19 

P0698 

NNADTAB  CONTAINS 

A RELATIVE  ADDRESS,  IDADDREL  (IN 

LOW  10 

BITS)  , REFERRING 

RO699 

To  WHERE  3 CONSECUTIVE  ADDRESSES  ARE  STORED  (IN 

IDADDTAB) , 

R0700 

Mi X NOUN  GETS  DATA  AND  STORES  IN  MIXTEMP  , + 1 , + 2 . IT  SETS 

NOUNADD  FOR 

R0701 

MI XT  EMP • 

^O?02 

REF 

2 LAST  3O4 

O5  <2176 

10  132  0 MIXNOUN 

CCS 

NNADTEM 

0703 

05,2177 

0 2203  1 

TC 

+ 4 

+ IN  USE 

0704 

REF 

8 LAST  305 

05,2200 

0 2324  0 

TC 

GODSPALM 

+0  NOT  IN  USE 

0705 

05,2201 

0 2203  1 

TC 

+ 2 

- IN  USE 

0706 

05,2202 

0 2203  1 

TC 

♦ 1 

-0  IN  USE 

0707 

REF 

9 LAST  274 

05,2203 

4 6162  0 

cs 

SIX 

0708 

REF 

13  LAST  305 

05,2204 

6 0266  0 

AD 

VERBREG 

0709 

05,2205 

0 0006  1 

extend 

0710 

05,2206 

6 2210  0 

8ZMF 

+ 2 

VERB  L/E  6 

O71 1 

REF 

6 LAST  305 

05,2207 

0 2116  0 

TC 

VERBFAN 

AVOID  MIXNOUN  SWAP  IF  VB  NOT  = DISPLAY 

0712 

REF 

33  LAST  302 

05,2210 

3 7656  0 

CAP 

TWO 

0713 

REF 

1 

05,2211 

54  103  1 MDTNN1 

TS 

DECOUNT 

0714 

REF 

1 

05,2212 

6 2235  1 

AD 

MIXAD 

0715 

REF 

1 

05,2213 

54  131  0 

TS 

NOUNADD 

SET  NOUNADD  TO  MIXTEMP  + K 

07 16 

REF 

2 LAST  307 

05,2214 

50  103  0 

~TNDEX 

“DECOUNT 

GET  IDADDTAB  ENTRY  FOR  COMPONENT  K 

0717 

REF 

1 

05,2215 

3 0134  1 

CA 

IDAD1TEM 

OF  NOUN, 

0718 

REF 

1 

05,2216 

54  106  1 

T5 

NOUNTEM 

AO  7 19 

TEST  FOR  DP (FOR  OCT  DISPLAY),  IF  SO,  GET 

A0720 

MINOR  PART  ONLY. 

0721 

REF 

1 

05,2217 

0 2721  1 

TC 

SFRUTMIX 

GET  SF  ROUT  NUMBER  IN  A 

072  2 

REF 

1 

35,2220 

0 2236  1 

TC 

~DPTEST 

0723 

REF 

1 

05,2221 

0 2223  0 

TC 

1HIXNN2 

NO  DP 

0724 

REF 

2 LAST  307 

05,2222 

24  106  0 

INCR 

NOUNTEM 

DP  GET  MINOR  PART 

0725 

REF 

3 LAST- 307 

05,2223 

3 0106  0 MTXNN2 

CA  _ 

NOUNTETT 

0726 

REF 

4 LAsI  168 

05,2224 

7 5234  0 

MASK 

LOW  11 

ESUBK  (NO  DP)  OR  (ESUBK) +1  FOR  DP 

0727 

REF 

1 

05,2225 

0 5171  0“ 

TC 

SETEBANK 

5ET  EBANK,  LEAVE  EADRES  IN  A, 

0728 

REF 

1 S9  LAST  305 

05,2226 

50  000  1 

INDEX 

A 

PICK  UP  C (ESUBK)  NOT  DP 

0729 

05,2227 

3 0000  1 

CA 

0 

OR  C ( (ESUBK ) + 1 ) FOR  DP  MINOR  PART 

O73O 

REF 

2 LAST  307 

05,2230 

50  131  1 

INDEX 

NOUNADD 

0731 

05,2231 

56  000  1 

XCR 

0 

“STORE-  IN  MIXTEW  + K 

0732 

REF 

3 LA5T  307 

05,2232 

10  103  1 

DECOUNT 

0733 

REF 

1 

05,2233 

0 2211  1 

TC 

MIXNN1 

0734 

REF- 

7 LAST  307 

05,2234 

0 2116  C 

TC 

" VERETFAN 

0735 

KEt- 

3 LASI  301 

05*2235 

0 0111  0“  MIXAD 

TC 

MIXTEMP 

R0736  DPTEST  ENTER  WITH  5F  ROUT  NUMSfR  IN  A. 

' R0737  RETORNS"TO  L*  1 IF  NOi  DP5 

R0738  _ RETURNS  TO  L+2  IF  DP,  — ~ 

“O739  REF  200  LAST  307  05,2236 — 50  000  l — DPTEST INDEX — A ~ 

0740  05,2237  I 2240-1“  TCF +1 

0741  REF  1 64  LAST  302  05,2240  Q— 0002  0 TC Q OCTAL  ONLY — NO'  DP 


r~ 


■^1 
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PINBALL  GAME  BUTTONS  AND  LIGHTS 

USER'S  OWN  pA(jE  NO.  20 

0742 

REF  165  LAST  307 

05.2241 

0 0002  0 

TC 

Q 

FRACT  NO  UP 

0743 

RcF  166  LAST  308 

T>5 .2242 

0 0002  0 

TC 

Q 

DEG  NO  DP 

0744 

" REF  167  LAST  30a 

05,2243 

0 0002  0 

TC 

Q 

ARITH  NO  DP 

0745 

RTF  ” 1 

05,2244 

1 2250  0 

TCF 

DPTEST1 

DP10UT 

0746 

RcF  2 LAST308 

05,2245 

1 2250  ID 

TCP 

WTEST1 

DP20ur 

0747 

REF  168  LAST 308 

05,2246 

0 0002  0 

1 c 

Q 

OPDEG  NO  DP 

0748 

REF  3 LAST  308 

05,2247 

1 2250  0 

TCF 

DPTESTl 

DP30UT 

074-9 

REF  169  LAST 308 

05,2250 

50  002  0 

DPTEST1 

INDEX 

Q 

0750 

05.2251 

0 0001  0 

TC 

1 

RETURN  TO  L+2 

""  0751 

REF 

3 LAST 

302 

05,2252 

3 5175 

1 REQDATX  CAF 

R1D1 

0752 

RTF 

" 1 

05,2253 

1 2257 

1 TCF 

REQCOM 

0753 

REF 

2 LAST 

299 

05,2254 

3 5176 

1 REQDATY  CAF 

R2D1 

0754 

REF 

2 LA5T 

308 

05,2255 

1 2257 

1 TCF 

REQCOM 

0755 

"RTF 

" 3 LAST 

304 

05,2256 

3 5177 

0 REQDATZ  CAF 

R3DI 

0756 

REF 

21  LAST 

304 

05,2257 

54  264 

0 REQCOM  TS 

DSPCOUNT 

0757 

REF 

170  LAST 

308 

05,2260 

4 0002 

1 cs 

Q 

0758 

"REF 

8 LAST 

303 

05,2261  54  300 

0 TS 

REQRET 

0759 

REF 

19  LAST 

301 

05,2262 

0 4063 

0 TC 

BANKCALL 

0760 

REF 

2 lASI 

301 

05,2263 

10476 

0 CADR 

56LANK 

0 76 1 " 

~ R EF 

4 LAST" 

277 

05 ,22 64 

0 5274 

0 TC 

TL  ASTON 

0762 

RcF 

4 LAST 

304 

05,2265 

4 5150 

1 CS 

ENDINST 

0763 

REF 

' 2 LAST 

304 

05,2266 

6 0122 

0 AD 

ENTEXIT 

0764 

05,2267 

"0  0006 

T EXTEND 

0765 

REF 

1 

05,2270 

1 2273 

1 8ZF 

ENDRQDAT 

ENTEXIT  = ENDOFJOB.  EXTERNALLY  INITIATED 

0766 

REF 

109  LA5T 

303 

05,2271 

4 7665 

1 CS 

ZERO 

ENT tX IT  NOT  ENDOFJOB.  NVSUB  INITIATED 

“0767 

REF" 

4“LAS  1 

225 

05,2272 

54  323 

i TS 

NVSU6  ITTITTATED  LOAD.  SET  CADR5TQR"  TO  -0 

0768 

REF 

3 LASl 

308 

05,2273 

0 0122 

0 ENDRQDAT  TC 

ENTEXIT 

RoTfc?  IF!  NVbUB  INITIATED  LOAUT'S'eT"  CADR5T0R  TO  -0  TO  TEU  ReCALtS-T  TO  RELEASE 

RC770  DISPLAY  Ip  ENDIDLE  WAS  NOT  USED.  (NECESSARY  pOR  DATAWATD 


0771 

REF 

4 LASl  298 

05*2274 

54  267  0 

TS 

NOUNREG 

0772 

Rtp 

171  TAST  308 

"05,2275 

56  002  0 UPOATNN 

" XCFT 

Q 

0773 

REF 

1 

05.2276 

54  103  1 

TS 

UPDATRET 

0774 

05,2277 

0 0006  1 

EXTEND 

"0775 

REF 

3 "LAST  304 

05,2300 

3 "2076  I 

DC  A 

L0T5NNL0C 

5WITCH  BANKS  TO  NOUN" TABLE  READING 

0776 

REF 

3 LAST  304 

05,2301 

52  006  0 

DXCrl 

Z 

ROUTINE, 

0777 

REF 

3 LAST  307 

05,2302 

10  132  0 

CCS 

NNADTEM 

0778 

REF 

66  LAS]  305 

05,2303 

6 7657  1 

AD 

ONE 

NORMAL 

0779 

REF 

1 

05,2304 

1 2307  0 

TCF 

PUTADD 

0780 

REF 

2 LAS  1 30b 

05 ,2305 

1 2310  0 

TCF 

PUTADD  +1 

MCTBS  DONT  CHANGE  NOUNADU 

0781 

REF 

3 LAST  308 

05,2306 

1 2310  0 

PUTADD  n 

MCTBI  DONT  CHANGE  NOUN ADD 

0782 

RcF 

4 LAST  305 

05,2307 

0 5161  1 PUTADD 

T C 

SETNCADR 

ECADR  INTO  NOUNCADR,  SETS  EB,  NOUNADD, 

0783 

RcF 

2 LAST  298 

05,2310 

3 5240  1 

CAF 

ND1 

0784 

TREE 

22  LAST  308 

05,2311 

54-  26  4 0" 

T5^ 

D5FC0UNT 
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L 

PINBALL  GAME  BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO,  21 

0785 

REF  5 LAST  308 

OS, 2312  3 0267  1 

CA 

NOUNREG 

“0786 

“ref"  r 

“05,2313  1 2322  1 

TCF 

UPDAT1 

0787 

REF  14  LAST  307 

05,2314  54  266  1 

TS 

VERBREG 

0788 

REF  172  LAST  308 

05,2315  56  002  0 

UPDATVB 

XCH 

0 

“0789 

REF  2 LAST  308 

05,2316  54  103  1 

T S 

UPDATRET 

0790 

REF  3 LAST  297 

05,2317  3 5237  1 

CAF 

VDT 

' 0791“ 

REF  23  LAST  308 

05,2320  54  264  0 

TS 

DSPCOUNT 

0792 

REF  15  LAST  3O9 

05,2321  3 0266  0 

CA 

VERBREG 

0793 

REF  1 

05,2322  0 3255  0 

UPDAT1 

TC 

DSP2BIT 

“0794 

REF  3 LAST  809 

7)5 ,2323  0 0103  0 

TC 

UPDATRET 

“qT95 

REF 

11  LAST 

295 

05,2324 

0 41o2  0 

GODSPALM  TC 

POSTJUMP 

0796 

REF 

2 LAST 

305 

05,2325 

11277  0 

CADR 

DSPALARM 
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L 

PlNBALL  GAME  BUTTONS  AND  LlGHITS  U5Er»S  OWN  PAGE  NO,  22 

P0797 

NOUN  TABLES 

R 079  8 

NOUN  CODE  L7  55,  NORMAL  CASE.  NOUN  CODE  6/E  55,  MIXED  NOUN  CASE. 

Rq799 

FOR  NORMAL  CASE,  NNADTAB  CONTAINS  ONE  eGADR  FOR  EACH  NOUN. 

R0800 

- +0  INDICATES  NOUN  NOT  USeD.  - ENTRY  INDICATES  MACHINE  CADR(e  OR  F)  TO 

ROBOT 

BE  SPECIFIED.  -1  INDICATES  CHANNEL  TO  BE  SPECIFIED,  -0  INDICATES  AUGMENT 

R0802 

OF  LAST  MACHINE  CADR  SUPPLIED, 

R0803 

FOR  MIXED  CASp,  NNADTAB  CONTAINS  ONE  INDIRECT  ADDRESS ( I DADDReL)  IN  LOW 

R0804 

10  BITS,  AND  fHE  COMPONENT  CODE  NUMBER  IN  THE  HIGH  5 BITS. 

R0805 

nntyptab  is  a packed  table  of  the  form  mmmmmnnnnnppppp. 

R0806 

FOR  the  NORMAL  case,  M-S  ARE  THE  COMPONENT  CODE  NUMBER. 

R 0 80  7 

N-S  ARE  Trie  SF  ROUTINE  CODE  NUMBER. 

R0803 

P-S  ARE  THE  SF  CONSTANT  CODE  NUMBER. 

R0809 

MIXED  CASE.M-S  ARE  THE  SF  CONSTANT 3 CODE  NUMBER  3 COMPONENT  CASE 

R0810 

N-S  ArE  ThE  SF  C0NS.TANT2  CODE  NUMBER 

R0811 

P-S  ARE  THE  SF  CONST  ANT  1 CODE  NUMBER 

FWi2 

M-S  ARE  THE  SF  CONSTANT 2 CODE  NUMBER  2 COMPONENT  CASE 

R0813 

P-S  ARE  THE  SF  CONST  ANT  1 CODE  NUMBtR 

R0814 

P-S  ARE  THE  SF  CONSTANT  1 CODt  NUMBER  l COMPONENT  CASE 

R08  1 5 

THERE  IS  ALSO  AMT  INDIRECT  ADDRESS  TABLE <1 DADDTAB ) FOR  MIXED  CASE  ONLY. 

R0616 

EACH  ENTRY  CONTAINS  ONE  ECADR,  IDADDReL  IS  THE  RELATIVE  ADDRESS  OF 

~R'0817 

THE  FIRST  OF* THESE  EiNTRTES. 

R0818 

THERE  T5  ONE  ENTRY  IN  THIS  T A3L£  FOR  EACH  COMPONENT  OF  A MIXED  NOUN 

R0819 

THEY  ARE  LISTED  IN  ORDER  OF  ASCENDING  K. 

“0820 

T HfcKc:  15  AL50  A 5LALfc.  rAC[OK  ’\uJTINfc.  NUMBER  tABl£.(  RUtMXjAB  ) FOR  MIXED 

R0821 

CASE  ONLY,  THERE  IS  ONE  ENTRY  PER  MIXED  NOUN/  THE  FORM-  IS, 

R0822 

OGQOORRRRRSSSSS 

R0823 

Q-S  ARE  THE  SF  kOUTINE  3 CODE  NUMBER  3 COMPONENT  CASE 

R0824 

R-S  ARt  THE  SF  ROUTINE  2 CODE  NUMBER 

R0825 

5-5  A-<E  THE  SF  ROUTINE  1 CODE  NUMBER 

R0826 

R-S  ARE  THE  SF  ROUTINt  2 CODE  NUMBER  2 COMPONENT  CASE 

R0827 

S-S  ARE  THE  SF  ROUTINE  1 CODE  NUMBER 

730B2B~ 

I\|  OCTaI^DiSPLaY  AND  LO/\D  (OCT  OR  DEC)  VERBS,  EXCLUDE  USE  OF  VERBS  WHOSE 

RG829 

component  number  is  greater  than  the  number  of  components  IN  NOUN, 

R0830 

ALL  MACHINE  ADDRESS  TO  BE  SPECIFIED  NOUNS  ARE  1 COMPONENT. 

R083I 

ONLY  EXCEPTION-  IS  NOON  OT  TO  ALLOW-  OCTAL  T7I5PLAYS AND^LCffiDE  'OF- 

R0832 

AN  UNcOr, TOLLED  NUMBER  OF  COMPONENTS, 

R 0 83 3 IM  MULT  1 -COMPONENT  LOAD  VERBS*  sjO  MIXING  OF  OCTaL  AND  DECIMAL  DaTa 

R0834  COMPONENT  WORDS  I 5‘ACtDWEDV- ALARM  IF  VIOLATION.  - 
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l pinball  game  buttons  and  lighits 


USEr  * S OWN  PAGE  NO.  23 


R 0 8 3 5 IN  DECIMAL 


LOrtOS  OF  DATA, 
ENTER.  I>  NOT 


5 numerical  CHARACTERS  must  Be  keyed  in 
, ALARM:. 
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L pi  Tea'll  game  buttons  «,,d  lights 


USER'S"  O^M  page  ;\0.  24 


I '1 


PQ837 

DISPLAY 

VERBS 

0838 

REF 

34  LAST  307 

05,2326  4 7656  1 

DSPABC 

CS 

TWO 

0839 

REF 

1 

05,2327  0 2376  1 

TC 

COMPTEST 

0840 

REF 

3 LAST  307 

05,2330  50  131  1 

INDEX 

NOUNADD 

0841 

05,2331  4 0002  1 

CS 

2 

0842 

REF 

115  LAST  262 

05,2332  56  116  1 

XCH 

BUF  +2 

0843 

REF* 

67  LAST  308 

05,2333  4 7657  0 

DSPAB 

CS 

ONE 

0844 

REF 

*2  LAST  312 

05,2334  0 2376  1 

TC 

COMPTEST 

0845 

REF 

4 LAST  312 

05,2335  50  131  1 

INDEX 

NOUNADD 

0846 

05,2336  4 0001  1 

CS 

1 

0847 

REF 

116  LAST  312 

05,2337  56  115*  1 

XCH 

BUF  +1 

0848 

REF 

1 

05,2340  0 2420  0 

DSPA 

TC 

TSTFORDP 

0849 

REF 

5 LAST  312 

05,2341  50  131  1 

INDEX 

NOUNADD 

0850 

05,2342  4 0000  0 

CS 

0 

0851 

REF 

117  LAST  312 

05,2343  56  114  0 

DSPC0M1 

XCH 

BUF 

0852 

REF 

1 

05,2344  0 2357  1 

TC 

DSPC0M2 

“£>853 

REF 

68  LAST  312 

05,2345  4 7657  0 

DSPB 

CS 

ONE 

0854 

REF 

3 LAST  312 

05,2346  0 2376  1 

TC 

COMPTEST 

0855 

REF 

6 LAST  312 

05,2347  50  131  1 

INDEX 

NOUNADD 

0856 

0**5,2350  4 0001  1 

CS 

I 

0857 

REF 

1 

05,2351  0 2343  1 

TC 

DSPC0M1 

0858 

REF 

35  LAST*  312 

05,2352  4 7656  1 

D5PC 

C5 

TWO 

““ 0859 

REF 

4 LAST  312 

05*2353  0 2*376  1 

TC 

COMPTEST 

0860 

REF 

7 LAST  312 

05,2354  50  131  1 

INDEX 

NOUNADD 

0861 

05,2355  4 0002  I 

CS 

2 

0862 

REF 

2 LAST*  312 

05,2356  0 *234*3  1 

TC 

DSRCOMl 

0863 

REF 

36  LA5T  312* 

05,2357  4 7656  1 

DSPC0M2 

C5 

TWO 

A B C AB 

ABC 

0 864 

RtF 

16  LAST  309 

05,2360  6 0266  0 

AD 

VERBREG 

-1  -0  +1  +2 

+ 3 IN  A 

0865 

RtF 

T OT  EAST  307 

05,2361  1*0  OQOT5 

CCS 

A 

♦ Q +0  +0  +1 

+2  IN  A AFTER  CCS 

0866 

RtF 

1 

05,2362  0 2365  0 

TC 

DSPC0M3 

0867 

REF 

4 LAST  308 

05,2363  0 0122  *0 

TC 

ENTEXIT 

“0868 

05,2364  0 2365  0 

TC  * 

+ 1 

0869 

RtF 

1 

05,2365  54'  106  1 

DSPC0M3 

TS 

DISTEM 

+0  * + 1 , + 2 INTO 

i DISTEM 

0870 

REF 

202  LAST  312 

05,2366  50  000  1 

INDEX 

A 

*0871 

RtF 

A LAST  308 

05,2367  3 5175  1 

CAT 

“RTBl 

0872 

RtF 

24  LAST  309 

05,2370  54  264  0 

TS 

DSPCOUNT 

0873 

REF 

2 LAST  312 

05,2371  50  106  15- 

INDEX 

DISTEM 

0874 

RtF 

118  LA5T  312 

05,2372  4 0114  1 

CS 

“BUF 

0875 

RtF 

2 LAST  304 

05,2373  0 3222  0 

TC 

DSPOCTWD 

0876 

REF 

3 LAST  312 

05,2374  56  106  0 

XCH 

DI STEM 

0877 

RtF 

2 LAST  312" 

05,2375  0 2361  1 

DSPC0M2  +2 

R0876  XOHPTESf  ■ At  ARMS  IF  COMPONENT  NUMBER  OF  VERB (LOAD  OR  OCT  DISPLAY)  IS 
"R0879  GREATER- 

R0880  NOUN  01  IS  EXCLUDED  FROM  TEST. 

0881  REF  T 05*2376  54  107  0 

“0882 REF  17rLAST  309 05,2377  22“  002  0“ 

0883  REF  69  LAST  312  05,2400  4 7657  0 

“0884  REF  6 LAST  309  05,2401  6 0267  1 


COMPTEST  TS“ 
LXCFT 

C0MPT5T1  CS 
AD 


SFTEMP1 


- VERB  COMP 


Q 

“ONE 

NOUNREG 


*0885 


05,2402  0 00061 


^EXTEND- 


« 
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0886 

REF 

1 

05,2403 

1 2417 

0 

3ZF 

NDCMPTST 

NOUN  = 01,  ANY  COMP  OK 

0887 

REF 

2 LAST 

304 

"05,2404 

50  124 

0 

INDEX 

MIXBR 

NOUN  NOT  = 01. 

0888 

REF 

1 

05,2405 

3 2442 

1 

CAF 

COMPICK  -1 

0889 

REF 

203  LAST 

312 

05,2406 

50  000 

1 

INDEX 

A 

0890 

05,2407 

3 0000 

1 

CA 

0 

0891 

REF" 

2 LAST 

163 

05,2410 

7 5226 

0 

MASK 

HI  5 

0892 

REF 

1 

05,2411 

0 5207 

1 

TC 

LEFT5 

NOUN  COMP 

0893 

"REF 

2 LAST 

312 

— 05,2412 

6 0107 

1 

AD 

St*  TEMP  1 

NOUN  COMP  - VERB  COMP 

0894 

REF 

204  LASi 

313 

05,2413 

10  000 

0 

CCS 

A 

0895 

REF 

71  LAST 

302 

05,2414 

0 0001 

0 

TC 

L 

NOUN  COMP  6/  VERB  COMP 

0896 

REF 

15  LAST 

301 

05,2415 

0 5464 

1 

TC 

CCSHOLE 

0897 

REF 

9 LAST 

307 

05,2416 

0 2324 

0 

TC 

GODSPALM 

NOUN  COMP  L/  VERB  COMP 

0898 

REF 

72  LAST 

313 

05,2417 

0 0001 

0 

NDCMPTST  TC 

L 

NOUN  COMP  = VERB  COMP 

0899 

ref 

174  LAST 

312 

05,2420 

22  002 

0 

tstfordp  lxch 

Q 

TEST  FOR  DP.  If  SO,  GET  MINOR  PART  ONLY. 

0900 

REF 

4 LAST 

308 

05,2421 

3 0132 

1 

CA 

NNADTEM 

0901 

REF 

70  LAST 

312 

05,2422 

6 765  7 

1 

AD 

ONE 

IF  NNADTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 

"0902 

05,2423 

0 0006 

1 

EXTEND 

0903 

REF 

1 

05,2424 

1 2436 

0 

BZF 

CHANDSP 

0904 

REF 

3 LAS  1 

313 

05,2425 

50  124 

0 

INDEX 

MIXBR 

0905 

05,2426 

0 2426 

0 

TC 

+ 0 

0906 

05,2427 

0 2431 

0 

TC 

+ 2 

NORMAL 

0907 

REF 

73  LAST 

313 

05,2430 

0 0001 

0 

TC 

L 

MIXED  CASE  ALREADY  HANDLED  IN  MIXNOUN 

0908 

RtF 

I 

05,2431 

0 2713 

70 

^rc 

SFRUTNOR 

0909 

REF 

2 LAST 

307 

05,2432 

0 2236 

1 

TC 

DPTEST 

0910 

REF 

74  LAST 

313 

05,2433 

0 0001 

0 

TC 

L 

NO  DP 

0911 

REF 

8 LAST  312 

05,2434 

24  131 

r 

IRCR 

NOUNADD 

DP  " E+l  INTO  "NOUNADD  FOR  MINOR  PART. 

0912 

REF 

75  LAS  f 

313 

05,2435 

0 0001 

0 

TC 

L 

0913 

05,2436 

0 0006  1 CHANDSP 

EXTEND 

0914 

RBF 

3 

LA5T 

304 

O5 ,2437 

5 030T1T 

INDEX 

NOUNCADR 

0915 

REF 

205 

05,2440 

00  000  1 

READ 

0 

0916 

LASI 

313 

05,2441 

4 0000  0 

cs 

A 

0917 

REF 

3 

LA5T 

312 

"05 ,2442 

1 2343  0 

TCF 

DSPC0M1 

* 

* 


0918  R£F  1 05,2443  oo133  0 COMPICK  ADRgS  NNTYPTEM  • 

0919  REF  5 LAST  313  05,2444  00132“!""  ADRES  NNADTEM 


0920  REF  4 LAST  313  05,2445  50  124  0"  DECDSP  INDEX  IMTX0R  NORMAL  MIXED  • 

0921  REF  2 LAST  313  05,2446  3 2442  1 CAF  COMPICK  .1  ADRES  NNTYPTEM  ADRES  NNADTEM 

0922  REF  206  LAST  313  05,2447 — 50  000  1 INDEX — A — 

0923"  05,2450  3 0000  ~I CA 0 Cl NNTYPTEM) C (NNADTEM)  • 

0924  REF  3 LAST  313 05,2451  7 5226  0 MASK HI 5 GET  Hl5  OF  NNTYPTAB  (NORM)  OF  NNADTAB  (MIX) 

0925  REF  2 LAST  313  05,2452  0 5207  1 TC  LEFTS ““  ""  ‘ 


C 
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0926 

REF 

4 LAST  307 

05,2453 

54  103  1 

TS 

DECOUNT 

COMP  NUMBER  INTO  DECOUNT 

0927 

REF 

1 

"05,2454 

54  106  1 

“DSPDCGET  TS 

DECTEM 

PICKS  UP  DATA 

0928 

RcF 

9 LAST'  313 

05,2455 

6 0131  1 

AD 

NOUNADD 

DECTEM  1C0MP  *0,  2C0MP  +1,  3C0MP 

+ 2 

0929 

REF 

207  LAST  313 

05,2456 

50  000  1 

INDEX 

A 

0930 

05,2457 

4 0000  0 

CS 

0 

0931 

REF 

2 LAST  314 

05,2460 

50  106  0 

INDEX 

DECTEM 

0932 

REF 

1 

05,2461 

56  270  1 

XCH 

XREG 

CANT  USE  BUF  SINCE  DMP  USES  IT, 

0933 

REF" 

3 LAST  3r4^ 

05,2462 

10  106  1 

CCS 

DECTEM 

"0934 

REF 

1 

05,2463 

0 2454  0 

T C 

DSPDCGET 

MORE  TO  GET 

0935 

REF 

110  LAST  308 

05,2464 

3 7665  0 

DSPDCPUT  CAF 

ZERO 

DISPLAYS  DATA 

0936 

REF 

44!  LAST  305 

05*2465 

54  147  1 

T5 

MPAC  + 1 

DECOUNT  1C0MP  +0 , 2 COMP  +1 , 3 COMP' 

+2" 

0937 

REF- 

442  LAST  314 

05,2466 

54  142  1 

T5 

MPAC  +2 

0938 

REF 

5 LAST  314 

05,2467 

50  103  0 

INDEX 

DhCOUNT 

0939 

"REF 

5 LAST  312 

"05,247  0 

3 5175  1 

CAF 

R1D1 

0940 

REF 

25  LASI  312 

05,2471 

54  264  0 

T S 

DSPCOUNT 

0941 

REF 

6 LAST  314 

05,2472 

50  103  0 

INDEX 

DE COUNT 

0942 

REF 

2 LAST  314 

"05,2473 

4 0270  0 

“TS 

XREG 

0943 

RtF  443  LAST  314 

05,2474 

54  140  0 

T 5 

MPAC 

0944 

REF 

1 

05,2475 

0 2734  0 

TC 

SFCONUM 

2X(  SF  CON  NUMB  ) IN  A 

O945 

REF 

3 LAST  313  " 

~~i 05,2476 

54  107  0 

TS" 

SFTEMP1 

0946 

05,2477 

0 0006  1 

extend 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 

0947 

REF 

1 

05,2500 

3 2512  0 

DCA 

GISFOUTL 

reading  routine. 

0948 

REF" 

4 LAST"  308 

05,2501 

52  006  O' 

DXCH 

2 

LOADS  SF TEMPI , SFTEMP2, 

0949 

REF 

5 LAST  313 

05,2502 

50  124  0 

INDEX 

MIXBR 

0950 

05,2503 

0 2503  0 

TC 

+ 0 

0951 

REF 

1 

05,2504 

0 2507  1 

“TC 

DSPSFNOR 

0952 

REF 

2 LAST  307 

05,2505 

0 2721  1 

TC 

SFRUTMIX 

0953 

REF 

1 

05,2506 

0 2522  0 

TC 

DECDSP3 

0954 

REF 

2 LAST  313 

05,2507 

0 2713  0 

DSPSFNuR  TC 

SFRUTNOR 

0955 

REF 

2 0857^314 

05,2510 

0 2522  0 

TC 

DECDSP3 

0956 

REF 

26  LAST  314 

EO 

ebank= 

DSPCOUNT 

0957 

05,2511 

02037  1 

GTSFOUTL  2CADR 

GTSFOUT 

C0957 

REF 

T 

05,2512 

34  0 0 0 -Q 

0958 

REF 

20  LA5T  308 

05,2513 

0 4063  0 D5PDCEND  TC 

BANKCALL 

ALL  SFOUT  ROUTINES  END  HERE 

0959 

REF 

1 

05,2514 

11101  1 

CAdR 

DSPdECWD 

0960 

REF 

7 LAST  314 

05,2515 

10  103  1 

CCS 

DtCOUNT 

0961 

05,2516 

0 2520  1 

TC 

♦ 2 

0962 

REF 

5 LAST  312 

05,2517 

0 0122  0 

TC 

ENTEXIT 

0963 

REF 

8 LAST  314 

05,2520 

54  103  1 

TS 

DECOUNT 

0964 

REF“ 

r 

05,2521 

0 2464  “0  1C 

DSPDCPUT 

"MORE  TO  DISPLAY 

0965 

r£f 

208 

LAST  314 

05,2522 

50  000  1 

D£CDSP3  index 

A 

— 

0v6b 

0967 

REF 

REF 

1 

T 

LAST  “TCT5 — 

05,2523 
0 >5. 7 8 74 

3 2525  1 
"0  4108  1 

CAF 

TC 

SFOUTAbR 

HiNZTIHMST 

— 

> 


473423A 

YJL  SYSTEM  FOR  BLK.2! 

REVISION 

12  OF  1 

PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10, 

1966  (MAIN)  PAGE  315 

L 

pinball  game 

BUTTONS 

i AND  LlG 

NTS 

USER* 

'5  OWN  PAGE 

NO.  27 

0968 

REF  3 LAST 

309 

05*2525 

11277 

0 

SFOUTABR  CADR 

DSPALARM 

ALARM 

IF  DEC  DISP 

WITH  OCTAL  ONLY  NOUN 

0969 

REF  1 

05*2526 

12513 

0 

CADR 

DSPDCEND 

0970 

REF  1 

05,2527 

10555 

0 

CADR 

DEGOUTSF 

0971 

REF  1 

05*2530 

10642 

0 

CADR 

ARTOUlSF 

0972 

REF  1 

05,2531 

10647 

0 

CADR 

DP10UTSF 

0973 

REF  1 

05,2532 

10654 

1 

CADR 

DP20UTSF 

0974 

REF  1 

05,2533 

10563 

0 

CADR 

OPDEGOUT 

0975 

REF  1 

05,2534 

10656 

0 

CADR 

DP30UTSF 

0976 

05 , 25 3 5 

ENDRTOUT  EQUALS 

R 0 9 7 7 ~ThE~F0LL0WTN6~~I'S  ATYPICAL  Sf  ROUTINE  . IT  USES  MPAc.  LEAVES  RESU 

R0978  LTS  IN  MPAC*  MPAC+1.  ENDS  WlTH'TC  DSPDCEND 


0979 

REF  Z 

last  302 

04,2555 

SEjLqC  BLANKCoN  +1 

R0980 

DEGOUTSF  SCALES  BY  ,18  THE 

LOW  14 

BITS 

OF  ANGLE  , 

ADDING  .18  FOR 

R0981 

njmbers 

INTHe  NEGATIVE  (AGC) 

range. 

0982 

REF  111 

L4ST  314  04,2555 

3 7665 

0 DEGOUTSF  CAF 

ZERO 

0983 

REF  444 

LAST  314  04,2556 

54  142 

1 

TS 

MpAC  +2 

SET  INDEX  FOR  FULL  SCALE 

0984 

REF  1 

04,2557 

0 2614 

0 

TC 

FIXRANGE 

0985 

04,2560 

0 2562 

T 

1C 

+ 2 

TO  AUGMENT  NEEDED  (SFTEMP1  AND  2 ARE  0) 

0986 

REF  1 

04,2561 

0 2607 

1 

TC 

SETAUG 

SET  AUGMENTER  ACCORDING  TO  C(MPAC  +2) 

0987 

RtF  1 

04,2562 

0 2625 

1 

TC 

DtGCOM 

RQ988  OPDEGOUT  SCALES  BY,45(THE  RANGETS  9TT  DEGREES}  AND  ADDS  A 20  DEG  617^7 


09a9 

REF 

445 

LAST  TjS 

04  *2?  6 3 

10  lAO  0 

T5PDEGUUT 

CCS 

MPfiC 

RANGE  IS  9C  DEG 

0990 

REF 

446 

LAST  315 

04,2564 

56  140  1 

XCH 

MpAC 

IF  pOS  OR  pOS  0 THEN 

ADD  BIAS  AND 

0991 

04,2565 

0 2570  1 

TC 

+ 3 

CORRECT  FOR  POSSIBLE 

OVERFLOW 

0992 

REF 

'I 

04,2566 

0 2577  0 

TC  “ 

NEGOPT 

IF  TEG  NON  ZERO 

O993 

REF 

5 

LAST  215 

04,2567 

6 7667  1 

AD 

NtGl 

IF  NEG  ZERO  SUBTRACT 

1 

O994 

REF 

1 

04,2570 

6 2641  0 

AD 

20BIAS 

~0995 

TREF 

44T 

LAST  3T5* 

04,2571 

54  140  TO 

BTA5C0W 

TS 

THPAC 

TEST  FOR  OVERFLOW 

0996 

04,2572 

0 2575  1 

TC 

+ 3 

NO  OVFLOW 

0997 

REF 

21 

LAST  304 

04,2573 

3 7641  0 

CAF 

BIT15 

IF  OVFLOW 

0998 

REF 

448 

LAST  315 

04,2574“ 

26  140  0 

APS 

MPAC 

0999 

RtF 

37 

LAST  312 

04,2575 

3 7656  0 

CAF 

TWO 

SET  MULTIPLIER  TO  .45 

1000 

REF 

2 

LAST  315 

04,2576 

0 2556  0 

TC 

DEGOUTSF 

4- 1 

lUUi 

K tr 

H 4 9 

LAS | 315 

j 2 5 77 

56  140  1 

NEGOPT 

XCH 

MPAC 

NEGATIVE  CASE 

1002 

Ret- 

2 

LAST  315 

04 , 2 600 

6 2641  0 

AD 

20BIAS 

1003 

REF 

209 

LAST  314 

04,2601 

10  000  0 

CCS 

A 

1004 

REF 

1 

04,2602 

0 2571  0 

TC 

BIASCOM 

IF  POS  THEN  SUBTRACT 

1 BECAUSE  OF  2SC0M 

i005 

REF 

i 6 

LAST  313 

04 1 2603 

0 5464  1 

TC 

CCSHOLE 

i006 

REF 

71 

last  313 

04,2604 

6 7657  1 

AD 

TONE* 

IF  NEG  RESTORB  SUM 

* 
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1007 

04,2605 

4 0000  0 

COM 

IF  neg  o leave  neg  0 

Woe 

REF 

2 

LAST 

315 

04*2606 

"0  2571  0 

rc 

BIASCOM 

1009 

04,2607 

0 0006  1 SETAUG 

EXTEND 

LOADS  SFTEMPl  AND  SFTEMP2  WITH  THE 

1010 

‘ RTF- 

450 

LAST' 

315 

T)4,26lO 

5 0142  0 

INDEX 

MPAC  +2 

DP  AUGMENTER  CONSTANT 

1011 

REF 

1 

04,2611 

3 2636  0 

DCA 

DtGTAB 

roi2 

" REF 

4 

LAST 

314 

04,2612 

52  110  0 

DXCH 

SFTEMP1 

TUT3  REF  175  LAST  313  04,2613  0 0002  0 TC  Q 


lOH 

REF  451  LAST  3l6 

04*26H 

10  uo  0 

FIXRANGE  CCS 

MPAC 

IF  MPAC  IS  ♦ RETURN  TO  L+l 

~X0"15 

REF  176  l^sT“316 

04,2615 

— 0 0002  "0" 

TC 

Q 

IF  MPAC  Is  - RETURN  TD  L+2  ApTER 

1016 

REF  177  LAST  316 

04*2616 

0 0002  0 

TC 

Q 

MASKING  OUT  THE  SIGN  BIT 

1017 

04,2617 

1 2620  0 

TCF 

+ 1 

T018 

REF  22  LAST  315 

04*2620 

4 764 T 1 

cs 

B I T 1 5 

1019 

REF  452  LAST  316 

04,2621 

7 0140  0 

MASK 

MPAC 

1020 

REF  453  LAST  316 

04,2622 

54  140  0 

T S 

MPAC 

"TO  21 

REF  178  LAST  3 16 

04,2623 

55  002  0 

INDEX 

"Q 

1022 

04,2624 

0 0001  0 

TC 

1 

1023 

04,2625 

0 0006  1 

DEGCOM  EXTEND 

LOADS  MULTIPLIER  , DOES  SHORTMP,  AND 

1024 

REF  "454  LAST  3l6 

04,2626 

5 0142  0 

INDEX 

MPAC  +2 

ADDS  AUGMtNTER. 

1025 

REF  2 LA5T  316 

04,2627 

3 2636  0 

DCA 

DtGT  AB 

T026 

"REF  455  LAST  316 

04,2630 

52  141  1 

DXCH 

MPAC 

ADJUSTED  ANGLE  IN  A 

1027 

RtF  2 LAST  296 

04,2631 

0 7266  1 

TC 

SHORTMP 

1028 

REF  5 LAST  316 

04,2632 

52  110  0 

DXCH 

SFTEMPl 

~T029 

REF  "455  EAST  316 

04,2633 

10  141  1 

DAS 

MPAC 

T030" 

"RtF  1 

04,2634 

0 2645  1 

TC 

SCOUTEND 

10  3 1 Q4, 2 635  q56q5  j PEGTAB  OCT  q56q5  HI  PART  OF  , i 5 


T03Z""" 

04,2636 

03656  1 

OCT 

03656" 

LOw  PART  OF 

.18 

1033 

04,2637 

16314  0 

OCT 

16314 

HI  PART  OF 

.45 

1034 

04 ,2640 

31463  1 

OCT 

31463 

LO  PART  OF 

• 45 

1035 

04,2641 

16040 

T 

2oBI AS  OCT 

160413 

20  DEG  BIAS  FOR  OPTICS 

1036 

RtF 

6 

LAST 

316 

1 2 642 

52  110 

0 

ARTQUT5F  DXCH 

5FTEMP1 

ASSUMES  POINT  AT  LEFT  OF  DP  SFCON 

1037 

REF 

457 

LA5T 

3 1 6 

04 ,2643 

52  141 

1 

DXCH 

MPAC 

1038 

RtF 

3 

LA5T 

316 

04 ,2644 

0 7266 

1 

TC 

SHORTMP 

TU39 

"REF"" 

T2~ 

LAST 

309" 

04,2645  " 

" XT  41 O Z 

0" 

" SC0UTENI7  TC 

PUSTJUMP 

IO4O 

REF 

2 

LAST 

315 

04,2646 

12513 

0 

CADR 

DSPDCEND 

1041" 

~RtF 

04,2647  "0  2661  1 

DPT0UT5F  TC 

' DPOUT 

SCALES  MPAC,  MPAC  +1 

"BY  DP 

SCALE 

FACTOR 

1042 

RcF 

458 

LAST  316 

04,2650  56  142  0 

XCH 

MPAC  +2 

IN  SFTEMPl,  SFTEMP2. 

THEN 

SCALE 

RESULT 

1043 

REF 

459 

LAST  316 

04,2651  56  141  0 

XCH 

MPAC  +1 

BY  B 14 , 

T044" 

RtF 

4 60 

LAST  3l6 

" 04,2652  " 54  140  ~0 

TS" 

“ MP  A C 

1045 

REF 

2 

LAS  1 3 1 6 

04,2653  0 2645  1 

TC 

SCOUTEND 
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1046  REF  2 LAST  316  04,2654  0 2661  1 DP20UTSF  TC  DPOUT"-  ““ SCALES  MPAC  , MPAC  +1  BY  DP  SCALE  FACTOR 

1047  REF  3 LAST  316  * 04T2655  0 2645  1 TC  SCOUTEND 


1048  **RfF  3 LAST  ~3i7~  04,2656  o 26*>1  1 DP30UTSF  TC  DPOUT  ASSUMES  POINT  BETWEEN  BITS  7-8  OF  HIGH 

1049  REF  I — 04,2657  0 *3054  0 TC  T P LEFT 7 PART  OF  SFCON.  SHIFTS  RESULTS  LEFT*  7, 

1050  REF  4***LAST  317  04,2660  0 2645  1 TC  SCOUTEND 


R 105 l * *D?OUT  PICKS  UP  FRE5H  DATA  FOR  30TH  HI  AND  LO  COMPONENTS. 
R 1 0 5 2 THUS  IS  NEEDED* FOR  TIME  DISPLAY, 


1053 

REF 

179 

LAST  316 

04,2661 

56  002 

0 

DPOUT 

XCH 

Q 

1054 

REF 

14 

LAST*  130 

04,2662 

54  105 

1 

T5 

OVFIND 

1055 

* REF 

6 

LAST  314 

04,2663 

50  124 

0 

INDEX 

M1XBR 

1056 

04,2664 

0 2664 

1 

TC 

+ 0 

1057 

REF 

1 

04,2665 

0 2702 

0 

TC 

DPQUTNOR 

1058 

HREF 

9 

LA5T**3 14 

04,2666 

50  103 

0 

TNDEX 

DECOUNT 

GET  1DADDTAB  ENTRY  FOR  COMPONENT  K 

1059 

REF 

2 

LAST  307 

04,2667 

3 0134 

I 

CA 

idaditem 

OF  NOUN. 

1060 

REF 

5 

LAST  307 

04,2670 

7 5234 

0 

MASK 

L0W11 

E SUBK 

* 1061* 

~REF* 

2 

LA*5T~307 

04,2671 

0 5171 

0 

TC 

""5ETEBANK 

SET  EB,  LEAVE  EADRES  IN  A, 

1062 

04,2672 

0 0006 

IT 

DPOUTCOM 

EXTEND 

1063 

REF 

210 

LAST  315 

04,2673 

5 0000 

1 

INDEX 

A 

MIXED  NORMAL 

106*4* 

04,2674 

3 0001 

0 

"DC  A 

0 

C(ESUBK)  C (E ) 

1065 

REF 

461 

LAST  316 

04,2675 

52  141 

“1 

DXCH 

MPAC 

C( (E  5UBK ) + 1 ) C (E+l ) 

1066 

REF 

3 

LAST  266 

04,2676 

0 7235 

TC 

TPAGREE 

1067 

REF 

2 

LAST  296 

04,2677 

0 7063 

*0* 

I c 

DMP 

1068 

REF 

7 

LAST  316 

04,2700 

00107 

r 

adres 

SFTEMP1 

1069 

REF 

15 

LAST  317 

04,2701 

0 0105 

0 

TC 

OVFIND 

IO7O 

REF 

10  LAST  314 

04*2702 

3 0131  1 

DPOUTNOR  CA 

NOUNADD 

E 

1071 

REp 

1 

04,2703 

0 2672  0 

TC 

dpoutcom 

RI072 

THIS  15  A SPECIAL  PURPOSE  VERB  FOR  DISPLAYING  A DOUBLE  PRECISION  AGC 

R1073 

WORD  AS  10  DECIMAL  DIGITS  ON  THE  AGC  DISPLAY  PANEL.  IT  CAN  BE  UStD  WITH 

R 1074 

ANY  NOUN , EXCEPT  MIXED  NOUNS,  IT  DISPLAY5  THE  CONTENTS 

R1075 

of  the-pecisteR  nqunadd  is  pointing  to  , it  used  with  nouns  whtch  are 

R i 0 7 b 

INHERENTLY  NOT  DP  SUCH  AS  THE  CDU  COUNTERS  THE  DISPLAY  WILL  BE  GARBAGt, 

R1077 

DISPLAY  IS  IN  R 1 AND  R2  ONLY  *ITH  THE  SIGN  IN  Rl. 

1078  REF 

t last  317 

*04,2704 

50  124 

7T 

DSPDPDEC  lND*E*>r 

~MTXBr 

1079 

04,2705 

0 2705 

T 

TC 

+ 0 

1080 

04,2706 

0 2710 

0 

TC 

+ 2 

normal  NOUN 

1081  RcF 

4 LAST  315 

04,2707 

0 3277 

0 

TC 

**DEPALAR:M** 
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user's  own  page  no.  30 


1 


082 

QsT3 


1084 

1085 
W6 

T087 

TO  8 8 
T0I7 
TO  90 
1091" 
TO92 


1 04.2710 0 0006  1 EXTEND 

REF — 11  LAST  317  104,2711  5 0131  1 INDEX  NOUNADD 

04,2712  3 0001  0 DCA  0 

REF  462  LAST  317"  04,2713  52  14171  DXCH  MPAC 

~ REF  6 LAST  314  0472714  T 5175  1 CAF  RID1 

— REF  21  LAST  3T4  04,2715  54  264  0 TS  DSPCOUNT 

REF  112  LAST  315  04,2716  3 7665  0 CAF  ZERO 

REF  463  LAST  3l8  0472717  54  142  1 TS  MPAC  + 2 

REF  4TLMT  317“  04,2720~"D  7235  1 TC  TFAGrEE 

REF  1 04,2721  0 3155  0 TC  DSP2DEC 

~ REF  6 LAST"  314  "04,2722  0 0122  0 ENDDPDEC  TC  ENTEXIT" 
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L 

PINBALL  GAME 

BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO.  31 

P 1 093 

LOAD 

VERBS 

1094 

REF 

1 

05,2535 

SETLOC 

ENDRTOUT 

1095 

REF 

38  LAST  315 

05.2535 

4 7656  1 

ABCLOAD  CS 

TWO 

1096 

REF 

5 LAST  312 

05,2536 

0 2376  1 

TC 

COMPTEST 

1097 

REF 

1 

05,2537 

3 2673  1 

CAF 

VBSP1LD 

1098 

REF 

2 LAST  301 

05,2540 

0 2314  0 

TC 

UPDATVB  -1 

1099 

REF 

1 

05,2541 

0 2252  0 

TC 

REQDATX 

1100 

REF 

1 

05,2542 

3 2674  0 

CAF 

VBSP2LD 

1101 

REF 

3 LAST  319 

05,2543 

0 2314  0 

TC 

UPDATVB  -1 

1102 

REF 

1 

05.2544 

0 2254  0 

TC 

REQDATY 

1103 

REF 

1 

05,2545 

3 2675  1 

CAF 

VBSP3LD 

1104 

REF 

4 LAST  319 

05,2546 

0 2314  0 

TC 

UPDATVB  -1 

1105 

RtF 

2 LA'ST  304 

05,2547 

0 2256  1 

TC 

REQDATZ 

1106 

REF 

10 

last  307 

05,2550 

4 6162 

0 

PUTXYZ 

cs 

SIX 

TEST  THAT  THE  3 pATA 

wORpS 

|_OApEp  ARE 

1107 

REF 

1 

05,2551 

0 2676 

1 

TC 

ALLDC/OC 

ALL  dec  or  all  OCT. 

1108 

05,2552 

0 0006 

1 

EXTEND 

1109 

REF 

4 

LA5T  308 

05,2553 

3 2076 

1 

DCA 

LODNNLOC 

SWITCH  BANK5  TO  NOUN 

TABLE 

READING 

1110 

REF 

5 

LAST  314 

05,2554 

52  006 

0 

DXCH 

Z 

ROUTINE. 

Hi  1 

LA5T~3T8 

05,2555 

3 7665 

0 

X COMP 

1112 

REF 

1 

05,2556 

0 2762 

0 

I c 

PUTCOM 

1113 

REF 

12 

LAST  318 

05,2557 

50  131 

1 

INDEX 

NOUNADD 

1114 

05,2560 

54  000 

0 

TS 

~D 

1115 

RtF 

72 

LAST  315 

05,2561 

3 7657 

1 

CAF 

ONE 

Y COMP 

1116 

REF 

2 

LAST  319 

05,2562 

0 2762 

0 

TC 

PUTCOM 

1117 

REF 

13 

LA5T  319 

05,2563 

50  131 

I 

~TNUEX 

NOUNADD 

1118 

05,2564 

54  001 

1 

TS 

I 

1119 

REF 

39 

LAST  319 

05,2565 

3 7656 

0 

CAF 

TWO 

Z COMP 

n.  20 

REF 

3 

TS5T~~31 9 

05 ,2566 

0 2762 

~0 

TC 

~puraw 

1121 

REF 

14 

LAST  319 

05,2567 

50  131 

1 

INDEX 

NOUNADD 

1122 

05,2570 

54  002  1 

T 5 

2 

~n  23 

REF 

T 

LAST  303 

05,2571 

0 2663 

0 

TC 

loadlv 

1124 

Ktr 

73 

LASI  319 

^5,2574 

4 7657 

0 

ABLOAD 

CS 

ONE 

1125 

REF 

6 

LAST  319 

05,2573 

0 2376 

1 

re 

COMPTEST 

i 1 2 6 

REF 

2 

LAST  3 1 9 

05 ,2574 

3 2673 

1 

CAF 

VBSP1LD 

1127 

REF 

3 

LAST  319 

05,2575 

0 2314 

0 

TC 

UPDATVB  -1 

1128 

REF 

2 

LAST  319 

05,2576 

0 2252 

T) 

T C 

REODATX 

1129 

REF 

2 

LAST  319 

05,2577 

3 2674 

0 

CAF 

VBSP2LD 

1130 

Her 

6 

LAST  319 

Os , 2 600 

0 2314 

0 

TC 

UPDATVB  -1 

1 131 

REF 

2 L«SI  319 

Os  , 260 1 

0 2254 

0 

TC 

TTEQDATY 

1132 

REF 

4 

LASI  cTfl 

05,2602 

4 7664 

0 

PUTXY 

CS 

FIVE 

TEST  THAT  THE  2 DATA 

WORDS 

LOADED  ARE 

1133 

REF 

2 

LAST  319 

Os  ,2603 

0 2676 

1 

r c 

ALLDC/OC 

ALL  OtC  OR  All  OCT  • 

1134 

05 ,2604 

0 0006 

1 

extentt 

a 
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USER'S  OwN  PAGE  NO, 

32 

1135 

REF 

5 LAST  319 

05  *2605  3 2076  1 

OLA 

LODNNLOC 

SWITCh  BANKS  TO  NOUN 

TABLE  READING 

" 1136 

REF 

6 LAST  319 

05*2606  52  006  0 

D”XCH 

Z 

ROUTINE, 

1137 

REF 

T14  LAST  319 

05,2607  3 7665  0 

CAF 

ZERO 

X COMP 

1138 

REF 

4 LAST  319 

05,2610  0 2762  0 

TC 

PUTCOM 

1139 

Tf W 

15  LAST”  319 

05,2611  50  131  1 

rwx 

NOUNADD 

1140 

05,2612  54  000  0 

T5 

0 

1141 

REF  74  LAST  319 

05,2613  3 7657  1 

LAF 

ONE 

Y COMP 

1142 

“REF” 

5 LAST  320 

05,2615  0 2762  0 

TC 

PUTCOM 

1143 

REF 

16  LAST  320 

05,2615  50  131  1 

INDEX 

NOUNADD 

1144 

05,2616  54  001  1 

TS 

1 

H45 

“REF 

3 LAST  319 

05,2617  0 2663  0 

TC 

LOADLV 

1146 

REF 

3 LAST  319 

05  * 2620 

0 2252 

0 ALOAD 

TC 

REQDATX 

T147 

05,2621 

0 0006 

1 

extend 

1148 

REF 

6 LAST  320 

05,2622 

3 2076 

1 

DC  A 

LODNNLOC 

SWITCH  BANKS  TO  NOUN  TABLE  READING 

1149 

REF 

7 LAST  320 

05,2623 

52  006 

0 

DXCH 

Z 

ROUTINE. 

1150 

.REF 

115  LAST  320 

05,2624 

3 7665 

0 

CAF 

ZERO 

X COMP 

1151 

REF 

6 LAST320 

05,2625 

0 2762 

0 

TC 

PUTCOM 

1152 

REF 

17  LAST  320 

05,2626 

50  131 

1 

INDEX 

NOUNADD 

1153 

05,2627 

54  000 

0 

TS 

0 

1154 

RtF 

4 LAST  320 

05,2630 

0 2663 

0 

TC 

LOADLV 

il55 

” REF 

75  LAST  320 

05*2631 

4 7657  0 BLOAD 

CS 

ONE 

1156 

REf 

7 LAST  319 

05,2632 

0 2376  1 

TC 

COMPTEsT 

1157 

REF 

23  LAST  316 

05,2633 

3 7641  0 

CAF 

BIT15 

SET  CLPASS  FOR  PASSO 

ONLY 

1158 

”FFEF 

ITS  LAST  304  “ 

05,2634 

54  302  1 

TS 

CLPASS 

1159 

REF 

3'LASl  319 

05 ,2635 

0 2254  0 

TC 

REQDATY 

1160 

05,2636 

0 0006  1 

tX [ END 

1 1 6 1 

"REF 

7 LAST  320 

“ 05,2637 

3 2076  1 

DCA 

LODNNLOC 

SWITCH  BANK 5 TO  TIQUN  TABLE 

READTNC 

1162 

REF 

8 LAST  320 

05,2640 

52  006  0 

DXCH 

Z 

ROUTINE, 

1 1 63 

RtF 

76  LAST  320 

05 ,2641 

3 7657  1 

CAF 

ONE 

Tl64 

REF 

"7  LAST  320 

05,2642 

0T27  6 2 0“~ 

TC 

PUTCOM” 

1165 

RtF 

18  LAST  320 

05,2643 

50  131  1 

INDEX 

NOUNADD 

1166 

05,2644 

54  001  1 

TS 

1 

1T67 

REF~“ 

” 5 LAST  320 

05,2645 

0 2663  C 

~ TC 

LOADLV 

1168 

RtF 

40  LA5T  319 

*26^6 

4 7656  1 CLOAD 

CS 

TWO 

1169 

REF 

8 LAST ~ 320 

0ST2647 

0 2376"  1 “ 

TC 

COMPTEsT 

1170 

RtF 

24  LA5T  320 

05,2650 

3 7641  0 

CAF 

BTT15 

SET  CLPASS  FOR  PASSO 

ONLY 

1171 

RtF 

11  LAST  320 

05,2651 

54  302  1 

TS 

CLPASS 

1T72 

RtF  3 LASi  319 

OF,  2652 

0 2256  1 

TC 

"REUDATZ 

1173 

05,2653 

0 0006  1 

EXTEND 

1174 

REF 

8 LAS  T 320 

05,2654 

3 2076  1 

DCA 

LODNNLOC 

SWITCH  BANKS  TO  NOUN 

TABLE 

READING 

1175 

"REF 

9 LASi  320" 

05,2655 

52  006  0 

DXCH 

“Z 

ROUTINE,  " 

i 1 76 

R£F 

41  LAST  320 

05,2656 

3 7656  0 

CAF  TWO 

1177 

REF 

8 LAbT  320 

OS , 265? 

0 2762  0 

TC 

PUTCOM 

1178 

"R£F“ 

19  LAST  320 

05,2660 

50  131  1 

INDEX 

“NOUN ADD 

1179 

05,2661 

54  002  1 

TS 

2 

1180 

REF 

6 LA5f  320 

05 ,2662 

0 2663  0 

TC 

LOADLV 
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1181 

REF  116  LAST 

320 

05,2663 

3 7665  0 

LOADLV 

CAF 

ZERO 

1182  ‘ 

"REF  12  LAST 

304 

05,2664 

54  265  1 

TS 

DECBRNCH 

1183 

REF  1 1 7 LAST 

321 

05,2665 

4 7665  1 

cs 

ZERO 

1184 

REF  ■ 1 

05 ,2666 

54  301  1 

I s 

LOADSTAT 

1 1 85 

"REF  4 LAST 

309 

05,2667 

4 5237  0 

CS 

VD1 

TO  BLOCK  NUMERICAL  CHARACTERS  AND 

1186 

REF  28  LASl  318 

05,2670 

54  264  0 

T S 

DSPCOUNT 

CLEARS  AFTER  A COMPLETED  LOAD 

1187 

REF  13  LAST 

316 

05,2671 

0 4102  0 

TC 

POSTJUMP 

AFTER  COMPLETED  LOAD,  GO  TO  RECALTST 

1188 

REF  1 

05,2672 

11422  0 

CADR 

RECALTST 

TO  SEE  IF  THERE  IS  RECALL  FROM  EN^IDLE. 

1189 

05,2673 

00021  1 

VBSP1LD 

OCT 

21 

VB2 1 = AlOAD 

1190 

05,2674 

00022  1 

VBSP2LD 

OCT 

22 

V B22  = BLOAD 

1191 

05,2675 

00023  0 

VBSP3LD 

OCT 

23 

VB23  = CLOAD 

1192 

REF  10  LAST  317 

05,2676 

54  103  1 

AllDc/Oc  TS 

DECOUNT 

TESTS  THAT  DATA  WORDS  LOADED  ARE  EITHER 

1 1 93 

■REF  13  LAST  321 

05,2677 

4 0265  1 

CS  “ 

DECBRNCH 

ALL  DEC  OR  ALL  OCT,  ALARMS  IF  NOT, 

1194 

REF  25  LAST  302 

05,2700 

54  021  0 

TS 

SR 

1195 

REF  26  LAST  321 

05,2701 

4 0021  0 

CS 

SR 

1196 

REF  2 ? LAST  321 

05,2702 

4 0021  0 

cs 

SR 

shifted  right  2 

1197 

REF  211  LAST  317 

05,2703 

10  000  0 

CCS 

A 

DEC  COMP  BITS  IN  LOW  3 

1198 

05,2704 

1 2706  0 

TCF 

+ 2 

SOME  ONES  IN  LOW  3 

120CT 

1201 


REF  11  LAST  321 


05.2706 

05.2707 


6 0103  0 
0 0006  1 


AD 
extend 


Q 

DECOUNT 


OK 

DEC  COMP  = 7 FOR  3C0MP , =6  FOR  2COMP 
(BUT  IT  HAS  BEEN  DECREMENTED  BY  CCS) 


1202 

■ 05,2710 

1“  2712  73 

BZF 

+ 2 

MUST  MATCH  6 FOR  3C0MP , 5 FOR  200^ 

1203 

REF  10  LAST  313 

05,2711 

0 2324  0 

TC 

GODSPALM 

1204 

REF  161  LAST  321 

05,2712 

0 0002  0 

GUU 

TC 

Q 

ALL  REQUIRED  ARE  DEC.  OK 

1205 

REF  182  lAST  321 

1 Z 1 1 3 

56  002  0 

cn 

-v 

30 

c 
— ! 

z 

0 

7C 

XCH 

Q 

GETS  SF  ROUTINE  NUMBER  FOR  NORMAL  CASE 

1206 

RcF  1 

05,2714 

54  100  1 

TS 

EXITEM 

CANT  USE  L FOR  RETURN.  TS1F0RDP  USES  L. 

1207 

REF  1 

05,2715 

3 5225  1 

CAF 

MID5 

12013 

-REF  2 LAST  313 

05,2716 

7 0133  I 

MASK 

-NNTYPTETT 

1209 

RLF  1 

05,2717 

0 5200  0 

TC 

RIGHTS 

1210 

REF  2 LASl  321 

05,2720 

0 0100  0 

TC 

EXITEM 

SF  ROUTINE  NUMBER  IN  A 

121  1 

Kcr  183  LASl  321 

05*2721 

56  002  0 

SFRUTM1X 

XCH 

Q 

GETS  SF  RUUIINE  NUMBER  FOK  MIXED  CASt 

1212 

REF  3 LAST  321 

05,2722 

54  100  1 

TS 

EXITEM 

1213 

■REF  1?  LA5T  321 

05,2723 

50  103  0 

■ INDEX 

DECOUNT 

1214 

REF  1 

05,2724 

3 2753  1 

CAF 

DISPLACE 

PUT  TC  GOQ,  TC  RIGHT5,  OR  TC  LEFT5  IN  L 

1215 

RcF  76  LAST  313 

05,2725 

54  001  1 

1 s 

L 

1216 

REF  13  LAST  321 

05,2726 

DO  1030 

INDE3C 

-DECOUNT 

1 2 1 7 

REF  8 LASl  295 

05,2  727 

3 5224  0 

CAF 

LOWS 

L0W5,  MID5,  OR  HI5  IN  A 

1218 

REF  1 

05 ,2730 

7 0137  0 

MASK 

RUTMXTEM 

GE1  HI5t  M I D 5 1 OR  LOWt>  OF  RUTMXTAb  ENTRY 

!|1. 


1220 

R1221 

1222 


05,2732  0 0000  1 


TC 


DO  TC  GOQ(DECOUNT=0) , DO  TC  RIGHT5 (DEC0UNT=1) , DO  TC  LEFT5 (DEC0UNT=2) * 
-REF A"  LAST  321 — — 


'05,2733  0 0100  0 SFRET1 Kr 


EXITEM 


SF  ROUTINE  NUMBER  IN  A 
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1223  REF~  184  LAST  32lT~  05.2734  56  002  0 SFCQNUM~““ XCH  Q GETS  2X(  SF  CONSTANT  NUMBER) 


1224 

REF" 

5 LAST  321 

05,2735  54  100  1 

^S 

EX  ITEM 

1225 

REF 

8 LAST  317 

05,2736  50  124  0 

INDEX 

MIXBR 

1226 

05,2737  0 2737  0 

TC 

+ 0 

1227 

REF 

1 

05,2740  0 2756  1 

TC 

CONUMNOR 

NORMAL  NOUN 

1228 

REF 

14TAST  321 

05,2741  50  103  0 

TNDEX 

DECOUNT 

MIXED  NOUim 

1229 

REF 

2 LAST  321 

05,2742  3 2753  1 

CAF 

DISPLACE 

12  30 

REF 

78  LAST-  321 

05,2743  54  001  1 

T3 

L 

PUT  TC  GOO,  TC  RIGHT 5,  OR  TC  LEFT 5 IN  L 

1231 

REF 

15  LAST  322 

05,2744  50  103  0 

INDEX 

DECOUNT 

1232 

REF 

9 LAST  321 

05,2745  3 5224  0 

CAF 

L0W5 

1233 

~FTEF“ 

3 LAST  321  “ 

05,2746  7 0133  1 

MASK 

NNTYPTEM 

1234 

REF 

79  LAST  322 

05,2747  50  001  0 

index 

L 

1235 

05,2750  0 0000  1 

TC 

0 

RT236 

“D“3~TC  GOQTDE’COUN  T = 

0) , DO  TC  RI GHT5 (DECOUNT  = 1 ) * 

DO  TC  LEFT5 (DEC0UNT=2) . 

1237  05,2751  6 0000  i 5FRET  DOUBLE  2X(5F  CONSTANT  NUMBER  ) IN  A 

123s  REF  6 L~A5T~3~2E  05,2752  0 0100  0 TC  EXITEM 

1239 REF 1 05,2753  0 2712  1 DISPLACE  TC  GOO 


1240  REF  2 LAST  321  05,2754  0 5200  0 TC  RIGHTS 


1241 

““REF 

3 

“LAST 

313 

05,2755 

0 5207  1 

TC 

LEFTS 

1242 

REF 

10 

LAST 

322 

05,2756 

3 5224  0 

CONUMNOR  CAF 

L0W5 

NORMAL  NOUN  ALWAYS  GETS  LOW  5 OF 

1243 

REF 

4 

LAST 

322 

05,2757 

7 0133  1 

MASK 

NNTYPTEM 

NNTYPTAB  FOR  SF  CONUM, 

1244 

U5 ,2760 

6 0000  1 

DOUBLE 

1245 

REF 

7 

LAST 

322 

05,2761 

0 0100  0 

TC 

EXITEM 

2X(  SF  CONSTANT  NUMBER)  IN  A 

1246 

REf 

16  LAST  322 

05,2762 

54  103  1 PuTCOM 

“T5 

DECOUNT 

1247 

REF 

135  LAST  322 

05,2763 

56  002  0 

XCH 

Q 

1248 

REF 

1 

05 ,2764 

54  101  0 

TS 

DECRET 

1249 

Ref 

116  LAST  321 

05,2765 

3 7665  0 

1250 

REF 

16  LAST  317 

05,2766 

54  105  1 

TS 

OVFIND 

1251 

REF 

17  LAST  322 

05,2767 

50  103  0 

INDEX 

DECOUNT 

1252 

REF 

3 LAST  302 

05 ,2770 

~56  273  1 - 

XCH  - 

XREGLP 

1253 

RtF  464  LAST  318 

05,2771 

54  141  1 

TS 

MPAC  +1 

1254 

RcF 

18  LASI  322 

05,2772 

50  103  0 

INDEX 

DECOUNT 

T 25  5 

REF 

3 LA5T314 

“05,2773 

E6  270  1 

XCH 

XREG 

1256 

REF 

465  LA5T  322 

05,2774 

54  140  0 

TS 

MPAC 

1257 

REF 

9 LAST  322 

05,2775 

50  124  0 

INDEX 

MIXBR 

1258 

“05,2776 

0 2776  TT 

TC 

+ 0 

1259 

RcF 

1 

05,2777 

0 3023  0 

TC 

PUTNORM 

NORMAL  NOUN 

R 1260 

1 r , n'l  X No  UN  , PLACE 

ADDRESS  FOR 

component  k into 

NOUNADD, 

set  ebank  bits. 

1261 

(RcF 

19  LA5I  322 

7)5,3000 

SO-  103  0 ~ 

GET  IDADDTAB  ENTRY  FOR  COMPONENT--*: 

1262 

REF 

3 LAST  317 

05 ,3001 

3 0134  1 

CA 

I DAD IT EM 

OF  NOUN. 

1263 

RcF 

6 LAST  317 

05 ,3002 

7 5234  0 

MASK 

LOW  11 

(ECADR)SUbK  FOR  CURRENT  COMP  OF  NuUN 

1264 

REF 

5 LAST  308 

05,3003 

0 5161  1 

TC 

SETTTCADR 

“ECADR  INTO  NOUNCADR,  SETS  EB , NOUNADD, 

1265 

05 ,3004 

0 0006  1 

EXTEND 

C (NOUNADD)  IN  A UPON  RETURN 

1266 
126  T 

REF 

REF 

20  LAST  322 
20  “EAST  3 20 

O5 , 3U05 
— 05.3006 

63  103  0 
54  131  0 — 

5U 
— TS 

DECOUNT 
NOUNADD — 

PLACE  (ESUBK)-K  INTO  NOUNADD 
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1268 

REF  14  LAS  1 

321 

05,3007 

10  265 

1 

CCS 

DECBRNCH 

' 1269 

REF  1 

05,3010 

0 3051 

0 

TC 

PUTDECSF 

+ DEC 

1270 

REF  3 LAST 

314 

05,3011 

0 2721 

1 

TC 

SFRUTMIX 

+0  OCTAL 

1271 

REF  3 LAST 

313 

05,3012 

0 2236 

1 

TC 

DPTEST 

1272 

REF  1 

05,3013 

0 3040 

0 

TC 

PUTC0M2 

NO  DP 

A1273 

TEST  FOR  DP  SCALE  FOR  OCT  LOAD,  IF  SO, 

A1274 

+0  INTO  MAJOR  PART,  SET  NOUNADD  FOR 

A 1 2 7 5 

LOADING  OCTAL  WORD  INTO  MINOR  PART, 

1276 

REF  21  LAST 

322 

05,3014 

24  131 

1 

PUTDPCOM  INCR 

NOUNADD 

DP  ( ESUBK ) -K  + 1 OR  E + l 

1277 

REF  22  LAST 

323 

05,3015 

3 0131 

1 

CA 

NOUNADD 

NOUNADD  NOW  SET  FOR  MINOR  PART 

1278 

REF  21  LAST 

322 

05,3016 

26  103 

1 

ADS 

DEEOUNT 

(ESUBK) +1  OR  E+l  INTO  DECOUNT 

1279 

REF  119  LAST 

322 

05,3017 

3 7665 

0 

CAF 

ZERO 

NOUNADD  SET  FOR  MINOR  PART 

1280 

REF  22  LAST 

323 

05,3020 

50  103 

0 

index 

DECOUNT 

1281 

05,3021 

53 ' 777 

0 

TS 

0 -1 

ZERO  MAJOR  PART  (ESUBK  OR  E) 

1282 

REF  2 LAST 

323 

05*3022 

0 3O4O 

0 

TC 

PUTC0M2 

1283 

REF 

2 

LAST  304 

05,3023 

0 5167  1 

PUTNORM  TC 

SETNADD 

ECADR  FROM  NOUNCADR.  SETS  EB,  NOUNADD, 

1284 

REF 

15 

LAST  323 

05,3024 

10  265  1 

CCS 

DECBRNCH 

1285 

RtF 

2 

LA5T  323 

05,3025 

0 3051  0 

r c 

PUTDECSF 

+ DEC 

1286 

~REF“ 

3 

LAST  314 

05,3026 

0 2713  0 

TC 

SF RUT NOR 

+0  OCTAL 

1287 

RtF 

4 

LAST  323 

05,3027 

0 2236  1 

T C 

DPTEST 

1288 

REF 

3 

LAST  323 

05,3030 

0 3034  0 

T C 

PUTC0M2  -4 

NO  DP 

1289 

REF 

05,3031 

3 7665  0 

CAF 

7tR0 

DP 

1290 

RtF 

23 

LAST  323 

05,3032 

54  103  1 

TS 

DtCOUNT 

1291 

REF 

1 

05,3033 

0 3014  1 

TC 

PUTDPCOM 

1292 

REF 

6 LAST  313 

05,3034 

3 0132 

1 

CA 

NNADTEM 

1293 

REF 

77  LAST  320 

05,3035 

6 7657 

1 

AD 

ONE 

IF  NNADTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 

1294 

05 ,3036 

0 0006 

1 

““EXTEND" 

1295 

RtF 

1 

05,3037 

1 3044 

0 

3ZF 

CHANLOAD 

1296 

REF 

466  LAST  322 

05 ,3040 

56  140 

1 

PUTC0M2  XCH 

MPAC 

T297 

RtF 

2““LA5T  322 

05,3041 

0 010T 

1 

TC 

DECRET 

1298 

REF 

29  LAST  321 

EO 

EBANK= 

DSPCOUNT 

1299 

05,3042 

02045  1 

GTSFINLC  ZCSDR 

GT5FTN 

C i 299 

RtF 

1 

05,3043 

34000  0 

1300 

REF  467  LAST  323 

05,3044  56  140  1 

CHANLOAD  XCH MPAC 

1301 

05,3045  0 0006  1 

EXTEND 

1302 

RtF  4T.AST  313 

~ 05,3046  5 0304  0 

INDEX  NOUNCADR 

1303 

05,3047  01  000  0 

WRITE  0 

1 304 

REF  7 LAST  320 

05,3050  0 2663  0 

TC  LOADLV 

R1305  PJTDECSF  Fl,DS  FTpCBR  A^D  DECOJNT  STILL  SET'FROM  P JTCOM 


1306  REF 


2 LAST  314 
LAST  317 


05,3051  0 2734  0 PUTDECSF  TC 

05,3052 — 54  1070 TS 


SFCONUM 
SF TEMPI 


2X(SF  CON  NUMB)  IN  A 
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game 
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1306 

05*3053 

0 0006  1 

EXTEND 

SWITCH  BANKS  TO  SF  CONSTANT  TABLE 

1309 

“RIF 

1 

01,3054 

3 3043  0 

DCA 

GTSFINLC 

READING  ROUTINE. 

1310 

“REF 

10 

“LAST 

320 

05,3055 

52  006  0 

DXCH 

2 

LOADS  SFTEMPl,  SFTEMP2. 

1311 

REF 

10 

LAST 

322 

05,3056 

50  124  0 

INDEX 

MIXBR 

“T“3 12 

“05,3057 

0 3057  0 

TC 

+ 0 

1313 

REF 

1 

05,3060 

0 3063  1 

TC 

PUTSFNOR 

1314 

REF 

4 

LAST 

323 

05f3v6l  0 2721  1 

TC 

SFRUTMIX 

— 1315  “ 

RcF 

1 

05  1 3062 

0 3064  0 

TC 

PUTDCSF2 

1316 

REF 

4 

LAST 

323 

05,3063 

0 2713  0 

PUTSFNOR  TC 

SFRUTNOR 

1317 

REF 

212 

LAST 

321 

05,3064 

50  000  1 

PUTDCSF2  INDEX 

A 

1313 

REF 

1 

05,3065 

3 3067  0 

CAF 

SFINTABR 

1319 

“REF 

3 

LAST 

314 

05,3066 

0 4105  1 

TC 

BANK JUMP 

SWITCH  BANKS  FOR  EXPANSHION  ROOM 

1320  “ 

REF 

5 

LAST 

317 

~05,3067 

11277  0 

sfintabrtadr 

DSP ALARM 

ALARM  IF  DEC  LOAD  WITH  OC|AL  ONLY  NOUN  “ 

1321 

REF 

1 

05,3070 

11003  1 

CADR 

B1NROUND 

1322 

REF 

1 

05,3071 

10723  0 

CADR 

DEGINSF 

1323 

““RTF 

1 

05,3072 

10773  0 

CADR 

ARTHINSF 

1324 

REF 

1 

05,3073 

11023  0 

CADR 

DPINSF 

1325 

REF 

1 

05,3074 

11050  1 

CADR 

DPINSF2 

1326 

REF 

1 

05,3075 

11006  1 

CADR 

OPTDEGIN 

1327 

REF 

2 

LAST 

324 

05,3076 

11023  0 

CADR 

DPINSF 

SAME  AS  ARITHDP1 

1328 

05,3077 

ENDRUTIN  EQUALS 

RT329  Sc^lE  “FACTORS  “FUR  TH05E  ROUTI  \iESNEE“DTN“G““THEM  ARE  AVAILABLE  IN  SfTEMP  1 . 
Rl33Q  ALL  5FIN  ROUTINES  USE  MPAC  MPAC»i,~DESVE~R1SULT  IN,  A,  END  WITHHTC  DeCReT 


1331  REF 


09,27Z5^  ~ SETLOC  EnDDPDEC  +1 


R1332  DEGINSF  APPLIES  lQOO/lsO  =5.55555  (10)  = 5. 93934(8) 


1333 

REF  3 LAST  3i7 

04  »2T23 

0 T063  0 

DEGINSF  ”TC  ~ 

DMP  “ 

SF  ROUTINE  FOR  DECT  DEGREES 

1339 

RcF  1 

09,2724 

02766  1 

ADRES 

DEGC0N1 

MULT  BY  5.5  5<10)X2EXp-3 

1335 

RtF  968  LAST  323 

09,2725 

10  141  1 

CCS 

MPAC  +1 

THIS  ROUNDS  OFF  MPAC+1  BEFORE  SHIFT 

1336 

RcF  “22  LAST  298 

UHf2r26  3 7 64b  1 

CAF 

BTT1 1 

LEFT  3,  AND  CAU5ET5  360.00  TO  OF/UF 

1337 

U9 ,2727 

0 2731  0 

TC 

+ 2 

WHEN  SHIFTED  LEFT  AND  ALARM. 

1338 

REF  23  LAST  329 

09,2730 

4 7645  0 

cs 

BITU 

1339“ 

REF  469  LAST  324 

04,2731 

6 0141  0“ 

— AD 

"“MPAC  +1 

1340 

REF  1 

04,2732 

0 3066  1 

TC 

2R0UND  *2 

1391 

REF  1 

09,2733 

0 5263  0 

TC 

TPSL1 

LEFT  1 

1392 

REF  2 LAST  324 

D9 « 2739 

0 5263  0“ 

TPSL1 

LEFT  2 

1393 

REF  1 

09,2735 

0 3075  0 

TC 

TESTOFUF 

1399 

RcF  3 LAST  329 

09,2736 

0 5263  0 

T C 

TPSL1 

RETURNS  IF  NO  OF/UF  (LEFT3) 

i 395 

“ REF  470XAST  324 

09,2737 

10  140  0~ 

“CCS 

MPAC 

1396 

RtF  1 

09,2740 

0 2744  1 

TC 

SIGNFIX 

IF+*  GO  TO  SIGNFIX 

1397 

RcF  2 LAST  324 

09,2741 

0 2744  1 

T C 

5IGNFIX 

IF  +0,  GO  TO  SIGNFIX 

1398 

09,2742 

9 0000“  0 

— COM 

IF  - , USE  -MAGNi IUDE  +1 
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1399 

REF 

A 7 1 

LAST 

32A 

0A.27A3 

54  1 40 

0 

TS 

MPAC 

IF  -0,  USE  +0 

1350 

REF- 

17 

LAST 

322 

0A.27AA 

10  105 

1 

SIGNFIX 

CCS 

OVFIND 

" 1351 

REF 

1 

0A.27A5 

0 2762 

0 

TC 

SGNTOl 

IF  OVERFLOW 

1352 

" R EF" 

1 

0A.27A6 

0 2756 

I 

T C 

ENDSCALE 

NO  OVERFLOW/UNDERFLOW 

X353 

REF" 

472 

LAST 

325 

04,2747 

10  1 AO 

"0 

CCS 

“MPAC 

IF  UF  FORCE  SIGN  TO  0 EXCEPT  -180 

135A 

REF 

17 

LAST 

315 

04,2750 

0 5464 

1 

TC 

CCSHOLE 

1355" 

REF 

I" 

0A.2751 

0 2760 

1 

TC 

NtGlSO 

1356 

04,2752 

0 2753 

i 

IC 

+1 

1357 

RtF 

473 

LA5T 

325 

04,2753 

56  140 

1 

XCH 

MPAC 

135  8 

REF 

22 

LAST 

250 

OA  ,2754 

7 7637 

u 

MASK 

POSMAX 

1359 

REF 

474 

LAST" 

325 

04,2755 

54  140 

0 

TS 

MPAC 

1360 

REF 

14 

LAST 

321 

04,2756 

0 4102 

0 

ENDSCALE 

TC 

POSTJUMP 

1361 

REF 

A 

LA5T 

323 

04,2757 

13040 

1 

CADR 

PUTC0M2 

1362 

REF 

23 

LAST 

325 

04,2760 

4 

7637 

0 

NEGlaO 

C5 

POSMAX 

1363 

REF 

2 

LASI 

325 

04,2761 

0 

2755 

1 

TC 

ENDSCALE  -1 

"73  6 4 

REF 

475 

LAST 

325 

04,2762 

4 

0140 

0 

SGNTOl 

CS 

MPAC 

IF  OF  FORCE  SIGN  TO  1 

1365 

REF 

24 

LAST 

325 

04,2763 

7 

7637 

"0 

MASK 

POSMAX 

1366 

" REF" 

"273 

LAST 

324" 

04 ,2764 

4 

0000 

0 

CS 

A 

1367 

"REF 

3 

LAST 

325 

04,2765 

0 

2755 

1 

TC 

ENDSCALE  -1 

1368 

04,2766 

26161  0 

DEGC0N1 

2DEC 

5,555555555  B-3 

0 368 

04,2767 

30707  1 

1369 

04,2770 

21616  0 

DEGC0N2 

2DEC 

2.222222222  B-2 

0369 

0^,2771 

07071  0 

1370 

04,2772 

71527  1 

"NEG.2 

OCT 

-06250  = .197753906  I.E.  THE  BIAS  SCALED 

"TJ7I 

"REF  " 4 "CAST 

324 

0 A, 2773 

0 7063  C 

"ARTHTMSF  TC"" 

"CMP 

"SCALES  MPAC,  +1  BY  SFTEMP1 , SFTEMP2, 

1372 

REp  9 LAST 

323 

04,2774 

00107  1 

ACRES 

SpTEMpl 

A55umE5  pOINT  BETWEEN  HI  AND  LO  pARTS 

1373 

REF  476  LAST 

325 

04 ,2775 

56  142  0 

XCH 

MPAC 

*2 

OF  SFCON.  SHIFTS  RESULTS  LEFT  BY  14, 

1374 

REF  47T  EAST 

325 

" 09,2776 

56  I41T5 

X"CH 

“MPTC 

"IT 

("BTTAKTNG  RESULTS  FR0M7MPAC+1,  MPAC+O 

1375 

REF  478  LAST 

32  5 

04,2777 

56  140  1 

XCH 

MPAC 

1376 

04,3000 

0 0006  1 

EXTEND 

1377 RET 


1378 

1379 
"7380 

1381 


REF 

REF 

REF" 

REF 


6 LAST  32 A 
T LAST  324 

A LAST  325 


OA 

04 

"Ov 

OA 


3002 

3003 

3004 

3005 


3277  0 
306A  CT 
3075  0 
2756  1 


B INROUND  TC 


TOO  LARGE  A LOAD 


RETURNS  IF  NO  OF/UF 


138"2  REF  479  LAST  325 

1383 

138A 

1385  REF 7— LAST  325 

1386  REF  8 LAST  325' 

1387  REF 1 — 

1388  REF  48  0 LAST  325 

7389 REF 5 LAST  325“ 


OA .3006  10  lAo  0 OPTDEGIN  CCS MPAC OPTICS  SCALING  ROUTINE 

0 AN 3007  0 3073  0 TC + 4 

0 A .3010  0 3013  0 PC +3 

0A.3011  0 3277  0 TC  DSPALARM  REJECT  NEGATIVE  INPUT 

OA.3012 — CT327T  0 TC DSPALARM DITTO 

OA ,3013  3 2772  1 OPDEGI N2  CAF NEG.2  RANGE  IS  90  DEG 

0 A . 30 1 A “ 26  1A0  0 ADS MPAC SUBTRACT  BIAS """ 

0 A, 30 15 — O 7O6-3-O TC DMP MULT  BY  100  / AS — B^2“ 


CC 
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1390 

REF  1 

04*3016 

02770 

0 

adres 

DEGC0N2 

T391 

REF  16  LAST  250 

04,3017 

3 7644 

0 

CAF 

B I T 1 2 

ROUND  AS  IN 

DEGINSF 

1392 

REF  481  LAST  325 

04,3020 

6 0141 

0 

ad 

“MPAC 

-*1 

1393 

REF  3 LAST  325 

04,3021 

0 3066 

1 

TC 

2R0UND 

■*■2 

1394 

REF  1 

““04*3022 

0 2734 

0 

TC 

DEGINSF2 

13g5 

REF  6 LAST  325 

04,3023 

0 7063 

0 DP  I NSr 

TC 

OMP 

SCALES  MPAC, 

, MPAC  +1  BY  SFTEMP1 , 

T396 

rEF  10  LAsT  325 

0TT3024 

00107 

1 

_ ADrEs 

SFTEMP1 

SFTEMP2.  Si 

’OrES  low  part  of  result 

1397 

REF  482  LAST  326 

04,3025 

56  142 

0 

XLH  MPAC 

+ 2 

IN  (E  SUBK ) 

*•1  OR  E + l 

1398  ~ 04  >3026  6 0000  1 “^DOUBLE 


1399 

“RTF 

483  LAST  326 

04,3027 

54  142  I 

TS 

MPAC  t2 

1400 

REF 

121  LAST  323 

04,3030 

3 7665  0 

“CAF 

ZhRO 

1401 

REF 

484  LAST  326 

04,3031 

6 0141  0 

AD 

MPAC  *1 

“T402 

RTF 

4 LAST- 326 

04*3032 

0 3066  1 

TC 

2R0UND  +2 

1403 

REF 

3 LAST  325 

04*3033 

0 3075  0 

rc 

TESTOFUF 

1404 

REF 

11  LAST  324 

04,3034 

50  124  0 

INDEX 

MIXBR 

RETURNS  IF  NO  OF/UF 

1405 

04,3035 

0 3035  1 

TC 

♦ 0 

1406 

REF  1 

04,3036 

0 3046  0 

TC 

DPINORM 

1407 

REF  24  LAST  323 

04,3037 

3 0103  0 

CA 

DECOUNT 

MIXEDNOUN 

1408 

REF  23  LA5T“ 323 

— 04,3040 

6 0131  1 

DPIFTCOW  AD 

TTOUNADD 

MIXED  NORMAL 

1409 

RtF  186  LAST  322 

04,3041 

54  0U2  1 

T S 

Q 

E SUBK  E 

1410 

RtF  485  LAST  326 

04 ,3042 

56  141  0 

XCH 

MPAC  +1 

^T4n 

“REF  187  “LAST  326 

04,3043 

50  002  0 

TNDEX 

Q 

1412 

04,3044 

54  001  1 

T S 

1 

PLACE  LOW  PART  IN 

1413 

RtF  5 LAST  325 

04 ,3045 

0 2756  i 

TC 

ENDSCALE 

(E  5UBK ) +1  “MIXED 

T414 

RtF  122  LAS i 326 

04,3046 

3 7665  0 DPINORM  CAF 

ZERO  “ 

E +1  NORMAL  “ 

1415 

RtF  1 

04,3047 

0 3040  0 

TC 

DPINCOM 

1416 

REF 

7 LAST  326 

04 ,3q5o 

0 7063  0 DPINSF2 

TC 

DMP 

ASSUMES  POINT  BETWEEN  BITS  7-8  OF  HIGH 

1417 

REF 

XT  LAST  326 

0“4,3Q51 

“00107  1 

ADRES 

“SF  TEMPI 

part  of  SF  const,  dptnsf2  shifts tresults 

1418 

REF 

2 LAST  317 

04,3052 

0 3054  0 

TC 

TPLEFT7 

LEFT  BY  7,  ROUNDS  MPAC+2  INTO  MPAC+1, 

1 4 1 9 

RtF 

3 LAST  324 

04,3053 

0 3025  0 

TC 

DPINSF  +2 

1 42  0 

“Ref  188  LAST  326 

04»3o54 

“55“oo2 

0 

TPLEFT7  XCH 

OPERATES  ON  MPAC,  MPAC+1,  MPAC+2 

1421 

RcF 

1 

04,3055 

54  110 

0 

TS 

SFTEMP2 

CANT  USE  L FOR  RETURN,  TPSLI  USES  L, 

1422 

REF 

11  LAST  319 

04,3056 

3 6162 

1 

CAF 

SIX 

LEFT  BY  7 

1423 

REF 

12  LA5T  326 

~“1 04,3057 

54  107 

“5FTEMP1 

1424 

RcF 

4 LAST  324 

04 ,3060 

0 5263 

0 

TC 

TPSLI 

1425 

REF 

13  LAST  326 

04,3061 

10  107 

0 

CCS 

SFTEMP1 

1426 

RtF 

1 

04 ,3062 

0 3057“ 

0 

TC  “ 

L“tFT7C0M 

1427 

REF 

2 LAST  326 

04,3063 

0 0110 

1 

TC 

SFTEMP2 

1428  R£F  486  LAST  326 

“04,3o64  56  141  0 2R0UND 

XCH  MPAC 

+1 

1429 

“ 04,3065  6 0000  1 

DOUBLET 
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USER'S  OWN  PAGE  NO.  39 

1430 

REF  467  LAST  326 

04,3066 

54  141 

1 

TS 

MPAC  +1 

— IT431 

RTF  1 o9  TSST  326 

04,3067 

0 0002 

0 

TC 

Q 

IF  MPAC+1  DOES  NOT  OF/UF 

1432 

REF  488  LAST  327 

04,3070 

6 0140 

1 

AD 

MPAC 

1433 

REF  489  LAST  327 

04,3071 

54  140 

0 

T 5 

MPAC 

1434 

REF  190  LAST  327 

04,3072 

0 0002 

0 

TC 

Q 

IF  MPAC  DOES  NOT  OF/UF 

1435 

REF  18  LAST  325 

04,3073 

54  105 

1 

T5 

OVFIND 

1436 

REF  191  LAST  327 

04,3074 

0 0002 

0 2RNDEND  TC 

0 

1437 

REF  19  LAST  327 

04,3075 

10  105 

1 

TESTOFUF  CCS 

OVFINd 

RETURNS  IF  NO  OF/UF 

1438 

REF  9 LAST  325 

04,3076 

0 3277 

0 

TC 

DSPALARM 

OF 

1439 

REF  192  LAST  327 

04,3077  0 0002 

0 

TC 

Q 

1440 

REF  10  LAST  327 

04,3100 

0 3277 

0 

TC 

DSPALARM 

UF 

p- 


Zl  FZ 
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l Pinball  game  buttons  and  light s user’s  own  page  no*  40 

P1441  MONITOR  ALLOWS"  OT^eR  KEYBOARD  ACTIVITY,  it  is  e nd E d BVV E R B tfRMINAteV 

RTv,!  AMY  NVSUB' CALL  THAT  PASSES  THE  DbPLOCK,  OR  ANOTHER-  MONITOR. 


RT&4I  MONITOR!  ACTION  IS  SUSPENDED*  3UT  NOT  ENDED*  BY  ANY  KEYBOARD  ACTION* 

Rl4~44  EXCBPT~ERTO~R  LIGHT  RESET*  IT~ BEGINS  AGAIN  WHEN  KEY  RELEASE  Is  PE R F 0 R M E D . 

R1445  MONITOR  5AVES  THE  NOUN  AND  APPROPRIATE  DISPLAY  VERB  IN  MONSAVE.  IT  SAVES 

R1446 NOUNCADT^  INTRJIT5AVE1*  IF  NOUN  = MACHINE  CADR  TO  “BE  SPECIFIED,  BIT  15  OF 

R 1 447  MONSAyEl  IS  THE  KILL  MONITOR  SIGNAL  (KILLER  BIT) 


R i 448  MDNSAvf  INDICATES  IF  MONITOR  IS  ON(+=ON*  +0=OFF) 

R 1449  IF  mONSAVE  IS  ♦ * MONITOR  EFTeR"S~NO  REQUEST * BUT  TURNS  KILLER  BIT  OFF, 
1*1450  IF  MONSAVE  IS  *0*  MONITOR  ENTERS  REQUEST  AND~TURN5  KILLER  BIT  OFFT 


R1451  NVSUB  AND  VB=TERMlNATE  TURN  KILL  MONITOR  BIT  0N7~ 

R 1452  IF  kILLER  BIT  IS  ON,  MONREq  ENTERS  NO  FURTHER  REQUESTS,  ZEROS  MONSAVE 

1*1453  AND^ONSAVEl  (TURNING  OFF  KILL£R!~BIT)  , 


R1454  MONITOR  DOSENt  TEST  70FT~mATbS  SINCE  NvSueTCM  HANCLE  INTERNAL IjATBS  NOW 
1455  REF  r~  05*3077  SETLOC  ENDRUTIN 


1456 

REF 

25  LAST  320 

05,3077 

4 7641 

1 MONITOR 

cs 

BIT15 

1457 

REF 

5 LAST  323 

05,3100 

7 0304 

1 

MASK 

NOUNCADR 

RtF 

05,3101 

54  141 

1 MONTH 

TS 

MPAC  *1 

TEMP  STORAGE 

1459 

REF 

1 

05,3102 

3 3401 

1 

CAF 

L0W6 

1460 

REF 

17  LAST  312 

05,3103 

7 0266 

1 

MASK 

VERBREG 

1461 

REF 

4 LAST  322 

05,3104 

0 5207 

1 

LEFT  5 

1462 

REF 

8 LAST  295 

05,3105 

54  022 

0 

T5 

CYL 

1463  RfcF 

9 LAST  328 

05,3106 

56  022 

1 

XCH 

CYL 

1464 

REF 

7 EAST  312 

05,3107 

6 0267 

T 

' AD 

NOUNREG 

1465 

REF 

491  LAST  328 

05,3110 

54  140 

0 

TS 

MPAC 

TEMP  STORAGE 

1466 

REF 

2 LAST  157 

05,3111 

4 0324 

0 

CS 

GRABLOCK 

NEITHER  CASt  SEARCHES  LISI, 

T467 

REF 

42  LAST  320 

05,3112 

6 7656 

“0 

AD 

TWO 

1463 

FEF 

214  LAST  325 

05,3113 

10  000 

0 

CCS 

A 

1469 

REF 

1 

05,3114 

0 5364 

0 

TC 

RELDSP1 

GRABL0CK=0*1.  +0  INTO  D5PL0CK  AND 

T470 

05,3115 

“0  3121 

0 

TC 

♦ 4 

TURIN  UPP  K.tY  KLSt  LIGHT, 

1471 

REF 

18  LAST  325 

05,3116 

0 5464 

1 

TC 

CCSHOLE 

1472 

REF 

123  LAST  326 

05,3117 

3 7665 

0 

CAF 

ZERO 

GRABL0CK=2,  +0  INTO  DSPLOCK  AND 

147T 

““RtF 

4 LAST  299 

05,3120 

54  277 

r 

“TS 

DS  FLOCK 

LEAVE  KEY  RLSE  LIGHT  ALONE 

1474 

05,3121 

0 OOOA 

0 

INHINT 

1475 

RcF 

2 LAST  157 

05,3122 

10  305 

0 

CC5 

MONSAVE 

1476 

05,3123 

0 3130 

0 ■ 

“TC 

+5 

IF  MONSAVE  WAS  +,  NO  REQUEST 

1477 

REF 

78  LAST  323 

05,3124 

3 7657 

1 

CAF 

ONE 

IF  MONSAVE  WAS  0,  REQUEST  MONREQ 

1479  REF  30  LAST “ 323“ 


1400 — 

C1480 REF  1 

1481 REF  492  LAS T 


328 


05.3126 

05.3127 
05,3130 


EO 

03134  1 
12000  1 
52  1411“ 


EBANK-  DSP COUNT 
2CADR  M01NREQ 

DKCH MPAC* 


PLACE  MONITOR  VERB  AND  NOUN  INTO  MONSAVE 


473423A  YJL  SYSTEM  FOR  BLK2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10,  1966  (MAIN)  PAGE  329 


L 

pinball 

GAME 

BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO, 

41 

1482 

REF  3 

LAST 

328  05,3131  52  306 

0 

DXCH 

MONSAVE 

ZERO  THE  KILL  MONITOR 

BIT 

1483 

05,3132  0 0003 

1 

RELINT 

1484 

REF  4 

LAST 

303  05,3133  0 0122 

0 

TC 

ENTRET 

1485 

REF 

3 LAST  286 

05,3134 

0 5257  1 

MONREQ  TC 

LODSAMPT 

CALLED  BY  WAITLIST 

1A86 

“ R EF 

2 LAST  157 

05,3135 

10  306  0 

CCS 

monsavei 

TIME  IS  SNATCHED  IN  RUpT  FOR  NOUN  65 

1487 

05,3136 

0 3142  0 

TC 

♦ 4 

IF  KILLER  BIT  = 0, 

ENTER  REQUESTS 

1488 

05,3137 

0 3142  0 

TC 

+ 3 

IF  KILLER  BIT  = 0, 

ENTER  REQUESTS 

1489“  REF 

1 

05,3140 

0 3153  0 

TC 

KILLMON 

IF  KILLER  BIT  = 1, 

NO  REQUESTS 

1490 

REF 

2 LAST  329 

05,3141 

0 3153  0 

TC 

KILLMON 

IF  KILLER  BIT  = 1, 

NO  REQUESTS 

1491 

REF 

1 

05,3142 

3 3157  1 

CAF 

MONDEL 

1492 

“REF 

34  LAST  328 

05,3143 

0 4536  0 

TC 

WAITLIST 

ENTER  WAITLIST  REQUtST  FOR  MONREQ 

1493 

REF 

31  LAST  328 

EO 

EBANK= 

DSPCOUNT 

1494 

05,3144 

03134  1 

2CADR 

MONREQ 

0494 

‘ “REF 

2 LAST  328 

05,3145 

12000  1 

1495 

REF 

2 LA5T  285 

05,3146 

3 5233  0 

CAF 

CHRPRIO 

1496 

REF 

13  LAST  285 

05,3147 

0 4363  0 

TC 

NOVAC 

ENTER  EXEC  REQUEST 

FOR  MONDO 

1497 

REF 

32  LAST  329 

EO 

ebank= 

DSPCOUNT 

1498 

05,3150 

03160  0 

2CADR 

MONDO 

0498 

REF 

1 

05,3151 

12000  1 

1499 

REF 

25  EAST  279 

0 ^ 1 3 1 

0 4602  1 

TC 

TASKOVER 

1500  REF  124  LAST  328  05*3153  ”3  766513“  KILLMON  CAF  ZERO  ZERO  MONSAVE  AND  TURN  KILLER  BIT  OFF 

1501  REF  4 LAST  329  “ 05,3T54  54'  305“0  TS~  ““MOfiTpvE- 

1502  REF  3 LAST  329  05,3155  54  306  0 TS  M0NSAVE1  TURN“OFF  KILL  MONITOR  BIT, 

1503  REF“  26  LAST  329  05,3156  0 4602“!“'  TC  TASKOVER 


ISOA 


05,3157  00144  0 MONDEL  OCT  144  FOR  1 SEC  MONITOR  INTERVALS 


1505  REF  4 LAST  329  “05,3160  10  306  0 MONDO  CCS  M0NSAVE1  CALLED  BY  EXEC 

1506  05,3161  0 3165  0 TC  +4  IF  KILLER  BlT=  0,  CONTINUE 

1507  05,3162  0 3165  0 TC +3 IF  KILLER "^IT  = OiT  CONTINUE 

1508  REF  36  LAST  301  05,3163'  0 4440  0 TC  ENDOFJOB  IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREQ 

1509  RtF  37  LAST  329  05,3164  0 4440  0 TC  ENDOFJOB  IN  CASE  TERMINATE  CAME  SINCE  LAST  MONREGi 

1510  REF  5 LAST  328  ““  05,3165  10  277  1 CCS DSPLOCK 

1511  REF  “1  05,3166  0 3212  0 TC MONBUSY NVSUB  IS  BUSY 

1512  REF  2 LAST  328 — 05,3167  3 3401  1 CAF LOW 6 NVSUB  IS  AVAILABLE 

1513  REF  5 LAST  329  05,3170  7“03O5'  0 MASK MONSAVE — 

1514  REF  3 LAST  266  05,3171  54  107  0 TS  NVTEMP 

1515  REF  2 LAST  266  05,3172  0 5123  1 TC  “WSUBMON  PLACE  NOUN  INTO  NOUNREG  AND  DISPLAY  IT 

1516  REF  38  LAST  329  05,3173  0 4440  0 TC ENDOFJOB HTCASETF'  ALARM  DURING  DISPLAY' 

1517  REF  ~1  05,3174  3 3210  l CAF  MONMASK 

1518  REF  6 LAST  329  05,3175  7 0305  0 MASK  “MONSAVE CHANGE  MONITOR  VERB  TO  DISPLAY  VERB 

1519  RcF  3 LAST  322 05,3176  0 5200  0 TC  RIGHTS 


o; 


■=3 


» 


473423A 

YJL 

system  for  blkt: 

REVISION 

12  OF  1 

program 

AURORA  BY 

DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  330 

L 

PINrALL  game 

BUTTONS  and  lig 

HIT  S 

USER'S  OWN  PAGE  NO,  42 

1520 

REF 

30  LAST 

119 

05,3177 

54  020 

1 

TS 

CYR 

1521 

REF 

31  LAST 

330 

05,3200 

56  020 

0 

XCH 

CYR 

1522 

REF 

18  LAST 

328 

05,3201 

54  266 

1 

TS 

VERBREG 

1523 

REF 

1 

05,3202 

3 3211 

0 

CAF 

MONBACK 

SET  RETURN  TO  PASTEVB  AFTER  DATA  DISPLAY 

1524 

REF 

5 LAST 

329 

05,3203 

54  122 

1 

TS 

ENTRET 

1525 

REF 

26  LAST 

328 

05,3204 

4 7641 

1 

cs 

B I T 1 5 

1526 

REF 

5 LAST 

329 

05,3205 

7 0306 

0 

MASK 

M0NSAVE1 

PUT  ECADR  INTO  MPAC  +2.  INTMCTBS  In  I LL 

1527 

RcF 

493  LAST 

328 

05,3206 

54  142 

1 

TS 

TTPAC  +2 

DISPLAY  IT  AND  SET  NOUNCADR , NOJNAUD, 

1528 

REF 

1 

05,3207 

0 2037 

1 ENDMONDO  TC 

TESTNN 

ebank. 

1529 

REF 

1 

5100 

SETLOC  ENDRMODF 

1530 

REF 

1 

5100 

3 5106  0 

PASTEVB 

CAF 

MIDSIX 

1531 

REF 

7 

LAST 

329 

5101 

7 0305  0 

MASK 

MONSAVE 

1532 

REF 

4 

LAST 

329 

5102 

54  107  0 

TS 

NVTEMP 

PLACE  MONITOR  VERB  INTO 

VERBREG  AND 

1533 

REF 

3 

LASl 

329 

5103 

0 5123  1 

TC 

NVSUBMON 

DISPLAY  IT, 

1534 

5104 

(0  5105  0 

TC 

♦ 1 

IN  CASE  OF  ALARM  DURING 

DISPLAY 

1535 

REF 

39 

LAST 

329 

5105 

0 4440  0 

ENDPASTE 

TC 

ENDOFJOB 

1536  5106  07700  1 MID5IX  OCTAL  07700 


1537  REF  1 05 » 32 10  SETLOC  ENDMONDO  +1 

1538  05*3210  00700  0 M0NMA5K  OCT  700 

1539  REF  r""  05*3211  05100  0 MONBACK  ADRES  PASTEVB 

HP  REF  1“  05*3212  0 5253  0 MONBUSY  TC  RELDSPON  TURN  KEY  RELEASE  LIGHT 

1541  REF  40  LAST  330  0573 2T3  0'4440  0 Tc  ENdOFJOB  "" 


R1542  DSPFMEM  IS  USED  TO  DISPLAY  ( 17  OCTAL)  ANY  FIXED  REGISTER. 

R1543  h MAChINE  CAdR^T0  Be  SPECIFIED,  THEAEEApR  °F  ThE 


1543 

REF 

7 LAST  318 

05,3214 

3 5175 

1 DSPFMEM 

CAF 

R1D1 

IF  F/F,  DATACALL  U5ES  BANK  02  OR  03, 

I546~ 

REF 

33  LASl  529 

05,32 15 

34  264 

0 

TS 

DSPCOUNT 

1547 

REF 

6 LAST  328 

05,3216 

3 0304 

0 

CA 

NOUNCADR 

ORIGINAL  FCADR  LOADED  STILL  IN  NOUNCADR, 

1548 

RcF 

1 

05,3217 

0 4116 

0 

TC 

DATACALL 

1549 

TREF 

3 LAST  312 

— 05,3220 

0 3222 

0 

TC 

DSPOCTWD 

1 550 

REF 

41  LA5 1 330 

05,3221 

0 4440 

0 

TC 

ENDOFJOB 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  _ USER'S  OWN  PAGE  NO.  43 

Pi 55 1 DsPDECwD  CONVERTS  C(MPAC)  ANQh  CIMPAC  +1) TO  A SIGN  AND'5  CHAR  DECIMAL 
RT552  STARTING  IN  LOC  SPECIFIED  IN  DSPCOUNT 


1553  REF  4 LAST  326 04.3101 SETLQC  TE5T0FUF  *4- 


1554 

REF  193  LAST  327 

04.3101 

56  002  0 

DSPDECWD 

XCH 

Q 

USES  SHORTMP  THROUGHOUT 

1555 

“ REF  1 

04,3102 

54  101  0 

TS 

WDRET 

CANT  USE  L FOR  RETURN, +0N 

USES  L. 

1556 

REF  494  LAST  330 

04,3103 

10  140  0 

CCS 

MPAC 

1557 

04,3104 

0 3113  1 

TC 

♦ 7 

1558 

04.3105 

0 3113  1 

TC 

♦ 6 

1559 

REF  79  LAST  328 

04,3106 

6 7657  1 

AD 

ONE 

1560 

REF  495  LAST  331 

04,3107 

54  140  0 

TS 

MPAC 

1561 

REF  2 LAST  298 

04,3110 

0 2313  1 

TC 

-ON 

“ 1562 

REF  496  LAST  331 

04,3111 

4 0141  I 

CS 

MPAC  +1 

1563 

04,3112 

0 3115  1 

TC 

+ 3 

1564 

REF  2 LAST  298 

04,3113 

0 2273  0 

TC 

+0N 

1565 

REF  497  LAST  331 

04,3114 

56  141  0 

XCH 

MPAC  fl 

1566 

REF  1 

04,3115 

6 3154  1 

AD 

DECROUND 

1567 

REF  498  LAST  331 

04,3116 

54  141  1 

T5 

MPAC  +1 

1568 

REF  125  LAST  329 

04,3117 

3 7665  0 

CAF 

ZERO 

1569 

REF  499  LAST  331 

04,3120 

6 0140  1 

AD 

MPAC 

1570 

REF  500  LAST  331 

04,3121 

54  140  0 

TS 

MPAC 

1571 

04,3122 

0 3126  ! 

“TC 

+ 4 

1572 

REF  25  LA5T  325 

04,3123 

3 7637  1 

CAF 

PGSMAX 

1573 

REF  501  LAST  331 

04 , 3l 24 

54  140  0 

T5 

MPAC 

1574 

REF  502  LAST  331 

04,3125 

54  141  1 

T 5 

MPAC  +T 

1575 

REF  8 LAST  215 

04,3126 

3 7655  0 

CAF 

FOUR 

1576 

REF  1 

04,3127 

54  123  0 

DSPDCWDl 

r s 

WDCNT 

1577 

“REF  2 LAST  300 

04,3130 

3 5242  C 

CAF 

““BIN  CON 

1578 

REF  4 LAST  316 

04,3131 

0 7266  1 

TC 

SHORTMP 

1579 

REF  503  LAST  331 

04,3132 

50  140  I 

TRACE1 

INDEX 

MPAC 

1580 

REF  3 EAST  295 

04,3133 

3 4741  1 

“CAF  “ 

RLLTAB 

1581 

RtF  11  LAST  322 

04,3134 

7 5224  1 

“MASK 

L0W5 

1582 

REF  5 LAST  302 

04,3135 

54  110  0 

TS 

CODE 

1583 

Ktf-  126  LAS  1 331 

“04,3136 

3 7665  0 ' 

CAF 

“ZERO 

1584 

RcF  504  LAST  331 

04  f 3 1 3 7 

56  142  0 

XCH 

MPAC  +2 

1585 

REF  505  LAST  331 

04,3140 

56  141  0 

XCH 

MPAC  +1 

1586 

KtiF  506  LAST  331 

04,3141 

54  140  0 

T S 

“MPAC 

1587 

REF  34  LASi  330 

04,3142 

56  264  1 

XCH 

DSPCOUNT 

1588 

REF  3 LAST  302 

04,3143 

54  127  1 

TRACE1S 

TS 

COUNT 

1589 

REF  215  LAST  328 

04,3144 

TO  000T3 

TTCS 

A 

DECREMENT  DSPCOUNT  EXCEPT 

AT  +0 

1590 

REF  35  LASl  331 

04,3145 

54  264  0 

TS 

DSPCOUNT 

1591 

REF  3 LASl  302 

04,3146 

0 3201  1 

TC 

DSPIN 

1592 

REF  2 LAST  331 

04,3147 

“TO  123  0 

CCS 

WDCNT 

1593 

REF  1 

04,3150 

0 3127  0 

TC 

DSPDCWDl 

1 594 

RcF  5 LASl  321 

04,3151 

4 5237  0 

CS 

VD1 

1595 

KtF  36  LA5l  331 

04,3152 

54  264  0 

TS 

“DSPCOUNT 

1596 

REF  2 LAST  331 

04,3153 

0 0101  1 

TC 

WDRET““ 

1597 


04 ,3154  02476  U — DECROUND  OCT  02476 
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PINBALL  GAME  BUTTONS  AND  LI GHfT 5 


user* s own  page  no.  44 


R 1 598  DSP2DEC  Converts  cimpaC)  and  chmpac+i)  into  a sign,  and  10  char  decimal 

Ri $99  STARTING  "IN"' THE  LOC  SPECIFIED  IN  U5Pt0ON T . 


160?  ~REF~T94  LAST  331  ^4.3155  56  0g2  0 DSP2DEC  XCH  Q 


T601 

REF  3 LAST  331 

04.3156 

54  101  0 

rs  ■ 

WDRET 

MUST  USE  SAME  RETURN  AS  DSPDeCWD 

1 602 

REF  127  LAST  331 

04,3157 

3 7665  0 

CAF 

ZERO 

1603 

REF"  6 LAST  331 

0^,  3l60 

54  110  0 

T S 

CODE 

T6TT4 

REF  10  LAST  303 

04,3161 

3 6165  0 

CAF 

THREE 

1605 

REF  3 LAST  298 

04,3162 

0 3263  0 

TC 

11  DSP  IN 

-R2  OFF 

1606 

REF  9 LAST  331 

04,3163 

3 7655  0 

CAF 

FOUR 

1 607 

REF  4 LAST  332 

04,8764 

0 3263  0 

TC 

11DSPIN 

+R2  OFF 

1608 

REF  507  LAST  331 

04,3165 

10  140  0 

CCS 

MPAC 

1609 

04,3166 

0 3176  1 

TC 

♦ bD 

1610 

04,3167 

0 3176  1 

TC 

+ 7 

1611 

REF  80  LAST  331 

04,3170 

6 7657  1 

AD 

ONE 

1612 

REF  508  LAST  332 

04,3171 

54  140  0 

TS 

MPAC 

1613 

REF  3 LAST  331 

04,3172 

0 2313  1 

TC 

-ON 

1614 

REF  509  LAST  332 

04,3173 

4 0141  1 

cs 

MPAC  +1 

1615 

REF  510  LAST  332 

04,3174 

54  141  1 

TS 

MPAC  +1 

1616 

04,3175 

0 3177  0 

TC 

♦ 2 

1617 

REF  3 LAST  331 

04,3176 

0 2273  0 

TC 

♦ ON 

1618 

REF  3 LASI  308 

04,3177 

3 5176  1 

CAF 

R2D1 

1619 

RTF  2 LAST  331 

04,3200 

0 8127  0 END2DEC 

TC 

DSPDCWD1 

1620 

REF  2 LAST  305 

05.3222 

sEtloc  DSPFMEM  +6 

R1621 

DSPoCTWD  DISPLAYS 

C ( A ) UPON  ENTRY  AS  A 5 CHAR 

OCT  STARTING  IN  THe  DSP 

R1622 

"CHAR- SPECIFIED  ITT 

DSP  COUNT.  TT  ST  OP  5 AFTER  5 

CHAR"  HAVE  BEEN  DISPLAYeO. 

1623 

REF 

10 

LA5T  328 

0'5 ,3222 

54  022  0 

DSPOCTWD  TS 

CYL 

1624 

KcF 

"TO 

LAST  "232  - 

- "OS, 3 22 3 

56  002  O- 

XCH 

Q 

1625 

REF 

4 

LAST  332 

05,3224 

54  101  0 

TS 

WDRET 

MUST  USE  SAME  RETURN  AS  DSP2BIT . 

1626 

REF 

31 

LA5T  245 

05,3225 

3 7642  0 

CAF 

BIT14 

TO  BLANK  SIGNS 

1627 

REF 

3 7 

LAST  331 

05, 3226 " 

26  264  0 

ADS--" 

"" DSPCOUNT  " 

1628 

REF 

10 

LAST  332 

05,3227 

3 7655  0 

CAF 

FOUR 

1629 

REF 

3 

LAST  331 

05,3230 

54  123  0 

WDAGAIN  TS 

WDCNT 

“1530 

"REF 

11 

LA5TO332 

05,3231 

4 0022  0 

C5T  - 

CYL 

1631 

REF 

12 

LAST  332 

05,3232 

4 0022  0 

CS 

CYL 

1632 

REF 

13 

LAST  332 

05 , 3233 

4 0022  0 

CS 

cyl 

1 63T 

REF 

"21 6 

LAST  331 

"05 ,32T4r 

4 0000  T 

cs 

HA-" 

1634 

REF 

1 

O3 , 32  3 5 

7 7663  1 

MASK 

DSPMSK 

1 635 

REF 

217 

LAST  332 

05,3236 

50  000  1 

INDEX 

A 

1636 

“REF 

4 

LAST  331 

05,3237 

3 4T4TT 

--CAF 

HEUTAB 

1637 

REF 

12 

LAST  331 

05,3240 

7 5224  1 

MA5K 

LOW  5 

1638 

REF 

7 

LAST  332 

05 ,3241 

54  110  0 

TS 

CODE 

1 639 

"RcF 

LA5T  332 

05,3  242 

56  264  1 

XCH  DSPCOUNT 

1640 

REF 

4 

LAST  331 

05,3243 

127  1 

TS 

COUNT 

1 64 1 

REF 

218 

LAST  332 

05,3244 

10  000  0 

CCS 

A 

DECREMENT  D5PC0UNT  EXCEPT  AT  +0 

I~542  HEF  39  LAST  332  05732 45 — 54  264  0 T5 D'SPCOUNT  " 
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L 

PINBALL  GAME  BUTTONS 

, AND  LlG 

ATS 

USER'S  OWN  PAGE  NO.  45 

1643 

REF 

15  LAST  325 

05.3246 

0 4102  0 

TC 

POSTJUMP 

1644 

REF 

1 

05.3247 

11271  0 

CADR 

DSPOCT IN 

1645 

REF 

4 LAST  332 

05.3250 

10  123  0 OCTBACK 

CCS 

WDCNT 

1646 

“REF 

1 

05.3251 

0 3230  0 

TC 

WDAGAIN 

+ 

1647 

REF 

6 LAST  331 

05,3252 

4 5237  0 DSPLV 

CS 

VD1 

TO  BLOCK  NUMERICAL  CHARACTERS,  CLEARS, 

1648 

REF 

40  LAST  332 

05,3253 

54  264  0 

TS 

DSPCOUNT 

AND  SIGNS  AFTER  A COMPLETED  DISPLAY. 

1649 

REF 

5 LAST  332 

05,3254 

TTU10T  r 

TC 

WDRET 

1650 

REF 

7 LAST  201 

7663  DSPMSK 

= 

SEVEN 

RI651  D5P2BI T DISPLAYS  C(A)  UPON  ENTRY  AS  A"2  CHAR  OcT  BEGINNING  IN  THE  DSP 

RT652  LOC  SPECTF7ED“TN  DSPCOUNT  SY  PRE,  CYCLING  RIGHT  C (A)  AND  USING  THE  LOGIC 

R1653  OF  THE  5 CHAR  OCTAL  DISPLAY  


1654 

REF 

32 

LAST  330 

05,3255 

54-  020 

1 

DSP2BIT  TS 

CYR 

1655 

REF 

196 

LAST  332 

05,3256 

56  002 

0 

XCH 

Q 

1656 

REF 

6 

LAST  333 

05,3257 

54  101 

0 

TS 

WDRET 

CANT  USE  L AS  RETURN.  UPDATNN  USES  L. 

1657 

' REF 

81 

LAST- 332 

05,3260 

3 7657 

1 

CAF 

ONE 

1658 

REF 

5 

LAST  333 

05,3261 

54  123 

0 

TS 

WDCNT 

1659 

REF 

33 

LASI  333 

05.3262 

4 0020 

1 

CS 

CYR 

1660 

REr 

”34“ 

LAST'  333 

05,3263 

4 0020 

1 

CS  ' 

CYR 

1 66 1 

REF 

35 

LASI  333 

05,3264 

56  020 

0 

XCH 

CYR 

1662 

REF 

14 

LAST332 

05,3265 

54  022 

0 

TS 

CYL 

1663 

REF 

2 

LAST  333 

05.3266 

0 3235 

0 

TC 

WDAGAIN  +5 

'RT664 

R1665 

”F3R 

dspin  place  0/25  qct  intq, 

c3unt, 

5 

BIT  RELAY  C0DE 

inTq  Code. 

b0th 

are 

DESTROYED.  IF 

bIT14  Or  COUNT  ib 

l, 

b 1 oN  I b 

blanked 

with  left 

CHAR. 

~R15F6 

FOR 

DSP  INI  TLACET 

0, 1 INTO  BTTI I Or  Cl 

) COUNT  1 

“ KEL  ADDRESS  OF 

R1667 

DSPTA3  ENTRY  INTO 

dskel • 

1668 

REF 

1 

04,3201“ 

SETLOC  END2DEC 

♦T 

1669 

Kfcf 

iy7  LASI  333 

04,3201 

56  002 

0 

DSPIN 

XCH 

Q 

CAN  1 Ubt  U rOK  KtfUKNf 

SINCE  MANY  UF  IFIt 

1670 

REF 

1 

04,3202 

54  TOO 

“T 

TS 

TJ5EXI7 

ROUTINES  CALLING  D5PIN 

USE  L AS  KE 1 URN . 

1 67 1 

REF 

13  LAST  332 

04,3203 

3 5224 

0 

CAF 

L0W5 

1672 

REF 

5 LAST  332 

04,3204 

7 0127 

1 

MASK 

COUNT 

1673 

RcF 

28  LAST  321 

04,32  OS- 

54  02T 

“IT 

TS 

SR 

1674 

REF 

29  LAST  333 

04,3206 

56  021 

1 

XCH 

SR 

1675 

REF 

1 

UA-t32U7  54  125 

0 

TS 

DSREL 

1676 

RzF 

27  LA5T  286 

114,3210 

3 7657 

~T~ 

“ CAT 

-ETTT 

1677 

REF 

6 LAs  1 333 

04  f 32 1 1 

7 0127 

1 

MASK 

COUNT 

1 6 

REF 

219  LAST  332 

04,3212 

ID  000 

0 

CCS 

A 

1679 

04 1 32 1 3 

0 3215  1 

TC 

+ 2“ 

LEFT' TF  COUNT  IS  ODD 

1680 

REF 

1 

04,3214 

0 3225 

1 

TC 

DSPIN1  - 

.1 

RIGFIT  IF  COUNT  IS  EVEN 

1631 

REF 

8 LAST  332 

04,3215 

56  110 

1 

XCH 

CODE 

163R 

REF 

1 

OR, 3216 

0 5216  1 

TC 

“ 5LEFT5 

“DOES  NOT  USE  CYL 

C 


NOy  10,  1966  (MAIN)  PAGE  334 


473423A  YUL  SYSTEM  FOR  BLk2;  REVISION;  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


L PINBALL  GAME  BUTTONS  AND  LloiiS 


USER* 5.  QW N PAGE _ NO*  46 


1683 

REF 

9 LAST  333 

04*3217  54  no  0 

TS 

CODE 

1 684 

RTF 

32  LAST  332 

04*3220  3 7642  0 

CAF 

BIT14 

1685 

REF 

7 LAST  333 

04*3221  7 0127  1 

MASK 

COUNT 

1686 

RTF 

220  LAST  333 

04*3222  10  000  0 

CCS 

A 

1687 

REF 

43  LAST  328 

04,3223  3 7656  0 

CAF 

TWO 

BIT14  = 1,  BLANK  SIGN 

1688 

82  LAST  333 

04,3224  6 7657  1 

AD 

ONE 

BIT14  = 0,  LEAVE  SIGN  ALONE 

1689 

REF 

8 LAST  334 

04,3225  54  127  1 

T5 

COUNT 

+0  INTO  COUNT  FOR  RIGHT 

A1690 

+1  INTO  COUNT  FOR  LEFT (SIGN  LEFT  ALONE) 

A1691 

+3  INTO  COUNT  FOR  LEFT (TO  BLANK  SIGN) 

^692 

04,3226  0 0004  0 

DSPINl  INHINT 

1693 

REF 

2 LAST  333 

0^,3227  50  125  1 

INDEX 

DSREL 

1694 

REF 

24  LAST  302 

04,3230  10  307  1 

CCS 

DSPTAB 

1695 

04,3231  0 3233  0 

TC 

+ 2 

IF  ♦ 

IT696 

REF 

T9  LAST  328 

04,3232  0 5464  1 

re 

CCSHOLE 

1697 

REF 

83  LAST  334 

04,3233  6 7657  1 

AD 

ONE 

IF- 

1698 

REF 

T 

04,3234  54  126  0 

TS 

DSMAG 

T699 

REF 

9 LAST  334 

04,3235  50  T27  0 

index 

COUNT 

1700 

REF 

1 

04,3236  7 3257  0 

MASK 

DSMSK 

1701 

04,3237  0 0006  1 

EXTEND 

I7O2 

RtF TO  LAST  334 

04,3240  60  1T0  1 

SO 

CODE 

1703 

04,3241  0 0006  1 

EXTEND 

1704  KEF 

V 

04,3242  1 3255  1 

BZF 

DSLV 

SAME 

i 705 

KEF  10  LAST  334 

04,3243  50  127  (T 

DFRNT  INDEX 

COUNT 

1 706 

RtF 

2 LA5 1 334 

04,3244  4 3257  0 

CS 

DSMSK 

MA5K  WITH  77740,76037,  OR  75777 

1707 

REF 

2 LAST  334 

04,3245  7 0126  0 

MA5K 

DSMAG 

1708 

REF 

IT  LAST  334 

04,3246  6 0110  I 

AD 

"CODE 

1709 

RtF  ZZl  LASj  334 

04,3247  4 0000  0 

CS 

A 

1710  Rtf- 

3 LA5T  334 

04,3250  50  125  1 

INDEX 

DSREL 

1711 

RtF 

T5TS5T  334 

04,3251  56  307  0 

TTCH  _ 

DSPTAB" 

1712 

04,3252  0 0006  1 

EXTEND 

1713 

REF 

2 LAST  334 

04,3253  6 3255  0 

3ZTMF 

DSLV 

DSPTAB  ENTRY  WAS  - 

T7T4 

REF"" 

6 LAST  3U2 

04»325A  24r  303  1 

I NCR  ' 

NOUT  " 

DSPTAB  ENTRY  WAT  + 

1715 

04,3255  0 0003  1 

DSLV  RELINT 

171 6 

RtF 

2 LAST  333 

04,3256  0 0100  0 

TC 

D5EXTT 

1717 

04*3257  00037  0 

DSMSK  OCT 

37 

1718 

04,3260  01740  0 

OCT 

1740 

ITT  9 

04,3461  02000  0 

OCT 

TO  00 

1720 

04,3262  03740  1 

OCT 

3740 

R1721 

FOR  11  DSP I N't  PUT 

REL  ADDRE55S 

OF;  DSPTAB 

ENTRY  INTO  A, 

i IN  BITll  OR  G IN 

R1722 

arm  of  couet. 

A7t3 

RtF  4 LAo 1 334 

U4  f 

54  125  0 

11D5PIN  T 5 

D5REL 

T?24 

KtF  44  LAST  334 

04,3264 

3 7656  0" 

" CAF 

TWO" 

1725 

REF  11  LAST  334 

04 , 32 65 

54  127  1 

TS 

COUNT" 

1726 

REF  198  LAST  333 

04  1 3^66 

56  002  0 

XCH 

Q MUST  USE  SAME  RETURN  AS  DSPIN 

1727 

REF"  3 CSST334 

0^,3267 

5A  IDO  1 

TS" 

dsexit 
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1728  REF  2 LAST  333  04*3270  0 3226  1 .; TC  DSPlNl ....  


T729  R£F  4 LAST~33l  ““0473271  0 32ol  1 DSPOCTIN  TC  DSPIN  SO  DSPOCfwD  DOESNT  U5E  5WCALL 

IffG-"  04,3272  3 3274  0 CAF  +2 

1731  REF  9 LAST  324  04.3273  0“4l05  1 TC  BaNKJUMP 

1732  "RIF  I-  04,3274  13250  1 ENDSPOCT  CAOR  OCTBACK 


R1733 

dspalarm  finds  tc 

NVSUBEND  IN 

ENTRET 

FOR  NVSUB  INITIATED  ROUTINES. 

R 1734 

ABORT  WITH  01501. 

“RT735 

DSPALARM  FINDS  TC  ENDOFJOB  IN  ENTRET 

for  keyboard  initiated  routines. 

R 1 736 

0-y  TC 

entret, 

1 

1737 

REF 

5 LAST 

308 

04,3275 

3 5150 

0 CHARALRM  CAF  ENDIN5T 

ALARMS  WHICH  MUST  DO  ENDOF JOBS 

COME 

1738 

REF 

6 LAST 

330 

04,3276 

54  122 

1 TS  ENTRET 

HtRE, 

ALLOWS  ENTRET  TO 

BE  TEMP 

ERASABLE 

1739 

REF 

3 LAST 

259 

04  y 6c.  77 

0 5243 

1 DSPALARM  TC  FALTON 

TURN 

ON  OPERATOR  ERROR 

LIGHT 

1740 

REF 

I 

04,3300 

4 3307 

1 CS  NVSBENDL 

1741 

REF 

7 LAST 

318 

04,3301 

6 0122 

0 AD  ENTEXIT 

1742 

04,3302 

0 0006 

I "EXTEND 

1743 

04,3303 

1 3305 

0 BZF  +2 

NVSUB 

INITIATED.  ABORT 

1744 

RtF 

8 LAST 

335 

U4 , 3304 

0 0122 

0 TC  ENTEXIT 

NOT  NVSUB  INITIATED, 

1745 

REF 

8 LAST 

1218 

~ 04,3305 

7)  5446 

1 TC  ABORT 

1746 

04 ,3306 

01501 

1 OCT  01501 

1747 

REF 

1 

04,3307 

0 5127 

0 NVSBENDL  TC  NVSUBEND 

RIT4B"  WCHAmG  USES  nOUn  DISPLAY  UnTIL  EnTER.  THEN'  IT  USES  MODE  DlSP. 

R1749  IT  GOES  TO  MODROUT  WITH  THE  N£W~  M M CODE  IN  A,  BUT  NOT  DISPLAYED  IN 

R1750  M W LIGHTS. 


T751  REF  2 LA~ST~309  05,3267  5ETL0C  DSP2BIT  »10D~ 


1752 

“REF"  T 

05,3267 

0 3302  0 MMCHAN6 

"TC 

REQMM 

1753 

REF  128  LAS!  332 

05,3270 

3 7665  0 

CAF 

ZERO 

1754 

REF  8 LAS  1 328 

05 ,3271 

56  267  1 

XCH 

NOUNREG 

1755 

RtF  5il  LAST  332 

-0  5,3272 

54  140  “O’ 

TS 

M'PA'C 

1756 

REF  3 LAST  308 

U5,j473  i 524U  1 

CAF 

ND1 

1 fb  7 

RcF  41  LASi  333 

9 3^74 

54  264  0 

TS 

D5PC0UNT 

1758 

RtF  21  LAST  314 

05 ,3475 

0 4063  “0 

TC 

“BATTXCALL 

1759 

REF  4 LAST  302 

05,3276 

10541  0 

CADR 

2BLANK 

1760 

RtF  512  LAST  335 

05,3277 

3 0140  1 

CA 

MPAC 

1761 

REF  16  LAST  333 

“'“05,3300" 

0 41020“ 

TC 

POSTJUMP 

1762 

REF  1 

05 ,3301 

11277  0 

CADR 

MODROUTB 

GU  1 HKU  b 1 ANUARD  LUL, 

"3 
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1763 

REF  11  LAST  327 

04*3277 

MODROUTB 

= 

DSPALARM 

**FIX  LATER** 

1764 

REF  199  LAST  334 

7)5 , 3302 

4 0002 

1 

REQMM 

CS 

Q 

1765 

REF  9 LAST3O8 

05,3303 

54  300 

0 

TS 

REQRET 

T-766 

REF  4 LAST  335 

05,3304 

3 5240 

1 

CAF 

ND1 

T767 

REF  42  LAST  335 

05,3305 

54  264 

0 

TS 

DSPCOUNT 

1768 

REF  129  LAST  335 

05,3306 

3 7665 

0 

"CAF 

ZtRO 

1769 

REF  9 LAST  335 

05,3307 

54  267 

0 

TS 

NOUNREG 

1770 

REF  22  LAST  335 

05,3319 

0 4063 

IT 

TC 

BANKCALL 

1771 

REF  5 LAST  335 

05,3311 

10541 

D 

CADR 

2BLANK 

1772 

REF  5 LAST  308 

05,3312 

0 5274 

0 

T C 

FlASHON 

1773 

REF  9 LAST  335 

05*3313 

TW 

0 

TC 

ENT EX  IT 

R 1774  VBfefiEXEC  ENTERS^ REQUEST  TO  EXEC  FOr^SNT- ADDrESS  WITH  ANY  PrIOrITY. 

R1775  TT  T0E5  ENDOFjOB  AFTER  ENTERING  REQUEST.  DISPLAY  SYST  IS  ReLeA5eD. 

R1776  IT  ASSUMES  NOUN  26  HA S B E eN"TRE  LOA  DED  WITH”' 

RT7TT COMPONENT  1 PRIORITY (BIT5  10-14)  BIT lgQ~FDR~INOVACt  BITI  = 1 FOR  FIND VAC. 

R1778 COMPONENT  2 JOB  A0RE5  (12  BIT  ) 

R1779  COMPONENT  3 BBCON 


1780  REP  Z~8  LAST  333  05,3314  3 7657  l VBRQEXEC  CAF  BlTl 


T78T 

REF 

4TAS7  276 

05,3315 

7 0333  0 

MASK 

DSPTEMI 

1782 

REF 

222  LAST  334 

05,3316 

10  000  0 

CCS 

A 

1783 

REF 

1 

05,3317 

0 3336  1 

1 c 

SETVAC 

IF  BIT1  = 1*  FINDVAC 

1784 

REF" 

I 

05,3320 

3 5227  NT 

CAF 

TCNOVAC 

IT  BIT1  = 0,  NOVAC 

1785 

RtF 

513  LAST  335 

05,3321 

54  140  0 

REQEX1 

TS 

MPAC 

TC  NOVAC  OR  TC  FINDVAC  INTO  MPAC 

1786 

REF 

29  LAST  336 

05,3322 

4 7657  0 

CS 

BIT1 

1787" 

REF 

5 LAST  336 

05,3323 

7 0333  0 

MASK  DSPTEMI 

1788 

' RtF 

514  LAST  336 

05 ,3324 

54  144  1 

TS 

MPAC  +4 

PRIO  INTO  MPAC+4  AS  A TEMP 

1789 

REF 

2 LAST  305 

05 ,3325 

0 5341  1 

REOUESTC 

TC 

RELDSP 

7790 

REF 

6 LAST  335  " 

OS  ,3326 

3 51  SOT  “ 

CA 

ENDTN'ST 

1791 

REF 

515  LAST  336 

05 ,332  7 

54  143  0 

TS 

MPAC  + 3 

TC  ENDOFUOB  INTO  MPAC+3 

1792 

06 * 333U 

0 0006  1 

EXTEND 

T793~ 

REF 

6 LrtST  336 

05,3331 

i U666  1 

DCA 

DSPTEMI  +1 

JOB  ADRES  7NTQ  TTPAC+1 

I794 

REF~ 

5l6  LAST  336 

05,3332 

52  142  1 

DXCH 

MPAC  +1 

BBCON  INTO  MPAC+2 

1795 

REF 

517  LAST  336 

05 ,3333 

3 0144  0 

CA 

MPAC  +4 

PRIO  IN  A 

1796 

~05*3334r 

0 0004  0 

INHTNT 

1797 

REF 

518  LAST  336 

Os  , iii 6 

0 0140  1 

TC 

MPAC 

"7798  REF  I 0573006  3 5232  7 SETVAC  CAF  TCFTNDW 

1799  REF  I 0 5 * 3337  0 3021  1 TC R EQ  EX1 


RI800 

" V3RDWAIT  ENTERS  ReQUeST  TO  WAITLIST  FOR  ANY  ADDRESS  WITH  ANY  DELAY. 

R1801 

IT  DOES  ENDOFJQB  AFTER  ENTERING  REQUEST. DISPLAY  SYST  IS  RELEASED. 

R1802 

IT  ASSUMES  NOUN  26  HAS  BEEN  PRELOADED  WITH 

R1S0T 

COMPONENT  1 

DELAY  (LOW 'BITS) 

R1804 

COMPONENT  2 

TASK  ADRES  (12  3IT) 

R1805 

COMPONENT  3 

BBCON 
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1806 

REF 

1 

05 , 3340 

3 5230  0 

vbrqwait 

CAF 

TCWAIT 

T807 

' REF 

519 

LAST' 

336 

05*3341 

54  14C  0 

TS 

MPAC 

TC  WAITLIST  INTO  MPAC 

1808 

" REF 

7 

LAST 

336 

05*3342 

3 0333  1 

CA 

DSFTEM1 

TIME  DELAY 

1809 

REF 

r 

05*3343 

0 3324  1 

ENDRQWT 

TC 

REOUESTC  -1 

RI810  reouestc  will  put  task  adres  INTO  MPAC+1*  SB CON  INTO  MPAC+2* 

RTS  1 1 TC  SNDOFJOB  INTO  MPAC+3.  IT  WILL  TAKE  TIME  DELAY  OUT  OF  MPAc+4  AND 
RT8T2 LEAVE~TT~IN  A,  INHINT  AND  TC-'TOST- 


T813 

ref 

2 LAST 

335 

04*3310 

setloc 

NVSBEnDL  +1 

1814 

REF 

64  LAST 

334 

04*3310 

3 7657  1 VBPROC 

CAF 

ONE 

PROCEED  WITHOUT 

DATA 

1 a 1 5 

REF 

2 LAST 

321 

04*3311 

54  301  1 

TS 

loadstat 

1816 

REF 

3 LAST 

336 

04*3312 

0 5341  1 

TC 

RELDSP 

1817 

REF 

3 LAST 

303 

04*3313 

0 5300  1 

TC 

FLASHOFF 

1818 

REF 

2 LAST 

321 

04. 3314 

0 3422  0 

TC“" 

RECALTST 

SEE  IF  THERE  IS 

ANY  RECALL  FROM  END IDLE 

1819 

R£F 

I 

04*3315 

0 

5131 

1 VBteRM 

TC 

KILMONON 

turn  on  kill  monitor  bit 

1820 

REF 

85 

LAST 

337 

04,3316 

4 

7657 

0 

CS 

ONE 

1821 

REF 

2 

LAST 

306 

04,3317 

0 

3311 

1 

TC 

VBPROC  +1 

TERM  VERB  SETS  LOADSTAT  NEG 

RTB2T  FLASH  iS  TUrnED  off  Only  BY  PR'PCEED  WITHOUT  DATA*  terminate.  EnDOF"LQaD 


R 1 823  VBRtLDSP  TURNS  OFF  ReLeASE  DISPLAY  SYSTEM  LIGHT (AND  SEARCHES  LIST  ONLY 

RI824  1KTRTT  LIGHT  WAS^TURI'lED  ON”B7"  W5UBU5Y)  , AND  TURNS  OFF  UPA"Cf"E"lGFrf, 


1825 

REF 

13 

LAST  286 

04*3320 

4'  7655  1 

VBRELDSP  CS 

BTT3 

1826 

04,3321 

0 0006  1 

^EXTEND- 

T 8 2 1 

REF 

7 

LAST  300 

04,3322 

03  Oil  1 

WAND 

DSALMOUT 

TURN  OFF 

UPACT  LIGHT 

1828 

REF 

4 

LAST  337 

04*3323 

0 5341  1 

T C 

RELDSP 

SEARCHES 

LIST 

1829 

REF 

42 

LAbl  33U 

04*3324 

0 4440  0 

~ IC 

~END"OFJOB  " 

R1830  BUMF  SHIFTS  WORD  DTs PLAYEDTN  R2".  TO  R3*  RI  TO“'R'2"i_  IT  BLANKS  RTi 


1831'""  RtF~ 

5 LAST  319 

04,3325  3 7664 

1 BUMP 

"CAF 

FI  VE  " 

R2D5 

* 0 3 c 

Kur 

43  LAS  1 336 

U4 ,3326 

54  264 

0 

TS 

DSPCOUNT 

1833 

REF 

12  LAST  334 

04*3327 

54  127 

1 

TS 

COUNT 

1 834 

RtF 

86  LAST  337 

04 » 3330 

3 7657 

1 

— CAT 

"TJNE" 

" SHIFT  DATA  OF 

R2 

"TCT  R3,"RT  TO  R2 

1335 

REF 

13  LAST  337 

94*3331 

7 0127 

1 

MASK 

COUNT 

1836 

REF 

14  LAST  337 

04 ,3332 

56  127 

~0 

XCH 

COUNT 

+0  INTO  COUNT 

IF 

EVEN  (RIGHT) 

i83f  Ktr  3U  LHb 1 333 

04  « 3333 

54  021 

"0 

TS 

SR  " 

+1  INTO  COUNT 

IF 

"ODD"  (LEFT) 

C\ 

r; 

n 
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L PINBALL  GAME  BUTTONS  ANp  LIGHTS _ USER'S  OWN  PAGE  NO,  50 


1838 

REF 

31  LAST  337 

04*3334 

56  021  1 

XCH 

SR 

DSREL  IN  A 

1839 

REF 

223  LAST  336 

04*3335 

50  000  1 

INDEX 

A 

1840 

REF 

26  LAST  334 

04,3336 

10  307  1 

CCS 

DSPTAB 

1 841 

04,3337 

0 3341  1 

TC 

+ 2 

1842 

REF 

20  LAST  334 

04,3340 

0 5464  1 

TC 

CCSHOLE 

1843 

REF 

8?  LAST  337 

04,3341 

6 7657  1 

AD 

ONE 

DSMAG  IN  A 

1844 

REF 

15  LAST  337 

04,3342 

50  127  0 

INDEX 

count 

1845 

REF 

3 LAST  334 

04 , 3343 

7 3257  0 

MASK 

DSMSK 

1846 

REF 

16  LASI  338 

04,3344 

50  127  0 

INDEX 

COUNT 

1847 

04*3345 

0 3346  ~0 

TC 

+ 1 

T848 

04,3346 

0 3350  1 

^rc 

+ 2 

EVEN (RIGHT)  OK 

1849 

REF 

4 LAST  329 

04,3347 

3 5200  0 

TC 

RIGHTS 

ODD (LEFT)  SHIFT  RIGHT 

TS50 

REF 

12  LAST  334 

04,3350 

54  110  0 

TS 

CODE 

1851 

REF 

6 LAST  337 

04,3351 

4 7664  0 

cs 

FIVE 

1852 

REF 

44  LAST  337 

04,3352 

6 0264  1 

AD 

DSPCOUNT 

DSPCOUNT-5 

18  53 

REF 

224  LAST  338 

04,3353 

10  000  0 

CCS 

A 

TO  PREVENT  -0 

1854 

REF 

88  LAST  338 

04,3354 

6 7657  1 

AD 

ONE 

1855 

04,3355 

0 3357  0 

TC 

*2 

1856 

REF  21  LASi  338 

04,3356 

0 5464  1 

TC 

CCSHOLE 

1857 

REF 

17  LAST  338 

04,3357 

54  127  1 

TS 

COUNT 

1858 

REF 

5 LAST  335 

04,3360 

0 3201  1 

TC 

DSP  I N 

CODE  ALREADY  IN  CODE 

1859 

' REF" 

45  LAST  338 

04,3361 

4 0264  0 

CS 

DSPCOUNT 

I860 

REF 

8 LAST  330 

“04,3362 

6 5175  1 

AD 

~RTD1 

OCT  16 

1861 

REF 

225  LAST  338 

04,3363 

10  000  0 

CCS 

A 

1862 

RtF 

46  LAST  338 

04 ,3364 

56  264  1 

XCH 

DSPCOUNT 

♦,  DSPCOUNT  L/  OCT  16 

TB'63 

“REF" 

89  EAST'S 3 8 

34 ,3363 

6 7657  1 

“AIT 

ONE 

Increment  dspcount 

1864 

REF 

2 LAST  305 

04,3366 

0 3326  0 

TC 

BUMP  +1 

1865 

RtF 

130  LAST  336 

04,3367 

3 7665  0 SWSGN 

CJAF 

ZERO 

-0,  DSPCOUNT  = OCT  16.  DO  SIGN  SHIFT 

1866 

R=.F 

47  LAST  338 

04,3370 

54  264  0 

TS 

DSPCOUNT 

1867 

REF 

1 

04,3371 

6 3420  1 

AD 

SwTAB  *2 

OCT  3 

1863 

KEF 

236  LAST  338 

04,3372  50  OOO  i 

INDEX 

A 

PICKUP  ORDER  , DSREL=3 ,4,5,6, 

1869 

REF 

27  LAST  338 

04 ,3373 

10  307  1 

CCS 

DSPTAB 

(-R2»+R2*-R1*+RI) 

1870 

04,3374 

0 3376  0 

TC 

+ 2 

1 8 T 1 

REF 

22  LA5T  338 

04,3375 

0 5464  T 

TC 

CCSHOLE 

1872 

REF 

90  LAST  338 

04,3376 

6 7657  1 

AD 

ONE 

1873 

REF 

24  LASi  324 

04,3377 

7 7645  0 

MASK 

BITU 

1374 

REF 

13  LAST  338 

04,3400 

54  110  0 

T5 

CODE 

1875 

RtF 

48  LASI  338 

04,3401 

50  264  1 

INDEX 

DSPCOUNT 

1876 

REF 

2 LAST  338 

04,3402 

3 3416  1 

CAF 

SiaIT  AB 

PUT  AW AY  ORDbRf  D5RELS  Gflf3fA# 

1877 

REF 

5 LA5  1 332 

04,3403 

0 3263  0 

TC 

“ (-R3  *+R3 ,-R2  ,+R2») 

1878 

REF 

4g  LAST  338 

04,3404 

4 0264  0 

CS 

DSPCOUNT 

1879 

RtF 

3 LAST  338 

04,3405 

6 3420  1 

AD 

SWTAB  *2 

OCT  3 

1880 

RcF 

22  f LAS  I 338 

04,3406 

10  000  0 

~CCT 

T - 

1 8 8 1 

REF 

50  LAST  338 

04,3407 

56  264  1 

XCH 

DSPCOUNT 

+,  DSPCOUNT  L/  3 

1882 

REF 

91  LAST  338 

04,3410 

6 765F  1 

AD 

ONE 

INCREMENT  DSPCOUNT 

1883 

RtF 

1 

04,3411 

o 337  013- 

TC 

SaSGN  +1 

1884 

REF 

9 LA5T  338 

04,3412 

3 5175  1 

CAF 

RID! 

-0,  DSPCOUNT  = 3 

1885 

REF 

5 i last  338 

04,3413 

54'  264  0 

TS 

DSPCOUNT 

I~886 

REF 

3 LASi  3U8 

04,3414 

0 2476  0 

TC 

5BLANK 

BLANKS  Rl”" 

473423A  YJL  SYSTEM  FOR  BLK2 i REVISION  12.  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10*  1966  (MAIN)  PAGE  339 


l pinball  game  buttons- and  lights 

1887  REF  10  LAST  336  04*3415^^)122  0 TC  ENTEXTT 

1888  04*3416  00000  1 SaTAB  OCT  0 

1 8'8  9 04*3417  OOOOTO  ScT  1 

1890  04*3420  ~ 00003  1 OCT  3 

1891  04*3421  00004  0 OCT  4 


user's  own  page  no.  si 


-R3 

+R3 

-R2 

+R2 


II 


l ’* 


n 


PO 


4£ 
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L PINBALL  GAME  BUTTONS  AND  LIGHTS  U5ER«S  OWN  PAGE  NO. 52 

PI  892 mVSUS'tS-USED  FOR  SUB  ROUTinE'CALLS  F rOM  WiTHIn  COMPUTER.  IT  CAn  §El 

— R1893 USfETOtfO  ANY  THING  “THITKeYBDARD  CAN  CALL,  PLACE  . . . VVVVVVNNNNNN~~ 

R1694  HTCl  A,  V-S~~ffffE~5~BIT  VEftg~CODE.  N-5  , 6 BIT  NOUN  CODE.  " 

RI895  NVSUB  CAN  BE  USED  WITH  MACH  CADR,  TO  BE  SPEC  BY  PLACING  THE  CADR  INTO 

R1896 MPAC+2  BEFORE  THE  STANDARD  NV5UST CALL.  _ 


R1897  NVSUB  RETURNS  TO  2+  CALLING  LOO  AFTER  PERFORMING  TASK*  IF  DISPLAY 
RT858  sYsTEH:  Is  AVAILABLE.  The  NEW  NOUN  ANd  VtRB' CODE'S  ARE  DISPLAYED* 

R i 8 9 9 TF'VTS  =0.  THE  NEW  NOUN  CODE  IS  DISPLAYED  ONLY (RETURN  WITH  NO  FURTHER 
RT900  ~ 'ACT  ION),  IF  N-S  =0*  THE  NEW  VERB  CODE  IS  DISPLAYED  ONLY (RETURN  W I TH  NO 
R1901  FURTHER  ACTION). 


R1902  IT  RETURNS  TO  f+  CALLING  LOC  WITHOUT  PERFORMING  TASK*  IF  DISPLAY 

RT903 SYSTEM  15  BlOc<ED  (NOTHING  TS  DISPLAYED  IN  THIS  CASE)  . 

R i 9 0 4 IT  DOES  TC  ABORT  (WITH  OCT  01501)  IF  IT  ENCOUNTERS  A DISPLAY  PROGRAM 

RT905  ALARM  CONDITION 'BEFORE  RETURN  TO'  CALLER. 


R1906  THE  DISPLAY  SYSTEM  IS  BLOCKED  BY  THE  DEPRESSION  OF  ANY 
R1907  KEY-*-  EXCEPT  ERROR"  L rGH T RESET ALSO"  BY  "ENDIDLE, 

R1908 it  is  released  by  special  verb  = release  display,  all  go  to  verbs, 

RT909 PROCEED  WITHOUT' DATAT,' TERM I N A T E,  I NT T I ALIZ E EXECUTIVE , 

R1910  RECALL  PART  "OF  RECALT5TTF  ENDIDLE  WAS  USED, 

R 1 9 1 1 TN  YECALTST  IF  NVSUB  INITIATED  LOAD  AND  END IDLE  WAS  NOT  USED, 

R1912 VB"='TREaOESr EXECUTIVE,  VB  = REQUEST  WAITLIST* 

R1913  MONITOR  SET  UP. 


TR1914  A'NV5UB  CALL  THAT  PASSES  DSPLpCK  ENDS  OLD  MONITOR. 


RI9T5  D5PL0CK  TS  THE  INTERLOCK  FOR- USE'  OF  KEYBOARD  AND  DISPLAY  SYSTEM  WHICH 
R1916  LSCKS' OUT  I NTERNAL  USE  WHENEVER  THERE  IS  EXTERNAL  KEYBOARD  ACTION. 


Rl9i7  NVSUB  IN' “FIXED-FIXED  PLACES  2 + CALLING  LOC  INTO  NVQTEM,  TC  NVSUBeND  INTO 
R1916  ENTRET.  (THIS  WILL  RESTORE  OLD  CALLING  BANK  BITS) 


1919 

REF 

2 LAST  330 

5107 

SETLOC  MIDSIX  +1 

1920 

REF 

5 LAST  330 

5107 

54  107  0 TIV5UB 

TS 

NVTEMP 

IN  FIXED  FIXED 

T.921 

REF 

6 LA5l  329 

5110 

IT27YT 

TC5 

"DSP LOCK 

1922 

RtF 

200  LAST  336 

5111 

0 0002  0 

TC 

Q 

DSP  SY5T  BLOCKED,  RET  TO  1+  CALLING  LOC 

1923 

REF 

201  LASl  340 

5112 

3 0002  0 

CA 

Q 

DSP  SYST  AVAILABLE 

T 924 

REF 

92  LAST  336 

51 1 3 

6 7657  T 

'AD 

ONE 

1925 

REF 

1 

5114 

54  325  1 

TS 

NVQTEM 

2 + CALLING  LOC  INTO  NVQTEM 

1926 

RtF 

2 LAST  337 

5115 

0 5131  1 

TC 

KILMONON 

TURN  ON  KILL  MONITOR  BIT 

1927 

REF 

1 

5116 

3 5122  V TTySUBCOH 

NV5BBBNK 

1928 

REF 

19 

LAST 

T60 

5117 

56  006  1 

XCH  BBANK 

1929 

RtF 

1 

5120 

54  326  1 

T5  NVBNKTEM 

1930 

REF 

1 

5121 

0 2000  0 

TC  NVSUBB 

GO  TO  NVSUB1  THRU  STANDARD  LOC 

1 9 3 1 

RtF 

52 

LAS  r 

338 

EO 

EBANK=  DSPCOUNT 

1932 

REF 

2 

LA5T 

303  “ 

5122 

1200CT  1 NWSBBBNK 

'BBC ON  NVSUB 1 

'| 
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p i nball  game  b u t t o Ns  and  li shit s 


1933 

T934 

1935 


”REF 
1936  REF 


REF  Z02  LAST  340 
RET — 93  LAST  340 
2 LAST  340 
I 


5123 

5124 

5125 

5126 


3 0002  0 
6 7657“! 
54  325  1 
0 5 IT  6 1 


NVSUBMON  ca 


Q 


AD 

T5 

TC 


user’s  own  page  no. 

MONDO  COMES  HERE 


53 


ONE  

NVQTEM 

NVSUBCOM 


2 + CALLING  LOC  INTO  NVQTEM 


1937 

ref 

3 LAST  341 

5127 

52  326  1 

nvsubend  dxch 

NVQTEM 

NVBnKTEM  must  = NVQTEM+1 

1938 

REF 

11  LAST  324 

5130 

52  006  0 

DxCH 

z 

DTCB 

1939  REF  1 

05,3344 

SETLOC 

ENDRQWT  +1 

1940  REF  1 

05,3344 

3 3363  1 NVSUB1 

CAF 

ENTSET 

IN  BANK 

1941  REF  7 LAST  335 

05,3345 

54  122  1 

TS 

ENTRET 

SET  RETURN  TO  NVSUBEND 

1942  REF  3 LAST  329 

05,3346 

3 3401  1 

CAF 

L0W6 

1943  RtF  6 LAST  340 

05,3347 

7 0107  0 

MASK 

NVTEMP 

1944  REF  520  LAST  337 

05,3350 

54  140  0 

TS 

MPAC 

TEMP  STORAGE 

1945  REF  1 

05,3351 

3 3402  1 

CAF 

MID6 

1946  REF  7 LAST  341 

05,3352 

7 0107  0 

MASK 

NVTEMP 

1947  REF  5 LAST  338 

05,3353 

0 5200  0 

T C 

RIGHT5 

1948  REF  36  LAST  333 

05,3354 

54  020  1 

TS 

CYR 

1949  REF  37  LAST  341 

05,3355 

56  020  0 

XCH 

CYR 

1950  REF  521  LAS T '341 

05,3356 

54  141  1 

TS 

MPAC  +1 

TEMP”  STORAGE 

1951  REF  522  LAST  341 

05,3357 

10  140  0 

CCS 

MPAC 

TEST  NOUN 

1952 

05,3360 

0 3364  0 

r c 

+ 4 

IF  NOUN  NOT  +0,  GO  ON 

1953  RcF  523  LAST  341 

05,3361 

56  141  0 

XCH 

MPAC  -,1 

1954  REF  7 LAST  319 

05 ,3362 

0 2314  0 

TC 

UPDATVB  -1 

IF  NOUN  = +0,  DISPLAY  VERB  , THEN  RETURN 

1955  REF  2 LAST  335 

05,3363 

0 5127  0 ENTSET 

TC 

NVSUBEND 

1956  RtF  524  LAbl  341 

0573364 

10  141  1 

CCS 

MPAC  + 1 

TEST  VERB 

1957 

Os ,8865 

0 3371  1 

TC 

♦ 4 

IF  VERB  NOT  +0,  GO  ON 

1958  REF  525  LA5T  341 

05,3366 

56  140  1 

XCH  MPAC 

1959  Kch  1 

05,3367  0 2274  1 

updatnn  .1 

IF  VERB  = +0,  DISPLAY  NOUN.” THEN“RETURN 

I960  REF  3 LAST  341 

05,3870 

0 5127  0 

TC 

NVSUBEND 

1961  REF  526  LAST  341 

05,3371 

56  141  0 

XCH 

MPAC  +1 

1962  Rcl-  8 LA5  f 341 

”0573372 

0 2314  0 

TC 

UPDATVB  -1 

IF  BOTH  NOUN  AND  VERB  NOT  +0,  DISPLAY 

1963  REF  527  LAST  341 

05 ,3873 

56  140  1 

XCH 

MPAC 

BOTH  AND  GO  TO  ENTPASO 

1964  REF  2 LAST  341 

05,3874 

0 2274  1 

r c 

UPDATNN  -1 

1965  RuF  I37r  LAST  338 

O5 ,88  f 5 

3 7665  0 

CAF 

7ER0 

1966  ReF  3 LAST  337 

05 ,8876 

54  301  1 

TS 

LOADSTAT 

SET  FOR  WAITING  FOR  DATA  CONDITION 

1967  REF  12  LAST  320 

05,3877 

54  302  1 

TS 

clpass 

1968  REF  3 LAST  303 

05,3400 

0 2031  1 

TC 

ENTPA50 

R 1 969  IF  INTERNAL  MACH  CADR  TO  Be  SPECIFIED*  MPAC+2  WILL  Be  PLACED  INTO 

RT970 NOUNCADR  IN  ENTPASo  (INTMCTBS  ), 


I 1971  05,3401  00077  1 L0w6  ““ OCT 77“ 

'■if 1972  05,3402  07700  1 ” MID  6 OCT 7700 


► 


JD 

D 
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1973 

REF  4 LAST 

341 

5131 

SETLOC 

NVSUBEND  +2 

1974 

REF  27  LAST 

330 

5131 

4 7641  1 

KILMONON  C5 

BIT  15 

Force 

BIT  15  OF  MONSAVEl 

TO  1, 

1975 

5132 

0 0004  0 

INHINT 

THIS  IS  THE  KILL 

Monitor  bit. 

1976 

REF  6 LAST 

330 

5133 

7 0306  0 

MASK 

MONSAVEl 

1977 

REF  28  LAST 

342 

5134 

6 7641  0 

AD 

BIT15 

1978 

REF  7 LAST 

342 

5135 

54  306  0 

TS 

MONSAVEl 

7,979 

5136 

0 0003  1 

relint 

1980 

REF  203  LAST 

341 

5137 

0 0002  0 

TC 

Q 

R19S1  " lOAdSTAT  + 0 I NAcTTVE( WAITING.  FOR  pATA).  SET  BY  NV5UB 

R 1 9 8 2 +1  PROCEED  NO  DATA,  SET  BY  SPECIAL  VERB 

R1983  -1  TERMINATE  SET  BY  SPECIAL  VERB 

R1964  -0  DATA  IN  SET  BY  END  OF  LOAD  ROUTINE 


R 1 985  L TC  End  IDLE  (FIXED  FiXED!_  _____  _____ 

R 1,986  ROUTINES  that  REQWSTnEOWST^iTOOGH  NvSUB  SHOUCD^JSE  eNDIDLE  whil e 

R1987  WAITING  FOR  THE  DATA  TO  BE  LOADED.  ENDIDLe  PUTS  CJRReNT  JOB  TO  SLEEP. 
R 1 9 8 8 EMDIDLE  CANNOT  BE  CALLED  FROM  ERASABLE  MEMORY*  SINCE  JOBSLEEP  AND 

R1989  J3BWAKE  CAN  HaNPLE~QNLY  FIXED  MEMORY . 

R 1990  RECALTST  TESTS  LOADSTAT  AND  WAKES  JOB  UP  TOi- 

R199T  L+T~  “TORT  TERMINATE 

RT992  L+2  FOR  PROCEED  W I T HOUT  DA TA 

RI993  L+3  FOR  DATA  IN 

R1994  IT  DOES  NOTHING'  IF  LqAPSTAT  INDICATES  WAITING  FQR  DATA. 


199S 

REF  94  LAST  341 

5140 

3 7657  1 

ENDIDLE  CAF 

ONE“ 

1996 

REF  7 LAST  340 

5141 

54  277  1 

TS 

DSPLOCK 

1997 

REF  35  LAST  137 

5142 

22  004  0 

dcch 

PBANK 

1998 

REF  204  LAST  342 

5143 

56  002  0 

XCH 

Q 

1999 

REF  23  LAST  257 

5144 

52  120  0 

DXCH 

BUF2 

2000 

REF  3 LAST  2 77 

5145 

0 4112  1 

TC 

MAKECADR 

2001 

RcF  5 LAST"  308 

5146 

54  323  1 

TS 

CADRSTOR 

2002 

REF  3 LAST  207 

5147 

0 4416  0 

TC 

JOBSLEEP 

2003  REF  93  lAsT  337  5150  0 4440  0 ENpINsT  T~C~  ENdOFJOB 

R2004  DATAWAtT  IS  AN  ALTERNATIVE  TO  ENDIDLE.  IT  RETURNS  IMMEDIATELY  IF 
R2005  LOADSTAT  INDICATES  THAT  DATA  IS  ALREADY  IN * "UR"  "PROCEED  OR  TERMINATE  HAS 

R2006  BEEN  EXECUTED.  RETURN  FORMAT  IS  SAME  AS  FOR  ENDIDLE^ 

R2007  DATAWAIT ^CANNOT  BE  CALLED  FROMi  ERASABLE  MEMORY*  SINCE  JOBSLEEP 
T*2W8  AND  JOBV.AKE  CAN  HANDLE  ONLY  FIXED  MEMORY » 

R 2 0 0 9 PATAWAI T SHOULD  BE  USED  ONLY ~ AF TER  REQUESTING  A LOAD  VERB, 

“ZOTO  REF  4 LAST  347  5151  10  3111  1 DATAWAIT  CCS LOADSTAT 
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L 

PlNbALL  GAME  BUTTONS 

AND  Llo 

H'TS 

USER'S  OWN  PAGE  NO.  55 

2011 

REF  1 

5152 

i 5157 

0 

TCF 

DATWAIT1 

PROCEED.  RETURN  TO  L+2. 

"2012 

RTF  11  LAST  278 

5153 

1 5140 

0 

TCF 

ENDIDLE 

still  waiting.  GO  TO  SLEEP. 

2013 

"REF  20  5 LAS  1 342 

5154 

0 0002 

0 

TC 

""Q 

terminate,  return  to  l+i. 

2014 

"REF  206  LAST  343 

5155 

50  002 

0 

INDEX 

Q 

DATA  IN.  RETURN  TO  L+3. 

2015 

5156 

0 0002 

0 

TC 

2 

2016 

REF  207  LAST  343 

5157 

50  002 

0 

DATWAIT1  INDEX 

0 

RETURN  TO  L+2. 

2017 

5160 

0 0001 

0 

TC 

1 

R2Q18  DATA WAIf  DOES  NOT  RELEASE  DISPLAY  5YST.  IT  IS  "RELEASED  AT  END  OF  NVSUB 

r 2 o i9  initiated  Load,  if  end i DLri^AsrwFUSED* 


Z02L3  rEF  2 LAST  341  05*3403  SEtLoC  MID6  + 1 

R2021  DSPMM  PLACE  MAJOR  MODE  CODE  INTO  MODREG  


2022 

REF 

1 

05,3403 

3 5241 

0 

D5PMM1 

CAF 

MD1 

GETS  HERE  THRU  DSPMM  (STANDARD  LEAD  IN) 

2023 

REF 

53  LAST  340 

05 , 3404 

56  ^64 

1 

XCH 

DSPCOUNT 

2024 

REF 

1 

05,3405 

54'  124 

I 

T 5 

DSPMMTEM 

SAVE  DSPCOUNT 

2025  RtF 

6 LAST  267 

05,8406 

3 0276 

1 

L7T 

MODREG 

2026 

REF 

208  LAST  343 

05,3407 

22  002 

0 

LXCH 

Q 

2027 

REF 

3 LAST  335 

05,3410 

0 3255 

0 

TC 

DSP2BIT 

2028 

REF 

2 LA5T  343 

05 ,341 1 

56  124 

CT 

XCH 

DSPMMTEM 

RESTORE  DSPCOUNT 

2029 

REF 

54  LAST  343 

05,3412 

54  264 

0 

T 5 

DSPCOUNT 

2030 

REF 

80  LAST  322 

05,3413 

0 0001 

0 

DSPMMEND 

TC 

L 

R2o31 

ReCALtSi  IS  ENTERED  DTReCTLY  AFteR  DATA  IS 

R2032 

LOADED,  TERMINATE  VERB  IS  EXECUTED,  OR  THE  PROCEED  WITHOUT  DATA  yERB  IS 

R2033 

EXECUTEO.  rnAKES  UP  JOB  THAI  DID  TC  ENDIDLE. 

*2034 

IF  NVSUB  INITIATED  LOAD,  AND  ENDIDLE  WAS  NOT  U5eD,  THgN  IT  RELEASES 

R2035 

DISPLAY  SYSI.  (NEEDED  FOR  DATAWAIT) 

2036 

RtF  4 LAST  338  04,3422  SETLOC  SWTAB  +4 

"2037 

"REF 

6 

LAST 

342 

04,5422 

ID  323 

1 

" CADRSTOR 

2038 

REF 

1 

04,3423 

0 3430 

0 

TC 

RECAL1 

2039 

REF 

44 

LAST 

342 

04,3424 

0 4440 

0 

TC 

ENDOFJOB 

NORMAL  EXIT  IF  KEYBOARD  INITIATED 

"2040 

REF 

2 

last 

343 

04 ,3425 

0 3430 

"0 

TC 

RETAL1 

REF 

7 

LAST 

343 

04,3426 

54  323 

1 

T5 

CADRSTOR 

-0.  CONCLUSION  OF  NVSUB  INITIATED  LOAD, 

2042 

REF 

1 

04,3427 

0 3446 

1 

TC 

RECAL3 

+0  INTO  CADRSTOR,  RELEASE  DISPLAY, 

A2043 

AND"  ENDUFJOB.  "NEEDED  FOR  DATAWAIT. 

20^4 

REF 

132 

LAST 

341 

04,3430 

3 7665 

0 

RECAL1  CAF 

ZERO 

REF 

8 

LAST 

343 

04*3431 

56  323 

0 

XCH 

CADRSTOR 

2046 

04*3432 

0 0004 

"0 

INFTTNT  " 

2047 

REF 

3 

LAST 

206 

04 ,3433 

0 4422 

1 

TC 

JOBWAKE 

2048 

REF 

5 

LAST 

342 

04 ,3434 

10  301 

1 

CCS 

loadstat 

2049 

REF 

1 

04,3435 

0 3452 

IT 

TC  ” 

DOPROC 

+ PROCEED  WITHOUT  DATA 

in 

p 
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2050 

REF 

45  LAST  343 

04,3436 

0 4440  0 

TC 

ENDOFJOB 

PATHALOGICAL  CASE  EXIT 

ZO5I 

REF 

1 

04*3437 

0 3450  0 

TC 

DOTERM 

Terminate 

2O52 

RtF 

45  LAST  334 

04,3440 

3 7656  0 

CAF 

TWO 

2053 

REF 

24  LAST  285 

104,3441 

50  071  1 RELAL2  INDEX 

LOCCTR 

—2054 

REF 

44  LAST  225 

04,3442 

6 0150  0 

AD 

LUC 

LOC  IS  + FOR  BASIC  JOBS 

2055 

REF 

25  LAST  344 

04,3443 

50  071  1 

INDEX 

LOCCTR 

2056 

REF 

45  LAST  344 

04,3444 

54  150  1 

TS 

LOC 

2057 

04,3445 

0 

0003 

1 

RELINT 

2058 

REF" 

2 LAST  328 

04,3446 

0 

5364 

0 

RECAL3 

TC 

RELDSP1  DOES  NOT  SEARCH  LIST 

2059 

REF 

46  LA5T  344 

04,3447 

0 

4440 

0 

TC 

ENDOFJOB 

2060 

REF 

133  LASI  343 

04  * 3450 

3 

7665 

0 

DOTtRM 

CAF 

ZERO 

2061 

ref 

1 

04,3451 

0 

3441 

0 

TC 

RECAL2 

2062 

REF 

95  LAST  342 

04,3452 

3 

7657 

1 

DOPROC 

CAF 

ONE 

2063 

REF 

2 LASI  344 

04,3453 

0 

3441 

0 

TC 

RECAL2 

) 
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P2064  THE  FOLLOWING  REFERS" TO  THE  NOUNffABLES 


R2065 

COMPONENT  CODE  NUMBER  INTERPRETATION 

) 

R2066 

00000 

1 COMPONENT 

‘ R2067 

00001 

2 COMPONENT  (EACH  S P) 

R2068 

00010 

3 COMPONENT  (EACH  SP) 

) 

) 

R2069 

SF;  ROUTINE  CODE  NUMBER  INTERPRETATION 

R2070 

00000 

OCTAL  ONLY 

J 

R2071 

0000 1 

STRAIGHT  FRACTIONAL 

R2072 

00010 

Degrees  txxx.xx j 

R2073 

00011 

ARITHMETIC  SF 

) 

R2074 

00100 

ARITH  DPI  OUT(MULT  BY  2/14  AT  END)  IN (STRAIGHT) 

R2075 

00101 

RRTTh  DP 2 OUT (STRAIGHT)  TNISL  7 AT  END) 

R2076 

00110 

OPTICS  DEGREES ( XX , XXX  MAX  89,999)  OR  (XXX. XX  MAX  179.99) 

R2077 

00111 

ARITH  DP3  OUT  ( SL  7 AT  END)  IN  ( STRAIGHT) 

R2078 

END  OF  SF  ROUTINE  CODE  NUMBERS 

A, 

R2079  SF  CONSTANT  CODE  NUMBER 


interpretation 


R2O80 
R2081 
R2082 
R2083 
R2084 
R2085 
■RToyr 
R2087 
R2088 
R20S9 
R2090 
R2091 
RZ09Z" 
R2093 
R2094 
R20  9 5 
R2096 
R2097 


00000 

00000 

00001 


00010 

00010 

00011 

OOTOO 

00101 


00110 

00111 


UTOOiT 
01001 
01010 
' 01011 
01100 


■RZ09O  Oil 01 
R2099 

R2100  OHIO 
R 2 1 0 1 


WHOLE  

TIME  SECWXX.XXJSAME  AS  WHOLE  (ARITH  DPU 
TIME  HOURS (XXX. XX)  U5E  ARITH  DP2 
DEGREES 


OPTICS  DEGREES 
GYRO  DEGREES  (XX. XXX) 


USE  ARITHDP3 


GYRO  AXIS  ACCEL.  DRIFT 
.BBXXXXX  (MILLIRAD/SEC)  / (CM/SEC  SEC) 
PIPA  BIAS  X,“XXXX““CM75EC  5EC — 

PI  PA  SCALE  FACTOR  ERROR 
^^XXXI  PARTSyMItLTON 

VELOCITY(XXXx!x  METERS/SEC)  USE  ARITHDP2 
TIME  HOURS (XXX, XX) WEEKS  INSIDE (AR I THDP2 ) 
ELEVATION  DEGREES (89, W9MAXJ  USE  ARITH 
RENDEZVOUS  RADAR  RANGE (XXXXXB.FEET) 

USE  ARITHDP1 


R ENDEZVOU S'  RADAR  RANGE  RATE (XXXXX, FT/SEC 

U5E  ARITHDP1 

LANDING  RADAR  ALTITUDE (XXXXX.FEET) 


USE  ARITHDPi 


'i 


1 
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R2102 

R2103 
R2104 
R2105 
R2106 
R2107 
RZ 108 
R2109 
R2110 
R21U 
R2112 
R 2 IT  3 
F211A 
R 2 1 1 5 
R2 1 16 
R2117 


01111 


10000 

10001 


10010 


10011 


10100 

10101 


10110 


end  of 


5F"CON5TANT  CODE  NUMBERS 


INTTIAL/FINAL  ALTITUDE (XXXXX. FEET) 

USE  ARITHDP1 

ALTITUDE  FATE ( XXXXX, FEET)  ~ USE  ARITH 

FORWARD/ LATERAL  VELOCITY (XXXXX. FEET/SEC) 

USE  ARITH 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATES- 
XXXXX.DEG/SECr^  USE  ARITH 

LANDING  RADAR  VELX (XXXXX, FEET / SEC ) 

USE  ARlTHDPi 

LANDING  RADAR  VeLY (XXXXX.FEET/SEC) 

“USE  ARITHDP1 

LANDING  RADAR  VELZ (XXXXX.FEET/SEC) 

USE  ARITHDP1 

OPT TCAL  TRACKER  AZIMUTH  ANGLE (XXX.XXDEG ) 
USE  ARITHOPT 


R2118  FDR- GREaTER”THaN  SINGLE  PRECISION  5"CaLES,  PUT  ADDRESS  OF  MAJOR  PART  INTO 

R2 1 1 9 NOUN  TABLES. 

R2120  OCjAL  LOADS  PLACE  +0  INTO  MAJOR  PART,  DATA  INTO  MINOR  PANT, 

F2I21  OCTAL  DI5PLAYS  SHOW  MINQR~PART  ONLTi 

R2T22  TO  GET  AT  BOTH  MAJOR  AND  MINOR.  PARTS  (IN  OCTAL) , USE  NOUN  01. 
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P2123 THE  FOLLOWING"  ROUTINES  ARTTORTR'eADING  THeNOUN  TABLES  AND  THE  SF  TABLES 

R2124 ( WHICH.  ARE  1N~~A~  "SEPARATE  BANCFftOM  THE  REST  OF  PINBALL)*  THESE  READING 

R2125 ROUTINES" ARE  IN  THE  SAME  BANC  AS  THE  TABLES. "THEY  ARE  CALLED  BY  DXCH“'Z.“ 


R2126  LOdNNTAB  LOAqS  NNAqTEM  WITH  THE  NNAqTAB  ENTRY*  NNTYPTEM  WITH  THE 

R2127  NNTYP TAB  ENTRY.  rF  THE  NOUN  I~S  T"MTXEl^fl5SDlTEM  IS  LOADED  WITH  THE  FIRST 

R2128  IDADDTAB  ENTRY*  IDAD2TEM  THE  SECOND"  IDADDTAB  ENTRY.  IDAD3TEM  THE  THIRD 
R2129  IDADDTAB  ENTRY*  RUTMXTEM  WITH  THE  RUTMXTAB  ENTRY.  MIX8R  IS  SET  FOR 
R2130  MIXED  OR  NORMAL  NOUNT” 


2131 16*2000 BANK  16 


2132 

REF 

T 

lb, 2000 

52  136  1 

LODNNTAb  DxCH 

IDAD2TEM 

SAVE  RETURN  INFO  IN  I DAD2TEM , IDAD3TEM, 

2133 

REF 

10 

LAST  336 

16,2001 

50  267  1 

INDEX 

NOUNREG 

2134 

REF  1 

16,2002 

3 2052  1 

CAF 

NNADTAB 

2135 

REF 

7 

LAST  323 

16,2003 

54  132  0 

T 5 

NNADTEM 

2136 

REF 

11 

LAST  347 

16,2004 

50  267  1 

INDEX 

NOUNREG 

2137 

' "REF" 

r 

16,2005 

3 2152  0 

CAF 

NNTYPTAB 

2138 

RtF 

5 

LAST  322 

16,2006 

54  133  1 

TS 

NNTYPTEM 

2139 

REF 

12 

LA5T  347 

16,2007 

4 0267  0 

CS 

NOUNREG 

"""  2140 

REF 

' T 

16,2010 

6 2036  0 

AD 

MTXCON 

2141 

16,2011 

0 0006  1 

EXTEND 

2142 

" REF 

1 

16,2012 

6 2016  1 

3ZMF 

LODMIXNN 

NOUN  NUMBER  G/E  FIRST  MIXED  NOUN 

2140 

REF 

96 

LAST  344 

1 6 1 2 0 1 3 

3 7657  1 

CAF 

ONE" 

NOUN  NUMBER  L/  FIRST  MIXED  NOUN 

2144 

REF 

12 

LAST  326 

16,2014 

54  124  1 

TS 

MIXBR 

NORMAL,  +1  INTO  MIXBR. 

2145 

REF 

i 

16,2015 

0 2034  1 

T C 

LODNLV 

" 2146 

REF 

4b 

LAST  344 

""  16,2016 

3 7656  0 

LODMIXNN“CAF 

TW 

MIXED.  +2  INTO  MIXBR, 

2147 

REF 

1 3 

LAST  347 

16,2017 

54  124  1 

TS 

MIXBR 

2148 

REF 

"13 

LAST  347 

16,2020 

50  267  1 

INDEX 

NOUNREG 

2149 

REF 

1 

16,2021 

3 2420  0 

CAF 

RUTMXTAB  -55 

2150 

REF 

2 

LAST  321 

16,2022 

54  137  0 

TS 

RUTMXTEM 

2151 

REF 

15 

LAST  55 

1 6 t 3 

3 6426  1 

CAF 

LOW  10 

"2152“ 

REF 

8 

LAST  347 

16,2024 

7 0132  0 

"" MASK 

““NNADTER 

2153 

RcF 

209 

LAs!  343 

16,2025 

54  002  1 

T5 

Q 

TEMP 

2154 

RtF 

228 

LAST  338 

16,2026 

50  000  1 

INDEX 

A 

2155 

1REF“ 

i 

16,2027 

3 2406  1 

“CAF  " 

IDADDTAB 

2156 

REF 

4 

LAST  322 

16,2030 

54  134  0 

TS 

IDAD1TEM 

LOAD  IDAD1TEM  WITH  FIRST  IDADDTAB  ENTRY 

2157 

16,2031 

0 0006  1 

EXTEND 

2158 

Ktr  2 1 U 

LA5T  347 

16,2032 

5 0002  0 

“"INDEX 

Q 

LOAD  I DAD2TEM  WITH  2ND  IDADDTAB  ENTRY 

2159 

Ktr 

£ 

LAST  347 

1 e>  9 2033 

3 2410  0 

DCA 

IDADDTAB  +1 

LOAD  I DAD3TEM  WITH  3RD  IDADDTAB  ENTRY, 

2160 

REF 

2 

LASI  347 

16 ,2034 

52  136  1 

LODNLV  DXCH 

IDAD2TEM 

PUT  RETURN  INFO  INTO  A,  L. 

2 1 6 1 

REF 

12  LH5I  3H1 

16 ,2035 

52  006  ~cr 

“DTCCH 

Z~ 

2162 

lo  t 2^36 

OOO55  1 

MIXCON  OCT 

55 

FIRST  MIXED  NOUN  = 55* 

R2163  GTSFOUT  LOADS  SFTEMP1,  SFTEMP2  WITH  THE 


• r 


4 ft  7 
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2164 

REF ' 

14 

TA3T"  326 

16,2037 

52  110  0 

GTSFOUT 

OXCH 

SFTEMPl 

2X (SFCONUM)  ARRIVES  IN  SFTEMPl. 

2165 

16,2040 

0 0006  1 

EXTEND 

2166 

REF 

229 

LAST  347 

16,2041 

5 0000  1 

INDEX 

A 

2167 

REF 

1 

16,2042 

3 2331  1 

OCA 

SFOUTAB 

Xl68 

' REF  ' 

15 

LAST^  348 

16,2043 

52  no  0 

SFCOM 

OXCH 

SFTEMPl 

2T69 

"REF 

13 

LASI  347 

1 6 ,21544 

52  006  0 

DXCH 

2 

R2170  GTSfTN  lOAqS  SfTEMPI  , SFTEMP2  nITTHTHE  DP  SfINTAB  ENTRIES, 

2171  REF  mXST  348  16,2045  ^27110  0 GT5FIN  PXCH-  SFTEMPl  2X  (SFCONUM)  ARRIVES  IN  "SFTEMPl, 


2172  16.2046  0 0006  1 EXTEND 

2173  REF  230  LAST  348”  “16,2047  5 OO00  1 INDEX 

2174  REF  1 16,2050  3 2253  1 OCA  SFINTAB 

2175  REF  1 16T205I  rZ043  0"  TCP  SFCOM 


A2176  _ ~ _ _ NN  NORMAL  NoUN5 


2177 

16,2052 

00000  1 

NNADTAb  OCT 

OOOOQ 

00 

NOT  IN  USE 

2178 

16,2053 

40000  0 

OCT 

40000 

01 

SPECIFY  MACHINE  ADDRESS 

(FRACTIONAL) 

2179 

16,2054 

40000 "0 

OCT 

40000 

02 

SPECIFY  "MACHINE  ADDRESS 

(WHOLE) 

2180 

16,2055 

40000  0 

OCT 

40000 

03 

SPECIFY  MACHINE  ADDRtSS 

(DEGREES) 

2181 

16,2056 

40000  0 

OCT 

40000 

04 

specify  machine  address 

(H0UR5) 

"21  qZ 

16,2057 

4000U~0 

OCT 

40000 

05 

SPECIFY  MACHINE  ADDRE55 

(SECONDS)  - 

2183 

16,2060 

40000  0 

OCT 

40000 

06 

SPECIFY  MACHINE  ADDRESS 

(GYRO  DEG) 

2184 

16,2061 

00000  1 

OCT 

00000 

07 

SPARE 

~2Tg5 

1 6 * 2 062 

77776  1 

~UC! 

77776 

10 

CHANNEL  TO  BE  SPECIFIED 

2186 

16,2063 

00000  1 

OCX 

00000 

11 

SPARE 

2187 

16,2064 

00000  1 

OCT 

00000 

12 

SPARE 

ZT5F" 

16,2065 

uoooo"  i 

OCT 

00000 

13 

SPARE 

2189 

16 ,2066 

00000  1 

OCT 

00000 

14 

SPARE 

2190 

16 ,206  1 

77777  0 

OCT 

77777 

15 

inurement  malhine  addkebb 

zi9n 

REF 

7 

EAST  T83 

16,2070 

00024  I 

ECADR 

TIME2 

16 

TIME  SECONDS 

2192 

REF 

8 

LAST  346 

16,2071 

00024  1 

ECADR 

TIME2 

17 

TIME  HOURS 

2193 

REF 

9 

LAST  280 

16,2072 

00032  0 

ECADR 

CDUX 

20 

ICDU 

2194 

H R~EF 

2 

LAST  197 

16,2073 

-00D37  D 

“ ECADR 

PIP  AX 

21 

PIPA5 

2195 

REF 

3 

LASI  273 

16,2074 

00400  0 

ECADR 

THtTAD 

22 

NEW  ANGLES  I 

2196 

REF 

4 

LAB 1 262 

16,2075 

00336  1 

ECADR 

DSPTEM2 

23 

delta  angles  I 

2197 

REF 

a LASI  337 

16,2076 

DO  333  1 

' ECADR 

DSPTEMI 

24 

DELTA  TIME  (SEC) 

2198 

REF 

9 

LAB  1 348 

16,2077 

00333  1 

ECADR 

DSPTEM1 

25 

CHtCKL i ST 

2199 

RcF 

10 

LAST  348 

16,2100 

00333  1 

ECADR 

DSPTEMI 

26 

PR10/DELAY,  adres,  BBCON 

2200 

REF 

2 

LAST  151 

16,2101 

01361  1 

LCADR  51WDE 

27 

5ELF  TE5T  ON/OFF  5WITCFI 

2201 

RtF 

1 1 

LAST  348 

16,2102 

00333  1 

EUADR 

DSPTEMI 

30 

STAR  NUMBERS 

2202 

REF 

3 

LAST  300 

1 6 , 2 1 03 

01363  0 

tCADR 

FAILREG 

31 

FAILREG 

2203 

REF 

1 

16,2104 

02 166  1 

ECADR 

TDEC 

32 

DECI51UN  TIME  (MIDLOUKBE) 

2204 

REF 

1 

16,2105 

02046  1 

ECADR 

TET 

33 

EPHEMERIS  TIME  (MIDCOURSE) 

2205 

REF 

1 

16,2106 

02174  1 

ECADR 

MEASQ 

34 

MEASURED  QUANTITY  (MIDCOURSE) 

<:206 

REF 

12 

EAST  348~ 

16,2107 

00333  1 

ECADR 

DSPTEMI  - 

35 

INBIT  MESSAGE 
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2207 

REF 

1 

16,2110 

01474  1 

ECADR 

LANDMARK 

36 

LANDMARK  DATA  1 

220  3 

REF 

2 LAST  349 

16,2111 

01477  1 

ECADR 

LANDMARK  +3 

37 

LANDMARK  DATA  2 

2209 

REF  “ 

8 LAST  250 

16,2112 

00035  1 

ECADR 

OPTY 

40 

RENDEZVOUS  RADAR  ANGLES  (TRUN,  SHAFT) 

2210 

REF 

15  LAST  244 

16,2113 

00423  1 

ECADR 

TANG 

41 

NEW  REND,  RADAR  ANGLES  (TRUN,  SHAFT) 

2211 

REF 

5 LAST  348 

16,2114 

00336  1 

ECADR 

DSPTEM2 

42  AOT  ROTATION  ANGLES 

2212 

REF 

8 LAST  226 

16,2115 

00375  0 

ECADR 

XYMARK 

43 

AOT  DETENT  CODE 

2213 

REF 

3 LAST  166 

16,2116 

00360  1 

ECADR 

FORVEL 

44 

FORWARD  VELOCITY,  LATERAL  VELOCITY 

2214 

REF 

2 LAST  275 

16,2117 

03035  1 

ECADR 

PCOM 

45 

ROTATIONAL  HAND  CONTROLLER  ANGLE  RATE 

2215 

16*2120 

00000  1 

OCT 

00000 

46 

SPARE 

2216 

16,2121 

00000  1 

OCT 

00000 

47 

SPARE 

2217 

16,2122 

00000  1 

OCT 

00000 

50 

Spare 

2218 

16,2123 

00000  1 

OCT 

00000 

51 

SPARE 

2219 

REF 

1 

16,2124 

01440  0 

ECADR 

GB1ASX 

52 

gyro  BIAS  DRIFT 

' 2220 

'16,2125 

01443  0' 

ECADR 

ADI  AX 

53 

gyro  INPUT  axis  acceleration  drift 

2221 

REF 

2 LAST  212 

1 6 ,2 126 

01446  0 

ECADR 

ADSRAX 

54 

GYRO  SPIN  AXIS  ACCELERATION  DRIFT 

A2222 

NN 

MIXED  NOUNS 

2223 

16,2127 

02000  0 

OCT 

02000 

55 

LANDING  RADAR  ALTITUDE,  TIME(SEC) 

2224 

16,2130 

02002  1 

OCT 

02002 

56 

LANDING  RADAR  VELX,  TIME (SEC) 

2225 

16,2131 

02004  1 

OCT 

02004 

57 

LANDING  RADAR  VELY,  TIME  (SEC) 

2226 

16,2132 

02006  0 

OCT 

02006 

60 

LANDING  RADAR  VELZ,  TIME (SEC) 

2227 

16,2133 

02010  1 

OCT 

02010 

61 

TARGET  AZIMUTH  AND  ELEVATION 

2228 

16,2134 

04012  U~ 

OCT 

04012 

62 

RENDEZVOUS  RADAR  RANGE,  TRUN,  SHAFT 

2229 

16,2135 

04015  1 

OCT 

04015 

63 

REND,  RADAR  RANGE  RATE,  TRUN,  SHAFT 

2230 

16,2136 

04020  1 

OCT 

04020 

64 

INITIAL  ALT,  FINAL  ALT,  ALT  RATE 

2231 

16,2137 

02023  I 

OCT 

02023 

65 

SAMPLED  TIME' (HOURS ' AND  SECONDS) 

A2232 

(FETCHED  IN  INTERRUPT) 

2233 

16,2140 

04025  1 

OCT 

04025 

66 

SYSTEM  TEST  RESULTS 

2234 

16,2141 

04030  0 

OCT 

040  30 

67 

DELTA 'GYRO  ANGLES 

2235 

1 6 ,2 1 42 

02033  0 

"OCT 

02033 

70 

OPTICAL  TRACKER  ANGLES  (AZIMUTH, ELEV) 

2236 

16,2143 

02035  0 

OCT 

02035 

71 

DESIRED  OPT.  TRAcK.  ANGLES  (AZ,  ELEV) 

22X7 

16,2144 

04037  1 

OCT 

04037 

72 

DELTA  POSITION 

2238 

16,2145 

04042  0 

OCT 

04042 

73 

DELTA  VELOCITY 

2239 

16,2146 

04045  1 

OCT 

04045 

74 

MEASUREMENT  DATA  (MIDCOURSE) 

4240 

16,2147 

04050  0“ 

“acr- 

“174050 

75  MEASUREMENT  DEVIATIONS  (HIDCOURSE) 

2241 

16,2150 

04053  0 

oct — 

04053 

76 

POSITION  VECTOR 

2242 

16,2151 

04056  0 

OCT 

04056 

77 

VELOCITY  VECTOR 

AZ243 

NN 

NORMAL  NOUNS 

2244 

16,2152 

00000  1 

NNTYPTAB  OCT 

00000 

00  NOT  IN 

USE 

2245 

16,2153 

00040  0 

OCT 

00040 

01  1CQMP 

FRACTIONAL 

2246 

16,2154 

TO  140  1 

OCT 

00140 

02  I COMP 

WHOLE 

2247 

16,2155 

00102  1 

OCT 

00102 

03  1C0MP 

DEGREES 

2248 

1 6 , 2 1 56 

00241  0 

ocr 

00241 

04  1C0MP 

HOURS 

2249 

T 6, 2 157 

00200  0 

— OCT' 

00200 

05  1C0MP 

SECONDS 

2250 

16,2160 

00343  0 

OCT'" 

00343 

06  1C0MP 

GYRO  DEGREES 

2251 

16,2161 

00000  1 

“OCT 

00000 

07 

SPARE 

2252 

T6Y2162 

ooooa  x 

OCT 

OOO'OO 

10  1C0MP 

OCTAL  ONUY 

cc 

if 
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2253 

16*2163 

00000 

1 

OCT 

00000 

11 

SPARE 

2254 

16*2164 

00000 

1 

OCT 

00000 

12 

SPARE 

2255 

16*2165 

00000 

1 

OCT 

00000 

13 

SPARE 

2256 

16,2166 

00000 

1 

OCT 

00000 

14 

SPARE 

2257 

16,2167 

00000 

1 

OCT 

00000 

15 

1C0MP 

OCTAL  ONLY 

2258 

16,2170 

00200 

0 

OCT 

00200 

16 

1C0MP 

SECONDS 

2259 

16,2171 

00241 

0 

OCT 

00241 

17 

1C0MP 

HOURS 

2260 

16,2172 

04102 

0 

OCT 

04102 

20 

3C0MP 

DEGREES 

2261 

16,2173 

04140 

0 

OCT 

O4I4O 

21 

3C0MP 

WHOLE 

2262 

16,2174 

04102 

0 

OCT 

04102 

22 

3C0MP 

degrees 

“2263 

16,2175 

04102 

0 

OCT 

04102 

23 

3C0MP 

degrees 

2264 

16,2176 

00200 

0 

OCT 

00200 

24 

1C0MP 

seconds 

2265 

16,2177 

00140 

1 

OCT 

00140 

25 

1CUMP 

WHOLE 

2266 

16,2200 

04000 

0 

OCT 

04000 

26 

3C0MP 

OCTAL  ONLY 

2267 

16,2201 

00140 

1 

OCT 

00140 

27 

1C0MP 

WHOLE 

2268 

16,2202 

04140 

0 

OCT 

04140 

30 

3C0MP 

WHOLE 

2269 

16,2203 

O4OOO 

0 

~OCT 

04000 

31 

3CQMP 

OCTAL  ONLY 

2270 

16,2204 

00252 

1 

OCT 

00252 

32 

1C0MP 

TIME  WEEKS 

2271 

16,2205 

00252 

1 

OCT 

00252 

33 

1C0MP 

TIME  WEEKS 

2272 

16,2206 

00350 

1 

"OCT 

00350 

34  1C0MP 

POSITION 

2273 

16,2207 

04000 

0 

OCT 

04000 

35 

3C0MP 

octal  ONLY 

2274 

16,2210 

04000 

0 

OCT 

04000 

36 

3C0MP 

octal  ONLY 

2275 

16,2211 

04000 

0 

OCT 

04000 

37 

3C0MP 

octal  ONLY 

2276 

16,2212 

02102 

0 

OCT 

02102 

40 

2C0MP 

degrees 

2277 

16,2213 

02102 

0 

OCT 

02102 

41 

2CQMP 

DEGREES 

2278 

16,2214 

02102 

o" 

OCT 

02102 

42 

2C0MP 

degrees 

2279 

16,2215 

00140 

1 

OCT 

00140 

43 

1C0MP 

whole 

2280 

16,2216 

02161 

0 

OCT 

02161 

44 

2C0MP 

FORWARD/LATERAL  VELOCITY 

2281 

16,2217 

04162 

0 

""OCT 

04162 

45 

3C0MP  ROT  HAND  CONT  ANGLE  RATE 

2282 

16,2220 

00000 

1 

OCT 

00000 

46 

SPARE 

2283 

16,2221 

00000 

1 

OCT 

00000 

47 

SPARE 

2284 

16*2222 

00000 

1 

OCT 

00000 

50 

SPARE 

2285 

16,2223 

00000 

1 

OCT 

00000 

51 

SPARE 

2286 

16,2224 

04144 

1 

OCT 

04144 

52 

3C0MP 

GYRO  BIAS  DRIFT 

""22  87 

16,2225 

04T45 

O 

OCT 

04T45 

53 

3C0MP 

GYRO  AXIS  ACCtL.  DRIFT" 

4288 

16,2226 

04145 

0 

OCT 

04145 

54 

3C0MP 

GYRO  AXIS  ACCtL.  DRIFT 

A2289 

NN 

MIXED  NOUNS 

2290 

16,2227 

00016  0 

OCT 

00016 

55 

2C0MP 

landing  radar  alt,  seconds 

2291 

16,2230 

00023  C 

OCT 

00023 

56 

2C0MP 

landing  radar  velx,  seconds 

2292 

16,2231 

00024  1 

“OCT 

00024 

57 

2C0MP 

landing  radar  vely,  seconds 

2293 

16,2232 

00025  0 

OCT 

00025 

60 

2C0MP 

LAnDINC  RAuAR  VELZ t SECONDS 

2294 

16 ,2233 

00542  1 

OCT 

00542 

61 

2C0MP 

degrees*  elevation  degrees 

2 295 

16,2234 

04  IT  4 1 

OCT 

04114 

62 

3 COMP 

RLND,  RADAR  RANGfT,  DEG,  DEG 

2296 

1 6 , 2235 

04115  0 

OCT 

04115 

63 

3CQMP 

REND,  rad,  range  rate,  deg, deg 

2297 

16,^286 

40757  0 

OCT 

40757 

64 

3C0MP 

IN/FN  ALT,  IN/FN  ALT,  ALT  RATE 

2298 

16,2237“ 

“00001  0 

““OCT 

00001 

65 

2C0MP 

HOURS,  SEC0ND5 

2299 

16,2240 

00000  1 

OCT 

00000 

66 

3C0MP 

WHOLE , FRACTIONAL , WHOLE 

2300 

16 ,22^1 

06143  1 

OCT 

06143 

67 

3C0MP 

GYRO  DEGREES  FOR  EACH 

2301 

16,2242 

00126  1 

"OCT 

00126 

70  ZCOMP 

OPT  TFTACK  AZIMUTH,  DEGREES 
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2302 

16.2243 

00126  1 

OCT 

00126 

71  2C0MP 

OPT  TRACK  AZIMUTH,  DEGREES 

_ 2J03 

16,2244 

20410  0 

OCT 

20410 

72  3C0MP 

POSITION  FOR  EACH 

2304 

16,2245 

22451  1 

OCT 

22451 

73  3C0MP 

VELOCITY  FOR  EACH 

2305 

16,2246 

00412  0 

OCT 

00412 

74  3 COMP 

TIME  WEEKS,  POSITION,  WHOLE 

2306 

16,2247 

20450  1 

OCT 

20450 

75  3C0MP 

POSITION,  VELOCITY,  POSITION 

2307 

16,2250 

20410  0 

OCT 

20410 

76  3C0MP 

POSITION  FOR  EACH 

2308 

16,2251 

~2245l  1 

OCT 

22451 

77  3 COMP 

velocity  FOR  EACH 

2309 

16,2252 

00006  1 

SFINTAB  OCT 

00006 

WHOLE,TlME(SEC) 

2310 

16,2253 

03240  1 

OCT 

03240 

2311 

16,2254 

00253  0 

OCT 

00253 

TIME  HOURS  ( = 1.3 ) 

“ 2312 

16,2255 

25124  1 

OCT 

25124 

(POINT  BETWEEN  BITS  7-8  ) 

2313 

16,2256 

00000  1 

OCT 

0 

DEGREES  (SFCON  IN  DEGINSF  ) 

2314 

16,2257 

00000  1 

OCT 

0 

2315 

16,2260 

10707  0 

OCT 

10707 

GYRO  degrees 

2316 

16,2261 

03435  0 

OCT 

03435 

UPPED  BY  1 

2317 

16,2262 

00001  0 

OCT 

00001 

GYRO  BIAS  DRIFT 

“ 2318 

16,2263 

02133  r 

“OCT 

02133 

2319 

16,2264 

00011  1 

OCT 

00011 

GYRO  AXIS  ACCEL.  DRIFT 

2320 

16,2265 

30322  1 

OCT 

30322 

3321 

16 ,2266 

00004  0 

OCT~ 

00004 

PI  PA  BIAS 

2322 

16,2267 

14021  1 

OCT 

14021 

2323 

16,2270 

00314  1 

OCT 

00314 

PIPA  SCALE  ERROR. 

“2324 

16,2271 

31463  1 

OCT 

31463 

2325 

16,2272 

23420  0 

OCT 

23420 

POSITION 

2326 

16,2273 

00000  1 

OCT 

00000 

“2327 

16,2274 

00201  1 

“OCT" 

00201 

VELOCITY 

2328 

16,2275 

30327  1 

OCT 

30327 

( POINT  BETWEEN  BITS  7-8  ) 

2329 

16,2276 

01371  0 

OCT 

01371 

TIME  WEEKS 

2330  - 

16,2377 

34750T 

OCT 

34750 

( POINT  BETWEEN  BITS  7-8  ) 

2331 

16,2300 

00001  0 

OCT 

00001 

ELEVATION  DEGREES 

2332 

1 6 » 2 30 1 

03434  1 

OCT 

03434 

2333 

16,2302 

000(06  1 

OCT 

“ 0(3006 

RENDEZVOUS  RaDAR  RANGE 

2334 

1 6 , 230 J 

20162  0 

OCT 

20162 

2335 

16,2304 

00011  1 

OCT 

00011 

RENDEZVOUS  RADAR  RANGE  RATE 

2336 

1 6T2305 

2 7066  I 

OCT 

27066 

2337 

16,2306 

00016  0 

OCT 

00016 

LANDING  RADAR  ALTITUDE 

2338 

16,2307 

04245  0 

OCT 

04245 

2339 

16,2310 

00002  0 

“ OCT 

00002 

INITIAL/FINAL  ALTITUDE 

2340 

16,2311 

23224  1 

OCT 

23224 

2341 

16 ,2312 

00014  1 

OCT 

00014 

ALTITUDE  RATE 

2342 

16,2313 

7)6500  1 

OCT — 

06500 

2343 

16,2314 

00012  1 

OCT 

00012 

FORWARD/LATERAL  VELOCITY 

2344 

16 , 23 1 5 

36455  0 

OCT 

36455 

2345 

16,2316 

04256  1 

““OCT— 

“04Z56 

“ ROT  HAND  CONT  ANGLE  RATE 

2346 

16,2317 

07071  0 

OCT 

07071 

2347 

16,2320 

77766  0 

OCT 

77766 

LANDING  RADAR  VELX  (NtG  TO  SWITCH  SIGNS) 

2348 

1 6 , 232 1 

60044  V 

"OCT 

“ 60044 
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2349 

16,2322 

00004  0 

OCT 

00004 

LANDING  RADAR  VELV 

2350 

1672323 

34055~~0— 

OCT 

S4Q55 

2351 

16,2324 

00007  0 

OCT 

00007 

LANDING  RADAR  VELZ 

2352 

16,2325 

04147  1 

OCT 

04147 

2353 

16,2326 

00005  1 

OCT 

00005 

OPTICAL  AZIMUTH  TRACKER  ANGLE 

2354 

16,2327 

21616  0 

OCT 

21616 

A2355 

END  OF  SFINTAB 

2356 

16,2330 

05174  0 

SFOUTAB  OCT 

05174 

WHOLE*  TlME(sEC) 

2357 

16,2331 

13261  0 

OCT 

13261 

2358 

16,2332 

27670  0 

OCT 

27670 

TIME  HOURS 

2359 

16,2333 

31357  1 

OCT 

31357 

2360 

16,2334 

00000  1 

OCT 

0 

DEGREES 

2361 

16,2335 

00000  1 

OCT 

0 

2362 

16,2336 

00714  0 

OCT 

00714 

GYRO  DEGREES 

2363 

16,2337 

31463  1 

~OCT 

31463 

(POINT  BETWEEN  BITS  7-8) 

2 364 

16 ,2340 

35753  0 

OCT 

35753 

GYRO  BIAS  DRIFT 

2 365 

16,2341 

32323  1 

OCT 

32323 

2366 

16,2342 

03216  1 

ocr 

03216 

GYRO  AXIS  ACCEL,  DRIFT 

2367 

16,2343 

06400  0 

OCT 

06400 

2368 

16,2344 

07237  0 

OCT 

07237 

PIPA  BIAS 

2369 

16,2345 

37776  0 

OCT 

37776 

2370 

16,2346 

00120  1 

ocr 

00120 

PIPA  SCALE  ERROR 

2371 

16,2347 

00000  1 

“o~ct_ 

00000 

2372 

16,2350 

00321  1 

OCT 

00321 

POSITION 

2373 

1 6 , 2 8 5 1 

26706  1 

OCT 

26706 

( POINT  BETWEEN  BITS  7-8  ) 

~2 37^4 

16,2352 

37441  1 

OCI  - 

3 7441 

VELOCITY 

2375 

16,2353 

14247  0 

OCT 

1 42  67 

2376 

16 ,2354 

05300  1 

OCT 

05300 

TIME  WEEKS 

2377 

16,2355 

20305  0 

OCT  " 

20305 

2378 

16,2356 

34631  1 

OCT 

34631 

ELEVATION  DEGREES 

2379 

16 ,2357 

23146  0 

ocr 

23146 

2380 

16,2360 

04725  0 

~ OCT 

04725 

RENDEZVOUS  RADAR  “RANGE'"" 

23sl 

1 6 , 2 36 1 

35454  1 

OCT" 

35454 

2382 

1 6 ,2362 

03225  1 

OCT 

03225 

RENDEZVOUS  RADAR  RANGE  RATE 

2383 

1 6 f 2 36 3 

07470  0 

OCT 

07470 

2384 

16,2364 

02207  0 

OCT 

02207 

LANDING  RADAR  ALTITUDE 

2385 

16,2365 

03255  0 

OCT 

03255 

2386 

16 ,2366 

14Z26  1 

OCT 

14226 

I NTT  TAT /FINAL  ALTITUDE 

2387 

1 6 $ 2 3 67 

31757  0 

OCT 

31757 

2 383 

16,2370 

02476  0 

OCT 

02476 

ALTITUDE  RATE 

2389 

16,23/1 

05531  0 

— ocr 

~0553T 

2390 

16,2372 

02727  1 

ocr 

02727 

FORWARD/LATERAL  VELOCITY 

2391 

16,2373 

16415  0 

OCT 

16415 

2392 

16,2374 

00007  0 

OCT 

00007 

ROr  HAND  CONT  ANGLE  RATE  “ 

2393 

16,2375 

13734  0 

OCT 

13734 

2394 

16,2376 

74502  0 

OCT 

74502 

LANDING  RADAR  VELX  (NEG  TO  SWITCH  SIGNS) 

2395 

T6y2377 

76401  0 

■ ttct 

76401 
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2396 

16,2400 

06436 

0 

OCT 

06436 

LANDING  RADAR  VELY 

7397 

Is, 2401 

35664 

0 

OCT 

35664 

2398 

16,2402 

04371 

0 

OCT 

04371 

LANDING  RADAR  VELZ 

2399 

16,2403 

17420 

1 

OCT 

17420 

- 2400 

16,2404 

05605 

1 

OCT 

05605 

OPTICAL  TRACKER  AZIMUTH  ANGLE 

2401 

16,2405 

03656 

1 

OCT 

03656 

A2402 

END  OF  SFOUTAB 

A2403 

MIXNOUN 

SF  ROUT 

2404 

REF 

4 LAST  256 

16,2406 

03461  1 

IDADDTAB  ECADR  RSTACk 

+ 18D 

01 

LANDING  RADAR  ALTITUDE 

2405 

REF 

5 LAST  353 

16,2407 

03465  0 

ECADR  RSTACK 

+22D 

01 

SECONDS 

2406 

REF 

6 LAST  353 

1 6 1 24 1 0 

03437  1 

ECADR  RSTACK 

02 

LANDING  RADAR  VELX 

2407 

REF 

7 LAST  353 

1 6 1 24 1 1 

03443  1 

ECADR  RSTACK 

+4 

02 

SECONDS 

2408 

REF 

8 LAST  353 

1 6 t 2 4 1 2 

03445  1 

ECADR  RSTACK 

♦ 6 

03 

LANDING  RADAR  VELY 

7409 

REF- 

9 LAST  353 

1 6 » 2 4 1 3 

03451  1 

ECADR  RSTACK 

+10D 

03 

SECONDS 

2410 

REF 

10  LAST  353 

16,2414 

03453  0 

ECADR  RSTACK 

•f  12D 

04 

LANDING  RADAR  VELZ 

2411 

REF 

11  LAST  353 

16,2415 

03457  1 

ECADR  RSTACK 

+ 16D 

04 

SECONDS 

2412 

REF  13  LASl  348 

16 ,2416 

00333  1 

ECADR  BSPTEM1 

05 

DEGREES 

2413 

REF 

14  LAST  353 

16,2417 

00334  0 

ECADR  DSPTEM1 

+ 1 

05 

tLEVATION  DEGREES 

2414 

REF 

12  LAST  353 

16,2420 

03437  1 

ECADR  RSTACK 

06 

RENDEZVOUS  RADAR  RANGE 

2~41 5 

REF" 

13  LAST  353 

16,2421 

03441  0 

ECADR  RSTACK 

+ 2 

06 

DEGREES 

2416 

REF 

14  LAST  353 

16 ,2424 

03442  0 

ECADR  RSTACK 

♦ 3 

06 

DEGREES 

2417 

REF 

15  LAST  353 

16,2423 

03445  1 

ECADR  RSTACK 

+ 6 

07 

RENDEZVOUS  RADAR  RANGE  RATE 

2418 

- REF 

16  LAST  353 

16,2424 

D3447  D 

ECADR  R5TACK 

+ 8D 

07 

DEGREES 

2419 

REF 

17  LAST  353 

16,2425 

03450  0 

ECADR  RSTACK 

+ 9D 

07 

degrees 

2420 

REF 

6 LAST  279 

16,2426 

00352  0 

ECADR  ALT 

10 

INITIAL/FINAL  ALTITUDE 

2421 

REF 

- 3 LAST  2T9 

16,2427 

00355  1 

ECADR  FTNALT 

10 

INITIAL/FINAL  ALTITUDE 

2422 

REF 

6 LAST  279 

16,2430 

00354  0 

ECADR  ALTRATE 

10 

altitude  rate 

2423 

RtF 

1 

16,2431 

00013  0 

ECADR  SAMPTIME 

11 

HOURS 

2424 

-REF 

-2-  LAST  353 

16,2432 

- -Q  001 3~0 

ECADR  SAMPTIME 

11 

SECONDS 

2425 

REF 

6 LAST  349 

16,2433 

00336  1 

ECADR  DSPTEM2 

12 

WHOLE 

2426 

REF 

7 LAST  353 

16,2434 

00337  0 

ECADR  DSPTEM2 

+ 1 

12 

FRACTIONAL 

2431 

2432 
~2T 433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 


00403  0 
00405  0 
00407  1 
01471  1 
01471  1 
01471  1 

01471  1 
02052  1 
02054  1 
02056  0 
02060  0 
020621 
02064  1 
02166  1 


ECADR 

ECADR 

-ECADR' 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

-ECAD-r 

ECADR 

ECADR 


DELVX 

DELVX 

DELVX 

AZANG 

ELANG 


+ 2 

-+4“ 


DE5L0TSX 

DELR 

DECR 
DELVEL 


+2 


TZ 

13 

13 

13 

14 

14 

15 

15 

16 
IE 


GYRO  DEGREES 

GYRO  DEGREES 

GYRO  DEGREE5- 

OPT  TRACK  AZIMUTH  ANGLE 

DEGREES 

-OPT  TRACK-AZIMUTH  ANGLE 
DEGREES 
POSITION 
POSITION 


TDEC 


+4 

16 

POSITION 

17 

VELOCITY 

*2 

17 

VELOCITY- 

+4 

17 

VELOCITY 

20 

TIME  WEEKS 

20 

POSITION 
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L PINBALL  game  BUTTONS  and  UoHiT5  _ USER'S  OWN  RAGE  NO.  66 


2443 

REF 

1 

16*2455 

02200 

1 

ECADR 

MEASMODE 

20 

WHOLE 

2444 

REF 

15 

XAsr 

353 

16,2456 

00333 

1 

ecadr 

DSPTEM1 

21 

POSITION 

2445 

REF 

16 

LAST 

354 

16,2457 

00335 

1 

ECADR 

DSPTEM1  +2 

21 

VELOCITY 

2446 

REF 

1 

16,2460 

02176 

0 

ECADR 

DELTAQ 

21 

POSITION 

2447 

‘REF 

17 

LAST 

354 

1 6 1 246 1 

00333 

1 

ECADR 

DSPTEM1 

22 

POSITION 

2448 

REF 

1 8 

LAST 

354 

16,2462 

00335 

1 

ECADR 

DSPTEM1  +2 

22 

POSITION 

2449 

REF 

19 

LAST 

354 

1 6 9 2463 

00337 

0 

ECADR 

DSPTEM1  +4 

22 

POSITION 

2450 

REF  ~20 

LAST 

354 

T6 ,11464 

00333 

1 

ECADR 

DSPTEM1 

23 

VELOCITY 

2451 

REF 

21 

LAST 

354 

16,2465 

00335 

1 

ecadr 

DSPTEM1  +2 

23 

VELOCITY 

2452 

REF 

22 

LAST 

354 

16 ,2466 

00337 

0 

ECADR 

DSPTEM1  *4 

23 

VELOCITY 

2453 

16,2467 

00000 

1 

OCT 

00000 

SPARE 

2454 

16,2470 

00000 

1 

OCT 

00000 

spare 

2455 

16,2471 

00000 

1 

OCT 

00000 

spare 

2456 

16,2472 

00000 

1 

OCT 

00000 

SPARE 

2457 

16,2473 

00000 

1 

OCT 

00000 

SPARE 

2458 

16,2474 

00000 

1 

OCT 

00000 

SPARE 

A2459  ^ __  _____  _ END  OF  IDAODTAB 


AZ~460  MIXNOUN  SF  ROUT 


2461 

16,2475 

00204  1 

RUTMxTAB  OCT 

00204 

“OTT 

LANDING  RADAR  ALTITUDE,  SECONDS 

2462 

16,2476 

00204  1 

OCT 

00204 

02 

LANDING  RADAR  VELX,  SECONDS 

2463 

16,2477 

00204  1 

OCT 

00204 

03 

LANDING  RADAR  VELY,  SECONDS 

2464 

16,2500 

00204  1 

OCT 

00204 

04 

LANDING  RADAR  VELZ,  SECONDS 

2465 

1 6 , 2 50T 

00142X) 

OCT 

00142 

05 

DEGREES , “ELEVATION  DEGREES 

2466 

16,2502 

04104  0 

OCT 

04104 

06 

RENDEZVOUS  RADAR  RANGE,  DEG,  DEG 

2467 

16  ,2503 

04104  0 

OCT 

04104 

07 

REND,  RADAR  RANGE  RATE,  DEG,  DEG 

2468 

16 ,2504 

06204  1 

“OCT  ” 

06204 

10 

INTT/FIN  ALT,  INTT/FIN  ALT,  ALT  RATE 

2469 

16,2505 

00205  0 

OCT 

00205 

11 

HOURS,  SECONDS 

2470 

16,2506 

06043  0 

OCT 

06043 

12 

WHOLE,  FRACTIONAL,  WHOLE 

2471 

16,2507 

16347  0 

OCT 

16347 

13 

GYRO  DEGREES  (FOR  EACH) 

2472 

16,2510 

00104  1 

OCT 

00104 

14 

OPT  TRACK  AZIMUTH  ANGLE,  DEGREES 

2473 

16,2511 

00104  1 

OCT 

00104 

15 

OPT  TRACK  AZIMUTH  ANGLE,  DEGREES 

2474 

1 6 , 2 5 1 2 

16347  0 

OCT 

16347 

1 6 

POSITION  (FOR  EACH) 

2475 

16,2513 

12245  1 

OCT 

12245 

17 

VELOCITY  (FOR  EACH) 

2476 

16,2514 

06345  0 

OCT 

06345 

20 

TIME  WEEKS,  POSITION,  WHOLE 

G477 

16,2515 

16247  1 

“ OCT 

16247 

21 

POSITION,  VELOCITY,  POSITION “ 

2478 

16,2516 

16347  0 

OCT 

16347 

22 

POSITION  (FOR  EACH) 

2 479 

16,2517 

12245  1 

OCT 

12245 

23 

VELOCITY  (FOR  EACH) 

A2480  END  OF  RUTMXTAB 


2481 


16*2520  ENDPINS3  EQUALS 
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l pinball  game'  buttons  and  lights  usEr»s  own  page  no«  t >7 

P2482  MI SCELLANEQUSTSERVICE  ROUTINES  IN  FIXED/FIXED  ' 


2483  rEF  2 LAST  343  5161  SiTLOO  DATWAIT1  +2 


R2484  5ETMCADR  E^LADR  ARRIVES  IN  A,  IT  IS  STORED  IN  NoUNCADR.  eBANK'  BITS 

r^465  are  set «~~e  adres  is  derives  and  put  into  NoUnadd, 


2486  REF  7 LAST” 330  5l6l  54  304  1 SETNCADR  TS  NOUNCADR  STORE  ECADR 

2487  REF  14  LAST” 283  " 5162  54  003  0 TS  EBANK  “ SET  EBANK  BITS 

2458  R EF  4 "LAST"  2 S3"  5l63  7 5235  1 MASK  LOWS 

2489  REF  l 5164  6 5256  0 ~~RD  0CT1400 

2490  REF  24  LAST  326  5165  54-  131  “0  TS  NOUNADD  PUT  E ADRES  INTO  NOUNADD 

2491  " REF  211  LAST  347  5166  0 0002  0 TC  Q 


R2492  SETNAod  SETS  E CApR  FRTOWTNOuNcAdR  ♦ SETS  EBANK  BITS,  DERIVES 

R2493  E APRESYAN!?  PUTS  IT  INTO  NOUNADD. 

~24g4  REF  8 LAST  355  5l67  3 0304  0 SETNADD  CA~  NOUNCADR 

2495  REF  6 LA5T322  5T70  1 5162  0 TCF SITNCADR  +1 


R2496  - 5ETE3ANK  E CADR  ARRIVES  IN  A.  eBANK  BITS  ARE  Set*  E ADReS  15 

R2497  DERIVED  AND  LErT  IN  A.  

2498  REF  15  LAST  355  5171  54  003  0 SETEBANK  T5  EBANK  SET  EBANK  BITS 

2499  REF  5 LAST  355 5 172  7 5235  1 MASK LOWS 

2500  REF  2“ LAST  355  5T73  6 3236  0 AD  0CTT400 ET“ADRES  LEFT  IN  A 

2501  REF  2 12- LA  ST  355  5174 — 0 0002  0 TC Q 


2502 

5175 

00016  0 

RlDl 

oct 

16 

2503 

5T76 

oaour 

-RZDT 

OCT 

11 

2504 

5177 

00004  0 

R3D1 

OCT 

4 

<5U5 

Ktr 

38  LASI  341 

5200 

54  020  1 

K I GN [ 5 

IS 

CYR 

5U6 

Rep 

39  LAST  355 

5201 

4 0020  1 

CS 

CYR 

CO  u 7 

KtP 

4U  LAS  1 355 

5202 

4 0020  1 

CS 

CYR 

e 508 

R~EF 

41  LAST  355 

5203 

4 002 01 

CS 

— CYR 

2509 

REF 

42  LASI  355 

5204 

4 0020  1 

- CS 

CYR 

CO  l U 

KtP 

43  LASI  355 

5205 

56  020  0 

XCH 

CYR 

2511 

REF 

8l3  LAST  355 

~52C6 

0 0002  G~ 

- TC 

— Q — 

col  c 

rccr 

1 5 LttSi  333 

5207 

54  022  0 

LEFT5 

TS 

CYL 

CO  13 

Rep 

16  LA5T  355 

5210 

4 0022  0 

cs 

CYL  “ 

473423A  YJL  SYSTEM  FOR  BLK2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  356 

L 

pinball 

GAME 

BUTTONS 

AND  LlS 

HITS 

USER'S  OWN  PAGE  NO.  68 

2514 

REF 

17 

LAST 

355 

5211 

(\J 

rvi 

O 

O 

0 

CS  CYL 

2515 

REF 

la 

LAST 

356 

5212 

4 0022 

0 

~CS  CYL 

2516 

REF 

19 

LAST 

356 

5213 

4 0022  0 

CS  CYL 

2517 

REF 

20 

LAST 

356 

5214 

56  022 

1 

XCH  CYL 

2518 

REF 

214 

LAST 

355 

5215 

0 0002 

0 

TC  Q 

2519 

5216 

6 0000 

1 SLEFT5 

DOUBLE 

2520 

5217 

6 0000 

1 

DOUBLE 

2521 

5220 

6 0000 

1 

DOUBLE 

2522 

5221 

6 0000 

1 

double 

2523 

5222 

6 0000 

1 

double 

2524 

REF 

215 

LAST 

356 

5223 

0 0002 

0 

TC  Q 

2525  5224  00037  0 L0W5  0C_T 37  

2526  ~ 5225  01740  0 MID5  OCT  1740 

2527  5226  76000  0 HT5  OCT  76000  MUST  STAY  HERE 


2528 

REF 

14 

LAST  329 

5227 

0 

4363  0 

TCNOVAC 

TC 

NOVAC 

2529 

REF 

35 

LAST  329 

5230 

"0 

4536  0 

TCWAIT 

TC 

WAITLIST 

2530 

REF 

27 

LAST  329 

5231 

0 

4602  1 

TCTSKOVR 

TC 

TASKOVER 

2531 

'TRET" 

5 

LAST  267 

5232 

0 

4374  0 

TCFINDVC TC 

ftndvac 

2532 


5235  30000  1 CHRPRlO  OCT  30000 


exec  priority  qftharin 


2533 

5234  03777  0 L0W11 

OCT 

3777 

"2534  1RSF  7 LAST  322 

5234  312-1 

EQUALS  LOW  11 

2535 

5235  00377  1 LOWS 

OCT 

377 

2536 

5236  01400  1 0CT1400 

OCT 

1400 

2 5 37 

5237 

00023  0 

vui 

OCT 

23 

2538 

5240 

00021  1 

NOT 

OCT 

21 

2539 

5241 

00025  0 

MD1 

OCT 

25 

2540 

5242 

00012  1 

BINCON 

DEC 

10 

2541 

RtF 

19  LA5T  302 

5243 

3 7651  1 

F ALTON 

CA 

BIT? 

"TURN  ON  OPERATOR  ERROR  LIGHT 

2542 

5244 

0 0006  1 

EXTEND 

2543 

RiiF 

8 LAST  337 

5245 

05  Oil  1 

WOR 

dsalmqut 

BIT  7 OF  CHANNEL  11 

2544 

REF 

216  LAST  356 

5246 

0 0002"  0 

TC 

13 

2545 

Rth 

2 U LA5I  356 

5247 

4 7651  0 

FALTOh 

CS 

B1T7 

TURN  OFF  OPtRATOK  ERROR  LIGHT 

2546 

5250 

0 0006  1 

EXTEND 
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l pinball  game  buttons  and  lights.  user's  own  page  no.  69 

2547  REF  9 LA5TT56  525T~"03~011  1 WAND  D5ALMQUT  BIT  7~  OF  CHANNEL  II 

2548  REF  217  LAST  356  5252  0 OO02  0 TC~~  Q 


2549  REF  10  LAST  259  5253  3 7653  0 RELDSPON  CAF  BIT5  TURN  ON  KEY  RELEASE  LIGHT 

2550  5254  0 0006  1 EXTEND 

T55T  REF  TD  LA5T“357  5255  05  Oil  1 *0R  DSALMOUT  BIT  5 OF  CHANNEL  11 

2552  RTFTT8~TA5TT5T  5256  0 0002  0 ~TC  Q ~ " ' ’ 


2553  5257  O'  OOOfe. 1 LOPSAMPT  EXTEND 

2554  REF  9 LAST  346  5260  0025  0 DCA  TIME2 

2555  REF  3 LAST  353  5261  52-  014  0 “ “DXCiH  SAMPTTME 

2556  REF  219  LAST  357  5262  0T)002  0 TC  0 


2557 

5263 

0 0006  1 TpSLl 

extend 

shifts  mpac*  +i*  +2  left  1 

2558 

“ REF  528 

LAST  341 

5264 

3 0142  0 

DCA 

MPAC 

+ 1 

LEAVES  OVFiND  SET  TO  + /-  1 FOR  OF/UF 

2559 

REF  529 

LAST  357 

5265 

20  142  1 

DAS 

MPAC 

+ 1 

2560 

REF  530 

LAST  357 

5266 

6 0140  1 

AD 

MPAC 

2561 

REF  531 

LAST’S  5 7 

5267 

26  140  0 

ADS 

MPAC 

2562 

5270 

54  007  1 

TS 

7 

TS  A DOES  NOT  CHANGE  A ON  OF/UF, 

2563 

REF  220 

LAST  357 

5271 

0 0002  0 

TC 

Q 

NO  NET  OF/UF 

2564 

REF  ' 2 0 

LAST  ’327 

5272 

54  105  1 

TS 

OVFIND 

OVFIND  SET  TO  + /-  1 FOR  OF/UF 

2565 

REF  221 

LAST  357 

5273 

0 0002  0 

TC 

Q 

2566  REF  26  LAST  299  5274  3 7652  1“  FlAShON'  cAF  BIT6  TURN  ON  V/N  flASH 

2 567  5275  D 0006  1 EXTEND  BTTT’UF  CHANNEL  11 

2568  REF  11  LAST  357  5276  05  Oil  1 “ NOR  DSALMOUT 

2569  REF  222  LAST  357  5277  0 0002  0 TC  Q 


2570 

RcF  27  lA5T  357 

5300 

4 7652  0 

FlA5hOFF  TS 

BIT6 

TURN  OFF 

T7N  FlASh 

2571 

5301 

0 0006  1 

EXTEND 

2572 

REF  12  LAST  357 

5302 

03  Oil  1 

NAND 

DSALMOUT 

BIT  6 OF 

channel  11 

2573 

REF  225  EAST  357“ 

5303 

0 0002  0 

TC 

TJ 

O 


f 
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l pinball  game  buttons  and  lights  user's  own  page  n°»  7o_ 

1 __  

~Tt^tZ  INTERNAL  ROUTINES  THAT  USE  THe  KEYBOARD  AND  DISPLAY  SYSTEM (THRU 

R2575 NYSUB")  MUST  TC  GRABDSP  be F 0 R t HAND  , TO  GRAB  THE  DISPLAY  SYSTEM  AND 

\ R2576 MAKE  I T BUSY  TO  OTHER  INTERNAL.  USERS, 


R2577  when  FINISHED  I there  MUST  be  A TC  FREEDSP  ♦ TO  RELEASE  THE 

TR2578  SYSTEM  FUR~-OTHER  INTERNAL  USE R S 1 

R2579  THE  CALLING  SEQUENCES  ARE 

R2580  L TC  GRABDSP 

RgSBl L+r~  RETURN  HERE  WHEN  SY5TEH  IS  ALREADY  GRABBED 

R2582 L+2  RETURN- HERE  MEANS  YOUrHiAVl~IT~ 


1R2583  L TC  NVSUB 

1T2T84 C+F"  RETORNnHERE  IF  OPERATUR~HAS  INTERVENED 

R2585  L+2  "RETURN  HERE  AFTER  EXECUTION 


rZB8B  A ROUTINE  CALLED  GrABUsY  Is  PROVIDED  (USE-  IS.  OPTIONAL)  TO  PUT  YOUr 

R2587 JPB~TO  SLEEP  UNTIU  THe  SYSTEWTS  REED  BY  THE  UOSi  HOLDING  IT. 

R2588  GRAB JSY  CANNOT  BE  CALLED  FROM  E MEMORY*  SINCE  JOBSLEEP  AND  JOBWAKE 

R2589  HANDLE  ONLY  FIXED  " MEMORY , 

" RT590  YOUR  " CaDRT  15"  PUT  AT'FTRST  AVAILABLE  SLOT  TN“A  WAITING  LIST  (FIFO)  . - 


R259 l THE  CALL! NG  SEQUENCE  I S 

R 2 5 9 2 CAF  WAKEFCADR  ~ 

R2593  TC  GRABUSY 


R2594  A ROUTINE  CALLED  NWUBJSY  TS  PROVTOeD- (USElS  OPTIONAL)  TO  PUT 

R2S95  YOUR  JOB  TCT  SLEEP  UNTIL  THE  OPERATOR  RELEASES  IT.- 
RZ596"  NVSUBUSr  CANNOT  BE  CALLED  FROM  E MEMORY*  SINCE  JOBSLEEP  AND  JOBWAKE 
" R2597  HANDLE  ONLY  FIXED  MEMORY, 

R2598  YOUR  CADR  IS  PUT 

R2599"  ON  TOP  OF  A '"WAITING  CIST  (FIFOO,  IT  ALSO  TURNS  ON  KEY  RELEASE  LIGHT. 


Hpoo  the  calling  sequence  is 

R260I  CAF WAKEFCADR 

TRZOT2  T'C NV5UBU5Y 


R2603  AFTER:  A TC  FrEEDSP*  THE  i^TErmAC  IrTErLOCK  jS  KEPT  BUSY  FOR  10  SECONDS* 
R2604"  AFTER  WHICH -A  CADR  IS  CALLED  FROM  THE  LIST.  THIS  INSURES  THAT  ALL 
R2605  DTSPLAY5  WAITING  WTLC  BE  VISIBLE. 


R2606  GRABLOCK  IS  THE  INTERNAL  INTERLOCK  FOR  THE  USE  OF  THE  KEYBOARD 
R2607  AND  DISPLAY  SYSTEM. 

RZ608  +0  FREE 


■ 
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PINBALL  GAME  BUTTONS  AND 

lights 

USER'S  OWN  PAGE  NO.  71 

R2609 

+1  SOME  IN1ERNAL  ROUTINE 

HAS  GRABBED  DSP  SYST 

R2610  +2  SJfi,  i NT tki.AL  ROUTINE  HAS  GONE  TO  NVSUBUSY 


2611 

ref 

3 

LAsT 

328 

5304 

10  324 

0 GRABDSP 

CCS 

GRABLOCK 

2612 

REF 

224 

LAST 

357 

5305 

0 0002 

0 

TC 

Q 

ALREADY  GRABBED,  RETURN  TO  L+l 

2613 

“REF 

97 

LAST 

347 

5306 

3 7657 

1 

CAF 

ONE 

NOT  GRABBED,  SET  TO  +1 

2614 

REF 

4 

LAST 

359 

5307 

54  324 

0 

T5 

GRABLOCK 

AND  RETURN  TO  L + 2 

2615 

REF 

225 

LAST 

359 

5310 

50  002 

0 

INDEX 

Q 

2616 

5311 

0 0001 

0 

TC 

1 

26 1 7 REF 

16 

LAST  3^7 

5312 

3 6426  1 

PREGBSY 

CAF 

LOWlO 

SPECIAL  ENTRANCE  FOR  ROUTINES  IN  FIXED 

2618  REF 

226 

LAST  359 

5313 

7 0002  1 

MA5k 

0 

banks  only  desiring  the  FCADR  OF 

- 2619  REF 

36 

LAST  342 

5314 

6 0004  0 

~~AU 

FBANK 

1 + (LOC  PROM  WHICH  TC  PREGBSY  WAS  DONE) 

2620  REF 

17 

LAST  335 

5315 

0 4102  0 

GRABUSY 

TC 

POSTJUMP 

TO  BE  ENTERED. 

2621  REF 

1 

5316 

10000  0 

CADR 

GRABUSYB 

2622  ” REF 

2 

LAST  343 

04.3454 

SETLOC 

DOPROC  +2 

2623  REF 

61 

LAST  343 

04,3454 

54  001  1 

GRABUSY1 

TS 

L 

2624  REF 

5 

LAST  359 

04,3455 

10  324  0 

CCS 

GRABLOCK 

2625 

04,3456 

0 3461  1 

TC 

+ 3 

STILL  GRABBED 

2626  REF 

B2 

LAST  359 

04,3457 

3 0001  0 

CA 

L 

NOT  GRABBED  SO  DO  DIRECT  CALL 

2627  REF 

10 

LAST  335 

04,3460 

0 4105  1 

TC 

BANK JUMP 

2628  REF 

47 

LA5T~347 

04,3461 

3 7656  0 

CAF 

TWO 

2629  REF 

1 

04,3462 

54  130  1 

TS 

LSTPTR 

2630  REF 

2 

LAST  359 

04,3463 

50  130  0 

INDEX 

LSTPTR 

SEARCH  LIST  FOR  FIRST  AVAILABLE  SPACE 

2631  ~REF 

4 

LA5T~T5S 

04,3464 

10  327“0 

CCS- 

DSPLIST 

FROM  BOTTOM, 

2632 

04,3465 

0 3467  1 

TC 

♦ 2 

2633  REF 

■■  1 

04 , 3 A66 

0 3472  0 

TC 

PUTINLST 

SPACE  FOUND 

2 6 3A  ~RcF 

3 

LAST  359 

04,3467 

10  I3U  T" 

CCS 

LSTPTR 

DECREMENT  POINTER 

2635 

04,3470 

0 3462  1 

TC 

-6 

2636  REF 

1 

04,3471 

0 3536  1 

TC 

LSTFULL 

2637  “REF 

63 

LAST  359 

04,3472 

3 CTOOTMO 

PUTINLST  LA 

TT 

2638  REF 

4 

LA5T  359 

04,3473 

50  130  0 

INDEX 

LSTPTR 

2639  REF 

5 

LAST  359 

04,3474 

54  327  0 

TS 

DSPLIST 

2640  REF 

4 

T-AST  342 

04,3475 

5 4416  0 

TC 

J0B5LEEP 

R2641  - GRABWAIT  IS  A SPEClA|_  ENTRANCE  FOR  ROUTINES  IN  FIXED  BANKc  ONLY#  IF 
R2642  SYSTEM^  IS  NOT  GRABBED.  IT  GRASS  IT  AND  RETURNS  TO  L+l  ( L = LOC  FROM 
R2643  1WICH-THE  TC^ABWAIT^-WAS  10O1^ffcTT~TF^SYSTEM  IS  GRABBED.  IT  PUTS  CALLING — 

R2644  JOB  TO  SLEEP  WITH  L+r  GOING  INTO'  LIST  FOR  EVENTUAL  WAKING  UP  WHEN 
R2645  SYSTEM  IS  FREED. 

2646  REF  l~  5317  5ETL0C  GRABUSY  ~+Z 

~ 2647  REF  6 LAST  359  5317  10  324  0 GRABWAIT  CCS  GRABLOCK 

2648  REF  1 5320 — 1 5312  0 TCF PREGBSY GRABBEDir~PErrra  INTO  LI5T.“GCTTCr~SLEEP, 
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L 

PINBALL 

GAME  BUTTONS  AND  LIGHTS 

USER'S  OWN  PAGE  NO, 

72 

2649 

REF  98 

LAST  359 

5321  3 7657 

1 

CAF 

ONE 

NOT  GRABBED.  GRAB  AND 

RETURN  TO  L+l, 

2650 

REF  7 

LAST  359 

5322  54  324 

0 

TS 

GRABLOCK 

2651 

REF  227 

LAST  359 

5323  0 0002 

0 

TC 

Q 

~2652 

ref  r 

5324 

4 5331  1 

PRENVBSY 

CS 

2K  + 3 

SPECIAL  ENTRANCE  FOR  ROUTINES 

IN  FIXED 

2653 

REF  228 

LAST 

360 

' 5325 

6 0002  0 

AD 

Q 

BANKS  Only  DESIRING  THE  FCADr 

OF (LOC 

2654 

**  REF  37 

TA5T 

359 

5326 

6 0004  0 

AD 

FBANK 

FROM  WHICH  THE  TC  PRENVBSY  WAS 

DONE)  -2 

2655 

REF  18 

LAST 

359 

5327 

0 4102  0 

NVSUBUSY 

TC 

POSTJUMP 

TO  BE  ENTERED, 

2656 

REF  1 

5330 

10001  1 

CADR 

NVSUBSYB 

2657 

5331 

02003  0 

2K*3 

OCT 

2003 

2658 

REF  2 LAST  359 

04*3476 

SETLOC 

PUTINLST  +4 

2659 

* REp  84  |_AsT  359 

04,3476 

54  001  1 

NVSUBSY1  T$ 

L 

2660 

REF  8 LAST  342 

04,3477 

10  277  1 

CCS 

DSPLOCK 

TEST  IF  REALLY  LOCKED  OUT 

2661 

04,3500 

0 3503  1 

TC* 

+ 3 

STILL  BUSY 

2662 

RtF  85  LAS i 360 

04,3501 

3 0001  0 

CA 

L 

DSPLOCK  = +0  SO  RETURN  DIRECTLY 

2663 

REF  11  LAST  359 

04,3502 

0 4105  1 

TC 

BANK JUMP 

2664 

REF  ~ 48  LAST  359 

* 04,3503 

3 7656  0 

CAF 

TWO 

5ET  FOR  GRABBED  STATE  AND  NVSUBUSY  USE“ 

2665 

REF  8 LAST  360 

04,3504 

54  324  0 

TS 

GRABLOCK 

2666 

" REF  86  LAST  360 

04,3505 

3 0001  0 

CA 

L 

2667 

RtF  6 LAS  1 359 

04,3506 

56  331  0 

XCFT 

DSPLIST  +2 

ENTER  CADR  INTO  FIRST  POSITION  OF  LI5T 

2668 

REF  7 LAST  360 

04,3507 

56  330  1 

XCH 

DSPLIST  +1 

(BOTTOM) 

2669 

REF  8 LAST  360 

04,3510 

56  327  1 

XCH 

DSPLIST 

2670 

**REF“  231  LAST  348 

*04,35ri 

10  000  0 

“CC  S * 

A “ 

2671 

REF  2 LAST  359 

04,3512 

0 3536  1 

TC 

LSTFULL 

2672 

04,3513 

0 3515  0 

TC 

+ 2 

*2673 

REF  3 LAST  360 

04,3514 

0 3536  I 

TC 

LSTFULL 

2674 

REF  2 LAST  330 

04,3515 

0 5253  0 

TC 

RELDSPON 

2675 

REF  ~87  LAST  360 

04,3516 

3 0001  0 

CA 

L 

2676 

REF  3 LAST  359 

* 04,3517 

0 4416  0 

ENDNVBSY  TC 

JOBSLEEP 

R2677  NVsBWAIT  Is  A 5PECIAL  ENTRANCE  FOR  ROUTINES  IN  FIXED  BANKs  ONLY.  IF 
R2678  SYSTEM  IS  NOT  BUSY,  IT  EXECUTES  V/N  AND  RETURNS"  TO1  Lt  1 <L=  LOC  FROM 

" R2679  WHICH'  THE  TC  ' NVSBWAIT  WA5  DON E)  ._TF"  SY5TEM  IS  BUSY,  IT  PUTS  CALLING  JOB 

R2680  TO1  SLEEP  WTTfTtfei  GOING  INTO  LIST  FOR  EVENTUAL  WAKING  UP  WHEN  SYSTEM 
R 2681 IS  NOT  BUSY, 


2682 

REF 

2 LAST 

276 

5332 

NVSBWAiT 

SETLOC 

NVSUBUSY  *3 

2683 

REF 

8 LAST 

341 

5332 

54  107  0 

TS 

nvtemp 

2684 

REF 

9 LAST 

36CT 

5333 

10  277  1 

CCS 

DSPLOCK 

2685 

REF 

1 

5334 

1 5337  1 

TCP 

NVSBWT1 

BUSY 

2686 

REF 

22g  LAST 

360 

5335 

3 0002  0 

CA 

Q 

FREE,  NVSUB  WILL  SAVE  L+l  FOR  RETURN 

2687 

TREF 

3 LAST 

276 

5336 

1 5114  1 

TCF 

1WSUB  +5 

AFTER  EXECUTION,  ** 

2688 

RcF 

230  LAST 

360 

5337 

24  002  0 

NVSBWT1 

INCR 

0 

L+2.  PRENVBSY  WILL  PUT  L-l  INTO  LIST  AND 

2689 

REF 

1 

5340 

1 5324  0 

TCF 

PRENVBSY 

GO  TO  SLEEP. 
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L 

PINBALL  GAME 

buttons 

AND  LI 3 

HiTS 

USER'S  OWN  PAGE  NO.  73 

2690 

REF 

231  LAST 

360 

5341 

56  002 

0 

RELDSP 

XCH 

Q _ _ 

5ET  DSPLOCK  TO  +0,  TURN  RELDSP 

LIGHT 

2691 

REF 

1 " 

5342 

54  130 

1 

TS 

RELRET 

OFF.  SEARCH  DSPLIST 

2692 

REF 

6 LAST 

315 

5343 

3 7667 

i 

CAF 

NEG1 

2693 

REF 

9 LAST 

360 

5344 

6 0324 

i 

AD 

GRABLOCK 

2694 

5345 

0 0006 

i 

EXTEND 

SEARCH  LIST  ONLY  IF  GRABLOCK  = 

*2 

2695 

REF 

1 

5346 

6 5354 

0 

3ZMF 

RELDSP2 

(SOMEONE  USED  NVSUBUSY) 

2696 

REF" 

* 1 

5347 

0 5367 

0 

TC 

WKSEARCH 

2697 

REF"" 

2 LAST 

361 

5350 

0 5354 

0 

TC 

RELDSP2 

LIST  EMPTY 

2698 

REF 

4 LAS! 

343 

5351 

0 4422 

1 

TC 

JOBWAKE 

LIST  NOT  EMPTY 

2699 

REF 

99  LAST 

360 

5352 

3 7657 

1 

CAF 

ONE 

2700 

' REF 

10  LAST 

36 1 

5353 

54  324 

0 

TS 

GRABLOCK 

2701 

5354 

0 0004 

0 

RELDSP2 

inhint 

2702 

REF 

11  LAST 

357 

5355 

4 7653 

1 

cs 

B1T5 

TURN  OFF  KEY  RELEASE  LIGHT 

2703 

5356 

0 0006 

1 

EXTEND 

(BIT  5 OF  CHANNEL  11) 

2704 

REF 

13  LAST 

357 

5357 

03  Oil 

1 

WAND 

DSALMOUT 

2705 

REF 

134  LAST 

344 

5360 

3 7665 

0 

CAF 

ZERO 

2706 

~ REF " 

10  LAST" 

360 

536T 

54  2 77 

1 

TS 

DSPLOCK 

2707 

5362 

0 0003 

1 

RELINT 

2708 

REF 

2 LAST 

361 

5363 

0 0130 

0 

TC 

RELRET 

2709 

REF  232  LAST 

361 

5364 

5 6 002 

0 

RELDSP1 

XCH 

Q 

SET  DSPLOCK  TO  +0.  RELDSP  LIGHT 

OFF, 

2710 

REF 

3 LAST 

361 

5365 

54  130 

I 

TS 

RELRET 

NO  LIST  SEARCH 

2711 

REF 

3 LAST 

361 

5366 

0 5354 

0 

TC 

RELD5P2 

HReF  135  LAST 

361 

" 5367 

3 7665  o WKS'e'ARCH 

CAF 

ZERO 

searches  list.  Leaves  result  in 

A. 

2713 

REF  9 LAST 

360 

5370 

56  327  1 

XCH 

DSPLIST 

IF  EMPTY,  return  TO  L+l, 

2714 

REF  10  LA5T 

361 

5371 

56  330  1 

XCH 

DSPLIST  +1 

IF  NOT  EMPTY,  INHINT  AND  RETURN 

TO  L+2. 

2715 

REF  "IT  LAST" 

361 

5372 

56  331  0 

XCH 

DSPLIST  *2  " 

2 716 

5373 

0 0006  1 

EXTEND 

2717 

5374 

1 5400  1 

3ZF 

+ 4 

EMPTY 

2718 

5375 

0 0004  0 

"TRHrNT 

NOT  EMPTY 

2719 

RtF  233  LAST 

361 

5376 

50  002  0 

INDEX 

Q 

RETURN  TO  L + 2 

2720 

5377 

0 0001  0 

TC 

1 

2721 

REF  234" "LA SF 

361 

5400 

0 0002  0 

TC 

"13 

RETURN  TO  L+l 

REF  235  LAST  361 
REF  1 


2722 

2723 

2724 

—2725 REF 1 

2726  REF  36  LAST  356 

2727  REF  55  LAST  343 

2728 

C2728  REF  I- 

2729 

2730  REF  2 LAST  361 


5401  56  002  0 

5402  54  130  1 
0 0004 


FREEdSP 


xch 

TS 


Q" 

FREERET 


5403 

5404 

5405 

5406 

5407 

5410 

5411 


7) 

3 5412  0 
0 4536  0 
EO 

03520  0 
10000  0 
00003  1 
0 0130  0 


'TNFmrr 

CAF  SHOT  I ME 

TC  WAITLIST 

ebank=  DSPCOUNT 
2CADR  FREEWAIT 


RELINT 

TCr  ~ 


FREERET 


2731 


5412  01130  I SHOTIME  DEC 


600 


6 SECOND  wAI T I'NG  PERIOD . 
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2732 

5413 

ENDPINBF  EQUALS 

2733 

ref 

1 

04*3520 

SETLOC 

EiMDNVBSY  +1 

2734 

REF 

3 LAST 

329 

04,3520 

3 5233  0 

FREEWAIT  CAF 

CHRPRIO 

CALLED  BY  T3RUPT 

2735 

REF 

15  LAST 

356 

04,3521 

0 4363  0 

T C 

NOVAC 

2736 

REF 

56  LAST 

361 

EO 

EBANK= 

DSPCOUNT 

” 2737 

04,3522 

03525  0 

12CADR 

fredspdo 

C2737 

REF 

1 

04,3523 

10000  0 

2738 

“ REF 

28  LAST 

356 

04,3524 

0 4602  1 

TC 

TASKOVER 

2739 

ref 

2 

LAST 

361 

04,3525 

0 5367 

0 

FrEDsPDO  TC 

WKSEArCH 

CALLED  BY  EXECUTIVE 

2740 

ref 

1 

04,3526 

0 3534 

0 

TC 

LSTEMPTY 

LIST  EMPTY 

2741 

REF 

5 

LAST 

361 

04,3527 

0 4422 

1 

TC 

JOBWAKE 

LI 5T  NOT  EMPTY 

~2742 

04,3530 

0 0003 

i 

PEL I NT 

2743 

REF 

100 

LAST 

361 

04,3531 

3 7657 

l 

CAF 

ONE 

SET  FOR  GRABBED  CONDITION 

2744 

REF 

11 

LAST' 

36l 

04,3532 

54  324 

0 

TS 

grablock 

2745 

TRET 

47 

LAST  344 

04,5533 

73  4440 

0 

TC 

ENDOF JOB 

2746 

REF 

136 

LA5T 

361 

04,3534 

3 7665 

0 

LSTEMPTY  CAF 

ZERO 

5ET  FOR  FREE  CONDITION 

2747 

04,3535 

0 3532 

0 

TC 

-3 

27  4 8 

REF  9 LAST~335  04,3556  0 5446  1 LSTFUCL 

TC 

ABORT 

2749 

04,3537  01206  1 

OCT 

01206 

pINBALL  WAITING  LINE  F|jLL« 

2750 


04,3540  ENDPINS1  EQUALS 
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U PINBALL  GAML  BUTTONS  AND  LIGHTS USER  * S OWN  PAGE  NO,  75 


P2751  V3T5TLT S T JrN s ON  ALL  DISPLAY  PANEL  LlGhTS,  AFTER  5 SEC»  iT  TURNS 


R2752 

OFF 

THE  CAUTION  AND 

STATUS  LI 

SrlTS. 

2753 

REF 

1 

05,3414 

SETLOC 

DSPMMEND  +1 

2754 

05,3414 

0 0004  0 vbtstlts 

inhint 

2755 

REF 

30  LAST  336 

05,3415 

4 7657  0 

cs 

BITl 

SET  BIT  1 OF  1MODES33  SO  IMUMON  WONT 

2756 

' “REF" 

12  LAST  299 

05,3416 

7 0370  1 

MASK 

IM0DES33 

TURN  OUT  ANY  LAMPS. 

2757 

REF 

31  LAST  363 

05,3417 

6 7657  1 

AD 

BITl 

2758 

REF 

13  LAST  363 

05,3420 

54  370  1 

TS 

IMODES33 

2759 

REF 

1 

05,3421 

3 3457  1 

CAF 

TSTCONl 

TURN  ON  UPLINK  ACTIVITY,  TEMP,  KEY  RLSE, 

2760 

05,3422 

0 0006  1 

EXTEND 

V/N  FLASH,  OPERATOR  ERROR. 

2 761 

REF 

14  LAST  361 

05,3423 

05  Oil  1 

a/OR 

DSALMOUT 

2762 

REF 

1 

05,3424 

3 3460  0 

CAF 

TSTC0N2 

TURN  ON  NO  ATT,  GIM6AL  LOCK,  TRACKER, 

2763 

REF 

28  LAST  338 

05,3425 

54  322  0 

rs 

DSPTAB  +1  ID 

PROG  ALM. 

2764 

RcF 

30  LAST  300 

05,3426 

3 7646  1 

CAF 

BTT10 

TURN  ON  TEST  ALARM  0UTB1T 

2765 

05,3427 

0 0006  1 

EXTEND 

2766 

REF 

2 LAST  300 

05,3430 

05  013  0 

wor 

CHAN13 

2767 

“RET 

4 LAST  296 

05,343 1 

3 7661  1 

CAF 

TEN 

2768 

REF 

5 LAST  300 

05,3432 

54  103  1 TSTLTS1 

T5 

ERCNT 

2769 

REF 

1 

05,3433 

4 3455  1 

cs 

FULLDSP 

2770 

6 LAST  363 

05,3434 

50  103  <7 

INDEX 

ERCNT 

2771 

REF 

29  LAST  363 

05,3435 

54  307  1 

TS 

DSPTAB 

2772 

REF 

7 LAST  363 

05,3436 

10  103  1 

CCS 

ERCNT 

2773 

HREF 

“I 

05,3437 

0 3432  I 

TC 

TSTLTSl 

2774 

REF 

1 

05,3440 

4 3456  1 

CS 

FULLDSP1 

2775 

REF 

30  LAST  363 

05,3441 

54-  310  1 

TS 

DSPTAB  +1 

TURN  ON  3 PLUS  SIGNS 

2776 

REF 

31  LAST'  363 

05,3442 

54  3T3  I 

TS” 

DSPTAB  +4 

2777 

REF 

32  LAST  363 

05 , 3443 

54  315  1 

TS 

DSPTAB  +6 

2778 

REF 

2 LAST  76 

05,3444 

3 f 6b0  0 

CAF 

ELEVEN 

2779 

REF 

7 LAST  334 

05,3445 

54  303  0 

TS” 

(TOUT 

2780 

05,3446 

0 0003  1 

relint 

2781 

REF 

1 

05,3447 

3 3462  1 

CAF 

SHOLTS 

2782 

05,3450 

”0  ”0004  0 

INHINT 

2783 

REF 

37  LASI  36i 

05,3451 

0 4536  0 

TC 

WAITLIST 

2784 

REF 

33  LAST  363 

EO 

EBANK= 

DSPTAB 

2785 

05 13452 

03463  0 

2CADR  " 

TSTLT52 

C2  f 8 5 

REF 

1 

0 5 , 3453 

12000  1 

2786 

REF 

48  LASl  362 

05 ,3454 

0 4440  0 

TC 

ENDOFJOB 

dsplock  is  left  busy  (from  keyboard 

KZTB1  ACTION)  UNTIL  TSTLTS3  TO  INSURE  THAT 

A2786  LIGHTS  TEST  WILL” BE  SEEN.”” 


2789  05,3455  056750  FULLDSP  OCT 05675  DISPLAY  ALL  8:S 

2790  05,3456 07675  1 — FULLDSP1  OCT 07675 DISPLAY  ALL  8 '5 5 AND  + 

2791  0576457  00175  1 TSTCONl — OCT 00175 

742792  UPLINK  ACTIVITY,  TEMP,  KEY  RLSE, 

A2793  — — — V/N  FLASH,  OPERATOR  ERROR, 
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2794 

05,3460 

40650 

0 

TSTC0N2 

OCT 

40650 

D5PTAB+11D  BITS  4, 6.8, 9. 

A2795 

NO  ATT,  GIMBAL  LOCK,  TRACKER,  PROG  ALM. 

2796 

05,3461 

00115 

1 

TSTC0N3 

OCT 

00115 

CHAN  11  BITS  1,  3,  4,  7. 

A2797 

UPLINK  ACTIVITY,  TEMP,  OPERATOR  ERROR, 

2798 

05,3462 

00764 

1 

SHOLTS 

OCT 

764 

5 SEC 

2799  REF  4 LAST  362  ^5*3463  3 5233  0 TSTLTST^  CAP  CHRPRIO  CALLED  BTlJfrlTLTST 


“280U  REF  16  LAST  362  05.3464  0 4363'  0 TC  NO  VAC 

2801  REF  34  LAST  363  ~ EO  EBANK=  DSPTAB 

28  OF  05,3465  03470  1 2CADR  TSTLTS3 

C2802  REF  1 05*3466  12000  1 

2803  REF  29  LAST  362  0573467  0 4602  1 TC  TASKOVER 


2804 

“ w 

1 

05,3470 

4 3461 

0 TsTLTs3 

Cs 

T ST CON 3 

CALLED  by  EXECUTIVE^ 

2805 

05,3471 

0 0004 

0 

INHINT 

2806 

05,3472 

0 0006 

1 

EXTEND 

TURN  OFF  UPLINK  ACTIVITY,  TEMP, 

2807 

REF 

15 

LAS  1 

363 

05,3473 

03  Oil 

1 

4 AND 

DSALMOUT 

OPERATOR  ERROR, 

2808 

REF 

31 

LAS  1 

363 

05,3474 

4 7646 

0 

CS 

Bine 

TURN  OFF  TEST  ALARM  OUTBIT 

2~B09 

05,3475 

0 0006 

1 

EXTEND 

2810 

REF 

3 

LAST- 

363 

05,3476 

03  013 

0 

//AND 

CHAN 13 

2811 

REF 

29 

CA5 1 

342 

05,3477 

3 7641 

0 

CAF 

BTTT5 

TURN  OFF  AUTO,  HOLD,  FREE,  NO  ATT,  SPARE 

28T2 

REF 

~3b 

LAST  364 

05 ,3500 

54  32F 

4T 

T S 

“DSPTAB  + 1 ID 

GTMBAL  LOCK,  SPARE,  TRACKER,  PROG  ALM 

2813 

REF 

~T 

05,3501 

4 3521 

0 

CS 

13-11,1 

SET  BITS  TO  INDICATE  ALL  LAMPS  OUT,  TEST 

2814 

ReF 

14 

LAST 

363 

05,3502 

7 0370 

1 

MASK 

IM0DES33 

LIGHTS  COMPLETE, 

2815 

HREF- 

4 

LA5T~ 

299 

05,3503 

6 4515 

1 

AD 

PRI016 

2816 

TTEF 

15 

LAST 

364 

' 05,3504 

54  370 

1 

TS 

IM0DES33 

2817  RFF  1 

05,3505  4 3523  1 

CS  QCT55000 

2818  REF  56  LAST  299 

05,3506  7 0367  1 

MASK  TM0DE530 

2819  RtF  2 LAST  177 

05,3507  6 4514  0 

AD  PRI015 

15000, 

2820  REF  “5?  L4ST  364 

05,3510  54  367  1 

TS  IM0DES30 

2821  REF  1 

05,3511  4 3522  0 

CS 

RFAILS2 

E82Z 

REr  75  LAST  300 

05.3512 

05.3513 

7 0413  C 

MASK  " 

“RADTODE5-  “ 

2823 

REF  21  LAST  356 

6 7651  1 

AD 

BIT7 

2824 

REF  76  LASl  364 

05,3514 

54  413  0 

TS 

RADMODES 

2825 

05,3515 

0 0003  1 

RELINT 

E826 

REF  3 LA5T  152 

05,3516 

0 2001  1 

— TC 

4DSPMM 

REDI SPLAY  CmODREG ) 

2827 

REF  I9  LAST  360 

05 ,3517 

0 4102  0 

1 c 

POSTJUMP 

TURN  OFF  KEY  RLSE  LIGHT  (AND  SEARCH  LIST 

282  8 

REF  2 LASI  306 

05,3520 

11315  0 

CADR 

VBTERM 

IF  APPROPRIATE) , 

A2829  TURN  OFF  V/N  FLASH,  SET  LOADSTATTOR 

A2830  FOR  TERMINATE  CONDITION , AND  GO  TO 


A 28 3 1 RECALT5T.  FINALLY  DO  TC  ENDOFJOB. 


473423A  YJL  SYSTEM  FOR  BLK2:  REVISION  12  OF  PROGRAM  AUR0RA““BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  365 


L PiNBAlL' GAME  BUTTONS  AND  LIGHTS 


user's  o^n  page  no.  77 


2832 

05,3521 

16001  1 

13-11,1 

OCT 

16001 

^2833 

05,3522 

00  330“  1 

RFAILS2 

OCT 

330 

2834 

05,3523 

55000  1 

0CT55000 

OCT 

55000 

2835 

05,3524 

ENDP1NS2 

equals 

RADAR  CPU  AND  DATA  TAIL  FLAGS, 


.1 
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L ALARM  AND  ASQrT  USER  IS  OWN  PAGE  NO,  1 

Roooi  THE  FOLLOWI NG  SUBROUT  I Ne  MAY  Be  CALLeDtO  DISPLAY  A NON-ABoRTTVe  ALARM  CONDITION.  It  MAYBe  CALLeD 

R0003  EITHER  IN  INTeHRURT  OR  UNDER  EXECUTIVE  CONTROL. 

ROOOA  CALLING  SEQUENCE  IS  AS  FOLLOWS;  “ _ 


R0005 

TC  ALARM 

R0006 

OCT  AAANN 

alarm  no 

, NN  IN  GENERAL  AREA  AAA. 

R0007 

(RETURNS 

HERE) 

0008 

" REF 

1 

5*13 

5ETL0C  ENDPINBF 

0009  “ 

REF 

4 LAST  348 

E2 

Ebank=  failreg 

0010 

5413 

0 0004  0 

alarm  inhint 

0011 

REF 

236  LAST  361 

5414 

56  002  0 

xch  q 

0012  REF 

15  LAST  285 

5415 

54  077  0 

1 S RUPTREG4 

00 1 3 

REF 

5 LAST  366 

5416 

11*363  1 

CCS  FAILREG 

5EE  IF  ONE  FAILURE  HAS  OCCURRED  SINCE 

ACO 14 

the  last  error  reset. 

0015  "" 

“ ref 

1 

5417 

0 5425  1 

TC  MUlTFAIl 

YE5  - INDICATE  MUlTIPlE  FAILURES. 

"'0016 

REF 

1 

5420 

0 5430  0 

TC  NEWALARM^ 

FIRST  SINCE  RESET. 

MULTEXlT  CA.  RUPTREG4 

0017  ' 

REF 

1 6 LAST  366 

5421 

3 0077  1 

FREE  RUPTREG4  BEFORE  RELINT . 

0018 

5422 

0 0003  1 

RELINT 

0019 

Rs.F 

232  LAST  360 

5423 

50  000  1 

INDEX  A 

0020 

5424 

0 0001  0 

TC  1 

RETURN  TO  CA|_LER. 

0021  REF  3 LAST  141  5425  6 6042  1 MJLTFAIL  AD  0CT40001  BIT  15  = 1 INDICATES  MULTIPLE  FAILURES. 

0022 — REF 6 LAST  366  5426  55*363  I-'  TS  FAILREG 

0023  REF  I 5427  0 5421  0 TC  MULTEXlT 


0024  REF  I~~  5430  0 5440  1 NEWALARM  TC  PROGLARM  TURN  ON  THE  PROGRAM  ALARM  LIGHT, 


0025 

REF  2 LAST  153 

5431 

3 4535  0 

CAF 

PR  1 037 

0026 

" REF  17  LAST  364 

5432 

0 4363  0 

TC 

NOVAC 

0027 

5433 

02773  C ' 

■"ZGAUR- 

"DOALARM"  — CALL  (SEPARATE)  JOB  FOR  DISPLAY', 

C0027 

REF  2 LAST  153 

5434 

02002  1 

0028 

REF  17  LAST  366 

5435 

50  077  1 

INDEX 

RUPTREG4 

0029 

3 0000  1 

CAF 

- 0 

0030 

REF  2 LAST  366 

5437 

0 5426  1 

TC 

MULTFAIL  +1 

~ 0031 

REF 

1 

5440 

4 54  45^0 

PROGLARM  CS 

OCT 40400 

TURN" OR  PROGRAM  ALARFT  LIGHT  VIA  OUTO, 

0032 

REF 

36 

LAST  364 

5441 

7 0322  0 

MASK 

DSPTAB  + 1 ID 

0033 

REF 

2 

LAST" 366 

5442 

6 5445  1 

AD 

0CT40400 

0034 

REF 

37 

LAST'S  6 6 

54"43 

54  322  C 

TS" 

CrSPTAB  +1  ID 

0035 

REF 

237 

LAST  366 

5444 

0 0002  0 

TC" 

Q> 

"0036  5445  40400  1 OCT4040O  OCT  40400 
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L 

ALARM  AND  ABORT 

USER'S  OWN  PAGE  NO.  2 

POO  37 

the  following 

routine  IS  galled  to  initiate  an 

ABORT.  FAILREG 

IS  SET  (ACCORDING  TO  THE  MULTIPLE 

R0039 

“FAILURES  CONVENTION)  AND  A RE-START  IS  INITIATED 

BY  TC- 

SELF.  THIS  IS  CALLED  ONLY  UNDER  RARE  CIRCUMSTANCES. 

0041 

5446  0 OOOA  0 ABORT 

INHINT 

MAY  BE  CALLED  IN  INTERRUPT  OR  UNDER  EAEC 

0042 

“ “REF" 

238  Last  366 

5447  50  002  0 

INDEX 

Q 

pick  up  Failure  code. 

0043 

5450  3 0000  1 

CAF 

0 

0044 

REF 

45  LAST  279 

5451  54  065  0 

TS 

I TEMP  1 

0045 

REF 

7 LAST  366 

5452  1 1 ' 363  1 

CCS 

FAILREG 

SEE  IF  THIS  IS  A MULTIPLE  FAILURE. 

0046 

REF 

1 

5453  0 5456  0 

TC 

SETMULTF 

SET  BIT  15  TO  INDICATE  YES. 

0047 

' REF 

“"  1 

5454  0 5460  0 

TC 

newabort 

first  failure. 

0048  REF  1 5455  0 5455  0 WHIMPER  TC  WHIMPER  NOT  WITH  A BANG... 


0049  REF  4 LAST  366  5456  6 6042  1 SETMULTF  AD  0CT40001  RESTORE  AND  SET  BIT  15. 

0050  5457  P“5462  1 TC  43 


0051  REF  2 LAST  366  “5460  0 5440  1 ~ NEWABORT  TC““  PROGLARM  FIRST  FAILURE  - TURN  ON  ALARM  LIGHT, 

0052  REF  46  LAST  367  5461  56  065  1 XGR  ITEMP1 

0053  REF  8 LA5T  367  5462  55»363“T  +3  TS  FAl'LRES”" 

0054  REF  2 LAST  T6T^  5463  0 5455  0 TC  IffllMPER  -UNIVERSAL  ABORT  LOCATION* 

00"55  REF  239  LAST  367  5464  56  002  0 CCSHOLE  j<CH  Q 

0056  REF  3 LAST  300  5465  55*364  0 TS  SFAIL 


0057  REF  “IO“lAST  362  5466  0 5446”!  TC  ABORT 

0058  5467  01103  1 OCT  1103 


0069  5470  ENDFAILF  EQUALS 


~ R0060"  JOB  WHICH  CALLS  NVSJ3  FOR  ALARM  DISPLAY. 


0061  REF  1 01*2773  ' SETLOC  ENDWAITS 


‘ 0062 

REF 

10  LAST  276 

01,2773 

0 5317 

1 

DOTAL  A RN  TC 

GRABWAIT" 

DISPLAY  FAILREG. 

0063 

REF 

1 

01,2774 

3 2777 

1 

“ CAF 

FAILDISP 

0064 

REF 

22  LA5l  278 

01,2775 

0 5332 

0 

TC 

NVSBWAIT 

0065 

Kfcr 

7 LABI  278 

01*2776 

0 4437 

0 

TC 

EJFREE 

FREE  DISPLAY  AND  END  JOB, 

0066 

01,2777 

00531 

(J 

FAILDISP  OCT 

005  3 1 

0067  01.3000  ENDFAIL5  EQUALS 


r- 
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l controller  and  meter  routines  user's  own  page  no%  a 

0001  REF  1 ~ 11*3264  SETLOC  ENDEXTVS 

0002  REF  3 LASTTvT  ” E6  ESANK=  PCOM 


0003 

" REF"  30  LAST" 364 

11*3264 

3 7641 

0 

RHCNTRL  CAF  BIT15 

0004 

11*3265 

0 0006 

1 

EXTEND 

0005 

11*3266 

02  031 

1 

RAND  31 

CHECK 

PGNCS  CONTROL  OF  S/C 

WO  6 

11.3267 

0 0006 

1 

EXTEND 

000? 

11.3270 

T 3272 

1 

3ZF  +2 

0008 

REF  1 

11.3271 

1 3353 

0 

TCF  NORATE 

0009 

""  REF“  14  LAST  337 

11,3272 

3 7655 

0 

CAF  BIT3 

“0010 

11.3273 

0 0006 

1 

“Extend 

“0011 

11.3274 

02  031 

1 

RAND  31 

CHECK 

OUT-OF-DETENT  BIT 

0012 

REF  233  LAST  366 

11,3275 

10  000 

0 

CCS  A 

"""0013 

REF  2 LAST  368 

11.3276 

1 3353 

0 

TCF  NORATE 

0014  REF 

137  LAST 

362 

11.3277 

3 7665  0 

CAF  ZERO 

ZERO  COUNTERS 

“0015  REF 

1 

1 i ,3300 

54  042  0 

TS  RHCP 

0016  REF 

1 

11,3301 

54  043  1 

TS  RHCY 

0017  REF 

1 

11,3302 

54  044  0 

TS  RHCR 

”0018  REF” 

19”L"AST 

249 

11,3303 

3 7650  0 

CAT  BIT8 

ENABLE  COUNTERS 

0019  REF 

10  LAST 

249 

11,3304 

6 7647  0 

AD  B I T9 

START  READING  INTO  COUNTERS 

0020 

11.3305  0 0006  1 

EXTEND 

0021 

11,3306 

05  013  0 

WOFT  is 

0022  REF" 

12  LAST 

361 

11,3307 

3 7653  0 

CAF  BITS 

"0023  REF 

38  LAST 

363 

11,3310 

0 4536  0 

TC  WAITLIST 

COUNTERS  FILLED 

0024 

11,3311 

03314  1 

"2CADR  ATTCONT 

C0024  REF 

1 

11,3312 

22006  1 

0025  REF 

30  LAST 

364 

11,3313 

0 4602  1 

TC  TA5K0VER 

UU26  REF 

20  LA51 

368 

11,3314 

4 7650  1 

ATTCONT  CS  BITs 

0027 

11,3315 

0 0006  1 

EXTEND 

AJ028 

11,3316 

03  013  0“ 

WARD  13 

RESET" "COUNTER"  ENAB1LE 

0029  REF 

25  LAST 

338 

11,3317 

3 7645  1 

CAF  BIT11 

0030 

11,3320 

0 0006  1 

EXTEND 

"0031 

11,3321 

02  032  1 

RAND  32 

CHECK  IF  TIN  ATTITUDE  HOLD  MODE 

OO32 

11,3322  0 0006  1 

EXTtND 

OO33 

11,3323 

1 3325  1 

3ZF  +2 

0034  REF 

“T  " 

11,3324 

0 3343  0 

TC  XAXOVRD 

OO35  REF 

2 LAS  1 

368 

11,3325 

3 0042  1 

CA  RHCP 

0036 

11,3326 

0 0006  1 

EXTEND 

0037  REF 

32  LA  5 T 

364 

rr,3327 

7 7646  0 

MP  BIT10 

OO38  REF 

1 

11,3330 

3 3360  1 

CAF  RHCSCALE 

0039 

11,3331 

0 0006  1 

EXTEND 

0040  RcF 

88  LAST 

"360 

11,3332 

7 0001  X 

MP  L 

0041  REF 

4 LAST 

368 

11  f 3 3 3 3 

55*435  0 

TS  PCOM 

0042  REF 

2 LAST 

368 

11, 3334 

3 0044  1 

CA  RHCR 

0043 

11,3335 

0 0006  1 

EXTEND 

0044  REF 

33  LASl 

368 

11,3336 

7 7646  0 

MP  BIT10 

0045  RtF 

2 LAST 

368 

11,3337 

3 3360  1 

CAF  RHCSCALE 

0046 

11,3340 

0 0006  I~ 

EXTEND  " 

I 
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L 

CONTROLLER  AND  METEr 

routines 

USER'S  own  page  no. 

2 

0047 

REF 

89 

LAST  368 

11.3341 

7 0001  1 

MP 

L 

0048 

REF 

1 

Tl  *3342 

55*436  0 

TS 

RCQM 

0049 

REF 

2 

EAST  368 

11,3343 

3 0043  0 

XAXOVRD 

CA 

RHCV 

YAW  CHANNEL  ONLY  IN  , 

AUTO  MODE 

0050 

11,3344 

0 0006  1 

EXTEND 

0051 

RTF 

34 

LAST  368 

11,3345 

7 7646  0 

vip 

BIT10 

0052 

REF 

3 

LAST  368 

11,3346 

3 3360  1 

CAF 

RHCSCALE 

0053 

11,3347 

0 0006  1 

EXTEND 

71054 

REF 

90 

LAST  369 

11,3350 

7 0001  1 

vtp 

L 

OO55 

REF 

I 

11,3351 

55  *437  1 

TS 

YCOM 

0056 

REF 

2 

LAST  275 

11,3352 

1 3264  0 

TCF 

RHCNTRL 

0057 

REF 

138 

LAST  368 

11,3353 

3 7665  0 

NORATE 

CAF 

ZERO 

SET  RATE  COMMANDS  TO 

ZERO 

0058 

RtF 

5 

LAST  368 

11,3354 

55'435  0 

TS 

PCOM 

0059 

~ REF 

Z 

LAST  369  “ 

11,3355 

55*436  0 

TS 

RCOM 

0060 

ref 

2 

LAST  369 

1 1 ,3356 

55*437  1 

TS 

YCOm 

0061 

REF 

31 

LAST  368 

11,3357 

0 4602  1 

TC 

TA5K0VER 

0062 

11,3360 

16171  1 

RHCSCALE 

DEC 

•44488 

LEAVES  INPUTS  SCALED 

AS  PI/4  RAD/SEC. 

0063 

1 1 ,3361 

endcms 

equals 

f 


f 


473423A  YJL  S Y S T EM  FOR  BLK2 { REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NO\/  10,  1966  (MAIN } PAGE  370 


l down-telemetry  program 


USER'S  OWN  PAGE  NO. l 


0001  15.2000  _ _ SANK  ~"~15 

0002  REF  2 LAST  28  E7 EBANK-  DNTMSUFF 


0003  15.2000  00437  1 LOWTQCOD  OCT  00437 FOP'S  CHOICE. 

R 0 0 04  ""S^CTAE'DQWffl-TNK  LIST  FOfT~ AGS  INTtTALIzATION.  MU5T  BE  IN  LOCATION  2001  OFHPqWNLTNK  FBANK, 


0006 

REF 

7 LAST  286 

15.2001 

00342  1 AGSLI5T 

ecadr 

UPLOCK 

0007 

REF 

7 LAST  281 

15.2002 

00025  0 

ECAOR 

TIME1 

0008 

REF 

10  LAST  357 

15.2003 

00024  1 

ECADR 

TIME2 

0009 

REF 

6 LAST  272 

15,2004 

00412  0 

ECADR 

AGSWORD 

0010 

REF 

1 

15,2005 

03602  0 

ecadr 

AgSBUFF  +27D 

0011 

REF 

2 LAST  370 

15,2006 

03601  0 

ecadr 

AGSBUFF  +26D 

0012 

REF 

3 LAST  370 

15,2007 

0*3600  1 

ecadr 

AGSBUFF  +25D 

0013 

REF 

4 LAST  370 

15,2010 

03577  1 

ECADR 

AGSBUFF  +24D 

0014 

REF 

7 LAST  370 

15.2011 

00412  0 

ECADR 

AGSWORD 

0015 

* REF" 

5 LAST  370 

15,2012 

03576  0 

ECADR 

AGSBUFF  +23D 

0016 

' REF 

6 LAST  370 

15.2013 

03575  0 

ecadr 

AGSBUFF  +22D 

0017 

REF 

7 LAST  370 

15,2014 

03574  1 

ECADR 

AGSBUFF  +2  ID 

“00*18 

REF 

8 LAST  370 

15,2015 

03573  0 

ECADR 

AGSBUFF  +20D 

0019 

REF 

8 LAST  370 

15,2016 

00412  0 

ECADR 

AGSWORD 

0020 

REF 

9 LAST  370 

15,2017 

03572  1 

ecadr 

AGSBUFF  .19D 

TJ021 

REF 

10  LAST'  370 

1*5,2020 

03571  1 

ecadr 

AGSBUFF  +18D 

0022 

REF 

11  LAST  370 

15,2021 

03570  0 

ecadr 

AGSBUFF  +17D 

0023 

*REF 

12  LAST  370 

15,2022 

03567  0 

ecadr 

AGSBUFF  +16D 

0024 

REF 

9 LAST  *370 

15,2023 

00412  0 

ecadr 

AGSWORD 

0025 

REF 

13  LAST  370 

15,2024 

03566  1 

ecadr 

AG5BUFF  +15D 

0026 

REF 

14  LAST  370 

15,2025 

03565  1 

ecadr 

AGSBUFF  +14D 

^0027 

"KEF 

~I5  LAST  370 

15,2026* 

03564  0 

ECADR 

AGSBUFF  +13D 

0028 

RcF 

1 6 LAST' 370 

15,2027 

03563  1 

ecadr 

AGSBUFF  +12D 

0029 

REF 

10  LAST  370 

15,2030 

00412  0 

tCADR 

AGSWORD 

0030 

RcF 

T*T  LA5T  3*70  * 

15,2031 

*03562“0 

ECADR 

AGSBUFF  +1  ID 

0031 

REF 

1 8 LAST  370 

15,2032 

03561  0 

ECADR 

AGSBUFF  +10D 

0032 

REF 

19  LAST  370 

15,2033 

01560  0 

4DRES 

AGSBUFF  +9D 

0033 

REF 

ZTTLA5T  370 

15,2034 

01557  r* 

ADRES 

AGSBUFF  +8D 

0034 

RcF 

ll  LAST  370 

15,2035 

00412  0 

ADRES 

AGSWORD 

0035 

REF 

21  LAST  370 

15,2036 

01556  0 

ADRES 

AGSBUFF  +7 

0036 

RtF 

"2 Z LAST  370 

15,2037 

* 01555  0 

ADRES* 

AGSBUFF  +6 

0037 

REF 

23  LAST  370 

1 5 ,2040 

01554  1 

ADRES 

AGSBUFF  +5 

0038 

REF 

24  LAST  370 

15 ,2041 

01553  0 

ADRES 

AGSBUFF  +4 

0039* 

REF 

*12  LAST*  370 

T5 ,2042 

* 004*12  0 

ADRES" 

AGSWORD"" 

0040 

RcF 

25  LAST  370 

15,2043 

01552  1 

ADRE5 

AGSBUFF  .3 

0041 

RcF 

26  LA5T  370 

15,2044 

01551  1 

ADRES 

AGSBUFF  t2 

*0042 

REF 

27  LAST  370 

1*5 , 2 0 4 5 

0155  (0  0 

AGSBUFF  + 1 

0043 

RcF 

28  LAST  370 

i 5 ,2046 

01547  0 

ADRES 

AGSBUFF 

473423A  YJL  SYSTEM  FOR  BLK2:  REVISION.  j2  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  lQ,  1966  (MAIN)"  PAGE  37l 


L DOWN-TELEMETRY  PROGRAM  _ __  ~ __  USER »S  OWN  PAGE  NO.  2 

R0044.  T A 1 5 ROUTINE  IS  iNlTlT ATED  EVERY  20  MS  BY  AN  INTERRUPT  TR I GGERED 

R00A6  by  the  receipt  otwinopulse  from  the  spacecraft  telemetry  programmer. 


0047 

REF 

3 

LAST 

286 

15 

*2047 

54  016 

1 

DODOWNTM 

TS 

BANKRUPT 

DO  APPROPRIATE  TM  PbASE. 

0048 

REE 

4 LAST  158 

15 

.20  50 

51*401 

0 

INDEX 

DNTMGOTO 

0049 

15 

*2051 

1 0000 

0 

TCF 

0 

OO5O 

REF 

5 

LAST 

272 

15 

*2052 

3 0411 

0 

DNPHASEl 

CA 

DNLSTADR 

ONCE  PER  CYCLE  (1  SECOND),  AN  ID  IS  SENT 

0051 

REF 

1 

15 

.2053 

55*400 

0 

TS 

ldatalst 

AND  THE  DATA  LIST  SWITCHED  TO  THAT 

0052 

REF 

17 

LAST 

359 

15 

,2054 

7 6426 

0 

MASK 

L0W10 

SELECTED  BY  A MISSION  OR  TEST  PROGRAM, 

0053 

15 

.2055 

0 0006 

1 

extend 

0054 

REF 

1 

15 

,2056 

01  034 

1 

WRITE 

DNTM1 

0055 

REF 

22 

LAST 

364 

15 

.2057 

4 7651 

0 

cs 

BIT7 

WORD  ORDER  BIT  IS  0 FUR  ID  OWRD  ONLY. 

0056 

15 

.2060 

0 0006 

1 

EXTEND 

0057 

15 

,2061 

03  013 

0 

WAND 

13 

0058 

REF 

1 

15 

,2062 

3 2212 

1 

CAP 

LDNPHAS2 

SWITCH  TO  PHASE  2, 

0059 

REF 

5 

LAST 

371 

15 

,2063 

55*401 

1 

TS 

DNTMGOTO 

0060 

REF 

1 

15 

,2064 

3 2000 

0 

CAF 

LOW  I DCOD 

SPECIAL  ID  CODE  IN  L. 

0061 

REF 

1 

15 

,2065 

1 2151 

1 

TCF 

TMEXITL 

REF 

23 

LAST 

371 

15 

*2066 

~X"765l 

"1 

DNPHASE2 

0062 

CAF 

BIT7 

SET  WORD  ORDER  BACK  TO  1 FOR  REMAINDER 

0063 

15 

,2067 

0 0006 

1 

EXTEND 

OF"  CYCLE  AND  SET  UP  TO  PICK  UP  12  PAIRS 

0064 

15 

♦ 2070 

05  013 

0 

WOR 

13 

FROM  ANYWHERE  IN  COMMON  ERASABLE  OR  E7. 

0065 

REF  139 

LAST  369 

15 

,2071 

3 7665 

0 

CAF 

ZERO 

0066 

RcF 

47 

LAST 

367 

15 

,2072 

54  065 

0 

TS 

ITEMP1 

TAKE  SNAPSHOT  OF  12  DP  WORDS, 

0067 

REF 

5 

LAST 

363 

1 5 

,2073 

3 7661 

1 

CAF 

TEN 

0068 

REF 

18 

LAST 

279 

15 

,2074 

54  066 

0 

LOOP 

X5 

ITEMP2 

THESE  12  DP  WORDS  ARE  READ  INTO  AN 

0069 

REF 

2 

LAST 

371 

15 

,2075 

6 1400 

1 

AD 

LDATALST 

INTERMEDIATE  BUFFER  SO  THEY  REFER  TO  THE 

GOTO 

15 

,2076 

0 0006 

■I 

EXTEND" 

SAME  POINT  IN  THE  EXECUTION  OF  ATTISSION 

0071 

REF 

234 

LAST 

363 

15 

,2077 

5 0000 

1 

INDEX 

A 

PROGRAM,  THE  WORDS  MAY  BE  IN  NON- 

0072 

15 

,2100 

5 0032 

0 

INDEX 

26D 

0073 

15 

,2101 

3 ooor 

0 

"OCA 

0 

12  OF  "THE  DATA  LIST  ARE  U5ED  AS 

0074 

REF 

43 

LAST 

371 

1 5 

,2102 

50  065 

1 

INDEX 

ITEMP1 

ADDRESSES  OF  THE  DESIRED  DATA. 

OO75 

REF 

3 

LA5l 

370 

15 

,2103 

53*404 

1 

DXCH 

DNTMBUFF 

uu  lb 

RtF 

49 

LAS] 

360 

15 

,2  lu4 

3 7656 

0 

CAF 

TWO 

OO77 

REF 

49 

LAST 

371 

15 

,2105 

26  065 

0 

ADS 

ITEMP1 

0078 

RtF 

19 

LAS  1 371 

15 

,2106  10  066 

"0 

CCS 

ITEMP2 

OO79 

REF 

1 

15 

,2107 

1 2074 

1 

TCF 

LOOP 

UU8U 

Ktr 

1 

15 

,2110 

3 2220 

"0~" 

CAF 

'TJEC'll 

"SET  UP  TO  5LND  11  REMAINING  WORDS 

0081 

REF 

1 

15 

,2111 

55*402 

r 

TS 

TM  INDEX 

0082 

KcF 

1 

15 

*2112 

3 2213 

0 

CAF 

LDNPHASX 

0083 

ref 

6 

last 

"371 

15 

,2113 

55*401 

1 

TS 

DNTMGOTO 

U084 

371 

15 

15- 

,2114 

0 0006 

1 

EXTEND 

0085 

REF 

J UMO  1 

,2115 

5 1400 

"T 

INDEX 

LDATALST — 

473423A  YJL  SYSTEM  FOR  BLK2?  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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c 

nOwN 

-TELEMETRY  PROGRAM 

USER'S  OwN  dAgE  NO,  3 

0086 

15*2116 

5 0045 

0 

INDEX 

37D 

0087 

15*2117 

3 0001 

0 

DCA 

0 

0088 

REF 

1 

15*2120 

1 2146 

1 

TCF 

dntmexit 

0089 

REF 

2 

LAS  f 

371 

15*2121 

55*402 

1 

DNPHASXA  TS 

TMINDEX 

0090 

15,2122 

0 0006 

1 

Extend 

0091 

~~REF 

235 

LAST 

371 

15,2123 

5 0000 

1 

INDEX 

A 

SENDS  SNAPSHOT  BUFFER, 

0092 

REF 

15*2124 

5 2230 

1 

INDEX 

FI  XL  I STB 

0093 

15*2125 

3 0001 

0 

DCA 

0 

0094 

REF 

2 

LAST 

372 

15,2126 

1 2146 

1 

TCF 

DNTMEXIT 

0095 

REF 

3 

LA5T 

372 

15*212? 

11 '402 

1 

DNPHABtX  CCS 

TMINDEX 

AT  END  OF  SNAPSHOT  TRANSMISSION*  SET  UP 

~ 0096 

REF 

r 

15,2130 

1 2121 

0 

TCF 

dnphasxa 

TO  SEND  26  PRS  FROM  ANY  ERASABLE  l°C  AS 

0097 

REF 

1 

15,2131 

3 2214 

1 

CAF 

LDNPHAS3 

SPECIFIED  BY  WORDS  1 - 26  OF 

THE 

DATA 

0098 

REF 

7 LAST  371 

15,2132 

55*401 

r 

TS 

DNTMGOTO 

LIST. 

0099 

“ R EF 

1 

15*2133 

3 2217 

1 

CAF 

NOGENWDS 

0100 

REF 

4 LAST  372 

15*2134 

55*402 

1 

PHASE3A 

T 5 

TMINDEX 

GET  DP  WORD  FROM  ANY  EBANK, 

0101 

REF 

4 LAST  371 

15*2135 

6 1400 

1 

AD 

ldatalst 

0102 

15*2136 

0 0006 

1 

EXTEND 

0103 

REF 

236  LAST  372 

15*2137 

5 0000 

1 

INDEX 

A 

0104 

15*2140 

3 OOO  l 

“0“ 

ODC  A 

0 

THIS  GETS  THE  ADDRESS  - MUST 

USE 

TDC7T  " 

0105 

REF 

16  LAST  355 

15,2141 

54  003 

0 

T 5 

EbANK 

0106 

~ REF 

6 LAST  355 

15,2142 

7 5235 

1 

MASK 

LOWS 

0107 

15,2143 

0 0006 

1 

"Extend 

0108 

REF 

237  LASl  372 

15,2144 

5 0000 

1 

index 

A 

0109 

15,2145 

3 1401 

0 

DCA 

3400 

(NOTE  ASSEMBLY  AS  DCA  1900) 

0110 

15,2146 

0 0006 

~T 

DNTMEXIT 

GENERAL  DNTM  EXIT  LOCATION. 

0111 

REF 

2T  LA5T  371 

15,2147 

01  034 

1 

WRITE 

DNTMl 

0112 

T?EF 

91  LAST  369 

15,2150 

3 0001 

0 

CA 

L 

0113 

15,2151 

0 0006 

1 

TIMEX  I TL 

"EXTEND 

0114 

REF 

1 

15,2152 

01  035 

0 

WRITE 

DNTM2 

0115 

RcF 

2 LAST  28 

15,2153 

1 4610 

0 

TCF 

NOQRSM 

U 1 1 6 

KEF 

5 LA5 F 372 

15*2154 

11*402 

1 

DNPHASE3 

CCS 

TMINDEX 

0117 

REp 

1 

15,2155 

1 2134 

1 

TCF 

PHASE3A 

urra  ref  r 15,2156  3 2215  0 ~caf"  tdnphasz, send  fixed  format  list  of  dsptab  and 

0119  REF  8 CAST  372 15, 2157 “ 55*401  1 TS DNTMGOTO T2,Tl . 

^TZO  RTF  12  CAST  326 15*2160 — 3~6'162  1 CAF SIX — 


0121 

" REF 

6 

LAST 

372 

15,2161 

55*402  1 

PHA5E4A  TS 

TfflTNDEX 

0122 

15,2162 

0 0006  1 

EXTEND 

FIXED  DATA  CIST  FOR  D5PTAB  ATND  TIME. 

0X23 

REF 

238 

LAST 

372 

15,2163 

5 0000  1 

INDEX 

A 

0124 

REF 

1 

15,2164 

5 2221  1 

INDEX 

FIXLIST 

012  5 

15,2165 

3 0001  0 

DCA 

0 

0126 

REF 

3 

LAST 

372 

15,2166 

1 2146  1 

TCF 

DNTMEXIT 

473423A~TJL  SYSTEM  FOR  BLK2l"REV ISION  12  OF  PROGRAM  AURORA  BY  D AP  GROUP 


NOV  10*  1966  (MAIN)  PAGE  373 


L 

DOWN 

-TELEMETRY  PROGRAM 

USER*S  OWN  PAGE  NO,  4 

0127 

REF 

7 

LAST  372 

15,2167 

11*402  1 

DNPHASE4 

CCS 

TMINDEX 

Hi  2 8 

REF 

1 

15*2170 

1 2161  1 

TCP 

PHASE4A 

0129 

REF 

1 

15,2171 

3 2216  0 

CAF 

LPHASE5 

SET  UP  FOR  CHANNEL  TRANSMISSION. 

0130 

REF 

9 

LAST  372 

15,2172 

55*401  1 

TS 

DNTMGOTO 

0131 

REF 

11 

LAST  332 

15,2173 

3 6165  0 

CAF 

THREE 

FOUR  PAIRS  OF  CHANNELS. 

0132 

REF 

8 

LAST  373 

15,2174 

55 ' 402  1 

PHASE5A 

TS 

TMINDEX 

0133 

15*2175 

0 0006  1 

EXTEND 

0134 

REF 

239 

LAST  372 

15,2176 

5 0000  1 

index 

A 

0135 

REF 

1 

15,2177 

5 2247  1 

INDEX 

FIXLSTCL 

0136 

15*2200 

00  000  1 

READ 

0 

0137 

REF 

92 

LAST  372 

15,2201 

54  001  1 

TS 

L 

0138 

15,2202 

0 0006  1 

EXTEND 

0139 

REF 

9 

LAST  373 

15,2203 

5 1402  0 

INDEX 

TMINDEX 

OHO 

REF 

1 

15,2204 

5 2243  0 

INDEX 

FIXLSTCA 

0141 

15,2205 

00  000  1 

READ 

0 

0142 

REF 

4 

LAST  372 

15,2206 

1 2146  1 

TCF 

DNTMEXIT 

0143 

REF 

LAST  373 

15*2207 

11*402  1 

DNPHASE5 

CCS 

TMINDEX 

0144 

ref 

l 

15,2210 

1 2174  0 

TCP 

PHASE5A 

0145 

REF 

2 

LAST  158 

15,2211 

1 2052  0 

TCF 

DNPHASE 1 

5TART  NEXT  CYCLE. 

C 


tr 
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L DOWN-TELEMETRY  PROGRAM  ~~  _ USER'S  OaN  PAGE  NO#  5 

PQ146  CONSTNATS  AND  FIXED  FORMAT  DATA  LIST. 


0147 

REF 

1 

15*2212 

020&6  0 

LDNPHAS2 

ADRES 

DNPHA5E2 

0148 

REF 

1 

15*2213 

02127  1 

LDNPhAsX 

ADRE5 

DNPhAsEX 

0149 

REF 

1 

15*2214 

02154  0 

LDNPHAS3 

ADRES 

DNPHASE3 

0150 

REF 

1 

15*2215 

02167  0 

LDNPHAS4 

ADRE5 

DNPHASE4 

0151 

REF 

1 

15*2216 

02207  0 

LPHASE5 

ADRES 

DNPHA5E5 

0152 

15,2217 

00031  0 

NOGENWDS 

DEC 

25 

26  WORDS  SENT  DURING  PHASE  3. 

0153 

15,2220 

00013  0 

DEC11 

DEC 

11 

0154 

“REF  “ 

11  LAST  370 

15*2221 

00024  1 

FI XL I ST  ADRES 

TIME  2 

FIXED-FORMAT  PORTION  INCLUDES  BUFFER, 

“0155 

REF 

38  LAST  366 

15,2222 

00321  1 

ADRES 

DSPTAB  +1QD 

DSPTAB,  AND  TIME. 

0156 

RtF 

39  LAST  374 

15*2223 

00317  1 

ADRES 

DSTTAB  +8D 

0157 

REF 

40  LAST  374 

15,2224 

00315  0 

ADRES 

DSPTAB  +6 

0158 

REF 

41  LAST  374 

15,2225 

00313  0 

ADRES 

DSPTAB  +4 

“1159 

RcF' 

42  LAST  374 

15,2226 

00311  1 

ADRES 

DSPTAB  +2 

“0160 

REF 

43  LAST  374 

15,2227 

00307  0 

ADRES 

DSPTAB 

0l6l 

REF 

4 LAST  371 

15,2230 

01427  1 

F1XLISTB  ADRES 

DNTMBUFF  + 20D 

0162 

RtF 

5 LAST  374 

15,2231 

01425  0 

ADREs 

DimTMBUFF  +18D 

0163 

REF 

6 LAST  374 

15,2232 

01423  0 

ADRES 

DNTMBUPH  ♦ 1 6^ 

1164 

lEI 

7 LAST  374 

15,2233 

01421  r 

ADRES 

“DNTMBUFF  +14D 

“0165 

REF 

8 LAST  374 

15,2234 

01417  1 

ADRES 

DNTMBUFF  +12D 

0166 

RtF 

9 LAST  374 

15,2235 

01415  0 

ADRES 

DNTMBUFF  +10D 

0167 

'REF 

10  LAST  374 

15,2236 

01413  0 

ACRES 

DNTMBUFF  +8D 

0168 

REF 

11  LAST  374 

15,2237 

01411  1 

ADRES 

DNTMBUFF  +6D 

0169 

REF 

12  LAST  374 

15,2240 

01407  0 

ADRES 

DNTMBUFF  +4D 

OTTO 

“REF 

T3  LAST  374 

1 5 ,2241 

014051 

ADRES 

“1NmBUFF“  +2D 

0171 

RtF 

14  LAST  374 

15,2242 

01403  1 

ADRES 

DNTMBUFF 

Cl  7 2 

0173 

0174 
~0T75“ 


15 

15 

15 


2243 

2244 

2245 


15 


000321 
00030  1 
00013  0 

loom 


FIXUSTCA  DOT 
OCT 
OCT 
"OCT 


32 


30 

13 


CHANNEL  ADDRESSES, 


2246 


IT 


0176 

0177 


15 

15 

15 

15 


2247 

2250 

2251 

2252 


00033  1 
00031  0 
OOOI4—  1 
00012  r 


FIXL5TCL  OCT 
OCT 
OCT 
OCT 


33 


— 0TT6 
0179 


TT 


14 

12 
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L DOWN-TELEMETRY  PROGRAM-  . \ \r  _ _ __  _ USER'S  OWN  PAGE  NO.  6 


P0180  SPECIAL  DATA  LIST  FD*  hUl QH;  SPEED  RADAR  SAMPLiNG.  TELEMETERS  TABLE  OF  12  MEASUREMENTS  OF  5 WORDS  EACH 

~~E0X82  DAtA'IN- WORDS  1 & 2»  RR  CPU  ANGLES  IN  3 & At  AND  TIME  1 IN  5, 


0183 

REF  8 LAST  370 

15,2253 

00342  1 

FSTRADTM  ECADR 

UPLOCK 

0134 

REF  3 LAST  269 

15,2254 

03436  0 

ECADR 

rfailcnt  counts  bad  samples. 

0185 

REF  18  LAST  353 

15,2255 

03545  0 

ecadr 

RSTACK  + 70D 

0186 

REF  19  LAST  375 

15 ,2256 

03543  0 

ECADR 

RSTACK  + 68D 

OIF? 

REF  20  LAST  375 

15,2257 

03541  1 

ECADR 

RSTACK  + 66D 

0188 

REF  21  LAST  375 

15,2260 

03537  0 

ecadr 

RSTACK  + 64D 

0189 

REF  22  LAST  375 

15,2261 

03535  1 

ECADR 

RSTACK  +620 

” 0190  ~ 

" R"EF  23  LASr  375 

15,2262 

03533  1 

ecadr 

RSTACK  +60D 

Olgl 

REF  24  LAST  375 

15,2263 

03531  0 

ECADR 

RSTACK  +58D 

0192 

REF  25  LAST  375 

15,2264 

03527  1 

ecadr 

RSTACK  +56D 

0193 

REF  26  LAST  375 

15,2265 

03525  0 

ecadr 

RSTACK  +54D 

0194 

REF  27  LAST  375 

15,2266 

03523  0 

ecadr 

RSTACK  +52D 

0195 

R^F  28  LAST  375 

15,2267 

03521  1 

ecadr 

RSTACK  +50D 

~ 0196  " 

REF  29  LAST  375 

15,2270 

03517  1 

ecadr 

RSTACK  +48D 

0197 

REF  30  LAST  375 

15,2271 

03515  0 

ecadr 

RSTACK  +46D 

0198 

RzF  31  LAST  375 

15,2272 

03513  0 

ecadr 

RSTACK  +44D 

GTT99 

"FEF  32  LAST  375 

15,2273 

035  IT  1 

ecadr 

RSTACK  +420 

0200 

REF  33  LAST  375 

15,2274 

03507  0 

ecadr 

RSTACK  +40D 

0201 

REF  34  LAST  375 

15,2275 

03505  1 

ecadr 

RSTACK  +38D 

0202 

REF  35  LAST  375 

15,2276 

03503  I 

ecadr 

RSTACK  +36D 

0203 

REF  36  LAST  375 

15,2277 

03501  0 

ecadr 

RSTACK  +34D 

0204 

REF  37  LAS  f 375 

15,2300 

03477  0 

ecadr 

RSTACK  +32D 

0205 

RcF  38  LAST  373 

15,2301 

"03475  1 

ECADR 

RSTACK  +30D 

0206 

RcF  39  LA5T  375 

15,2302 

03473  1 

ECADR 

RSTACK  +28D 

0207 

REF  40  LAST  375 

15,2303 

03471  0 

ECADR 

RSTACK  +26D 

0208 

REF  41  LAST  375 

15,2304 

03467  T 

ECADR  “ 

RSTACK  +24D 

0209 

REF  42  LAST  375 

15,2305 

01465  1 

ADRES 

RSTACK  +22D 

0210 

REF  43  LAST  375 

15,2306 

01463  1 

ADRES 

RSTACK  +20D 

0211 

REF  44  LAST  3T5 

1 5 , 23U7 

“01461  7 r 

ADRES 

RSTACK  +18D 

0212 

REF  45  LAST  375 

15,2310 

01457  0 

ADRES 

RSTACK  +16D 

0213 

REF  46  LAST  375 

15,2311 

01455  1 

ADRES 

RSTACK  +14D 

0214" 

REF  4?  LAST  375 

15,2312 

01453  I 

ADRES 

RSTACK  + 1 2D 

0215 

REF  48  LAST  375 

1 5 , 2 3 1 3 

01451  0 

ADRES 

RSTACK  +10D 

0216 

REF  4g  LAST  375 

15,2314 

01447  1 

ADRES 

RSTACK  +8D 

0217 

REF  ~50  LAST  375 

1 5 , 23 1 5 

01445  0 

ADRES 

RSTACK  +6 

0218 

REF  51  LAST  375 

15,2316 

01443  0 

ADRES 

RSTACK  +4 

0219 

REF  52  LAST  375 

15,2317 

01441  1 

ADRES 

RSTACK  +2 

0220 

REF  ~53  LAST  375 

15,2320 

01437  0 

“ ADRES 

RSTACK 

4 

« 

I 
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L DOWN»T£LEMeTRY  PROGRAM  _ ____  __  USER* 5 OWN  PAGE  NO.  7 


PQ221  NOMINAL  AURORA  DOWNLIST. 


0222 

REF 

9 LAST  375 

15,2321 

00342  1 

NQMDNLST  ECADR 

UPLOCK 

0223 

15,2322 

02634  1 

LCADR  DATAPL  +6 

~OZ24 

REF 

2 LAS  1 376 

15,2323 

02632“  1 

ECADR 

DAT  APL  +4 

0225 

REF 

3 LAST  376 

15.2324 

15.2325 

02630  0 

ECADR 

DATAPL  +2 

0226 

REF"  4 LAST  376 

02626  1 

ECADR 

DAT  APL 

0227 

REF 

2 LA“ST  24 

15,2326 

02650  0 

ECADR' 

VLAUN  +4 

0228 

' REF 

3 LAST  376 

15,2327 

02644  0 

ECADR 

VLAUN 

0229 

REF 

1 

15,2330 

02634  1 

ECADR 

ANGX 

0230 

REF 

1 

15,2331 

02632  1 

ECADR 

ANGY 

0231 

RtF 

1 

15,2332 

02626  1 

ECADR 

ANGZ 

0232 

REF 

2 LAST  24 

15,2333 

02624  0 

ECADR 

INTY 

0233 

REF 

r 

15,2334 

02576  1 

ECADR 

DRIFTT 

0234 

REF 

1 

15,2335 

02640  1 

ECADR 

DRIFTI 

0235 

REF 

I 

15,2336 

02636  0 

ECADR 

DRIFTO 

— 0236 

"RET 

39  LAST  226 

15,2337 

00374  1 

' ECADR 

MARKSTAT 

0237 

REE 

6 LAST  348 

15,2340 

00402  1 

ECADR 

THETAD  +2 

0238 

REF' 

7 LAST"  376 

15,2341 

00400  0 

ECADR 

THETAD 

OZ39 

‘ REF 

16  LAST  349 

15.2342 

00423  1 

'ECADR 

TANG 

0240 

REF 

6 LAST  235 

15,2343 

00362  0 

ECADR 

LASTYCMD 

0241 

REF 

5 LASF  162 

15,2344 

00366  1 

ECADR 

Ll'TPCMD 

0242 

“REF' 

2 LAST  153 

15,2345 

OT36L  1 

"ECATJR 

REDO'CTR 

INCLUDES  FAILREG, 

0243 

REF" 

20  LAST  277 

1 5 ,2  346 

00063  1 

ECADR 

5TATE  +2 

0244 

REF 

21  LAST  376 

15,2347 

00061  0 

ECADR 

STATE 

0245 

REF 

9 "LAST  349 

15,2350 

00035  1 

0246 

REF 

8 LAST  280 

15,2351 

00034  0 

ECADR 

CDUZ 

0247 

REF 

10  LAST  348 

15,2352 

00032  0 

ECADR 

CDUX 

02  4 8 

~RcF 

4 LASF"3"4“9 

15,2353 

00360  1 

ADRES 

FGRVEL 

0249 

REF 

4 LAST  353 

15,2354 

00355  1 

ADRES 

FINALT 

0250 

REF 

13  LAST  279 

15,2355 

00364  0 

ADRES 

ALTSAVE 

U251 

REF"“ 

7 LASF  353 

15,2356 

00354  0 

ADRES 

ALTRATE 

0252 

REF 

7 LAST  353 

15,2357 

00352  0 

ADRES 

ALT 

0253 

REF 

5 LAST  256 

Is,  2660 

00421  0 

ADRES 

TIMEHOLD 

0254 

REF 

3 LASF  256 

TS  ,2361 

“W4T7  O" 

AORES 

OPTYHOLD 

0255 

REF 

7 LAST  256 

15,2362 

00415  1 

ADRES 

SAMPLSUM 

0256 

REF 

5 LAST  253 

15,2363 

00427  0 

ADRES 

QLDATAGD 

02T7 

“REF 

77  LAST  364  “ 

15,2364 

00413  1 

ADRES 

RADMODES 

0258 

REF 

2 LAST  197 

15,2365 

00041  1 

ADRES 

PIPAZ 

0259 

REF 

3 LAST  348 

15 ,2366 

00037  0 

ADRES 

P1PAX 

0260  15*2367 — ENDDNTMS  EQUALS 
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LINS 

A3C 

block  x a1  0 self- 

'CHECK 

USER’S  OWN  PAGE  NO.  1 

0001 

20,2000 

BANK  20 

0002 

REF 

32 

LAST  363 

7657 

SBIT1 

EQUALS  BITl 

0003 

REF 

21 

LAST  245 

7656 

SBIT2 

EQUALS  BIT2 

" 0004  "' 

"REF 

' 15" 

LAST  368 

7655 

SBIT3 

EQUALS  BIT3 

0005 

REF  " 

24 

LAST  304 

7654 

SBIT4 

EQUALS  BIT4 

0006 

REF 

13 

LAST  368 

7653 

SBIT5 

EQUALS  BlT5 

0007 

REF' 

28 

'LAST  357 

7652 

SB  1 T'6 

EQUALS  B 1 T 6 

0008 

REF 

24 

LAST  371 

7651 

SBIT7 

EQUALS  BIT7 

0009 

REF 

21 

LAST  368 

)6bU 

SBIT8 

EQUALS  B1T8 

00 1 0 

REF 

11 

LAST  368  * 

7647 

SB1T9 

EQUALS  BI T9 

0011 

REF 

35 

LAST  369 

7646 

SBIT10 

EQUALS  BIT10 

0012 

REF 

26 

LAST  368 

7645 

SB  I T 1 1 

EQUALS  BITll 

0013 

REF 

“17 

LA$'r~326 

7644 

SB  I Tl 2 

EQUALS  BIT  12 

00 1 4 

REF 

21 

LAST  273 

7643 

SBIT13 

EQUALS  BIT13 

0015 

REF 

33 

LAST  334 

7642 

SBIT14 

EQUALS  B1T14 

0016 

REF 

31 

LAST"  368 

7641 

SBIT15 

EQUALS  BIT  15 

0017 

REF 

140 

LAST  371 

7665 

S+ZERO 

EQUALS  ZERO 

0018 

REf 

33 

LAST  377 

7657 

S+l 

Equals  biTi 

0019 

REF 

22 

LAST  377 

7656 

S + 2 

EQUALS  B1T2 

0020 

REF 

12 

LAST'"  373 

6165 

S+3 

EQUALS  THREE 

Q02 1 

REF 

11 

LAST  3T2 

7655 

S + 4 

'EQUALS  Tour 

0022 

REF 

7 

LAST  338 

7664 

5 + 5 

equals  five 

0023 

REF 

13 

LAST  372 

6162 

S + 6 

equals  six 

0024 

REF 

8 

LAST  333 

7663 

5 + 7 

equals  seven 

0025 

REF 

7 

LAST  372 

5235 

S8BITS 

EQUAL5  LOWS 

00377 

0026 

20,2000 

00051  0 

CNTRCON 

octal  00051 

USED  IN  CNTRCHK 

*0027 

' 20,2001 

00062  U 

ERA5CUN1  OCTAL  00062 

USED  IN  ERA SC HR 

0028 

20,2002 

01374  0 

ERASC0N2 

OCTAL  01374 

USED  IN  ERASCHK 

0029 

20,2003 

01400  1 

ERASC0N6 

OCTAL  01400 

USED  IN  ERASCHK 

0030 

20,2004 

01462  0 ' 

ERA'5*CUN3  OCTAL  01462 

USED  IN  ERA5CHK 

0031 

20,2005 

01774  I 

ERASCUN4 

OCTAL  01774 

USED  IN  ERASCHK 

0032 

REF 

18 

LAST  371 

6426 

S10BITS 

EQUALS  LOW  10 

01777*  UStD  IN  ERASCHK 

"0033 

REF 

2 LAS!  235 

4506* 

SBNK03 

EQUALS  PRT06 

06000,  UStD  IN  ROPECHK 

0034 

20  |^006 

17777  0 

S13BITS 

OCTAL  17777 

0035 

20,2007 

25252  0 

C0NC+S1 

OCTAL  25252 

USED  IN  CYCLSHFT 

0036 

207201:0 

“OCTAL  37737 

U5ED  IN  RUPTCHK 

0037 

20,2011 

37776  0 

DVCON 

OCTAL  37776 

OCHO 

20,2012 

52400  1 

CQNC+S2 

OCTAL  52400 

USED  IN  CYCLSHFT 

0041 

20,2013 

76777  1 

ERASCDWS 

OCTAL  76777 

0042 

20,2014 

77770  1 

S-7 

OCTAL  77770 

0043 

REF 

2 

LAST  39 

6045 

S-4 

EQUALS  NEG4 

0044 

REF 

2 

LA5T  203 

7671 

5-3 

EQUALS  NEG3 

0045 

REF 

2 

LAST  301 

7670 

S-2 

EQUALS  NEG2 

0046 

REF 

6 

LAST  90 

7667 

S-l 

EQUALS  NEGONE 

0047 

2 

LAS  1 163 

7666 

S-ZERO 

“EQUALS  TTEGO — 

004° 

E3 

EBANK=  3 

0049 

R E p 

1 

20,2015 

0137T“U  ~ 

ADR51 

ACRES  SKEEpl 

C\ 


4 7 3 4 2 3A_  Y UL  SYSTEM  FOR  BLK2 ? REVISION  12.  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  378 


LlNs 

AoC 

BLOCK  TWO  SELF-CHECK 

USER'S  OWN  PAGE  NO,  2 

0050 

REF 

32  LAST  338 

20,2016 

00021  1 

SRADRS 

ADRES 

SR 

00501 

REF 

3 LAST  ; 158 

20,2017 

02101  0 

SELF APRS 

ADRES 

SELFCHK 

SELFCHK  RlTUrn  ADDRtSS,  SHOULD  BE  PUT  " 

A00502 

IN  SELFRET  WHEN  GOING  FROM  StLFCHK  TO 

A00503 

SHOWSUM  AND  PUT  IN  SKLEPl  WHEN  GOING 

A00504 

FROM  SHOWSUM  TO  SELF-CHECK, 

OO5I 

REF 

240  LAST  367 

20,2020 

3 0002  0 

ERRORS 

CA 

a 

0052 

REF 

*4“ LAsT  367 

20,2021 

55*364  0 

~Ts 

AFATU 

SAVE  Q FOR  FAILURE  LOCATION 

0053 

REF 

1 

20,2022 

25*365  0 

I NCR 

ER COUNT 

KEEP  TRACK  OF  NUMBER  OF  MALFUNCTIONS, 

0054 

REF 

25  LAST  254 

20,2023 

0 5413  1 

TC 

ALARM 

0055 

20,2024 

01102  0 

~OCT 

01102 

SELF-CHECK^MALFUNCT  I OTTTND I CATOR 

0056 

REF" 

3 LAST  348 

20,2025 

11*361  0 

CCS 

SMODE 

0057 

REF 

1 

20,2026 

3 7665  0 

CA 

S+ZERO 

0058 

RhF 

4 lATT  378 

20,2027 

55*361  “0 

TS 

smOde 

0059 

REF 

4 LAST  378 

20,2030 

0 2101  0 

TC 

SELFCHK 

GO  TO  IDLE  LOOP 

0060 

REF 

5 LAST  378 

20,2031 

0 1364  1 

TC 

SFAI L 

CONTINUE  WITH  SELF-CHECK 

0061 

240  LAST  373 

20 » 2O32 

4 0000  0 

+ OCHK 

CS 

A 

0062 

RcF  241  |_Asl  378 

20,2033 

10  000  0 

-ochk 

CCS 

A 

7)063 

REF 

1 

20,2034 

1 2020  0 

TCP 

ERRORS 

0064 

REF 

2 LAST  378 

20,2035 

1 2020  0 

TCF 

ERRORS 

0065 

RcF 

3 LAST  378 

20,2036 

1 2020  0 

TCF 

ERRORS 

0066 

RcF 

241  LAST  378 

20,2037 

0 00"02"0"" 

TC 

Q 

20,2040 

4 0000  0 +1CHK 

CS 

A 

0TT68 

TREF  243  "LAST  378 

20,2041 

1 0 ~000  TT  -ICflK 

"CCS 

A 

0069 

RcF  4 LAST  378 

20,2042 

1 2020  0 

TCF 

ERRORS 

0070 

REF  5 LAST  378 

20,2043 

1 2020  0 

TCF 

ERRORS 

U071 

RcF~T44  LAST  378 

20,2044 

TO  000  0 

CCS 

TT 

0072 

RtF  6 LAST  378 

20,2045 

1 2020  0 

TCF 

ERRORS 

0073 

RcF  242  LAST  378 

20  *2U46 

0 0002  0 

TC 

Q 

0074 

20  * 2O4T 

0 0006  1 SMODECHK 

EXTEND 

0075 

RcF 

2 LAST  377 

20  *^Or>G 

23*371  0 

3XCH 

SKEEpl 

0076 

REF 

2 LAST  137" 

20,2051 

0 4457  0 

TC 

CHECK  FOR  NEW"  "JOB 

OO77 

REF 

5 LAST  378 

20,2052 

11*361  0 

CCS 

SMODE 

OO78 

RcF 

1 

20,2053 

0 2060  0 

TC 

SOPTIONS 

"0079 

ref 

1 

"20,2054 

0 2051  1 

TC 

SMODECfflC  +2 

TO  BACKUP  TDLE  LOOP 

0080 

2 LAST  378 

20,2055 

0 2060  0 

TC 

SOPTIONS 

00801 

REF 

1 

20,2056 

25*366  0 

I NCR 

SCOUNT 

"O08T 

REF 

3 LAST  378 

20,20  57 ^ 

0"  1371  7T~ 

TC 

SKEFP1 

CONTINUE  WITH  SELF-CHECK 

uu82 

RtF 

1 

20,2060 

6 2014  0 SOPTIONS 

AD 

S-7 

0083 

20,2061 

0 0006  I 

EXTEND 

0084 

20,2062 

6 2065  0 

3ZMF 

+ 3 

FOR  OPTIONS  BELOW  NINE, 

0085 

REF 

20  LAST  364 

20,2063 

0 4102  0 BNKOPTN 

TC 

POSTJUMP 

GO  TO  ANOTHER  BANK  LOR  OPTIONS  ABOVE  8, 

0086 

RcF 

T 

20,2064 

" 03000  1 

CADFT  - 

SBNKOPTN 

008  7 

REF 

2 LAST  378 

20,2065 

25*366  0 

I NCR 

SCOUNT 

FOR  OPTIONS  BELOW  NINE, 

0088 

REF 

1 

20,2066 

6 7663  0 

AD 

S+7 

473423A  YJL  SYSTEM  FOR  BLK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOv  10*  1966  (MAIN)  PAGE  379 
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U089  REF  245  LAST- 378  ~XT0,2067  50  OOQ~  1 INDEx  A 


0090 

REF 

1 

20.2070 

0 

2071 

0 

TC 

S0PTI0N1 

0091 

REF 

1 

20,2071 

0 

2102 

0 

S0PTI0N1 

TC 

TC+TCF 

0092 

REF 

1 

20,2072 

0 

2767 

0 

S0PTI0N2 

TC 

1N-0UT1 

0093 

REF 

1 

20,2073 

0 

3043 

0 

S0PTI0N3 

rc~ 

COUNTCHK 

0094 

REF 

"1 

20,2074 

0 

3137 

1 

SOPTION4 

TC 

ERASCHK 

0095 

REF 

1 

20,2075 

0 

3307 

0 

S0PTI0N5 

TC 

ROPECHK 

0096 

REF 

1 

20,2076 

0 

3516 

0 

S0PTI0N6 

TC 

MPNMBRS 

0097 

REF 

1 

20,2077 

0 

3605 

1 

S0PTI0N7 

TC 

DVCHECK 

0098 

REF 

A LAST  378 

20,2100 

0 

1371 

0 

S0PT0N10 

TC 

SKEEP1  CONTINUE  WITH  StLF-CHECK 

OOgg  REF  2 LAST  378  20,2101  0 2047  0 SELFCHK  TC  SMOPECHK  **  CHARLEY.  COME  IN  HERE 


R0100  TC+TCF  CAeCkS  ALL  OF  THFTULSES  OF  TCF  AND  ALL  OF  THe  PULSES  OF  TC 

Roioi  EXCEPT  ABILITY  TO  TC  TO  ERASABLE. 

RG 102  AL50  FIRST  TIME  CS  FIXED  MEMORY  IS  USED 


" 0103 

20,2102 

0 2104 

IT 

TC+TCF 

TC 

+ 2 

0104 

REF  1 

20,2103 

0 2111 

1 

T C 

CCSCHK 

0105 

20,2104 

1 2106 

0 

TCF 

+ 2 

S 

TCF  FIXED  MEMORY 

0106 

REF  7 LAST  378 

20,2105 

0 2020 

1 

TC 

ERRORS 

0107 

REF  1 

20,2106 

4 6165 

1 

CS 

S + 3 

$ 

CS  FIXED  MEMORY 

0108 

REF  243  LAST  378 

20,2107 

0 0002 

0 

TC 

Q 

S 

0109 

REF  8 LAST  379 

20,2110 

0""202"0 

1 

TC 

ERRORS 

RQ110 

CCSCHK  CHECKS  ALL 

OF  CCS  except  rb  wg. 

R0T1 1 

ALSO  CHtCK5  TS  ERA5ABLE,  CS  S 

X,  AND  CS 

"ERASABLE 

MEMORY. 

0112 

REF  246  LAST  379 

20,2111 

10  000 

0 

CCSCHK 

CCS 

A 

$ 

CCS  SC,  C ( A ) = -3 

0113 

REF  9 LAST  379 

20,2112 

0 2020 

X 

TC 

ERRORS 

"01 14 

REF  10  LA5T- 379 

20,2113 

"0"  2020 

1" 

rcr 

ERRORS 

0115 

20,2114 

0 2116  0 

TC 

+ 2 

0116 

REF  11  LAST  379 

20,2115 

0 2020 

IT 

TC 

ERRORS 

0117 

REF  247  LASI  379 

20,2116 

10  000 

"0“ 

■ CCS 

A 

$ 

CIA)  = +2.  RESULT  OF  CCS  -NUMBER  " 

0118 

20,2117 

0 2123 

0 

TC 

+ 4 

0119 

REF  12  LAST  379 

20,2120 

0 2020 

r 

TC 

ERRORS 

0120 

"TREE  13  LAST  379 

20,2X2 1 

0 2020 

1 

TC 

ERRORS 

0121 

REF  14  LAST  379 

20,2122 

0 2020 

1 

TC 

ERRORS 

0122 

REF  5 LAST  379 

20,2123 

55*371 

1 

T S 

SKEEP1 

$ 

TS  ERASABLE 

0123 

"REF  6 LA 51^37 9 

20,2124 

7 1 T371 

T" 

"CC5" 

"5KEEP1 

$ 

"CCS  ERA5ABLE,  C ( A)  = + 1,  RE5ULT  OF 

0124 

20,2125 

0 2131 

cr 

TC 

+ 4 

CCS  +NUMBtR 

0125 

REF  15  LAST  379 

20,2126 

0 2020 

1 

TC 

ERRORS 

0126 

REF  16  LAST  379 

20,2127 

0 2020 

T 

TC 

ERRORS 

0127 

RtF  17  LAST  379 

20,2130 

0 2020 

1 

TC 

ERRORS 

0128 

REF  248  LAST  379 

20,2131 

10  000 

0 

CCS 

A 

$ 

L(A)  = +0,  KESUUl  UF  CUB  +1,  CHECKS  ci 

0129 

REF  1 8 LAST  379 

20,2132 

0 2020 

7T 

TC 

ERRORS 

OI3O 

20,2133 

0 2136 

1 

TC 

+ 3 

0 1 3 1 

REF  19  LrtoT  379 

20,2134 

0 2020 

1 

TC 

ERRORS 

0132 

REF  20  LAST  379 

20,2135 

0 2020~ 

1" 

"TC — 

"ERRORS  ~ 

OI33 

REF  249  LAST  379 

20,2136 

4 0000 

0 

CS 

A 

$ 

CS  SC 

0134 

RlF  2bO  LAST  379 

20,21 it 

10  000 

0 

CCS 

A 

S 

L(A)  = -0,  KtBULl  UF  LC6  +0 

0135 

RtF  21  LAST- 379 

20,2140 

0 2020 

1 

TC 

ERRORS"  " 
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0136  REF  22  LAST  379 


20,2141  0 2020  1 


TC 


ERRORS 


0137 

REF  23  LAST  380 

20.2142 

0 202C) 

1 

TC 

ERRORS 

0138 

REF  251  LAST  379 

20,2143 

10  000 

0 

CCS 

A 

$ RESULT  OF  CC5  -0 

0139 

REF  24  LA5T  380 

20,2144 

0 2020 

1 

TC 

ERRORS 

0140 

20,2145 

0 2150 

1 

TC 

+ 3 

0141 

REF  25  LAST  380 

20,2146 

0 2020 

1 

TC 

"HERRORS 

0142 

REF  26  LAST  380 

20,2147 

0 2020 

1 

TC 

ERRORS 

0143 

—REF""  7 LAST  379 

20,2150 

4 1371 

1 

CS 

5KEEP1 

$ CS  ERASABLE.  ALSO  CHECKS  BACK  INTO 

0144 

REF  1 

20,2151 

0 2041 

0 

TC 

—lCHK 

ERASABLE  SEQUENCE. 

RQ145 

BZMFCHK  CHECKS  ALL 

PULSES  OF 

BZMF* 

R0I46 

also  checks  ca  fixed  memory. 

0147 

REF  1 

20,2152 

3 7647 

0 BZMFCHK 

CAF 

S6IT9 

$ CA  FIXED  MEMORY 

"01 48 

20,2153 

0 0006 

1 

EXTEND 

0149 

REF  1 

20,2154 

6 2175 

0 

3ZMF 

ERRBZMF 

0150 

REF  252  LAST  380 

20,2155 

4 0000 

0 

C5 

A 

Ul5l  ZD 

0T52  ZO 

0153  REF  2?  LAST  380  20 


0~0OO61 
6 2161  0 
0 2020  r 


EXTEND 
BZMF 
TC 


2156 

2157 
2160 


+ 2 

ERRORS 


‘"0154 

REF 

I— 

20,2161 

3 3431  1 

— CA— 

STM AX  " 

0155 

REF 

1 

20,2162 

6 7657  1 

AD 

S + l 

0156 

20,2163 

0 0006  1 

EXTEND 

""0157 

"REF  " 

" 1 

20,2164 

6 2176"-0 

BZMF 

ERRBZMF2 

$ + OVERFLOW,  CHECK  01-0000 

0158 

5T  378  2u,2i65 

3 7665  0 

CA 

S+ZERO 

0159 

20,2166 

0 0006  1 

EXTEND 

0160 

20,2167  6 2171  1 

BZMF  +2 

S 

0161 

REF  23  LAST  380 

20,2170  0 2020  1 

TC  ERRORS 

0162 

RtF  253  LAST  380 

20,2171  4 0000  0 

CS  A 

0163 

20,2172  0 0006  1 

"EXTEND 

0164 

20,2173  6 2177  1 

BZMF  +4 

$ 

0165 

REF  29  LAST  380 

20,2174  0 2020  1 

TC  ERRORS 

0166 

- REF  30  LAST  380 

"20,2175  0-  2020  T" 

ERRBZMF  TC  "ERRORS 

FROF  BZMF  WITH  +NON-ZLRO 

0167 

REF  31  LAST  380 

20,2176  0 2020  1 

ERRBZMF2  TC  ERRORS 

OVERFLOW  WITH  +0 

RO168 

RESTOHEl  AND  2 CHECK5  INSTRUCTIONS  (WITH 

STAR)  ABILITY  TO  READ  BACK 

into 

RO 169 

Er\AbA(3L£  M E ^0  Y • 

NOT  NORMALLr  INTERESTED 

IN  CONTENTS  Op  A REGISTER. 

RQ170 

FIRST  TTME^MANY 

instructions  are  used. 

0173 

0174 

0175 

0176 
-017T 

0178 

0179 


REF 

-REF- 

REF 

REF 


~T~ 

”1 

-1 

2 LAST  380 


20,2177 

20,2200 


3 2016  1 
55*377 


REST0RE1  CAF 
TS 
CAr- 
NDX 
TS 
CCS 
NDX 
CS 


SRADRS 

"SKEEFT" 

S8BITS 

SKEEP7 

0000 

SR 

SKEEP7 


ADDRESS  OF  SR 


REF 

REF 


01 80 
0181 
0182 
0183 


-33  LAST  378 
—3-LAST  380 


“REF 34“LA5T“380 
-REF — 35  “LAST  380 


IT 

20.2201  3 5235  0 

20.2202  51*377  0 

20.2203  54  000  0 

20.2204  10  021  0 

20.2205  51*377  0 

20.2206  4 0000  0 


20,2207 

20,2210 

20.2211 


6 0021  1 
0 0006  1 
2n— n?i — n- 


-crcroo- 

AD SR 

EXTEND  — 


00377 

$ INDEX  ERASABLE 
TS  SR,  CTSR)  =00177 
C (SR ) = 00077 
CHECKS  C (SKEEP7)  CORRECT 
XTSRT  = 00037  “ 

C ( SR ) = OOOI7 


c t sr  r -=  -00007 
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0184 

20,2212 

0 0006 

1 

EXTEND 

20,2213 

60  021 

1 

SU  SR 

C (SR)  = 

00003 

* 

0186 

REF 

37 

LAST 

381 

20,2214 

3 0021 

1 

CA  SR 

$ C (SR) 

= +1,  C (A)  = +3,  CA  ERASABLE 

# 

0187 

RtF 

38 

last 

381 

2U  ,22  1 6 

7 0021 

0 

MASK  SR 

S B ( SR ) 

= c ( sr > = +i,  mask  erasable 

# 

0189 

0190 


REF 

REF  ~ 39LAST  381 


0191 

0192  REF 

0193  REF 

0194  REF' 


40  LAST  381 

41  LAST  381 
2 LAST  381 


20,2217 

20,2220 

20,2221 

20,2222 

20.2223 

20.2224 


0006 

0021 

0006 


10  021  0 
3 002I_  1 

0 2040  r 


EXTEND 

“MF 

extend 

DV 

CA 

TC- 


SR 


SR 

SR 

VTCHK 


$ CA  ERASABLE 
MARES  SURE  'MASK , 


MP,  AND  DV  DO  NOT  EDIT, 


R0195  REST0RE2  ALSO  CHECKS  XCH  eRASABLE*INDEX  (WITH  EXTRACODE)  ERASABLE  AND 
RO 196  “ FIXED  MEMORY,  DCs  ERASABLE,  CA.  SC,  ANp  PCA  ERASABLE, 


0197 

REF 

T 

20,2225 

3 2015  1 

REST0RE2 

CAF 

ADRST 

ADDRESS  OF  5KEEP1 

0198 

REF 

1 

20,2226 

55*376  0 

TS 

SKEEP6 

0199 

REF 

37 

20,2227 

3 7667  1 

CA 

S-l 

0200 

ref 

8 

LAST 

380 

20,2230 

55*371  1 

TS 

SkEEpI 

-1 

0201 

REF 

254 

LAST 

380 

20,2231 

4 0000  0 

cs 

A 

‘ 0202 

REF 

9 

LAST 

381 

20,2232 

5 7 * 3 7 T 0 

XCH' 

SKEEPI 

$ XCH  ERASABLE,  C(SKEEPl)  = +1 

0203 

ReF 

1 

20,2233 

57*  372  0 

XCH 

SKEEP2 

$ XCH  ERASABLE,  C(SKEEP2)  = -1 

0204 

20,2234 

0 0006  1 

extend 

0205 

' REF 

2 

LAST 

381 

20,2235 

5 1376  1 

EkEEP6 

$ NDx  ERASABLE 

* 

0206 

20,2236 

3 0001  0 

OCA 

0000 

DCA  ERASABLE 

* 

0207 

20,2237 

0 0006  1 

EXTEND 

0208 

REF 

2 

LAST 

'381 

20,2240 

5 2015  I 

TIPX 

ATTRSl 

S NDX  FIXED  MEMORY 

# 

0209 

20,2241 

4 0001  1 

DCS 

0000 

$ DCS  erasable  MEMORY 

# 

0210 

REF 

2 

LAST 

380 

20,2242 

0 2041  0 

TC 

-1CHK 

MAKES  SURE  DCS  ERASABLE  OK 

0Z11 

REF 

93 

LAST 

373 

2072343 

3 0001  XT 

“CA 

L 

$ CA  SC  “ 

0212 

REF 

3 

LAST 

381 

20,2244 

0 2040  1 

T C 

+ 1CHK 

0213 

2u , 2245 

0 0006  1 

EXTEND 

0214 

REF 

3 

LAST 

381 

20,2246 

5 1376  T' 

“NDX 

3KFEP6 

MAKE  SURE  C (SKEEP6)  IS  STILL  CORRECT 

0215 

20,2247 

3 0001  0 

DCA 

0000 

$ DCA  ERASABLE 

0216 

RtF 

4 

LAST 

381 

20,2250 

0 2040  1 

TC 

+ 1CHK 

CZ17 

REF 

94 

LA5T 

381 

20 ,2251“ 

todoftt- 

“C7C 

L' 

0218 

REF 

3 

LAST 

381 

20,2252 

0 2041  0 

TC 

-1CHK 

R0220  MEMORY,  IT  IS  ONLY  NECESSARY  TO  RESTORE  OmE  INSTRUCTION  BECAUSE  THE 
R0221  Q-REGISTER  DOES  NOT  CHANGE,— 

R0222  AL50"CHtCKS  TC  TO  ERASABLE  MEMORY, — 


0223 

REF 

— 7 

2 0,2253 

3 7641 

0" 

REST0RE3  CA 

SBIT15 

CS 

0224 

REF 

10 

LAST  36l 

2(J  , 22 54 

55*371 

1 

TS 

SKEEPI 

40000 

0225 

RET 

1 

20,2255* 

37656 

0* 

CA 

5 + 2 

TC  T 

0226 

ref 

2 

LAST  381 

20,2256 

55*372 

1 

TS 

SKEEP2 

0227 

REF 

2 

LAST  380 

20,2257 

3 7657 

1 

CA 

S + l 

+ 1 

0228 

RET 

71 

LAST  381 

20,2260 

0 1371 

u 

TC — 

SKEEPI 

$ 1C  ERASABLE 

0229 

REF 

4 

LAST  381 

20,2261 

0 2041 

*0 

TC 

-TCHK 

FIRST  TIME  BACK  FROM  ERASABLE, 

0230 

REF 

12 

LAST  381 

20,2262 

0 1371 

0 

TC 

SKEEPI 

0231 

REF 

20,2263 

0 2033 

IT 

TC — 

-OCHK 

SECOND  TTMF“BACK  FROM  "ERASABLE, 
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LlNS 

ASC 

BLOCK  T w'0  SELF 

-CHECK 

USER • S OWN  RAGE  NO.  6 

R0232 

BZFCHK  checks  ALL 

PULSES  OF  BZF. 

0233 

REF 

I 

20 ,2264  3 7664  1 

BZFCHK 

CAF  S + 5 

0234 

20,2265  0 0006  1 

EXTEND 

0235 

REF 

1 “ 

20,2266  1 2311  1 

BZF  ERRBZF1 

$ 

0236 

REF 

255  LAST  381 

TO ,2267  4 0000  0 

CS  A 

0237 

20,2270  0 0006  1 

EXTEND 

U238 

REF 

1 

20,2271  1 2312  1 

BZF  ERRBZF2 

$ 

D239 

RTF 

2 LAST  380 

20,2272  3 3431  1 

CA  S + MAX 

11240 

REF 

3 LAST381 

20,2273  6 7657  1 

AD  S+ 1 

01-00000 

~0241 

20,2274  0 0006  1 

EXTEND 

0242 

REF 

1 

20,2275  I 2313  0 

“BZT  ERRBZF3 

s 

0243 

“ REF 

256  LAST'  382 

20,2276  4 0000  0 

CS  A 

0244 

20,2277  0 0006  1 

EXTEND 

0245 

REF 

1 

20,2300  1 2314  1 

8ZF  ERRBZF4 

$ 

0246 

REF 

3 LAST 380 

20,2301  3 7665  0 

CAF  S+ZERO 

0247 

20,2302  0 0006  1 

EXTEND 

0248 

20,2303  1 2305  1 

FZF  +2 

$ 

0249 

REF 

32  LAST  38CT 

20,2304  0 2020  1 

TC  ERRORS 

0250  REF  257  LAST  382 

20,2305  4 0000  0 

CS  A 

0251 

20,2306  0 0006  1 

EXTEND 

0252 

20,2307  1 2315  0 

BZF  +6 

$ 

0253 

" RtF 

33  LAST  382 

20,2310  0 2020  1 

1C  ERRORS 

02  54 

TRET 

34  LAST  382  " 

20,2311  0 2020  1 

errbzft 

“TT  ERRORS 

+NONLZERO 

0255 

REF 

35  LAST  382 

20,2312  0 2020  1 

ERRBZF2 

TL  ERRORS 

-NON-ZERO 

0236 

REF 

36  LAST"  382 

20,2313  0 2020  I 

ERRBZF3 

TC  ERRORS 

01-00000 

"02  57 

REF 

37  LAST  382 

20,2314  0 "2020  TT 

“TO-37777 

RO  2 5 8 
RQ2"5F 
0260  REF 


PULSES  OF  DXCH  AND  DIM. 

T “C7T5C T AND  AD  ERASABLE 
3 3431  1 DXCH+DIM  CA 


20,2315 


+ MAX 


" 0261 

REF 

2 LAST  381 

20,2316 

6 7656  0 

AD 

S+T 

OVERFLOW  WITH  +1 

0252“ 

TRET 

T3  LAST  381 

“ 20,2317 

55T37I  1 

T5“ 

SKEEP1  " 

$ TS  WITH  OVERFLOW*  +1 

°263 

TREF 

38  LAST  382 

20,2320 

0 2020  1 

TC 

ERRORS 

0264 

Rep 

258  |_ASI  382 

20,2321 

4 0000  0 

cs 

A 

0265 

TRET 

3 LA5TT81 

20,232Z 

5T»372  1 

ITT 

5KEEP2 

0266 

REF 

4 LAST  382 

c. ^ 343i  0 

CS 

S + MAX 

0267 

REF 

95  LAST  381 

2U  ,2324 

54  001  1 

TS 

$ TS  SC,  40000 

T258 

1REF 

25  9 TA5T  3 82 

2072325 

“ F OOCHTO 

C5“ 

A 

37777 

0269 

REF 

14  LAST  382 

20,2326 

53*372  1 

DXCH 

SKEEP1 

$ DXCH  ERASABLE 

uz?u  Kcr 

5 LAST  381 

Z U , 2 3 27  U 2U4U  1 

TC 

+ 1CHK 

U271 

REF 

96TTA5T  382 

tO 1 2330 

3 00  01  "0 — 

CA" 

“L — 

$ CA  SC 

0272 

REF 

5 LAST  381 

20,2331 

0 2041  0 

1 c 

-1CHK 

0273 

ZU ,2332  0 0006  1 

extend 

0274  “ 

“REF 

15  LAST  382 

ZU ,2333 

2 7 r37 1 1 — 

on 

SKEEP1  " 

$ D TFT  ERASABLE , DIPT  + NUMBER,  37776 

0275 

20,2334 

0 0006  1 

extend 

02  76 

REF 

4 LAST  382 

20,2335 

27*372  1 

DIM 

SKEEP2 

$ DlM  - NUMBER.  40001 

0277“ 

“REF" 

5 LAST  382 

" 20,2336 

3 3431  1 

CA 

"5 +MAX ' 

3T777 

0278 

REF 

5 LAST  382 

20,2337 

6 1372  0 

AD 

SKEEP2 

$ AD  ERASABLE*  +1 

0279 

REF 

6 LAST  382 

20,2340 

0 2040“! — 

TC 

+ 1CHK 

0280  - 

TREF 

6 LAST  382 

20,2341 

4 343  TTT 

CS 

s+mx 

40000 
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LjNS 


A3C  BLOCK  TWO  SELF-CHECK 


USER'S  OWN  PAGE  NO. 


0281  REF 

0282  REF” 
REF 


0283 

0284 


T§  LAST  382 
6 LAST'  332 
A LAST  382 


20,2342  6 1371  0 


0285“ 

0286 


REF  260  LAST  382 


0287  REF  EEITLABT  383 


REF  2 LAST  381 


0288 

0289  

0290  REF  262  LAST  383 
“REF 


20.2343 

20.2344 

20.2345 
7072346” 
20,2347“ 
20,2350 

”2X57  2 3 5 1 

20.2352 

20.2353 


D 2041  0” 
3 7657  1 
0 0006  1 
26  000  0 
0 0006  1 
26  000  0 
0 2033  0 

0 0006 ”T 
26  000  0 


AD 

TC” 


skeepi 


-1CHK 
CA  S + l 

EXTEND 
5TM  A 


-ml 
+ 1 


0291 


1 


20,2354  0 2032  1 


extend 
DIM  A 

TC  -OCHK 

EXTEND 
DTM”  A 


$ DIM  SC,  DIM  +1 
$ DIM  -0 


TC 


$ DIM  +0 


+ QCHK 


R0292 

R0293 

R0294 

0295 

"”0296 

0297 

0298 
”0299” 

0300 

0301 


DAS+INCR  CHECKS  ALL  PULSES  OF  DAS  AND  I NCR, 

A LS0  ChECKFDCA  F I”XFD”*”  LX”C”h "SC*  dCA"  ERASABLE,  A”d”ERASABLE , ” DCS”  FIXED* 
DCS  erasable,  and  xch  sc, 

REF  2 LAST  381  20,2355  3 7667  1 

2356  54'  OOFF 

3 7656  0 


“REF ” 97  LAST  382 
REF  T LAST  382 
REF  263  LAST  383 
REF V~ 


0302 

0303 
R0304 

0305 

0306 

0307 


20 

”20" 

20 

20 

20 

20 

20 

20 

20 


REF  7 LAST  332 

REF  5 LAST  383 

”REF  98  LAST  333” 

REF  7 LAST  383 

das  with  interflow  in  low  order  and  net  overflow 


REF 

REF 


0308 

0309 

0310 
“03TT” 


7 LAST  382 
1 

REF T~ 

REf  99”  LAST  383 
REF  2 LAST  379 


"REF” 


0312 

0313 

0314 

0315 

0316 


2 LA5F383” 
REF  264  LAST  383 


20” 

20 

20 

20 

20 

20 

”20” 


REF 


REF 


2 LAST  383 
383 

3 LAST  383 


”0317 REF- 


0318 

0319 
032  CT 


REF  265 
REF  3 


"LAST  383 
LAST  383 
LAST  383 


032F 

R0322 


REF  101  LAST  ”383 
REF  9 LAST  383 
I NCRCHK  checks  ALL 


20 

20 

20 

20 

20 

-20 

20 

20 

20 


20 
I NCR 


DAS+INCR  CA 
DAS  + + 


2357 

2360 

2351 

2362 

2363 

2364 

2365 


20  001 
5-7671 
0 2040  r 
3 7657  I 

”6” 

0 2041  0” 


' T S” 
CA 

“DAS 
' AD 


S-l 


-1 


S + 2 
A 

S-3 


+2 


$ DAS  SC,  C ( A)  = +4  AND  C(L) 
$ AD  FIXED  MEMORY 


TC 

CA 

AD” 


+ 1CHK 
S+l 

nr~ 

-1CHK 


$ ad“sc ♦ -1 


2366 

2367 
2370 


2371 

2372 

2373 

2374 


0 0006  1 
3 3432  1 
53 ' 374  1 
3”  7670”  1 
54  001  1 
3 6165  0 


DAS  + - 


TXTE'nD””” 

DCA  S+MAX 
DXCH  SKEEP3 


TS” 

TS” 

CA 


$DCA  FIXED  MEMORY 
37777,  40000 


21*  374  ”1” 


2375 

2376 
2T77” 

2400 

2401 
3402” 

2403 

2404 
2405” 


22  000  1 
0 2032  1 
”3  000 1”  0” 
0 2040  1 
0 0006  1 
31374  0 
22  000  1 
0 2041  0 


DAB' 

LXCH 

tct 

”CA 

”TC 

EXTEND 


5-2 

L 

S+3 

SKEEP3 

TE 

♦ OCHK 

XT” 


C ( A ) = +3,  C (L)  = 
”6  DAS  ERASABLE 


$ LXCH  SC 


+ 1CHK 


2406 


3 0001 
0 2040 


DC AT 
LXCH 
TC” 
”XA” 


"SKFEF3” 

-fr- 

-1CHK 


C ( A)  = -1,  C (L)  = +1 


TC 


PULSES  EXCEPT  WOVR, 


T 

+ 1CHK 


VjZ3 

REF  ~T 

3D,240T” 

25*374  0 — TNCRCttK” 

1NCR-  " 

SKEEP4 

$ i NCR  ERASABLE,  -0 

0324 

Rtr  2 LA5I  383 

20 ,2410 

6 1374  0 

AD 

SKEEP4 

$ AD  ERASABLE 

0325 

RcF  3 LAST  383 

20,2411 

0 2033  0 

TC 

-OCHK 

0326 

REF  266  LAST  383 

20,2412 

24  000  1 

INCF 

A 

$ INlR  8L , +1 

0327 

RiF  10  LAST  383 

20,2413 

0 2040  1 

TC 

+ 1CHK 

0339 


20,-3414  0 0006  1 DA5-+” 


EXTEND 


LT 

•v 


¥ 
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0330 

REF  8~ LAST  383 

20,2415 

4-  3432 

0 

DCS 

S+MAX 

$ DCS  FIXED  MEMORY 

0331 

REF  IT  LAST  383 

20,2416 

53*372 

1 

“TXCH 

TKEEPl 

4C000,  37777 

“0332 

REF  3 LAST  383 

20,2417 

3 6l65 

0 

CA 

S + 3 

+ 3 

0333 

REF  102  LAST  383 

20,2420 

54  001 

1 

TS 

L 

0334 

REF  267  LAST  383 

20,2421 

4 0000 

0 

CS 

A 

-3 

0335 

REF  18  LAST  384 

20,2422 

21*372 

1 

TJ  AS 

SKEEP1 

$ 

0336 

REF  9 LAST  383 

20,2423 

0 2041 

TT 

TC 

-1CHK 

0337 

20,2424 

0 0006 

1 

EXTEND 

0338 

REF  1 9 LAST  384 

20,2425 

4 1372 

1 

DCS 

SKEEP1 

$ DCS  ERASABLE  (+1,  -2) 

“0339 

“REF  TOT  LAST  384 

20,2426 

56  001 

0 

XCH 

L 

S XCH  SC  (— +1) 

0540“ 

REF  6 LAST  383 

20,2427 

6 7657 

I 

AD 

5+1 

0341 

RcF  10  LAST  384 

20,2430 

0 2041 

0 

TC 

-ICHk 

0342 

REF  104  LAST  384 

20,2431 

3 0001 

0 

CA 

L 

11343 

' REF  Tl  LAST  383 

20,2432 

0 2040 

1 

TC 

+ ICHK 

R0344 

mpchk  checks  all 

PULSES  OF  MP*  AUG*  AND 

ADS. 

“ 0345 

ref  7 LAST'  364 

20,2433  3 7657  1 

MPCHK 

“CA  5+1 

0346 

20,2434  0 0006  1 

EXTEND 

0347 

“ REF  268  LAST  384 

20,2435  24  000  I 

AUG  A 

$ AUG  SC,  +2 

" 0346 

REF  r 

20,2436  55*375  0 

TS  5 KEEP  5 

+2 

0349 

~ REF  269  LAST  384 

20,2437  4 0000  0 

CS  A 

0350 

REf  244  LAST  379 

20,2440  54  002  1 

TS  Q 

-2 

“03  ST- 

REF  270  LAST- 3 84 

20,2441  4 OOOO  0 

CS  A 

0352 

20,2442  0 0006  1 

MP  + + 

EXTEND 

0353 

REF  9 LAST  384 

20,2443  7 3431  0 

MP  S+MAX 

$ MP  FIXED  TENOR Y * 

+ 1 * 37776 

0354 

FEF  T05  LAST  3 84 

20,2444  6 0001  0 

“AD  1_ 

37777 

0355  ' 

20,2445  0 0006  1 

MP+- 

EXTEND 

0356 

REF  245  LAST  384 

20f2446  7 0002  1 

IMP  Q 

$ MP  SC*  -1*  40001 

0357 

“ REF  I0FTAST“384 

20,2447  26  001  1 

TEE  L 

$ ADS  SC,  40000 

035T 

REF  1 

20,2450  6 2011  0 

AD  DVCON 

0359 

REF  11  LASl  384 

20,2451  0 2041  0 

TC  -ICHK 

0T60 

REF  TOT  LAST  3 84 

20,2452  3 0001  0 

“CA  L 

0361 

20,2453  0 0006  1 

MF-+ 

EXTEND 

0362 

REF  2 LAST  384 

20,2454  7 1375  0 

MP  5KEEP5 

$ MP  ERAbAbLE  * -i , 

40001 

0363 

REF  4 LAST  381 

20,2455  55*376  0 

TS  SKEEP6 

0364 

20,2456  0 0006  1 

EXTEND 

~0365 

REF  5 LAS'  384 

20,2457  25*376  1 

AUG  SKEEP6 

$ AUG  EKASAbLt*  -2 

OTS6 

REF  I OF  LAST  3 84 

20,2460  6 0001  0 

AD  T ~ 

~ 40000 

0367 

20,2461  0 0006  1 

MP— 

EXTEND 

0368 

RcF  6 LA5F384 

20,2462  7 1376  0 

TP  5KEEP6 

$ +1,  37776 

0369 

REF  ~ 12  LAST  384 

20,2463  0 2040  1 

TC  +TCRF 

0370 

REF  109  LAST  384 

20,2464  4 0001  1 

CS  L 

40001 

0371 

RcF  2 LAST  384 

20,2465  6 2011  0 

AD  DVCON 

0372 

RcF  ~T  LA5T383 

20,2466  0 U 

TC  -OCHK  ' 

0373 

REF  3 LAST  384 

20,2467  3 7657  1 

CA  S+l 

0374 

REF  7 LAST  384 

20,2470  27*376  0 

ADS  SKEEP6 

$ ADS  ERASABLE,  +1 

0375 

TEF  12  LAST  384 

20,2471  0 2041  0~ 

TC TCHF 

0376 

REF  8 LAST  384 

20,2472  3 1376  1 

CA  SKEEP6 

0377 

REF  13  LAST  384 

20,2473  0 2041  0 

TC  — lCHK 
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UNs  A3C  BLOCK  TWQHsELF-CHECK 


USER'S  OWN  PAGE  NO.  9 


* 

* 


R0378 

DVCh  AND  DVQXChK  CHECK  all  of 

PJLSES  OF 

DV  AND 

1 

R0379 

ALSO  CHECKS  TS  WITH 

underflow 

0380 

REF  1 

20,2474 

3 7642  0 

DVCHK 

CA 

SBIT14 

20000 

0381 

REF  20  LAST  384 

20,2475 

55*371  1 

TS 

SKEEP1 

0382  REF  2 f 1 LAST  384 

20,2476 

6 0000  I 

AD 

A 

overflow 

0383 

REp  9 LAST  384 

20,2477 

6 7657  1 

AD 

S+l 

0384 

REF  110  LAST  384 

20,2500 

54  001  1 

TS 

L 

S TS  SC  WITH  OVERFLOW,  +1 

“ 03  85 

REF  39  LAST  382 

20,2501 

0 2020  1 

TC 

ERRORS 

0386 

REF  272  LAST  385 

20,2502 

4 0000  0 

CS 

A 

0387 

REF  6 LAST  382 

20,2503 

55*372  1 

TS 

SKEEP2 

-1 

0388 

REF  1 

20 ,2504 

3 7666  0 

C"A 

S-ZERO 

-0 

0389 

REF  21  LAST  385 

20 ,2505 

23*371  0 

LxCH 

SKEEP1 

$ LXCH  ERASABLE 

0390 

20,2506 

0 0006  1 

DV  + + 

EXTEND 

0391 

REF  22  LAST  335 

20,2507 

n*37r  1 

DV 

SKEEP1 

$ DV  ERASABLE,  C ( A ! = 20000,  C<L>  = +0 

0392 

REF  273  LAST  385 

20,2510 

4 0000  0 

CS 

A 

0393 

REF  274  LAST  385 

20,2511 

22  000  1 

LXCH 

A 

0394 

HReF  3 LAST  383 

20,2512 

0 3032  1 

re 

+QCHK 

0395 

20,2513 

0 0006  1 

DV— 

extend 

0396 

REF  7 LAST  385 

20,2514 

11*372  1 

DV 

SKEEP2 

$ 20000,  +0 

0397 

REF  3 LAST  383 

20,2515 

55 '374  1 

TS 

SKEEP4 

20  000 

0398 

REF  275  LAST  385 

2u , 2 5 1 6 

4 0000  0 

cs 

A 

0399 

REF  4 LAST  383 

20,2517 

55*373  0 

TS 

SKEEP3 

-(20000) 

0400 

REF  2 LASI  385 

20,2520 

6 7642  0 

AD 

SBIT14 

0401 

REF  5 LAST  384 

20,2521 

0 2033  0 

TC 

-OCHK 

0402 

REF  111  LAST  385 

20,2522 

3 0001  0 

CA 

L 

0403 

REF  6 LAST  385 

20 ,2523 

0 2033  0 

TC 

-OCHK  " 

O4O4 

REF  10  LAST  384 

20,2524 

3 3431  1 DV*- 

CA 

S + MAX 

0405 

KtF  112  LA5l  385 

20 ,2525 

54  001  1 

T5 

L 

0406 

^ REF  1 

20 ,2526 

3 2006  0 

CA 

5I3BIT5 

0407 

20,2527 

0 0006  1 

EXTEND 

0408 

REF  5 LA5T  385 

20,2530 

1 1 * 3 7 3 0 

DV 

5KEEP3 

$ -(37777) , + (17777) 

04TJ9 

RtF  113  LAST  385 

20,2531 

56  001  *0 

XCFT 

L 

0410 

REf  2/6  LAS  f 385 

20,2532 

4 0000  0 

cs 

A 

0411 

20 ,2533 

0 0006  1 

DV-+ 

EXTEND 

0412 

RtF  4 LAST  3BS 

20 ,2534 

11*374  1 

DV 

SKEEP4 

$ -(37777),  -(17777) 

0413 

REF  3 LAST  384 

20,2535 

6 2011  0 

AD 

DVCON 

0414 

REF  1 4 LAST  384 

20,2536 

0 2041  0 

TC 

-1CHK 

0415 

REF  11  LAST  38S 

20 ,2537 

3 3431  1 

“CA 

5+WAX 

y41 6 

RtF  114  LAST  385 

20 ,2540 

56  UU1  0 

XCH 

L 

ALSO  PUTS  37777  IN  L FOR  DV-+ »- 

041 7 

REF  3 LAST  385 

20,2541 

6 7642  0 

AD 

SBIT14 

0418 

KEF  13  LA5 1 384 

2u  ,2542 

0 204CT  1 

TC 

+icror 

yn-i  9 

Ktr  c LASI  3oP 

20 ,2543 

4 2006  1 

DV-+ , + 

CS 

S13BITS 

-(17777) 

0420 

20,2544 

0 0006  1 

extend 

042 1 

REF  5 LAST  385 

20,2545 

11*374  1 

~DV  ' 

SKEEP4 

y hc  c 

RtF  1x5  LASI  385 

20 ,2546 

6 0001  0 

AD 

L 

-(37775) 

KeF  4 LASI  385 

20 ,2547 

6 2011  0 

AD 

DVCON 

0424 

REF  14  LA5 f 385 

20 ,2550 

0 2040  1 

TC  - 

+TCH1T 

u4^5 

Ktr  J.i-6  LAo  1 385 

20,2551 

56  001  0 

XCH 

L 

0426 

REF  15  LAST  365 

20,2552 

0 2041  0 

TC 

-1CHK 

ALSO  PUTS  +0  IN  L FOR  DVQXCH 

0427 

REF  S LAS1^385 

20 ,2553 

4 2011  1 

DVQXCHK  CS 

DVCON 

# 


473423A  YUL  SYSTEM  FOR  BLK21  REV  I S I ON  12  OF:  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1 966  ( MAIN)  PAGE  386 


LlNs 

ASC  BLOCK  TaO  SELF-CHECK 

USER'S  OwN  PAGE  NO.  10 

0428 

REF  246  LAST  384 

20,2554  54  002  1 

TS 

Q 

40001 

0429  ' 

RTF  277  LAST  385 

20,2555  4 0000  0 

TS 

A 

0430 

20,2556  0 0006  1 

EXTEND 

0431 

REF  247  LAST  386 

20,2557  10  002  1 

TV 

T 

$ DV  SC,  -(37777) , +(37776) 

0432 

20,2560  0 0006  1 

Extend 

0433 

REF  117  LAST' 385 

20,2561  22  001  0 

axcH 

"L~ 

$ QXCH  SC,  C (L)  = 40001, 

C (Q)  = 37776 

0434 

REF  248  LAST  386 

20,2562  6 0002  0 

AD 

Q 

0435 

REF  I 6 " L AST  3 8 5 

20,2563  0 204r  0 

TC 

-1CHK 

0436 

REF  ITS  LAST  386 

2u,a564  3 0001  u 

CA  L 

0437 

REF  12  LAST  385 

20,2565  6 3431  1 

MU 

6 + MAX 

0438  ' 

RTF  15  LAST  385 

20,2566  0 2043  1 

TC 

+ 1CHK 

0439 

20,2567  0 0006  1 

EXTEND 

0440 

REF  23  LAST  385 

20,2570  23*371  0 

QXCH 

SKEEP1 

$ QXCH  ERAS#  % C ( Q ) = +lt 

C(SKEEPl)  = +3 

0441 

REF  249'  LAST  386 

20,2571  3 0002  T 

CA 

Q 

0442 

' REF  16  LAST  386 

20,2572  0 2040  1 

TC 

+ 1CHK 

0443 

RtF  '24  LAST  386 

20,2573  4 1371  1 

cs 

SKEEP1 

-3 

'0444  ' 

'RTF'"  4 LAST  383 

20,2574  6 7656  0 

AD" 

S + 2 

0445 

REF  17  LAST  386 

20,2575  0 2041  0 

TC 

-1CHK 

R0446 

MSUCHK  CHECKS  ALL 

PULSES  OF  MSU  EXCEPT 

RB  WG. 

0447 

RtF  4 lA5T  382 

20,2576  3 7665  0 

MSUCHK  CA 

S+ZERO 

0448 

REF  25  LAST  386 

20,2577  55*371  1 

TS 

SKEEP1 

+ 0 

0449 

"REF  278  LAST  386 

'ZQ ,2600  4 OO0OT 

TS 

A 

0450 

REF  8 LAST  385 

20,2601  55*372  1 

TS 

SKEEP2 

-0 

0451 

20,2602  0 0006  1 

EXTEND 

0452 

TET2T9  LAST 386 

20,2603  20  000  0 

MSU 

A " 

$ MSU  SC,  +0 

0453 

RtF  4 LAST'  335 

20,2604  0 2032  1 

TC 

+ OCHK 

0454 

20,2605  0 0006  1 

EXTEND 

0455" 

REF  9 LAST  386 

20,2606'  21*372  I' 

M5U  SKEEP2 

i M5U  ERASABLE,  +1 

0456 

RtF  17  LAST  386 

20,2607  0 2040  1 

TC 

♦ 1CHK 

045T 

20,2610  0 0006  1 

EXTEND 

0458 

KtP  13  LAST  386 

20,2611  3 3432  1 

DCA  S + MAX 

0459 

20,2612  0 0006  1 

EXTEND 

0460 

KhF  119  LA5I  386 

20,2613  20  001  1 

MSU 

L 

$ CHECKS  RUS  WA,  ALSO  -1 

FROM  MEG.  Nu, 

0461 

kcF  tau  LAsI  386 

20,2614  54  000  0 

TS 

A 

0462 

20,2615  0 2617  0 

TC 

♦ 2 

0463 

REF  40  LAST  385 

20,2616  0 2020  1 

TC 

ERRORS 

0464 

REF  18  LAST  386 

20 ,2 6T7  0 2041  0 

TC 

'-TCHK 

MASKTCHK  FINISHES 

RG465 

GHEGKING  MASK  INSTRUCTION, 

0466 

RTF  2 LAST  378 

tu  ,3620  3 7663  0 

MASKCHK  CA 

5+7 

0467 

REF  120  LAST  386 

20,2621  54  001  1 

TS 

L 

0468 

REF  2 LAST  378 

20,2622  7 2014  1 

— MASK 

S-7 

$ MASK  FIXED  MEMORY 

0469 

REF  5 LAST  386 

20,2623  0 2032  1 

TC 

' +OCHIC 

O47O 

RtF  10  LAST  385 

20,2624  3 7657  1 

CA 

S+l 

0471 

REF-  121  LAST  386 

20,i!625  1 UUOi  1 

W\SK 

L 

$ MASK  SC 

~047Z 

RET  18  LAST  386 

20,2626  0 2040  T 

rc 

+ TCHK 

R0473  NOX+SJ  FINISHES  CHECKING  BOTH  INDEX  INSTRUCTIONS.  ALSO  CHECKS  ALL  OF  SU 
RC474  E XCEPT  RB  ao. 
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LINS  A.SC  SLOCK  T*Q  SELF-CHECK 


USER ' S OWN  PAGE  NO.  11 


0475 


0476 

-047T 


REF  IT  LAST  336 
REF  122  LAST  "386 


20,2627 

20,2630 


3 7657  1 NDX+SQ  CA 

54  001  ~I 


S+l 


REF  26  LAST  386 


20,2631  55 '371  1 


TS 

TS 


L 

SKEEP1 


0478 

REF  281  LAST  386 

20,2632 

50  000  1 

NDX  A 

$ NDX  SC 

0479 

20,2633 

6 0000  1 

AD  0000 

AD  L,  +2 

0480 

20,2634 

0 0006  1 

EXTEND 

0481 

REF  27  LAST  387 

20,2635 

61*371  0 

SU  SKEEP1 

$ SU  ERASABLE 

" 0482 

REF  19  LAST  386 

20,2636 

C 2040  1 

TC  +1CHK 

0483 

20,2637 

0 0006  1 

extend 

0484 

REF  123  LA5T  387 

20,2640 

5 0001  0 

NDX  L 

$ NDX  SC 

0485 

20,2641 

60  000  1 

SU  0000 

S SU  SC,  SU  L 

0486 

REF  19  LAST  386 

20,2642 

0 2041  0 

TC  -1CHK 

R0487 

D--SC  CHECKS  DCS 

5C,  DXCH  SC, 

AMD  DCA  SC. 

0488 

REF  5 LAST  386 

20,2643 

3 7656  0 D- 

-Sc  CA  S+2 

0489 

REF  124  LAST  337 

20,2644 

54  001  1 

TS  L 

♦ 2 

0490 

REF  12-  LAST  387 

20,2645 

3 7657  1 

~CA  S+l 

0491 

20,2646 

0 0006  1 

EXTEND 

0492 

REF  282  LAST  387 

20,2647 

4 0001  1 

DCS  A 

$ DCS  SC,  C (L)  = -2 

0493 

—R  E F 2DTA  ST  387 

20  |2650 

0 2041  0 

TC  - 1 CHK 

R0494 

AFTER  DXCH  C ( A ) = 

B (Q)  = +3, 

CXL)  = B ( A)  = 

+ 0,  CO)  = B(L)  = -1. 

0495 

REF  125  LAST  387 

20,2651 

52  002  1 

DXCH  L 

$ DXCH  SC 

- 0496 

ref  6 last  385 

20 ,2652 

55*373  0 

TS  SKEEP3 

0497 

REF  250  LAST  386 

20,2653 

6 0002  0 

AD  q 

0498 

RcF  20  LAST  387 

20,2654 

0 2040  1 

TC  +1CHK 

0499 

"REF  126  LAST  387 

20 ,2655 

3 0001  D 

~CA  L 

0500 

REF  6 LAST  386 

20,2656 

0 2032  1 

TC  +OCHK 

0501 

KtF  3 LAS  1 383 

20,2657 

3 /667  1 

CA  S-l 

0502 

REF  251  LAST  387 

20 ,2660 

54  002  1 - 

TS 0 

0504 


0506 

0507 
■05X78“ 


0509 

0510 
“0511 


REF  127  LAST  387 
REF  252  LAST  387 
"R  EF 7““ LAST  “3F7 


20,2662 

“ CTO! 


REF  21  LA5T  387 
REF  128  LAST  387 
“REF  21  LAST  387 — 


20.2663 

20.2664 
2072555“ 


0 0006  1 
: B ( Q ) "s  -1, 


EXTEND 


3 0002  0 
6 0002  0 


DCA 

AD 


$ DCA  SC 


20,2666 

20,2667 

20,2670 


6 1373  T 
0 2040  1 
3 0001  0 
0 20410 


AD“ 

TC 

CA 

TC 


SKEEP3 
+ 1 CHK “ 

XT“ 

“-TCHK 


R05 12 
R0513 


D--LCHK  CHECKS  THAT  OVERFLOW  IS  LOST  IN  PROCESS  OF  GOING  THROUGH  L 

“A lso  checks-  t rat- q-  will  hold  it- bits- 


REG. 


0514 

REF  2 LAST  383 

20,2671 

3 7670  1 

D--LCHK  CA 

S-2 

0515 

RcF  253  LAST  387 

20,2672 

54  002  1 

TS 

0 

0516 

REF  1 

20  9 2673 

3 3432  1 

— CA 

5-^TAX 

0517 

REF  254  LAST  387 

20 ,2674 

26  002  1 

ADS 

Q 

0518 

RcF  2 6 5 LAST  387 

20  |26?6 

4 0002  1 

cs 

a 

0519 

REF  284  LA5T  387 

2 0 f 2 6 7 6 

54  000  0 

r s 

A 

0520 

RcF  41  LA5T  386 

20,2677 

0 2020  1 

T C 

ERRORS 

0521 

20,2700 

0 0006  1 

extend 

43522 

REF  129  LAST  387 

20,2701 

3 0002  '0  - 

OCA- 

L 

♦ 

♦ 


r-~ 


* 


j 


1 
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LlNs 

AoC  BLOCK  TwO  SELF-CHECK 

USER'S  OWN  PAGE  NO.  12 

0523 

REF  285  LAST  387 

20,2702 

54  000  0 

TS  A 

0524 

20,2703 

0 2705  1 

TC  +2 

0525 

~REF  42  LAST  387 

20,2704 

0 2020  1 

TC  ERRORS 

0526 

REF  22  LAST  387 

20,2705 

0 2041  0 

TC  -1CHK 

R0527 

CHECKS  OVERFLOW  * UNDERFLOW . EMO-AROUND-CARRY V AND 

SIGN  CHANGE  OF  ADDER* 

RC5ZS 

alstt  checks  ads  sc  with  overf 

i.OW  AND  TS  A WITH  UNDtKFLUW 

0 52  9 

"REF  4 LAST  385 

20,2706 

3 7642  0 ADDRCHK 

CA  SBIT14 

20000 

- 0530  "RtF  256  LAST  387 

20,2707 

54  002  1 

TS  Q 

0531 

REF  257  LAST  388 

20,2710 

26  002  1 

ADS  Q 

$ ADS  SC,  OVERFLOW 

0532 

REF  25  8 LAST  388 

20,2711 

26  002  1 

"SOS  C 

UNDERFLOW 

0533 

REF  266  LAST  388 

20,2712 

54  000  0 

TS  A 

$ TS  SC  WITH  UNDERFLOW 

0534 

REF  43  LAST  388 

20,2713 

0 2020  1 

TC  ERRORS 

M3535 

RtF  259  LAST  388 

20,2714 

26  002  1 

ADS  Q 

0536 

-REF  22  LAST  387 

20,2715 

0 2040  1 

TC  +1CHK 

R0537 

RJP TCntC  CH eCKS  TH A T 

INTERRUPT 

DOES  NOT  OCCUR  WHILE  OVERFLOW  OR  UNDERFLOW 

R'0538 

TS  IN  THE"  A REGISTER 

, AL50  CHECKS  THAT  INHINT  RELINT  WORK  PROPERLY. 

0539 

20,2716 

0 0004  0 RJPTCHK 

INHINT 

0640 

REF  5 LA5l  386 

20,2717 

3 7665  0 

CA  5+ ZERO 

0541 

REF  - 1 

20,2720 

54  015  1 

TS  ZRUPT 

0542 

20,2721 

0 0003  1 

RELINT 

O543 

RtF  4 LAST  163 

20,2722 

6 U027  1 

-TAD  TTME4 

O544 

REF  28  LA5T  387 

20,2723 

55*371  1 

TS  SKEEP1 

0545 

REF  29  LAST  388 

20,2724 

4 1371  1 TENMS 

CS  SKEEPI 

0546  FEF  5 LAST  388 

20,2725 

6 0027  T 

-AD  TTME4 

"WAIT  FOR  NEXT  TTME4  INCREMENT 

0547 

20,2726 

0 0006  1 

EXTEND 

0548 

REF  I 

20,2727 

1 2724  0 

BZF  TENMS 

0549 

20,2730 

0 0004  0 

INHINT  - 

0550 

REF  2 LAST  388 

20,2731 

3 0015  0 

CA  ZRUPT 

0551 

20,2732 

0 0006  1 

EXTEND 

0552 

20,2733 

1 2 7 35—0 

"BZF  + 2 

NO  INTERRUPT, 

0553 

REF  1 

20,2734 

0 2716  0 

TC  RUPTCHK 

THERE  WAS  AN  INTERRUPT,  START  AGAIN. 

0554 

REF  13  LAST  387 

2u ,2  735 

3 7657  1 

CAF  S+l 

2 1/2  MS  UNTILE  NEXT  T3  INTERRUPT. 

0555 

RtF  39  LAST  368 

20,2736 

0 4536  0 - 

TC  WAITLIST 

0556 

REF  40  LAST  281 

E3 

EBANK-  LST 1 

0557 

20,2737 

02762  0 

2CADR  TSKADRS 

C0557 

REF  1 

20,2740 

40003  TT 

0558 

REF  14  LASl  386 

20,2741 

3 3431  1 

CA  S + MAX 

0559 

REF  1 

20,2742 

6 2010  1 

AD  OVCON 

CONTROLS  TIME  SPENT  IN  OF-UF  LOOP 

0560 

20,2743 

0 0003  1 

RELIEF 

0561 

RlF  287  LAS)  388 

20,2744 

4 0000  0 WAIT 

CS  A 

0562 

RcF  288  LAST  388 

20,2745 

10  000  0 

CCS  A 

0563 

REF  I 

20,2746 

0 2752  D 

TC  “ INHNTCHK 

0564 

REF  1 

20,2747 

02756  1 RUPTCON 

ADRE5  C(BRUPT) 

0565 

REF  6 LAST  387 

20,2750 

6 7656  0 

AD  5 + 2 

0566 

REF  “ r " 

20,2751 

0 2744  1 

TC  WATT- 

0567 

20,2752 

0 0004  0 INHNTCHK 

INHINT 

T3  RUPT  SHOULD  BE  WAITING 

0568 

RtF  3 lAST  384 

20,2753 

55*375  0 

TS  SKEEP5 

0569 

REF  T4  LAST  388 

20,2754 

0 20201 

TC — “ERRORS 
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LINS  AGC  BLOCK  TWO  SELF^CHECK 


USER’S  OWN  PAGE  NO*  13 


0570 

0571  REF  3 LAST  388 

0572 

0573  “REF  45  LAST  388 
Q574 

0575  "REF  2TTA5T  389 

0576  REF  1“ 

C5T7"  REF  23  "LAST  388 
D578  REF  32  LAST  369 


20*2755  0 0003  I RELINT 

20.2756  A 0015  1 C(BRUPT)  CS  ZRUPT  INTERRUPT  SHOULD  HAPPEN  HERE 

20.2757  0 0006“T“  EXTEND 

20,2760  1 2020  0 BZF  ERRORS  MAKES  SURE  AN  INTERRUPT  DID  HAPPEN 

”2(3*2761.  0~2766  1 TC  *5  END  OF'  RUPTCHK 

20.2762  4 0015  1 TSKXDK5  CS  ZRUPT 

20.2763  6 2747  I AIT  RUPTCON 

20.2764  'IT  2041  0 TC  -1CHK 

20.2765  0 4602  T TC  TASKOVER 


0579  REF  3 LAST  379  20,2766  0 2047  0~  TC  SMODECHK 

R0580  I N-OJT 1 CHECKS  ALL  PULSES  OF  WRITE  AND  READ 
" 0581 REF  4 LAST  387  20,276?  3 7667~1  IN-0UT1  CA  S-l 


0582  20,2770  0 0006  1 WRITECHK  EXTEND 

0583  REF  260  LAST  388  20,2771  01  002  1 WRITE~~“&~" 


0584 

REF 

261  LAST  389 

20,2772 

22  002  0 

LXCH  " Q 

PUT  C (Q)  IN  L 

0585 

REF 

24  LAST  389 

20,2773 

0 2041  0 

TC  -1CHK 

0586 

20,2774 

0 0006  1 READCHK 

EXTEND 

C(L)  = 77776 

0587 

REF 

130  LASr  387 

20,2775 

00  001  0 

“READ  L 

0588 

REF 

25  LAST  389 

20,2776 

0 2041  0 

TC  -1CHK 

0589 

REF 

131  LAST  389 

20,2777 

3 0001  0 

CA  L 

0590 

RtF 

26  LAST  389 

20,3000 

0 2041  0 

TC  -1CHK 

R 0 591  IN-0JT2  CHECKS  ALL  PULSES  OF  RQR  AND  WOR 


“ 0592 

“ref 

4 LAST 

384 

20,3001 

4 6165 

i r 

IR-UUT2 

CS 

S+3 

0593 

REF 

132 

LAST 

389 

20,3002 

54  001 

i 

RORCHK 

T5 

L 

77774 

0594 

REF 

6 

LA5T 

385 

20,3003 

3 2011 

0 

CA 

DVCON 

37776 

0595 

20,3004 

0 0006 

i 

"EXTEND 

0596 

REF 

133 

LAST 

389 

20,3005 

04  001 

l 

ROR 

L 

S ROR,  -1 

0597 

REF 

2T 

Las  1 

389 

20,3006 

0 2041 

0 

TC 

-1CHK 

0598 

REF 

7 

20,3007 

DVCON 

CCL)  STILL  77774 

0599 

20,3010 

0 0006 

1 

EXTEND 

0600 

REF 

134 

LAST 

389 

2u  , 30 1 1 

05  001 

0 

WOR 

L 

$ WOR,  -1 

0601 

REF 

28" 

LAS  1 

389 

20,3012 

0 204  1 0" 

"TC  " 

-TCffK  " 

0602 

REF 

135 

LAST 

389 

20,3013 

3 0001 

0 

CA 

L 

0603 

REF 

29 

LAST 

ssgr 

20 ,3014 

0 2041 

0 

TC 

-1CHK 

R0604  1 N-0UT3  CHECKS  ALL  PULSES  OF  RAND,  WAND,  AND  RXOR 


0605 

REF  8 LAST 

389 

20,3015 

4 2011 

1 

IN-0UT3 

CS 

DVCON 

0606 

REF  136  LAST 

389 

20  * 30 1 6 

54  001 

1 

R ANDCHK 

TS 

L 

40001 

0607 

RtF  3 LAST 

385 

20,3017 

3 2006 

0 

CA 

S13BITS 

17777 

0608 

20,3020 

0 0006 

1 

EXTEND 

0609 

REF  137  LAST 

389 

20  ,302 1 

02  001 

X 

"" RATTD 

L 

$ RAND,  +1 

0610 

RtF  23  LAST 

388 

20,3022 

0 2040 

1 

TC 

+ 1CHK 

0611 

RtF  4 LAST 

389 

20  * 3023 

3 2006 

0 

WANDCHK 

CA 

S13BITS 

C (L)  STILL  40001 

0612 

20 ,3024 

0 0006 

1 

“EXTEND 

0613 

REF  138  LAST 

389 

20,3025 

03  001 

0 

WAND 

L 

$ WAND,  +1 

0614 

REF  24  LAST 

389 

20,3026 

0 20<c0 

1 

TC 

+ 1CHK 

0615 

REF  2 LAST 

3 02 

20  f 302  J 

4 7664 

0 

CS 

"5X5“ 

cc 
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Li  Ns 

ASC  BLOCK  TWO  SELF- 

CHECK 

USER'S  OWN 

PAGE  NO,  14 

0616 

REF  139  LAST  389 

20,3030  56  001  0 

XCH 

L 

ALSO  PUT  -5 

IN  L FOR  RXORCHK 

TT617 

REF  "25  LAST  389 

“20,3031  0 2040  1 

TC 

+ 1CHK 

“0618 

"REF  “ T 

20,3032  3 6162  1 RXORCHK 

CA 

S + 6 

0619 

20,3033  0 0006  1 

extend 

0620 

REF  140'  LAST  390 

20,3034  06  001“0 

RXOR 

L 

$ RXOR,  -3 

052  r 

REF  7 LAST  388 

20,3035  6 7656  0 

AD 

S + 2 

0622 

REF  37  LAST  389 

20,3036  0 2041  0 

TC 

-1CHK 

0623 

“REF  141  LAST  390“ 

20,3037  3 007T“0 

“CA 

L 

0624 

REF  1 

20,3040  6 7655  0 

AD 

S+4 

0625 

REF  31  LAST  390 

20,3041  0 2041  0 

TC 

-1CHK 

0626 

REF  4 LAST  389 

20,3042  0 2047  0 

TC 

SMODECHK 

RQ627 

COUNTCHk  counts  UP 

14  BIT  NUMBER  WITH  SIGN, 

R0628 

TAKES  APPROXIMATELY 

8,7  SECONDS, 

R0629 

##  PUT  161  CCS  NEWJOB  FOR  ROPE, 

0630 

20,3043  0 0006  1 COUNTCHK 

“EXTEND 

0631 

REF  15  LAST  3 88 

20,3044  3 3432  1 

DC  A 

S + MAX 

0632 

REF  9 LAST  384 

20,3045  53*377  1 

DXCH 

SKEEP6 

PUT  37777  II 

N SKEEP6  AND  40000  IN  SKEEP7 

0633 

"REF  " TO  LAST  390"  “ 

20,3046  3 1376  1 +UCTOP 

CA 

SKEEP6 

0634 

Rep  262  |_A5f  389 

20,3047  56  002  0 

XCH 

Q 

0635 

20,3050  0 0006  1 

EXTEND 

0636 

“REF  142  LAST  390" 

20,3751  4 0002  i 

DCS 

T 

0637 

REF  289  LAST  388 

20,3052  10  000  7 

CCS 

A 

0638 

REF  "1 

20,3053  0 3062  0 

TC 

-NMBR 

0639 

““REF  1 

“20,3054 

“0  3067  0 

TC 

“EnOCOUNT 

0640 

REF  11  LAST  390 

20,3055 

55*376  0 

T5 

SKLEP6 

0641 

REF  4 LAST  380 

20  % 3056 

6 1377  0 

AD 

SKEEP7 

0642 

“REF  32  LAST  390 

TO, 3057 

0 2041  “7“ 

T C 

-1CHK 

REF  5 LAST  390 

20 f 3060 

25*377  0 

IFICR 

SKEEP7 

0644 

ReF  1 

20,3061 

0 3046  0 

1 c 

♦ LOOP 

7645 

""REF  7 43  LA5TT9O 

20,3062 

6 "0701  “0  ^NMBR" 

ad 

L 

0647 

0648 


"REF“ 


0649  — REF“ 


0650  REF 


3 LAST  378 
12  “LAST  390 
2 LAST  390 


6 LAST  390 

“0551 REF — XT 

0652 REF 7 LAST  385 


20 , 3064  0 4457  0 — 

20,3065 — 4 1376  0 

20.30 66  0 3047  1 

20.3067  3 1377  0 ENDCOUNT 

“20X3070  6 1376^1 — 

20 ,3071  0 2033  0 


TC 


CS 

CA 

FT 

TC 


CHECKNU 

5KEEP6 

♦LOOP  +1 

SKEEP7 

SKEEP6 

-OCHK 


CHECK  FOR  NEW  JOB 


5KEEP6  SHOULD'“BE'  +0 


F0653 

R0654 


" OFJFlTW ^X0WrFT>0¥N"OVERFC0W  AND  UNOeRFL'UW  ' NUMBER5* 
TAKES  APPROXIMATELY  10.8  SECONDS 


-0655  REF  2 LAST  387 


-0556 REF 4 LAST  358“ 


0658 


0660 


-0659 REF 15  LAST  390- 

REF  14  LAST  388 

REF  264  LAsT-390 


0661 


20.3072 

20.3073 

20.3074 

20.3075 
20^3076 


3 3432  1 
55+ 375  0 

4 0000  0 
0 0004  7 
6 3431  1 


O-UFLOW 


OFLOOP 


CA 

TS“ 


S-MAX" 

SKEEF5 


40000 


CS A 

INHINT 


-0562 


20,3077  6 7657“T- 

20,3100  56  002  0 

-2ornor — 10  002  1 


Fir- 

AD 

XCH 


S+WAX 
S+ 1 

“tr- 


ees 


a 
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LINS 

AoC 

flock  no  self- 

CHECK 

USER'S  OWN  PAGE  NO*  15 

0663 

REF 

1 

20 

.3102 

0 3117 

0 

TC 

-NMBRS 

0664 

REF 

46  LAST  389 

20 

,3103 

0 2020 

1 

TC 

ERRORS  CAN  PUT  IN  CONSTANT 

0665 

REF 

8 LAST  387 

20 

,3104 

55 * 373 

0 

TS 

SKEEP3 

0666 

REF 

47  LAST  391 

20 

,3105 

0 2020 

r 

TC 

ERRORS 

0667 

REF 

9 LAST  391 

20 

,3106 

3 1373 

1 

CA 

SKEEP3 

0668 

REF 

5 LAST  390 

20 

,3107 

6 1375 

1 

AD 

SKEEP5 

0669 

REF 

34  LAST  390 

20 

,3110 

0 2041 

0 

TC 

-1CHK 

0670 

20 

,3111 

0 0003 

1 

relint 

06701 

REF 

4 LAST  390 

20 

,3112 

0 4457 

0 

TC 

CHECKNJ  CHECK  FOR  NEW  UOB 

0671 

REF 

6 LAST  385 

20 

,3113 

3 1374 

0 

CA 

SKEEP4 

0672 

20 

,3114 

0 0006 

i 

EXTEND 

0673 

REF 

6 LAST  391 

20 

,3115 

27*375 

0 

DIM 

SKEEP5 

0674 

REF 

1 

20 

,3116 

0 3075 

0 

TC 

OFLOOP 

0675 

ref 

7 LAST  391 

20 

,3117 

55*374 

1 

-NMBRS  TS 

SKEEP4 

0676 

REF 

1 

20 

,3120 

0 3130 

0 

TC 

ENDOFUF 

0677 

REF 

8 LAST  391 

20 

,3121 

3 1374 

0 

CA 

SKEEP4 

0678 

REF 

7 LAST  391 

20 

• 3122 

6 1375 

1 

AD 

SKEEP5 

0679 

REF 

35  LAST  391 

20 

,3123 

0 2041 

0 

TC 

-1CHK 

0681 

RcF 

8 LAST  391 

20 

,3124 

3 1375 

1 

CA 

SKEEP5 

0682 

REF 

3 LAST  390 

20 

♦ 3125 

6 3432 

1 

^SD 

S-MAX 

0683 

REF 

5 LAST  389 

20 

,3126 

6 7667 

1 

AD 

S-l 

0684 

REF 

2 LAST  391 

20 

• 3127 

0 3100 

0 

T C 

OFLOOP  +3 

06  8 5 

9 LAST  391 

20 

,3130 

3 1375 

1 

ENDOFUF  CA 

SKEEP5 

0686 

REF 

8 LAST  390 

20 

,3131 

0 2033 

0 

TC 

-OCHK 

0687 

REF 

9 LAST  391 

20 

,3132 

4 1374 

1 

cs 

SKEEP4 

0688 

REF 

9 LAST  389 

20 

,3133 

6 2011 

0 

AD 

DVCON 

0689 

REF 

36  LAST  391 

20 

,3134 

0 2041 

0 

TC 

-1CHK 

0690 

20 

,3135 

0 0003 

1 

RELINT 

0691  REF"  5 LAST  390  ~ 20,3136  0 2047  0 ^TC  SMOQECHK 


R0692 

R0693 

R0694 

RC695'“ 

R0696 

R0697 

R0698 


SXEEP7  H0LDS  LOWEST  OF  TWO  ADDRESSES  BETNG  CIFeXKEDT" 
5KEEP6  HOLDS  8(X+1), 

SKEEP5  HOLDS  B (X ) • 


“STEEP 4 CONTR OL5  '"CHECKTNFUF 
BANK  NUMBERS  IN  EB, 

SXEEP3  hOLDS  LAST  ADDRESS  BEING  CHECKED  (HIGHEST  ADDRESS). 
SKEEP2  HOLDS  C(EBANK)  DURING  LHECKNJ 


R0699  ERASCHK  takes  APPROXMATELY  7 SECONDS 


0700 

REF 

15  LAST  390 

20,3137 

3 7657  1 

ERASCHK 

CA' 

5+1 

.... 

0701 

REF 

10  LAST  391 

20 ,3140 

55*379  1 

TS 

SKEEP4 

O7O2 

REF 

6 LAST  383 

20,3191 

3 7665  0 

OEBANK 

CA 

S+ZERO 

0703 

RcF 

17  LAST  372 

20,3142 

54  003  0 

TS 

ebank 

0704 

REF 

1 

20,3143 

3 2004  1 ’ 

CA 

ERA  S C ONS'  ' 

01462 

0705 

REF 

7 last  390 

20 ,3144 

55*377  1 

TS 

SKEEP7 

STARTING  ADDRES5 

O7O6 

RcF 

1 

20 ,3145 

3 6426  1 

CA 

S10BITS 

01777 

0707 

REF 

10  LASl  391 

20,3146 

55*373  0 

“TS 

SXEEP3  ' 

“CAST  ADDRESS  CHECKED 

O7O8 

RCF 

1 

20,3197 

0 3167  1 

TC — 

ERASLOOP 

— OTCT9 REF T 


20,3150  ‘3  2003  0 E134567B  CA 


ERA'S  COM  6 


01400 
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LINS 

AGC  BLOCK  TaO  self 

-check 

USER  * S OWN  PAGE  NO,  16 

0710 

REF  a LAST  391 

20,3151 

55*377  1 

TS 

SKEEP7 

starting  address 

0711 

REF  2 LAST  39 1 

20,3152 

3 6426  1 

CA 

S10BITS 

01777 

0712 

REF  11  LAST  391 

20,3153 

55*373  0 

TS 

SKEEP3 

LAST  ADDRtSS  CHECKED 

0713 

“REF  2 LAST  391 

20,3154 

0 3167  1 

TC 

ERASLOOP 

0714 

REF  2 LAST  39 1 

20,3155 

3 2OO3  0 

2EBANK  CA 

ERASC0N6 

01400 

0715 

REF  9 LAST  392 

20,3156 

55*377  1 

TS 

SKEEP7 

STARTING  ADDRESS 

071 6 

ref  1 

20,3157 

3 2OO5  0“ 

— C7T“ 

ERASC0N4 

01774 

0717 

" REF  12  LAST*  392 

20,3160 

55*373  0 

TS 

SKEEP3 

last  address  checked 

0718 

“REF  3 LAST  392 

20,3161 

0 3167  1 

TC 

ERASLOOP 

0719 

REF  11  LAST  391 

20,3162 

55*374  1 

NOEBANK  TS 

SKEEP4 

+0 

O72O 

REF  1 

20,3163 

3 2001  1 

CA 

ERASCON 1 

00062 

0721 

REF  10  lAsT  392 

20,3164 

55 ' 377  T 

T 5 

SKEEP7 

starting"  address 

0722 

REF  1 

20,3165 

3 2002  1 

CA 

ERASC0N2 

01374 

0723 

REF  13  LAST  392 

20,3166 

55*373  0 

TS 

SKEEP3 

LAST  ADDRESS  CHECKED 

0724 

20,3167 

0 0004  0 

ERASLOOP  inhint 

0725 

REF  11  LAST  392 

20*3170 

3 1377  0 

CA 

SKEEP7 

"0726 

RTF  144  LA5I  390 

20,3171 

54  001  1 

TS 

L 

0727 

REF  145  LAST  392 

20,3172 

24  001  0 

I NCR 

L 

0728 

“REF  291  LAST  390 

20,3173 

50  000  1 

NDX 

A 

0729 

20,3174 

52  001  1 

DXCH 

GOOD 

PUTS  OWN  ADDRESS  IN  X AND  X +1 

O73O 

“RcF  TO  LAST  391 

20,3175 

53*  37t>  0 

DXCH 

SKEEP5 

STORES  C(X)  AND  C(X-l)  IN  SKEEP6  AND  5 

0731 

REF  12  LAST  392 

20,3176 

51*377  0 

““NDX 

5KEEP7 

T732 

20,3177 

4 OOOI  1 

cs— 

TTOOT 

CS  X+l 

0733 

REF  13  LAST  392 

20,3200 

51*377  0 

NDX 

SKEEP7 

0734 

20,3201 

6 0000  1 

AD 

0000 

AD  X 

0725 

REF“"  37  L A5T~S9 I “ 

TO  ,3202  " 

TTT04IT3 

TC 

-1CHK 

0736 

20,3203 

0 0006  1 

EXTEND 

0737 

REF  74  LAST  392 

20,3204 

5 1377  "0 

NDX 

SKEEP7 

“0738 

20,3205 

4 0001  1 

DC5 

0000 

COMPLEMENT  OF  ADDRESS  OF  X AND  X+l 

0739 

REF  15  LAST  392 

20,3206 

51*377  0 

NDX 

SKEEP7 

O74O 

20,3207 

52  001  1 

DXCH 

0000 

PUT  COMPLEMENT  OF  ADDRESS  OF  X AND  X+I 

0741 

"REF  T6  LAST  372 

2u , 32 lu 

5T*r377““0  “ 

NDX 

S KEEP 7 

0742 

20,3211 

4 0000  0 

CS 

0000 

C5  X 

U743 

REF  17  LASl  392 

20,3212 

51*377  0 

NDX 

5KEEP7 

°744 

TO , 3213 

6 0001  0 -- 

AD  “ 

“0001 

AD  X+l 

0 745 

RcF  38  [.AST  392 

20,3214 

0 2041  0 

TC 

-1CHK 

0746 

RcF  11  LAST  392 

20,3215 

53*376  0 

DXCH 

SKEEP5 

0747 

RtF  "TB  LAST  392 

20,3216 

51*377  0 

— NDX"“ 

5KEEP  7 " 

O748 

20,3217 

52  001  1 

DXCH 

0000 

PUT  B ( X ) AND  B ( X+ 1 ) BACK  INTO  X AND  X+l 

0749 

20,3220 

0 0003  1 

RELINT 

0750 

RcF  IB  LAST  391 

20,3221 

3 0003  I — 

CA 

EBAMK 

STORES  C( EBANK) 

O75 1 

REF  10  LAST  386 

20,3222 

55*372  1 

r s 

SKEEP2 

0752 

RcF  5 LAS!  391 

20,3223 

0 4457  0 

TC 

CHECKNJ 

CHECK  FOR  NEW  UOB 

0753 

“"RcF  Hr  lA5T“392 

20,3224 

3 1372  0 

CA 

5KttP2 

“ REPLACES  B (EBANK) 

0754 

RcF  19  LASl  392 

20,3225 

54  003  0 

TS 

EBANK 

0755 

REF  19  LAST  392 

20,3226 

25*377  0 

I NCR 

SKEEP7 

0756 

~ ' ref  20  LAST  392 

10,3227 

4 1377  1 

cs 

SKEEP7  “ 

<* 
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LINS  AGC  BLOCK  TWQ  SeUF-Cm£CK  USER'S  OWN  PAGE  NQ.  17 

0757  REF  14  LA5T  392  20 ,3230  6~  1373  1.  AD"  SKEEP3 

0758  20*3231  0 0006  1 EXTEND 

0759  20 ,3232  1 323 4““0~  BZF  »2  

“0760  REF  4 EAST  392  20,3233  0 3167  1 TC  ERASLOOP  ' GO  TO  NEXT  ADDRESS  IN  SAME  BANK 

0761  ~ REF  ~ 12  LAST  392  20,3234  11*374  T “ CCS  SKEEP4 

0762  REF  I 20*3235  0 3162  1 TC  NOE BANK 

0763  “REF  13  LAST  393  20,323 6 25*374  0 INCR  SKEEP4  PUT  +1  IN  S<EEp4 

0764  REF  20  LAST  392  20,3237  3“0O~O3T  CA  EBANK 

0765  REF  2 LAST  380  20,3240  6 7647  0 AD  ~ SB  I T9 

0766  REF  “TT  LAST  393  20,3241  54  003  0 TS  EBANK  

“0767  REF  1 20,3242  6 2013  1 “ AD  ERASC0N5  76377  CHECK  FOR  BANK  E3 

0768  20,3243  “0"  3006  1 EXTEND 

0769  REF  T 20,3244^1  3155  1 BZF  2EBANK 


0770 

REF  22  LAST  393 

20,3245 

10  003  0 

CCS 

EBANK 

0771 

RcF  1 

2u  * 32 46 

0 3150  0 

TC 

E134567B 

GO  TO  EBANKS  1,3, 4, 5, 6,  AND  7 

0772 

REF  3 LAST  392 

20,3247 

3 2003  0 

CA 

ERASC0N6 

END  OF  ERASCHK 

0773 

REF  23  LAST 393 

20,3250 

54  003  0 

TS 

EBANK 

R0774 

CNTRCNK  PERFORMS 

A CS  Ur  ALL 

REG  I S | EKS 

FROM  OCT.  61  THROUGH  OCT.  10. 

R0775 

I N1CLUDED  ARc.  all 

Count tR3 * f 6 

-1,  CYCLt 

AND  SHIFT,  AND 

ALL  RUPT  REGISTERS 

~0776 

RcF  1 

20,3251 

3 2000  0 

CNTRCHK  “TAF 

CNTRCON 

00051 

0777 

REF  12  LAST  392 

20,3252 

55*372  1 

CNTRLOOP  TS 

SKEEP2 

0778 

REF  1 

70,3253 

6 7654  1 

AD 

SBIT4 

+10  OCTAL 

10779  REF  292  LASl  392 ~ 20,3254  50  OOP  1 ~ TNDEX  A 


0780  20,3255  4 0000  0 TS  0000 

0781  REF  13  LAST  393“  20,3256  11*372  1 CCS  SKEEP2 

0782  REF  1'  •"  20,3257  0 “3252  T ““  “TC-"  CNTRLOOP  “ 


R C 7 8 3 CYCLSHFT  CHECKS  THE  CYCLE  AND  SHil FT "REGISTERS 


0784 

REF 

i 

20,3260 

3 2007  1“ 

CYCLSHFT  CA 

conc+st 

25252 

0785 

RcF 

44 

LAST  355 

20 ,3261 

54  020  1 

TS 

CYR 

C (CYR ) = 12525 

0786 

REF 

21 

LAST  356 

20*3262 

54  022  0 

rs 

CYL 

C (CYL ) = 52524 

0787“ 

RcF 

4<d 

LAST  381 

20,3763 

54  021  0“ 

TS  “ 

SR  “ 

C (SR)  = 12525 

0788 

RcF 

5 

LAST  35 

20,3264 

54  023  1 

TS 

EDOP 

C (EDOP)  = 00125 

0789 

Rtr 

45 

LAST  3g3 

20,3265 

6 0020  0 

AD 

CYR 

37777  C (CYR)  = 45252 

C79B“ 

“REF 

22“ 

LAST  393 

20  *3266 

6 0022  1 

- AD  - 

“CYL 

00-12524  C (CYL)  = 25251 

0791 

REF 

43 

LAST  393 

20*3267 

6 0021  1 

AD 

SR 

00-25251  C (SR)  = 05252 

0792 

RcF 

6 

LAST  393 

2o ,3270 

6 0023  0 

AD 

EDOP 

00-25376  C(EDOP)  = +0 

0T93 

REF 

1 

20,3771 

““ 6 2012  (7 

— AD" 

C0NC+S7 

C CCONC+S27  = 52400 

0794 

REF 

39 

LAST  392 

20,3272 

0 2041  0 

TC 

-1CHK 

u r 95 

Rcr 

46 

LASl  393 

20*32  j 3 

6 0020  0 

AD 

CYR 

45252 

0796 

REF 

23 

LASl  393 

20,3274 

6 0022  1 

“ AD 

CYL-  “ 

72523 

0797 

REF 

44 

LAST  393 

20,3273 

6 0021  1 

AD 

SR 

77775 

o ( 9o 

Kcr 

7 

LAST  393 

20 ,3276 

6 0023  0 

AD 

EDOP 

77775 

0799 

REF 

16 

LAST  391 

20,3277 

6 7657  1 

AD 

“srr 

77776 

0800 

Rcr 

40 

LAST  393 

“2073300 

0 2041  0 

TC 

-1CHK 

0801  “ 

REF 

3 

LAST 

378 

20,3301 

25*367“ 

1 

TNCR 

“SCOUNT“ +1 

* 

RCF 

6 

LAS  1 

391 

20 ,3302 

0 2047 

0 

TC 

SMOdECHK 

• 

0803 

Rcr 

2 

LAST 

379 

20*3303 

0 3307 

0 

TC 

ROPECHK 
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LlNs  AGO  BLOCK*  TWO  SELFwGHECK 


user's  Own  page  no*  is 


R0804  S<EEPl  HOLDS  SUM"  

‘ HOLDS  PRESENT  CONTENTS  OFi  address  in  ropechk  and  showsum  routines 


R0805 
R0806 
Roe  07 


R0808 

R0809 

RQ810 


skeeP2 

S<  E E P 3 


S<EEP3 

SKEEP4 


HQL.05  bank  NUMBER  IN.  low  QROlR  bits  DURING  SHowSUM  DISPLAY” 
HOLDS  PRESENT  ADDRESS  (00000  TO  01777  IN  COMMON  FIXED  BANKS) 

(04000  TO  07777  IN  FXFX  BANKS) 

HOLDS  BUGGER  WORD  DURING  SHOWSUM  DISPLAY 
HOLDS  BANK  NUMBER 


'Roan  SXTePB  "COUNTS  2 SUCCESSIVE  TO  SELF  WORDS 

r 0 8 i 2 s<eeP6  controls  ropechk  or  showsum  option  

R 08 1 3 s < eeP7  CONTROLS  when  RQUNTINe  is  in  common  FIXED  or  fixed  fixed  banks 


0814 

REF  1 

20  *3304 

0 53O4  0 

STSHOSUM  TC 

GRABDSP 

0815 

RtF  2 LAST  359 

20,3305 

0 5312  1 

TC 

pregbsy 

0816 

20,3306 

0 3311  1 

TC 

+ 3 

0817 

REF  2 LAST  385 

20,3307 

3 7666  0 

ROPECHK  CA 

S-ZERO 

0818 

REF  14  LAST  390 

20,3310 

55*376  0 

TS 

SKEEP6 

ROPECHK  OPTION 

"05  19 

“RtF"  7 LAST  391 

20,3311 

3 7665  0 

”CA 

S+ZERO 

0820 

"REp  14  LA5T  393 

20,3312 

55*374  1 

TS 

SKEEP4 

bank  number 

REF  17  LAST  393 

20,3313 

3 7657  1 

C A 

S+l 

US22 

REF  21  LAST" 392 

20,3314 

55*377  1 

COMMFR  TS 

SKEEP7 

0823  RtF  8 LAST  394 

20,3315 

3 7665  0 

CA 

S+ZERO 

0824 

REF  30  LAST  388 

2u , a 1 6 

55*371  1 

T5 

SKEEP1 

“0325 

“RTF"  1"5  "LAST  393 

20,3317 

55*373  0 

IS” 

SKtEP3 

Rtp  1 8 EAST  394 

2u  ,3320 

3 7657  1 

CA 

s+ 1 

0827 

REF  12  LAST  392 

20,3321 

55*375  0 

T5 

SKEEP5 

COUNTS  DOWN  2 TC  SELF  WORDS 

082  8 

RTF  T6"  LAST  394 

20,3322 

3 1373  1 

CO  MANORS  CA 

SKEEP3 

0829 

REF  15  LAST  394 

20,3323 

6 1374  0 

AD 

SKEEP4 

0830 

REF  2 LAST  330 

20 ,3324 

0 4116  0 

TC 

DATACALL 

”08  31" 

“RTF  r 

20,3325 

0 3351  0 

TC 

ADSUM 

0832 

REF  1 

20,3326 

6 7645  1 

AD 

SB  I T 1 1 

02000 

0833 

REF  1 

20,3327 

0 3362  0 

TC  ADRSCHK 

0834 

RtF  293  LAST  393 

20,3330 

4 0000  0 

FXFX  CS 

A 

0835 

RtF  22  LAST  394 

20,3331 

55*377  1 

TS 

SKEEP7 

”0836 

20,3332 

0 0006  1 

EXTEND 

0837 

20,3333 

1 3336  0 

BZF 

♦ 3 

0838 

REF  1 

20 ,3334 

3 7644  0 

CA 

SB  I T 1 2 

04000,  STARTING  ADDRESS  OF  BANK 

02 

0839 

20,3335 

0 3337  0 

TC 

+2“ 

0840 

RtF  1 

20,3336 

3 4506  0 

CA 

SBNK03 

06000,  STARTING  ADDRESS  OF  BANK 

03 

0841 

RtF  17  LAST  394 

20,3337 

55*373  0 

TS 

SKEEP3 

0542 

RtF  9 LAST  394 

20,3340" 

3 7665  0 

"CA -- 

5 + ZERO 

0843 

Rtp  31  LAST  394 

20,3341 

55*371  1 

TS 

SKEEpl 

0844 

RcF  19  LAST  394 

20,3342 

3 7657  1 

CA 

S+l 

0845 

RtF  13  LAST  394 

20,3343 

55*375  0 

TS 

SKTEP5 

"COUNTS  DOWN  2"TC  SELF  WORDS 

0346 

20,3344 

0 0006  1 

FXADRS  EXTEND 

0847 

RtF  18  LAS  1 394 

20,3345 

5 1373  1 

NDX 

SKEEP3 

0848 

20,3346 

3 0001  0" 

DCA 

ocroo" '" 

0849 

REF  2 LAS  1 394 

20,3347 

0 3351  0 

TC 

ADSUM 

0850 

RTF"  2 LAST  394" 

20,3350 

0"  3362  0 

“ TC 

ADRSCHK 
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HNS  ASC  BLOCK  TWO  SELF-CHECK  USEr*S  OWN  PAGE  NO.  19 


0351 

REF  14  LAST  393 

20,3351 

55*372 

1 

ADSUM 

TS 

SKEEP2 

0852 

REF  32  EAST  394 

20,3352 

6 1371 

0 

AD 

SKEEP1 

0853 

REF  33  LAST  395 

20,3353 

55 ' 371 

1 

TS 

SKEEP1 

0854 

REF  10  LAST  394 

20,3354 

3 7665 

0 

CAF 

S+ZERO 

0855 

REp  34  LAST  395 

20,3355 

6 1371 

0 

AD  ' 

SKEEpl 

0856 

REF  35  LAST  395 

20,3356 

55*371 

1 

TS 

SKEEP1 

0857 

REF  15  LAST  395 

20  9 33!? 7 

4 1372 

1 

cs 

SKEEP2 

0858 

REF  T9  LAST  394 

20,3360 

6 1373 

1 

AD 

SKEEP3 

0859 

REF  265  LAST  390 

20,3361 

0 0002 

0 

TC 

Q 

0860 

REF  29a  LAST  39a 

20,3362 

10  000 

0 

ADRSCHK 

CCS 

A 

0861 

ref  1 

20,3363 

0 3373 

0 

TC 

continu 

0862 

REF  2 LAST  395 

20,3364 

0 3373 

0 

TC 

CONTINU 

0863 

REF  3 LAST  395 

20,3365 

0 3373 

0 

TC 

CONTINU 

0864 

REF  14  LAST  394 

20,3366 

11*375 

0 

CCS 

SK.EEP5 

0865 

REF  4 LAST  395 

20,3367 

0 3374 

1 

TC 

CONTINU  +1 

0866 

REF  146  LASl  392 

20,3370 

3 0001  0 

CA 

L 

0867 

REF  3 LAST  394 

20,3371 

0 3351 

0 

TC 

ADSUM 

0868 

REF  1 

20,3372 

0 3434 

1 

TC 

SOPTION  GO  TO  ROPECHk  SHOSUM  OPTION 

0869 

REF  20  LAST  394 

20,3373 

3 7657 

I 

CONTI  NU 

CA 

S + l MAKE  SURE  TWO  CONSECUTIVE  TC  SELF  WORDS 

0870 

REF  15  LAST  395 

20,3374 

55*375 

0 

TS 

SKEEP5 

O87I 

REF  15  LA5T  394 

20*3375 

11*376 

0 

CCS 

SKEEP6  +1  IN  SKEEP6,  SHOWSUM  VIA  EXECUTIVE 

0872 

REp  18  LAST  281 

AU  ,3376 

10  067 

1 

CCS 

NEW  JOB 

0873 

REF  3 LAST  281 

20,3377 

0 4404 

0 

TC 

CHANG1 

0874 

20 ,3400 

0 3402 

1 

TC 

+ 2 

0875 

REF  6 LAST  592 

20 ,3401 

0 4457 

0 

tc 

CHECK  NJ  -0  IN  SKEEP6  FOR  ROPECHK 

O876 

REF 

20 

LAST  395 

20,3402 

25*373 

1 ADRS+1 

I NCR 

SKEEP3 

0877 

LAST  394 

20,3403 

11*377 

I 

CC5 

5kEEp7 " 

0878 

REF 

1 

20,3404 

0 3322 

1 

TC 

COMADRS 

0879 

REF 

2 

LAST  395 

20,3405 

0 3322 

1 

TC 

COMADRS 

WO  REF  I 20,3406  0T3A4"1 TC FXADRS 

0881  REF  2 LAST  395  20,3407  0 3344'  1 TC FXADRS 


0882 

REF 

16 

EAST 

394 

20, 3 41 CT 

3 1374 

0 NXTBNK 

CA 

SKEEP4 

0883 

ref 

2 

last 

394 

20,3411 

6 7645 

1 

AD 

SBlTll 

0884 

REF 

17 

LAST 

395 

20,3412 

55*374 

1 

TS 

SKEEP4 

~ OS  8 5 

20,3413 

0 3416  1 

TC 

+ 3 

0886 

RcF 

+ LAST  381 

20,3414 

i 7641  0 

CA 

SBIT15 

0887 

RcF 

l3  LAST  395 

20,3415 

55*374  1 

TS 

SKEEP4 

0888 

REF 

I 

20,3416 

6 3437  1 

AD 

NOBATTKMT 

FIRST  BANKTTOT  USED. 

0889 

20,341 ! 

0 0006  1 

EXTEND 

0890 

RcF 

1 

20 ,3420 

1 3427  1 

3ZF 

ENDSUMS 

Uo9  i 

KCf  ^ “ LM5I  J9P 

20,3421 

11*377  1 

CCS 

SKEEPT 

0892 

1 

20,3422 

0 3314  1 

TC 

COMMFX 

KLF 

c.\  LA5I  395 

20,3423 

3 7657  1 

CA 

S+l 

0894 

REF 

1 

2073424 

0 3330  1 

- TC 

FXFX 

0895 

REF 

1 

20,3425 

3 7651  1 

CA 

SBIT7 

CAN  BE  ANY  NUMBER  LARGER  THAN  36  DECIMAL 

0896 

RcF 

AL.AST  395 

20 ,3426 

0 3314  1 

TC 

COMMFX- 

473423A 

YJL 

SYSTEM  FOR  BL<2 

: REVISION 

12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  396 

LlNs 

AoC 

3E0CK  TaO  SELF- 

CHECK 

USER'S  OWN  pAGE  NO.  20 

0897 

REF 

16  LAST  395 

20,3427 

11*376  0 

END5UMS 

CCS 

SKEEP6 

0898 

" R EF  ” 

3 LAST- 393 

20,3430 

0 3311  1 

TC 

ROPECHK  +2 

START  SHOWSUM  AGAIN 

0899 

20,3431 

37777  1 

S + MAX 

octal 

37777 

*4  S+MAX  AND  S-MAX  MUST  BE  TOGETHER 

0900 

20,3432 

40000  0 

S-MAX 

OCTAL 

40000 

FOR  DOUBLE  PRECISION  CHECKING, 

■■  0901  ' 

"RET 

2 LAST  379 

2073433 

0 35T5  0 

TC 

mfnmbrs  -1 

ropechk  is  completed 

0902 

REF 

17  LAST  396 

20,3434 

11*376  0 

SOPTION 

CCS 

5KEEP6 

DECIDE  ON  ROPECHK  OR  SHOWSUM  OPTION 

0903 

R£F 

1 

20,3435 

0 347TT0" 

TC 

SDlSPLAY 

0904 

20,3436 

00501  0 

VNCON 

OCTAL 

00501 

USED  IN  SHOWSUM,  DISPLAY  3 REGISTERS, 

0905 

20,3437 

33777  0 

NOBANK  NX 

1 OCTAL 

33777 

* CONSTANT,  COMPLEMENT  OF  LAST  BANK  +1. 

RQ906 

CHAN 

BE  TO  33777  I F 

BANK  21  IS 

last  Bank 

used 

0907 

REF 

736  LAST  395 

20,3440 

11*371  1 

BNKCHK 

CCS 

SKEEP1 

WHEN  C(SKEEP6)  = -0 

“WO  8 

20,3441 

0 3445  1 

TC 

♦4 

“0909 

W 

2 LAST  396 

20,3442 

41471  0 

Sc  ADR 

fcadr 

sdisplay 

* CONSTANT , USED  I IT  SHOWSUM  ONLY 

0910 

20,3443 

0 3445  1 

TC 

+ 2 

0911 

REF 

6 LAST  391 

20,3444 

3 7667  1 

CA 

s-i 

FOR  BANK  00 

“0912  “ 

REF 

37  LAST  396 

20,3445 

55*371  1 

TS 

5KEEP1 

0913 

REF 

“1 9 LAST  395 

20,3446 

3 1374  0 

CA 

SKEEP4 

0914 

REF 

“5  LAST  328 

20,3447 

0 5207  1 

TC 

LEFT  5 

0915 

RET 

295  LAST  395 

20,3450 

4 0000  0 

CS 

A 

0916 

REF 

38  LAST  396 

20,3451 

6 1371  0 

AD 

SKEEP1 

0917 

REF 

41  LAST  393 

20,3452 

0 20410 

TC 

-1CHK 

0918 

REF 

1 

20,3453 

0 34 re  1 

"TC 

nxtbnk 

R09j9  INITIALIZE  SKEEF6  TO  +1  TO  PERFORM  5HUW5UM 


RTJ920  START  Op  ROUTINE  THAT  oISPlAVS  5uM  Of  EAcH  BANK 


0921 

REF 

22  LAST  395 

20,3454 

3 7657  1 

SHOWSUM  CAF  5+1 

0922 

REF 

18  LASI  396 

20 , 3455 

55*376  0 

TS  5KEEP6 

SHOWSUM  OPTION 

0923 

KEF 

nr  LAST  395 

£0 ,3456 

3 7665  0“ 

“CAF  S+ZERO  " 

0924 

REF 

6 LAST  378 

20,3457 

55*361  0 

TS  5M0DE 

PUT  SELF-CHECK  TO  SLEEP 

09241 

REF 

1 

20,3460 

3 2017  0 

CA  SELFADRS 

INITIALIZE  SELFRET  10  GO  TO  SELFCHK, 

‘09242 

REF 

5 LASI  158 

20,3461 

55*360  1 

TS  “ SELFRET 

0925 

20,3462 

0 0004  0 

INHINT 

0926 

REF 

1 

20,3463 

3 7645  1 

CAF  PR  102 

092T 

RtF 

18  LAST  366 

20,3464 

0 4363  "0 

TC  NOVAC 

0928 

RtF 

6 LAST  396 

‘ E2 

EBANK=  SELFRET 

0929 

20,3465 

03304  0 

2CADR  STSHOSUM 

C0929 

REF 

I 

20,3466 

40002"! 

0930 

20,3467 

0 0003  1 

RELINT 

0931 

REF 

49  LAST  363 

20,3470 

0 4440  0 

TC  ENDOFUOB 

0932 

REF 

20 

LAST 

396 

20,3471 

3 1374 

0" 

SDISPLAY  CA 

SKEEP4 

0933 

REF 

6 

last 

396 

20,3472 

0 5207 

1 

TC 

LEFT5 

cycles  left  5 places 

0934 

REF 

i 6 

LAS  T 

395 

20,3473  57*  37Z 

0" 

XCH 

SKEEP2" 

5KEEP2  HOLDS  BANK  NUMBER 

DUR 1 NO 

DISPLAY 

0935 

R-F 

21 

LAST 

395 

20,3474 

55*  Hi 

0 

TS 

SKEEP3 

SKEEP3  HOLDS  BUGGER  WORD 

During 

DISPLAY 

0936 

REF 

3 

LAST 

381 

20,3475 

3 2015 

1 

NOKILL  CAF 

ADRS1 

ADDRESS  OF  SKEEP1 

0937 

RtF 

532 

L "AS  1 

3 5 T 

2u , 3^  T6 

54  142 

T 

“TS 

MPAc  +2 

0938 

REF 

1 

20,3477 

3 3436 

0 

CAF 

VNCON 

DISPLAY  3 REGISTERS 

0939 

REF 

4 

LAS  r 

360 

20 ,3500 

0 5107 

1 

TC 

NVSUB 

W4t> 

REF 

i 

2U , 350 1 

CT  3513 

"0“ 

WX 

BBTJSY 
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LlNs 

A3C 

BLOCK  TWO 

1 SELF- 

CHECK 

USER'S  OWN  PAGE  NO.  21 

0941 

REF 

6 LAST 

336 

20,3502 

0 

5274  0 

TC 

FLASHON 

0942 

REF 

T8  DTST 

343 

20,3503 

0 

5140  Y~ 

TC 

ENDIDLE 

0943 

20,3504 

0 

3507  0 

TC 

+ 3 

FINISHED  WITH  SHOWSUM 

0944 

REF 

2 LAST 

396 

20,3505 

0 

3410  1 

TC 

NXTBNK 

TT  945 

~REF 

1 

20,3506 

3475  1 

TC 

NOKILL 

SO  CAN  LOAD  WITHOUT  KILLING  SHOWSUM 

0946 

REF 

8 LAST 

278 

20,3507 

0 

5401  1 

TC 

FREEDSP 

09461 

REF 

2 LAS  1 

396 

20,3510 

3 

2017  0 

CA 

SELFADRS 

INITIALIZE  SKEEP1  TO  GO  TO  SELFCHK. 

09452 

REF 

39  LS3T 

396 

20,3511 

55*371  1 

rs 

SKEEP1 

0947 

REF 

50  LAST 

396 

20,3512 

0 

O 

O 

>* 

TC 

ENDOFJOB 

0948 

RcF 

1 

20,3513 

3 

3442  0 SBU5Y 

CAF 

SCADR 

0949 

RcF 

3 LAST 

360 

20,3514 

0 

5327  1 

TC 

NVSUBUSY 

0950 REF  7~LAST  393  20,3515  0 2047  0 TC  SMODECHK 


R0951  MULTIPLY  SUBROUTINE  TAKES  APPROXIMATELY  19  SECONDS. 
RG952  (37777)  X (37777  THRTJUGH  0000 1 ) 

R0953  C (A)  COUNTS  DOWN.  C(L)  COUNTS  W 


0954 

REF 

17 

LAST  390 

20,3516 

3 3431  1 

MPNMBRS 

CAF 

S + MAX 

0955 

HREF 

T7 

LAST  396 

20,3517 

55*372  I 

T5 

SKLEP2 

0956 

REF 

18 

LAST  397 

20,3520 

3 3431  1 

CAF 

S+MAX 

0957 

20,3521 

0 0006  1 

EXTEND 

0958 

REF 

18 

LAST  397 

20,3522 

7 1372  T 

' MP 

SKEEP2 

0959 

REF 

147 

LAS  1 395 

20,3523 

6 0001  0 

AD 

L 

C ( A ) = 37777 

0960 

REF 

4 

LAST  391 

20 ,3524 

6 3432  1 

AD 

S-MAX 

0961 

RcF 

9 

LAST  3 91 

20,3525 

0 2033 IT 

TC 

-OCHK 

0962 

REF 

7 

LAST  395 

2l>  ,3526 

0 445?  0 

TC 

CHECKNU 

CHECK  FOR  NEW 

UOB 

0963 

REF 

19 

LAST  397 

20,3527 

11*372  1 

CCS 

SKEEP2 

0964 

REF 

20 

LAST  397 

20,3530 

55*372  T 

T5 

SKEEP2 

0965 

REf 

21 

LAST397 

cO  ,3531 

11*372  1 

CCS 

SKEEp2 

0966 

REF 

3 

LAST  396 

20 , 3532 

0 3520  0 

TC 

MPNMBRS  +2 

R0967 

(-1) 

X 

(37777  THROUGH  00001) 

O968 

REF 

19 

Ltthl  397 

20,3533 

3 3431  1 

CAF 

S+MAX 

0969 

REF 

22 

LAST  397 

20 ,3534 

55*372  1 

TS 

SKEEP2 

0970 

REF 

/ 

LA5TT96 

207,3535 

3” 7667  1 

MPHIGHT 

TAF 

0971 

2u ,3336 

0 0006  1 

extend 

0972 

REF 

23 

LAST  39  1 

20,3537 

7 1372  1 

YP 

SKEEP2 

C ( A)  = -0 

0973~ 

REF 

to 

LAST  39 T 

2u ,354U 

0 2033T- 

TC 

-OCHK 

0974 

Rtf 

148 

LAST  397 

20 ,3541 

3 0001  0 

CA 

L 

uy  75 

Kcr 

c 4 

LAST  397 

20 ,3542 

6 1372  0 

AD 

SKEEP2 

0976 

REF 

11 

LAST  397 

20 ,3543 

0 2033TT 

TC  - 

-OCHKT 

0977 

REF 

8 

LAST  397 

20,3544 

0 4457  0 

TC  CHECKNJ 

CHECK  FOR  NEW 

BOB 

0978 

REF 

2 D 

LAST  397 

20 ,3545 

11*372  1 

CCS 

SKEEP2 

0977 

Ktr  ^6 

LA5T  397 

20,3546 

55'372  1 

T5“ 

3KEEPZ 

0980 

Ktr 

c.  ( 

LAST  397 

20 ,3547 

11*372  1 

CCS 

SKEEP2 

0981 

REF 

1 

20,3550 

0 3535  1 

TC 

MPHIGH1 

R0982 

R0983 

interchange  multiplier  and  multiplicand 

(37777  THROUGH  00001)  X (377771 

R0984 

CCA)  COUNTS  DOWN,  C CL)  COUNTS  JP, 
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0985 

REF 

20  LAST  397 

20,3551 

3 3431  1 

CAF  S+MAX 

0986 

REF 

40  LAST  397 

20,3552 

55*371  1 

TS  SKEEPl 

0987 

'REF 

41  LA5T  398 

20,3553 

3 1371  0 

MPAGAIN  CA  SKEEPl 

0988 

20,3554 

0 0006  1 

EXTEND 

0989 

REF 

21  LAST  398 

20,3555 

7 3431  0 

MP  S+MAX 

73990 

REF 

149  LAST  397 

20,3556 

6 0001  0 

AD  L 

C (A)  = 37777 

7)991 

REF 

5 LAST  397 

20,3557 

6 3432  1 

AD  S-MAX 

0992  REF  12  LAST  397  20,3560  0 2033  0 TO  -OCHK 


0993  REF  9 LAST  397  20,3561  0 4457  0 TC  CHECKNJ  CHECK  FOR  NEW  JOB 

0994  REF  42  LAST  398  20,3562  11*371  1 CCS  SKEEPl 

09^5  REF  43  LAST  398  20,3563  55'37l  1 TS  SKEEPl 

0996 REF  44  LAST  398  20,3564 11*371  1 CCS  SREEpl 

0997  REF  I 20,3565  03553  1 TC  MP AGAIN 

R 0 9 98  (37777  THROUGH  00001)'  X (-1) 

0999  REF  22  LAST  398  20,3566  3 3431  1 CAF  S+IMAX 

“TOGO  REF  45  TTASr  398  20,3567  55*371  1 TS  SKEEPl 


roor 

REF  45  LAST 398 

20,3570 

3 1371  0 

TMPFTIGH2 CA 

SKEE'P  1 

1002 

20,3571 

0 0006  1 

extend 

1003 

REF  8 LA5T  397 

20,3572 

7 7667  0 

MP 

S-l 

7004 

REF  73  LAST  398' 

20,3573 

0 2033  0~ 

TC 

-OCHK 

1005 

REF  150  LAST  398 

20,3574 

3 0001  0 

CA 

L 

1006 

REF  47  LAST  398 

20,3575 

6 1371  0 

AD 

SKEEPl 

1007 

REF  1 4 LAST"  398 

20,3576 

0 2033  0 

TC 

-OCHK 

1008 

REF~  10  LAST  398 

20,3577 

0 4457  0 

TC 

CHECKNU 

CHECK  FOR  NEW  UQB 

1009 

REF  48  LAST  398 

20  9 3600 

11*371  1 

CCS 

SKEEPl 

TCTO  REF  49  'LAST  398  2073601  55*371  1 T5  SKtEPl~ 

1011  REF  50  LAST  398  20,3602  11*371  1 CCS  SKEEpi 

1012  REF  1 20,3603  0 3570  0 TC  MPHIGH2 

1013  REF  8 LAST  397  20,3604  0 2047  0 TC  SMODECHK 


Rl 014  O'NCrTHkCiUG'rT DIVIDE  SUBROUTINE  TAKES  APPROXIMATELY  0,01  SECOND. 

R10I5  TOTAL  TIME  SPENT  IN  dIVIqE  SUBROUTINE  IS  APPROXIMATELY  21.5  SEC0ND5 

R1016  DIVIDE  +-/17777/  +-/37777/  BY  +-/20000/.  THE  CONTENTS  OF  THE  A REGISTER 


RIOT 8 QUOTIENT  SHOULD  BE  +-/37774/  DEPENDING  ON  THE  SIGN  OF  A AND  THE  SIGN 
RT019 OF  THE  DIVISOR.  THE  REMAINDER  = +-1  DEPENDING  ON  THE  SIGN  OF  A 

1020  REF  2"LAST  394"  2073605 — 4 7644  7 — DVCHECK — C5 5BTT12 - (04000) 

1021  REF  21  LAST  396  20,3606  55*374  1 — TS  ' SKEEP4 

1022  REF  22  LAST  3~93  — 20.3607  25'374  0 DVLOOP  INCR  SKEEP4 

1023  REF  5 LA5T3TT8  20.3610 — 3T7642"'0 — DVlCHK CA 5BIT14 ZOCOTT" 

1024  REF  51  LAST  398  20,3611  55*371  1 ~ TS  “ SKEEPl 

1025  REF- 29 6 LAST  395  20,3612  4 0000  0 CS  A 

1026  REF  ZB  LAST  397  2073513 — 55*372  1 TS 5'KEEFZ 

1027  REF  23  LAST  398  20.3614  4 3431  0 DV1++  CS S+MAX 

1028  - REF  151  LAST  398  20,3615  54  001  l TS L’ 40000 

1029  REF  5“TAST  339 20,36X5 — 3 2006  0 CS S13BIT5 

1030  20,3617  0 0006  1 EXTEND 

1031  -REF  52  LAST  398  20,3620  11*371  1 DV  SKEEPl  - +377747+1 

' 1032  REF  Z5  LASr'395-  20,3621  55*377  1 T5 SKEEP7 37774 
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1033 

rBf 

6 

last 

398 

20,3622 

3 3432  1 

CA 

S-MAX 

1034 

REF 

152 

LAST 

398 

20,3623 

56  001  0 

XCH 

L 

ALSO  PUT  40000  IN 

L 

1035 

REF 

26 

LAST 

390 

20,3624 

0 2040  1 

TC 

+ 1CHK 

1036 

REF 

6 

LAS  1 

398 

20,3625 

3 2006  0 

DV1+-  CA 

S13BITS 

17777 

1037 

20,3626 

0 0006  1 

EXTEND 

1038 

REF 

29 

LAST 

398 

20,3627 

11*372  1 

DV 

SKEEP2 

-37774,  +1 

1039 

REF 

26 

LAS  r 

398 

20,3630 

6 1377  0 

AD 

SKEEP7 

1040 

ref 

15 

last 

398 

20,3631 

0 2033  0 

TC 

-OCHK 

1041 

REF 

24 

LAST 

398 

20,3632 

3 3431  1 

CA 

S+MAX 

1042 

REF 

153 

LAST 

399 

20,3633 

56  001  0 

XCH 

L 

ALSO  PUT  37777  IN 

L 

1043 

REF 

27 

LAST 

399 

20,3634 

0 2040  1 

TC 

♦ 1CHK 

1044 

REF 

7 

LAST 

399 

20,3635 

4 2006  1 

DV1-+  CS 

S13BITS 

60000 

1045 

20,3636 

0 0006  1 

extend 

1046 

REF 

53 

LAS  T 

398 

20,3637 

11*371  1 

DV 

SKEEPI 

-37774,  -1 

1047 

REF 

19 

LAST 

396 

20 , 3o40 

55 ' 376  0 

T S 

SKEEP6 

1048 

ref 

27 

last 

399 

20,3641 

6 1377  0 

Ad 

SKEEP7 

1049 

REF 

16 

LAST 

399 

20,3642 

0 2033  0 

TC 

-OCHK 

1050 

REF 

25 

LAST 

399 

20,3643 

3 3431  1 

CA 

S + MAX 

1051 

RcF 

154 

LAST 

399 

20 ,3t>44 

56  001  0 

XCH 

L 

ALSO  PUT  37777  IN 

L 

1052 

~REF 

92 

LAST 

396 

20,3645 

0 2041  0 

TC 

-1CHK 

1053 

REF 

8 

LAST 

399 

20,3646 

4 2006  1 

DV1—  CS 

S13BITS 

60000 

1054 

20,3647 

0 0006  1 

EXTEND 

1055 

REF 

30  LAST 

399 

20 ,3650 

11*372  1 

DV~ 

SKEEP2 

+37774,  -1 

1056 

REF 

20 

LA5T 

399 

20,3651 

6 1376  1 

AD 

SKEEP6 

1057 

REf 

17 

last 

399 

2U  ,3653 

0 2033  0 

TC 

-OCHK 

1058 

REF 

26 

LAST 

399 

20*3653 

3 3431  1 

CA 

S+MAX 

1059 

REF 

155 

LAST 

399 

20 ,3654 

56  001  0 

XCH 

L 

ALSO  PUT  37777  IN 

L FOR  DV2 

1060 

RcF 

43 

LAS  1 

399 

20,3655 

0 2041  0 

TC 

-1CHK 

1061 

REF 

El 

20,3656 

3 1376  1 

CA 

SKEEP6 

-37774 

1062 

REF 

3 

LA5T 

387 

20,3657 

6 7670  1 

AD 

S-2 

-37776 

1063 

REF 

27 

LA5  1 

399 

20,3660 

6 3431  1 

AD 

S+MAX 

1054“ 

REF 

28 

LA5  1 

399 

20,1661 

0 2040  I 

TC 

+ ICHK 

R1065  DIVIDE  +17777  + 37777  BY  +20000.  THE  RESULT  SHOULD  BE  +37777  WITH 
R 1066  +17777  REMAINDER. 

1067  REF  9 LAST  399  20,3662  3 2006  0 DV2CHK' CA  513BIT5 

1068  20,3663  0 0006“r~-  EXTEND 

1069  REF  54  LAsT  i 99  20,3664  H’371  1 DV  SKEEP1 

1070  REF  7 LAST  399  - 20i366E  6 3432  1 AT) S-MAX  “ 

1071  REF  18  LAST  399  20,3666  0 2033  0 TC  -OCHK 

1072  REF  6 LAST  39E  20,3667  F 7642  1 CS SBIT14 -20000 

1073  REF  156  LAST  399  20,3670  6~000TTD AD L 

1074  REF  44  LAST  399  20,3671:  0 2041^0 — — TC — — «1CRK 


RIO97  DIVIDE  +37776  BY  +37776,  THE  RESULT  SHOULD  BE  +37777  AND  THE 

R 1098  remainder  should  be  +37776, LLL? 

1099  REF’  12  LAST  396  20,3672  3~7665  0 — DV4CHK CA S+ZERO — 

1100  REF  157  LAST  399  20,3673  54-  001  T TS tT 

1101  REF  10  LAST  391  20,3674  3 2011  0 CA  DVCON 

1102  REF  55  LAST  399  20 ,3675  55 * 3 7 1~T TS SKEEPI — 


ro 

O 


37776 


I 


NOV  10*  1966  (MAIN)  PAGE  4 00 


»73423A  YUL  SYSTEM  FOR  BLK2«  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


LINS 

AoC  BLOCK  T^O  SELF- 

CHECK 

USER'S  OWN  PAGE  NO.  24 

1103 

20*3676  0 0006  1 

EXTEND 

110  A 

REp  56  LA'sT  399 

20,3677  11*371  1 

DV 

SKEEP1 

1105 

REF  297  LAST  398 

20,3700  4 0000  0 

CS^ 

A 

1106 

REF  11  LAST  399 

20,3701  6 2011  0 

AD 

DVCON 

1107 

REF  45  LAST  399 

20,3702  0 2041  0 

Tc~ 

-1CHK 

1108 

REF  158  LAST  399 

20,3703  3 0001  0 

CA 

L 

37776 

T109 

REF  8 LAST  399 

20,3704  6 3432  1 

AD 

S-MAX 

1110 

REF  46  LAST  400 

20,3705  0 2041  0 

TC 

-1CHK 

R1111 

DIVIDE  SAME  (ZERO). 

THE  CONTENTS  OF  THE  A REGISTER  AND 

L REGISTER  WILL 

R 1 1 12 

HAVE  OPPOSITE  SIGNS 

before  dwisiont  The  quoti"eitt  will 

BE  + OR  - MAX., 

R1 113 

DePeNDI.  G UPON  THE  SIGN  OF  THE  L REGISTER  AND 

THE  SIGN 

OF  the  divisor. 

R1114 

C ( L)  REMAINS  THE  same  BECAUSE  IT  IS  THE  DIVIDEND. 

1115 

ref  nr  LAST  399 

20,3706  3 7665  0 DV5CHK  CA 

S+ZERO 

1116 

REF  57  LAST  400 

20,3707  55*371  1 

TS 

SKEEP1 

+0 

1117 

REF  159  LAST  400 

20,3710  54  001  1 

IS 

L 

1118 

REF298  LAST  400 

20,3711  4 0000  0 

cs 

A 

1119 

FcF  31  LAST  399 

20,3712  55  * 372  1 

T5 

SKEEP2 

-0 

1120 

20,3713  0 0006  1 DV5  + + 

EXTEND 

1121 

”REF“  58  LAST  400 

20,3714  11' 3?T  1 

D\T 

SKEEP1 

+37777,  +0 

1122 

REF  28  LAST  399 

20,3715  55 ' 377  1 

TS 

SKEEP7 

37777 

1123 

REf  160  LAST  400 

20,3716  3 0001  0 

CA 

L 

1124 

TRET  7 EAST  387 

20,3717  0 2032  1 

TC 

+ 0CHK 

1125 

RtF  ZR9  LA5T  400 

20,3720  4 0000  0 DV5+- 

CS 

A 

1126 

20,3721  0 0006  1 

EXTEND 

1127 

REF  T2  LAST  400 

20,3722  11*372  1 

DV 

SKEEP 2 

40000",  +0 

1128 

REF  22  EAST  399 

20,3723  55*376  0 

T5 

SKEEP6 

40000 

1129 

REf  29  LAST  400 

2u  * 3 f 44  6 iill  U 

AD 

SKEEP7 

1T30 

REF  19  HAST  399 

20 ,3725  0 2033  T" 

TC" 

-OCHK 

1131 

REF  300  LAST  400 

20,3726  4 0000  0 

CS 

A 

1132 

RcF  lbl  LAST  400 

20,3727  56  001  0 

XCH 

L 

AL50  PUT  -0  IN  L 

1133 

“REF  8TTSST  400 

20,3730  0 “2032  T 

TC 

♦ OCHK 

nrsA 

20,3731  0 0006  1 DV5-  + 

EXTEND 

1135 

RcF  59  LAST  400 

20,3732  11*371  1 

DV 

SKEEP 1 

40000,  -0 

1136 

1REF  30  LAST  4OO 

20,3733  6 1377  0 

"AD 

SKEEP7 

1137 

RcF  20  LAST  400" 

20,3734  0 2033  0 

TC“ “ 

-OCHK 

1138 

REF  162  LAST  400 

20,3735  3 0001  0 

CA 

L 

1139 

“REF  21  LAST  400 

20,3736  0 2033  0 " 

— re 

-OCHK 

1140 

20,3737  0 0006  1 DV5— 

EXTEND 

11 4l 

RcF  33  LAST  400 

20,3740  11*372  1 

DV 

SKEEP2 

37777,  -0 

1142 

Rtf  ci  Lttbl  400 

20,3741  6 T376  1 

AD  - 

SKEEP 6 

1143 

REf  22  LAST  400 

20,3742  0 2033  0 

TC  “ 

-OCHK 

1144 

REF  163  LAST  400 

20,3743  3 0001  0 

CA 

L 

1145 

"REF  23  LAST  40 T 

20,3744  0 2033  0 

TC 

-OCHK 

1146 

REF  24  LAST  400 

20,3745  3 1376  1 

CA 

SKEEP6 

CHECK  QUOTIENT 

1147 

REF  12  LAST  400 

20,3746  6 2011  0 

AD 

DVCON 

1148 

RcF  47  EAST  400 

20,3747  0 2041  0 

TC 

-ICHK 

1 1A9 

Kef  iJ.  LAb  1 398 

4U ,3750  0 4457  0 

TC 

CHECKNJ 

CHECK  FOR  NtW  JOB 

1150 

RET  "23  EAST  398 

2D*3751  3 1374  "0 

CA"  " 

"SKEEP 4 “ 

47342 3A  Y UL  SYSTEM  FOR  BLK2?  REVISION  12  OF  PROGRAM  AUROR A BY  DAP  GROUP 
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LINS  ASC  BLOCK  TWO  SELF-CHECK  USER’S  OWN  PAGE  NO.  25 


1151 

20 » 3752 

0 0006 

1 

extend 

1152 

REF 

1 

20,3753 

6 3607 

0 

3ZMF 

DVLOOP 

1153 

REF 

4 

last 

393 

20,3754 

25*370 

1 

I NCR 

SCOUNT  +2 

115-4 

" REF 

5 

LAST 

378 

20,3755 

0 2101 

0 

TC 

SELFCHK 

START  SELF-CHECK  AGAIN 

1155  20 >3756  ENDSLFSl  EQUALS 

TT56  REF  1 01 '3000  SETLOC  ENDFAILS 


1157 

REF  60  LAST  400 

01,3000 

55*371 

1 

SBNKOPTN 

TS 

SKEEP1 

1158 

REF  301  LAST  400 

01,3001 

4 0000 

0 

CS 

A GO  TO  BACKUP  IDLE  LOOP 

IF  C (SMODE)  IS 

1159 

RtF  50  LAST  371 

01,3002 

6 7656 

0 

AD 

Two  greater  than  octal  n 

1160 

01,3003 

0 0006 

1 

EXTEND 

1161 

REF  1 

01,3004 

6 3013 

0 

“32  MF 

TOSMODE  -2 

1162 

REF  14  LAST  400 

01  ,3005 

3 7665 

0 

CA 

S+ZERO  ZERO  SMODE  FOR  OPTIONS 

ABOVE  a. 

1163 

REF  7 LAST  396 

01,3006 

55*361 

0 

TS 

SMODE 

1164 

REF  61  LAST  4OI 

01,3007 

3 1371 

0 

CA 

skeepi 

1165 

REF  302  LAST  401 

01,3010 

50  000 

1 

ndx 

A 

1166 

REF  1 

01,3011 

0 3011 

1 

TC 

S0PT0N1 1 -1 

1167 

REF  1 

01,3012 

0 3034 

0 

SOPTON 1 1 

TC 

DSKYCHK 

1168 

REF 

15  LAST  401  01,3013 

3 7665  0 

CA 

S+ZERO 

1169 

REF 

8 LAST  401  01,3014 

55*361  0 

TS 

SMODE 

1170 

REF 

21  LA5T  378  01,3015 

0 4102  0 TOSMODE 

TC 

POST JUMP 

1171 

REF 

9 LAST  398  01,3016 

40047  0 

CADR 

SMODECHK 

R1172 

THE 

F OLLOW I NG  CONSTANTS  ARE  . 

JSED  BY  DSKYCHK. 

1173 

01,3017 

05265  0 DSKYCODE 

octal 

05265 

00 

1174 

“ 01,3020 

04143  0 

■octal 

04143 

11 

1175 

01,3021 

05471  0 

OCTAL 

05471 

22 

1176 

01,3022 

05573  0 

octal 

05573 

33 

IT  77 

01,3023 

04757  0 

“OCTAL 

04757 

44 

1178 

01,3024 

05736  0 

OCTAL 

05736 

55 

1179 

01,3025 

05634  0 

OCTAL 

05634 

66 

riso 

0IT3026 

05r63“0 

“OCTAL 

05163 

77 

1181 

01,3027 

05675  0 

OCTAL 

05675 

88 

1182 

01,3030 

05777  0 

OCTAL 

05777 

99 

1183 

OT,  3 031 

07265  1 ♦-ZERO" 

OCTAL 

07265 

1184 

0 1 1 3032 

00013  0 11DEC. 

OCTAL 

00013 

"RTT85 

BITS 

1 AND  6 TURN 

TW  TFrrTUMROTER  ACTIVITY  AND  VERBOTJoUN” "FLASH . 

1186 

01 »3U33 

00042  1 

S11CHAN  OCTAL  00042 

1187 

REF 

6 LAST  371 

OT,3034 

3 7661  T 

DSKYCHK  CAP  TEN 

1188 

REF 

22  LAST  396 

01,3035 

55*373  0 

TS  SKEEP3 

1189 

01,3036 

0 0004  0 

INHINT 

1 190 

REF 

23  LAST  396 

0t,3037 

3 7657  1 

cap~  S+l 

“SET  UP  TETPMS  TNTERRUPr 

1 1 9 1 

REF 

40  LAST  388 

01,3040 

0 4536  0 

TC  WAITLIST 

1192 

01 ,3041 

03075  0 

2CADR  NXTNMBR 

C1192 

REF 

T 

or,  3042 

“02003  0 

473423A  YJL  SYSTEM  FOR  BL.K-2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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LiNs 

AGC 

BLOCK  TWO  SELF- 

■CHECK 

user's  own  PAGE  NO,  26 

1193 

01,3043 

0 0003  1 

RELINT 

1194 

REF 

2 LAST  401 

01,3044 

0 3015  0 

TC 

TOSMODE  GO  TO  IDLt  LOOP 

1195 

REF 

23  LAST  401 

01,3045 

55*373  0 

5DSPTAB 

TS 

SKEEP3 

1196 

01,3046 

0 0004  0 

inhint 

1197 

m 

24  LAST  402 

01,3047 

51*373  1 

Ndx 

S<EEp3 

1198 

REF 

1" 

01,3050 

4 3017  0 

cs 

DSKYCODE 

1199 

“ REF 

44  LAST  374 

01,3051 

54  307  1 

SBLANKS 

TS 

DSPTAB 

1200 

REF" 

45  LAST  402 

01,3052 

54  310  1 

TS 

DSPTAB  +1 

1201 

REF 

46  LAST  402 

01,3053 

54  311  0 

TS 

D5PTAB  +2 

1202 

REF 

47  LAST  "402 

"01,3054 

54  312  0 

TS- 

DSPTAB  +3 

1203 

REF" 

48  LAST  <,02 

01,3055 

54  313  1 

TS 

DSPTAB  +4 

1204 

REF 

49  LAST  402 

01,3056 

54  314  0 

TS 

DSPTAB  +5 

1205 

REF 

50  LAST  402 

01,3057 

54  315  1 

rs 

DSPTAB  +6 

1206 

REF 

51  LAST  402 

01,3060 

54  316  1 

TS 

DSPTAB  ,7 

1207 

-REF’- 

52  LAST  402 

01,3061 

54  317  0 

TS 

DSPTAB  +8D 

1208 

REF 

53  LAST  402’ 

01 ,3062 

54  320  1 

TS 

DSPTAB  +9D 

1209 

REF 

54  LAST  402 

01,3063 

54'  321  0 

TS 

DSPTAB  + 10D 

1210 

REF 

r 

0 i ,3064 

3 3032  0 

CA 

11DEC, 

1211 

REF-’" 

8 LAST  363 

01,3065 

54  303  C 

TS 

NOtlT 

1212 

01,3066 

0 0004  0 

DSKYWAIT 

INHINT 

1213 

REF 

36  LAST  377 

01,3067 

3 7646  1 

CAF 

BIT10  5,12  SECOND  WAIT 

1214 

REF  41  LA5T  <,01 

01,3070 

0 4536  0 

TC 

WAITLIST 

1215 

01,3071 

03075  0 

2CADR 

NXTNMBR 

01215 

REF 

2 LAST  40  r~ 

~TT1  ,3072 

02003  ~0 

1216 

01,3073 

0 0003  1 

RELINT 

1217 

RcF 

33  LA5 T 389 

01,3074 

0 4602  1 

TC 

TASKOVER 

121s 

REF^ 

25 

LAST 

402 

01,3075 

11*373  0 

NXTNMBR  CCS 

SKEEP3 

1219 

REF 

1 

01,3076 

0 3045  0 

TC 

sdsptab 

9 through  o 

1220 

REF 

1 

01,3077 

cr  3104  1 

tc  ” 

-SIGN 

-zeros 

1221 

REF 

1 

0.1,3100 

0 3121  0 

TC 

♦ SIGN 

♦ZEROS 

1222 

REF 

34 

LrtS  1 

400 

01,3101 

11*372  1 

CCS 

SKEEP2 

1223 

REF 

1 

01,3102 

0 3135  0 

TC  ” 

NODSPLAY 

PUTSH3LANKS  IN’ D5KY  DISPLAY 

1224 

REF’ 

1 

01,3103 

0 3141  0 

rt 

LITE5OUT 

TURN  OFF  LIGHTS 

1225 

REF 

24 

LAST 

401 

or,  3 10)4 

4 7657  0’  -SIGN 

OS’ 

5+1 

1226 

REF 

26 

last 

402 

01,3105 

55*373  0 

TS 

5KEEP3 

1227 

REF 

1 

01 1 3 1 06 

3 3033  1 

CA 

SUCHAN 

TURN  ON  VERB-NOUN  FLASH 

1228 

” 01,3107 

0 0006  1 — 

" EXTEND- 

’ AND  COMPUTER  ACTIVITY  LIGHTS. 

1229 

REF 

16 

LAST 

364 

01,3110 

05  OllT 

WOR 

DSALMOUT 

1230 

REF 

1 

01,3111 

4 3031  1 

CS 

♦-ZERO 

1231 

01,3112 

TT  0004  "0  ~ 

INHINT 

1232 

REF 

55 

Las  1 

402 

01,3113 

54  307  “1 

TS 

DSPTAB 

1233 

REF 

56 

LAST 

402 

01,3114 

54  312  0~ 

TS 

DSPTAB  +3 

1234 

FeF 

57 

LAS  1 

402 

01,3115 

54  314  0 

TS 

DSPTAB  +’5 

1235 

REF 

13 

LASl 

377 

0 1 f 3 1 1 6 

3r 6165  0 

CAF 

THREE 

1236 

REF 

9 

LAST 

402 

01,3117 

SAX303  or 

TS 

NOUT 

T.237 

REF 

1 

01,3120 

0 3066  1 ' 

TC 

DSKFWAIT 

47 342 3 A YJL  SYSTEM  fqr  BLK2":  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10,  1966  (MAIN)  PAGE  403 
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1238  REF  141  LAST  377  01,3T2l  4 7665  1 *5IGN  C6  ZERO 


1239 

REF  2 7 LAST" 

402 

01,3122 

55 ' 373  0 

TS  SKEEP3 

1240 

REF  25  LAST 

402 

01,3123 

3 7657  1 

CA  S+l 

1241 

" REF  35  LAST 

402 

01,3124 

55*372  1 

TS  SKEEP2 

1242 

01,3125 

0 0004  0 

INHINT 

1243 

REF  2 LAST 

402 

01,3126 

4 3031  1 

CS  +-ZERO 

1244  REF  58  LAST  402  — 01 ,3I2T“T4^310  1 TS  DSPTAB  +1 

“T245  REF  59~LA5T  403  01  ,3130  54  313  1 TS  DSPTAB  +4 

1246  REF  60  LAST  403  01,3131  54'  315"T“  TS  DSPTAB  +6 

1247  REF-  14  LAST  402  01,3132  3 6l65  0“  CAT  THREE 

1248  REF  10  LAST  402  01,3133  54  303  0 TS  NOUT 

1249  REF  2 LAST  402  01,3134  0 3066  1 TC  DSKYWAIT 

1250  REF  36  LAST  "4W—  01,3135  55*372  1 NOPSPLAY  TS  SKEEP2  +0 

1251  REF  18  LAST  377  01,3136  476441'  CS  BIT12  BLANKS 

1252  0173X37  0 0004'  0 INHINT 

TE53  "REF"  1 ' 01,3140  0"3051  0 TC  SBLANKS  PUTS  BLANKS- IN  ALL  DISPLAYS' 


1254  REFi  2.  LAST  402  0T73T4I  4 3033  0 LfTESDUr  CS  SUCHAN 

1255  01,3142  0 0006  1 " “ EXTEND 

1256  REF  17  LAST  402  01,3143  03  Oil  1 WAND  DSALMOUT  TURN  OFF  COMPUTER  ACTIVITY  LIGHT. 

1257  REF  34  LAST  402  01,3144  0 4602  1 TCP  TASKOVER  END  OF  DSKYCHK 


1258  " 01*3145  ENDSLFS2  EQUALS 


— ID 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  OWN  PAGE  NO.  1 

0001  REF  1 15*2367  SETLOC  ENDDNTMS 

0002  REF  3 LAST  22  E5  EBANKS  X5M 


R0003  C^LCSTA  COMPUTES  THE  GYRO  TORQUE  ANGLES  REQUIRED  TO  BRING  THE  STA6|_E  MEMBER  INTO  THE  DESIRED  ORIENTATION. 

R 0 005  THe  INPUT  IS  THe  DeSIReD-  STABLE  MeMEeR  COORDINATES  ReFeRReD  to  PRESENT  STABLE  MeMBeR  COORDINATES.  THe  three 

~R0QQ7  HALF-UNIT  VECTORS  are  stored  AT  XDC,  YDC*  AND  ZDC^ 

R0008  the  OUTPUTS  ARt  THe  three  GYRO'  TORQUING  ANGLeS  TO  Be  APPLIED  TO  THE  Y*  Z*  AND  X GYROS  AND  ARe  STOReD  DP  AT  IGC, 

Rooio — ffSo~Amr-oGc  respectively. "tnsles"  ar e ~ scaled  proper lT'f o r i mup ul5ET~ 


XRJTl 

1 5 *2367 

71230  0 

CALCGTA  ITA 

DLOAD 

PUSHDOWN  00,02*l6D»16D»22D-26D*32D-36D 

0012 

REF 

1 

15.2370 

00051  0 

S2 

XDC  = (XDl  XD2  XD3) 

0013 

REF 

6 LAST  22 

15.2371 

01423  0 

XDC 

YDC  = ( YD 1 YD2  YD3) 

0014 

15.2372 

55325  0 

PDDL 

PDDL 

ZDC  = (ZD1  ZD2  ZD3) 

0015 

RcF 

1 

15.2373 

33042  1 

ZERODP 

0016 

HREF  “ 

7 LAST  404 

15,2374 

01427  1 

XDC  +4 

0CT17 

15,2375 

55476  1 

DCOMP 

VDEF 

0018 

15,2376 

77656  1 

UNIT 

0019 

T5T.2377 

06027  I 

STODL 

ZPRIME 

ZP  = UNIT (-XD3  0 XDl)  = (ZP1  ZP2  ZF3) 

0020 

REF 

2 LAST  4O4 

15,2400 

00027  1 

ZPRIME 

002 1 

15,2401 

77742  0 

5RT 

0022 

r=f 

1 

15,2402 

06023  0 

STODL 

SINTH 

SIN(lGC)  = Zpl 

0023 

REF 

3 

LAST  4O4 

15,2403 

00033  1 

ZPRIME  +4 

C02H 

15,2404 

77742  0 

~ 5R1 

0025 

REF 

1 

15,2405 

36021  1 

STCALL 

COSTH 

COS (IGC)  = ZP3 

0026 

REF 

1 

15,2406 

32440  0 

ARCTRIG 

0027 

REF 

1 

15,2407 

07503  0 

STODL 

IGC 

Y GYRO  TORQUING  ANGLE 

FRACTION 

OF 

KLV, 

0028 

REF 

3 

LASt  404 

15 ,2410 

01425  0 

XDC  +2 

0029 

REF" 

15,2411 

77742  0 

SRI 

0030 

2 

LasT  4O4 

15,2412 

06023  0 

STODL 

SINTH 

SIN  (MGC)  = XD2 

0031 

REF 

4 

LAST  4O4 

15,2413 

00027  1 

ZPRIME 

UU32 

15*2414 

65205  0 

QMP 

PDDL 

0033 

ref 

9 

LAST  404 

15*2415 

01427  1 

XDC  +4 

pDOO  = (Zpl)  (XD3) 

0034 

RcF 

5 

LA5T  404 

1 54241 6 

”00033  1 ~ 

ZPRIME  +4 

UU35 

15*2417 

45205  1 

DMP 

DSU 

0036 

W 

10 

LAST  404 

15*2420 

01423  0 

XDC 

MP AC  = (ZP3) (XDl) 

0037 

15,2421 

77626  0 

STADR 

0038 

REP 

2 

LAST  4O4 

15,2422 

41756  0 

STCALL 

COSTH 

COS (MGC)  = MPAC  - PDOO 

0031? 

REF 

2 

LAST  404 

15,2423 

32440  0 

ARCTRIG 

K -r 

1 

15,2424 

23505  0 

5T0VL 

MGC 

Z GYRO  TOKUOIING  ANtiLt 

FRAU  1 UiN 

ur 

KtV  . 

0041 

REF 

6 

LA5T  404 

15,2425 

00027  1 ” 

ZPRTMF 

* 
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L 

INFLIGHT  ALIGNMENT 

ROUTINES 

USER'S  own  PAGE  NO.  2 

0042 

15,2426 

77641 

1 

DOT 

0043 

REF 

1 

15,2427 

01437 

0 

ZDC 

0044 

REF 

3 LAST  404 

15,2430 

22021 

1 

STOVL 

COSTH 

COS (OGC)  = zp  , ZDC 

0045 

REF 

? LAST  404 

15,2431 

00027 

r 

ZPRIME 

0046 

15,2432 

77641 

i 

DOT 

0047 

REF 

15,2433 

01431 

0 

YDC 

0048 

REF 

3 LAST  404 

15,2434 

36023 

0 

STCALL 

SINTH 

SIN  (OGC)  = ZP  . YDC 

0049 

REF 

3 LAST  404 

15,2435 

32440 

0 

ARCTRIG 

i 


0050  W 2 LAST  2 58  1572436  3750 ITT 

0051  TftT  2 LAST"  A 04  15*2437  00051  0 


STCALL  OGC 
S2 


X GYRO  TORCHING  ANGLE FRACTION  OF  REV. 


CD 
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LT~  INFLIGHT  ALIGNMENT  ROUTINES  USER i S OWN  PAGE  NO.  3 

RQ052  ARCTRIG~COMPUTES"m  ANGLE  GlTElTTHTTlNE  AND^ COSINE  OF  THIS  ANGLE.  ~ 

R0053  THE  INPUTS  ARE  5IN/4  AND  CQS/VSfQRED  DP  AT  SINT^AN^CoStH^ 

R0054  THE  OUTpUT  IS  THeTALCULATED  ANfiLE  BETWEEN  +,5  AND  -.5  REVOLUTIONS  AND  STORED  AT  THETA,  THE  OUTpUT  IS  AL50 
R0056  AVAILABLE  AT  MPAC. 


0057 

15.2440 

51545 

1 

ArCTriG  dload 

ABS 

PUSHDOWN  16D.18D.20D.22D-26D 

0058 

REF 

4 LAST  405 

15.2441 

00023 

0 

SINTH 

0059 

15.2442 

50025 

0 

DSU 

BMN 

0060 

REF 

1 

15.2443 

33030 

1 

QTSN45 

ABS (SIN/4)  - SIN (45) /4 

0061  “ 

"RTF 

r 

15,2444 

32453 

1 

TRIG! 

IF  (-45,45)  OR  (135,-135) 

0062 

15,2445 

72545  0 

DLOAD 

SL1 

(45,135)  OR  (-135,-45) 

0063 

RTF 

4 LAST  405 

15,2446 

00021  1 

COSTH 

0064 

15,2447 

75326  1 

ACOS 

SIGN 

0065 

REF 

5 LAST  406 

15,2450 

00023  0 

SINTH 

0066 

REF 

1 

15,2451 

00025  0 

STORE 

THETA 

X = ARCCOS (CoS)  WITH  SIGN(SIN) 

0067 

15,2452 

77616  0 

RVQ 

0068 

15,2453 

72545  0 TRlGl 

DLOAd  S|_l 

(-45,45)  OR  (135,-135) 

0069 

REP 

6 LASI  4-06 

15,2454 

00023  0 

SINTH 

0070 

15,2455 

77736  0 

atin 

0071 

KfcF 

2 LA5T  406 

15,2456 

06025  0 

5T0DL  THETA 

X = ARCSIN(SIN)  WITH  SIGN  (SIN) 

5 LASl  406 

15,2457 

00021  1 

COSTH 

0073 

1 5,2460 

77640  0 

BMTT 

0074 

REP 

1 

15,2461 

32464  0 

TRIG2 

IF  (135,-135) 

0075 

15, 2^62 

43545“  l 

DLOAD  RVQ 

0076 

REF 

3 LAST  406 

l5,  ^463 

00025  0 

THETA 

X = ARCSIN(SIN)  (-45.45) 

0077 

15,2464 

75345  1 TRIG2 

DLOAD 

SIGN 

(T35.-135) 

0078 

REF 

T~ 

15,2465 

J3032TT 

HAUFD'P 

0079 

REF 

7 LAST  406 

15,2466 

00023  0 

SINTH 

0080 

15,2467 

77625  0 

DSU 

0081 

REF 

4 LAST  406 

15,2470 

00025  0~ 

THETA 

0082 

0083 

REF 

5 LASI  406 

15.2471 

15.2472 

00025  0 
77616  0 

STORE 

RVQ 

THETA 

X = 

: ,5  WITH  SIGN(SIN) 
( + ) 

- ARCSIN (SIN) 

- ( + ) OR  <-)  - (-) 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  OWN  PAGE  NO.  4 

R0084  SMNB  TRANSFORMS  A STAR  DIRECT iON^FrOM  STABLE  MEMBER  TO  NAVIGATION  BASE  COORDINATES* 

R0086  THE  INPUTS  ARe  1>  THE  Star  Vector  REFERRED  TO  PRESENT  STABLE  MEMBER  COORDINATES  Stored  At  LOCATION  32D  of-  the 

R0088  VAC- AREA.  2)  THE  GIMBAL  ANGLES  (CDUY .CDUZVCDUXT- STORED  AT  ALTERNATING  LOCATIONS  RESPECTIVELY.  THE  ANGLES  ARE 
R0090  USUALLY  STORED  AT'UOCATTONS-^,  AND  6 UF  THE  MARX,  VAC  AREA,  THEY  CAN  BE  5TORTD“ATnLOCATlONS  20*22,  AND  2A  OF 
R0092  YOUR  JOB  VAC  AREA.  3)  THE  BASE  ADDRESS  OF  THE  GIMBAL  ANGLES  STORED  SP  AT  LOCATION  Si  OF  YOUR  JOB  VAC  AREA. 


R 0094  THE  “OUTPUT  IS  THE  5 TAR  VECTOR  ReFeRReO  T0“NAVTGATI0N  BASe  COORDINATES  STORED  At  32D  OF  THe  VAC  AREA.  THe  OUTPUT 
R0096  IS  ALSO  AVAILABLE  AT  MPAC.  


0097  T5Y2473  43o3o  0 SMNB  ITA  CLEAR  PUSHDOWN  00*02 *OA-ioD*3oD*32D-36D 

0098  REF  3TAsr“405  15*2474  00051  0"  S2 

0099  REF  1 15*2475  00 2 64^1  NBSMBIT  SET  NBSMBIT  = 0 


0100  ""  15.2476  77170  1 SMNB1  AXT*1  AXT*2  ROTATE  X*Z,  ABOUT  Y 

0101  15*2477  00004  0 __V 

0102  15*2500  00000  1 0 

0103  15*2501  77634  0"  CALL 

0104  REF  1 “T5.2502  32543  1 AXISROT 


0105 

15*2503 

77170  1 

AXT.l 

AXT  *2 

rotate  y*x  about  z 

0106 

15*2504 

00002  0 

2 

0107 

15,2505 

00004  0 

4 

0108 

15,2506 

77634  0 

"CALL 

0109  REF  2 LAST  407 

15,2507 

32543  1 

AXISROT 

0110 

15*2510 

77170  1 

AXT.l  AXT  ,2 

rotate  z * y about  x 

0111 

15,2511 

00000  1 

0 

0112 

15*2512 

00002  0 

2 

0TT3 

15*2513 

77634  0 

"CALL 

0114 

REF 

3 LAST  407 

15,2514 

32543  1 

AXISROT 

0115 

15*2515 

77650  1 

GOTO 

0116 

RcF 

4 LAST  407 

15*2516 

00051  0 

S2 

x> 
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L iviFi-ISHT  ALIGNMcNT  ROUTINES  7_  I 71  7 USER'S  OWN  PAGE  NOT  7 

Rpi 17  N85N  TRANSFORMS  ~A~  5tAR  DIRECTION,  FROM  NAVIGATION  BASe  TO  STABLE  MEMBER  COORDINATES, 

RqH9  tHIE  INPUTS  ARf  l)  THf,  SjAR  VECTOR  ReFeKReB  TO  NAVIGATION  BASe  COORDINATES  SjoReD  AT  LOCAflON  32D  OF  THe  VAC 
RO 1 2 1 — AREAT~~  25  THE- GTMB'AL- ANGLES  <CDJY,CDUZ,CDUX)  STORED  AT  ALTERNATING  LOCATIONS  RESPECTIVELY.  THE  ANGLES  ARE 
RUT23  USUALLY  "STORED  AT  rUCATTWS  2,4,  AND  6 ut-  TmE-Ma«<.  VAC  AREA,  THEY  CAN  BE  STORED ' AT  LOCATIONS  20,22,  AND~24  OF 
KqT25 Y3UR~J  0B~  VAC  A REA,  3)  THE  BASE 'APURES5  OF  THE  G I MBAU~AWGLES  ST0REP~SP  AT~L0CAT I ON  5 1 OTYOUR  JOB  VAC  AREA, 

R0127  THE  OUTPUT  IS  THE  STAR  VECTOR:  REFERRED  TO  PRESENT  STABLE  MEMBER  COORDINATES  STOReU  At  LOCATION  32^  OF  THe  VAC 

R0129  AREA,  THE  OUTPUT  I5  ALS0  AyAI LASLE  AT  MpAC*» 


0130 

1572577 

43030 

0 

NbSM 

ITA 

5ET 

PUSHDOWN  00, 02, 04-100, 3oD,32D-36D 

01 3 1 

REF 

5 LAST  407 

15,2520 

00051 

0 

S2 

0132 

REF 

2 LAST  4O7 

15,2521 

00064 

0 

NBSMBIT 

SET  NBSMBIT  = 1 

0133 

15,2^22 

77170 

1 

NBSM2 

AXT , 1 

AXT, 2 

ROTATE  Z , Y ABOUT  X 

0134 

15,2523 

00000 

1 

0 

0135 

15,2524 

00002 

0 

2 

0736 

15,2525 

77634 

0 

CALL 

0137 

REF 

4 LAST  4O7 

15,2526 

32543 

1 

AXISROT 

0138 

15,2527 

77170 

1 

AXT * 1 

AXT, 2 

ROTATE  Y*X  ABOUT  Z 

0139 

15,2530 

00002 

0 

2 

0140 

15,2531 

00004 

0 

4 

01 4 1 

15,2532 

77634 

0 

CALL 

0142 

~REF 

5 LAST  4O8 

15,2533 

32543 

1 

AXISROT 

0143 

15,2534 

77 170 

1 

<TXT,1 

TUT, 2 

ROTATE  X *Z , ABOUT  Y 

0144 

15,2535 

00004 

0 

4 

0145 

15,2536 

00000 

1 

0 

UT46 

15,2537 

77634 

IT 

CALL 

0147 

REF 

6 LAST  408 

15,2540 

32543 

1 

AXISROT 

0148 

15*2541 

77650 

1 

“TSUTO 

0149 

ref 

6 LAST  408 

15,2542 

00051 

0 

52 
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L INFLIGHT  ALIGNMENT  ROUTINES  _ __  __  USER 1 S OWN  PAGE  NO#  6 

RQ150  AXTISROT  TS  UTILTzED  BT~ THE  SMNl  AND'NBSM  ROUTINES.  See  REMARKS  ON  THeSE~ROUTINeS  FOR  INPUTS  AND  OUTPUTS. 


0152 

15,2543 

66660 

1 

AXISROT  XSU,1 

SLOAD* 

0153 

REF 

4 LAST  242 

15,2544 

00050 

1 

SI 

SMNB 

• 

NBSM 

0154 

15,2545 

00005 

1 

4,1 

IG 

MG  OG 

. OG 

MG 

IG 

0155 

15,2546 

56024 

1 

RTB 

XAD,1 

0156 

REF 

3 LAST  243 

15,2547 

33345 

0 

CDULOGIC 

0157 

REF 

5 LAST  409 

15,2550 

00050 

1 

SI 

0158 

15,2551 

00037 

0 

STORE 

30D 

0159 

15,2552 

77746 

1 

ACCUROT 

COS 

0160 

15,2553 

10011 

0 

5T0DL 

80,1 

COS(ANGLE) 

0 1 6 1 

15,2554 

00037 

0 

30D 

0162 

15,2555 

77756 

0 

SIN 

0163 

15,2556 

02013 

1 

STORE 

10D , 1 

SIN (ANGLE) 

0164 

15,2557 

72403 

0 

DMP# 

SL1 

0165 

15,2560 

77732 

1 

32D  +4,2 

0166 

15,2561 

40723 

0 

PDDL# 

DMP* 

PDO 

0167 

15,2562 

00011 

I 

80,1 

S3SIN  SlSIfM  S2SIN  . S2SIN  S1SIN  S3SIN 

0168 

15,2563 

77732 

1 

320  +4,2 

0169 

15,2564 

64752  0 

SL1 

PDDL* 

PD2 

0170 

15,2565 

00013  0 

100, 1 

S3C0S  SlCOS  S2C0S  . S2C0S  SlCOS  S3C0S 

0171 

15,2566 

72403  0 

DMP*  SL1 

MPAC 

0172 

15,2567 

00045  0 

320  +4,1 

S1SIN  S2SrN  S3STN  . 

S3SIN  S2SIN  S1SIN 

0173 

15,2570 

77614  1 

BOFF 

0174  REF  3 LAST  408 

15,2571 

003A4  1 

NS5MBIT 

0175  RzF  1 

15,2572 

32604  1 

AXISR0T1 

0176 

15,2573 

45421  I 

3DSU  STADR  ~ 

• 

PD2  - MPAC 

0177 

15,2574 

57732  0 

STOdi_*  32D  +4,2 

• 

S2  SI  S3 

0178 

15,2575 

00011  1 

8D  , 1 

0179 

15,2576 

72403  0 

DMP*  SL1 

• 

MPAC 

0180 

15,2577 

00045  0 

320  +4,1 

• 

S3C0S  S2C0S  SlCOS 

0 181 

15,2600 

45415  0 

DAO  STADR 

• 

PDO  + MPAC 

0182 

15 ,2601 

53732  1 

STOVL  32D  +4,1 

• 

S3  S2  51 

0183 

15,2602 

00041  1 

~3~ZD 

0184 

15 ,2603 

77616  0 

RVQ 

uid5 

15*2604 

45415  0 

AXISR0T1  DAD  STADR 

MPAC  + PD  2 • 

0186 

1 5 ,2605 

57732  0 

STODl*  320  +4,2 

S3  Si  52  , 

0187 

15,2606 

00011  1 

80,1 

GO 
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0188 

15*2607 

72403 

0 

DMP# 

SL1 

MPAC 

• 

0189 

15,2610 

00045 

0 

32D  +4,1 

SI COS  S2C0S  S3C0S 

• 

0190 

15,2611 

45425 

0 

DSU 

STADR 

MPAC  - PDO 

0191 

15,2612 

53732 

1 

ST0VL 

32D  +4,1 

51  S2  S3 

• 

0192 

15,2613 

00041 

i 

32D 

0193 

15,2614 

77616 

0 

RVQ 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER’S  OWN  PAGE  NO. 8 


RO 1 9 A CALC3A  cOMP^TtS  THe  CDU  DRIVING  ANGLES  REQUIRED  TO  BRING  THE  STABLE  MEMBER  INTO  THe  DESIRED  ORIENTATION. 

RO 1 96  HE  Inputs  are  l)  the  NAVIGATION  base  COORDINATES  REFERRED- to  any  coordinate  SYSTEM,  the  THREE  half-unit 

r0198“  VECTORS  Are  STOrED  AT  XNB,YN3,  AND  ZNB.  2)  THE  DEsIrED  STABLE  MEMBER  COORDINATES  REFERRED  TO  THE  SAME 
R0200  COORDINATE  SYSTEM  ARE  STORED  A.T  XSM,  YSM,  AND  ZSM, 


R0201  THe  OUTPUTS  are  the  THREE  COD'  DRIVING  ANGLES  AND  ARe  STOReP  5P  AT  THETAD.  THeTAD  +i*  AND  THETAD  +2. 


0203 

15,2615 

47375  0 CALCGA 

VLOAD 

VXV 

PUSHDOWN  00-04, 16D.16D 

0204 

REF 

1 

15,2616 

01423  0 

XNB 

XNB  = OGA  (OUTER  GIMBAL 

AXIS) 

0205 

REF 

1 

15,2617 

01407  0 

YSM 

YSM  = IGA  (INNER  GIMBAL 

AXIS) 

“ 0206 

1572620 

41456  0 

UNIT 

PUSH 

PDO  = UNIT(OGA  X IGA)  = 

MGA 

0207 15,2621  16041  0 DOT  ITA 


0208 

REF 

1 

15,2622 

01437  0 

ZNB 

0209 

REF 

7 

LAST 

408 

15,2623 

00051  0 

S2 

0210 

REF 

6 

LAST 

406 

15,2624 

22021  1 

STOVL  COSTH 

COS(OG)  = MGA  . ZNB 

0211 

15,2625 

00001  0 

0 

0212 

15,2626 

77641  1 

DOT 

0213 

REF 

1 

15,2627 

01431  0 

YNB 

0214 

REF 

8 

last 

406 

15,2630 

36023  0 

STCAlL  SI  NTH 

STNTOG)  = MGa  . YNB 

0215 

REF 

4" 

LAST- 

405 

15,2631 

32440  0 

ARCTRIG 

0216 

REF 

3 

LAST 

405 

15,2632 

23501  1 

STOVL  OGC 

OTT7  IS. 2633  0O001  0 0 


0218 

15,2634 

50235  0 

VXV  DOT 

PROVISION 

FOR 

MG  ANGLE 

OF  90  DEGREES 

0219 

REF 

2 

LAST  411 

15,2635  01423  0 

XNB 

0220 

REF 

2 

LAST  411 

15,2636 

01407  0 

YSM 

0221 

15,2637 

77752  1 

SL1 

0222 

“REF 

7 

LAST '411 

15,2640 

22021  1 

STOVL  COSTH 

COS (Mu)  = 

IGA 

. ( MGA  X 

<c 

o 

0223 

REF 

3 

LAST  411 

15,2641 

01407  0 

YSM 

0224 

15,2642 

77641  1 

DOT 

1225 

REF 

3 

LAET4n 

15,2643 

01423  C 

XNB 

0226 

RsF 

9 

LAST  411 

15 ,2644 

36023  0 

STCALL  SINTH 

SIN (MG)  = 

IGA 

. OGA 

0227 

REF 

5 

LAST  411 

15,2645 

32440  0 

ARCTRIG 

072  8 

REF 

2 

LAST  404 

15 ,2646 

01 505  “0“ 

STORE  “WSC 

U229 

15,2647 

45246 

10“ 

UBS 

DSU 

0230 

REF 

1 

15,2650 

33050 

1 

• 1 66 • • # 

0231 

15,2651 

77644 

1 

BPL 

0232 

REF 

1 

15,2652 

32671 

1 

GIMLOCKl 

IF  ANGLE  GREATER  THAN  60  DEGREES 

0233 

0234 


RcF 


“ 0 2 315 

15,2655 

00001  0“ 

0236 

REF 

3 LaST 

411 

15,2656 

22021  1 

0237 

REF 

4 LAST 

404 

15,2657 

01401  0 

2653 

2654 


50375  0 CALCGA1  VLOAD 
01415  0 


DOT 

ZSM 


STOvL  COSTH 
X5M — 


COS(IG)  = ZSM  . MGA 


CO 
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l inflight  alignment  routines  user's  own  page  no.  9 

0238  ITT.  2660  45441  I DOT  _ ST  ADR 

0239  REF  10  LAST  4lf  15.2661  41754  1 STCALL  SINTH  SIN (16)  = XSM  . MGA 

0240  REF  6 LAST  4IT  15.2662  32440  0 ARCTRIG 


0241 

REF 

2 

LAST 

404  15.2663 

23503  0 

STOVL 

IGC 

0242 

REF 

4 

LAST 

411  15,2664 

01501  1 

OGC 

0243 

1 5 ,2665 

77624  1 

RTB 

0244 

REF 

1 

15,2666 

33414  0 

V1ST02S 

0245 

REF 

8 

LAST 

376  15,2667 

36401  1 

STCALL 

THETAD 

0246 

REF 

8 

LAST 

411  15,2670 

00051  0 

S2 

0247 

15,2671 

77776  1 

GIML0CK1  EXIT 

0248 

REF  "" 

26 

LAST 

378  15,2672 

0 5413  1 

TC 

ALARM 

“0249 

15,2673 

00401  1 

OCT 

00401 

0250 

REF 

9 

LAST 

283  15,2674 

0 6000  1 

TC 

INTPRET 

0251 

15,2675 

77650  1 

GOTO 

0252 

REF 

1 

15,2676 

32653  0 

CALCGA1 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER'S  OWN  PAGE  NO*  10 

Rq253 AXISGe: N COMPUTE 5 THe  COORDINATE^.  OF  ONe  COORDINATE  SYSTEM  ReFeRReD  TO  ANOTHER  COORDINATE  SYSTEM. 


R 0 25 5 THE  INPuTS  ARE  D THE  STARi  VECTOR  REFERRED  TO  (COORDINATE  SYSTEM  A STORED  AT  STARAD.  2)  THE  STAR2  VECTOR 

R0257  REFERRED  TO  COORDINATE  SYSTEM  A STORED “AT  STARAp  +6.  3)  THE  STARI  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STORED 

R0259 AT  LOCATION  6 OF  THE  VAC  AREA,  4)  THE  5TAR2  VECTOR  REFERRED  TO  COORDINATE  5YSTEM  B STOReITAT  LOCATION  12D  OF 

R0261  THE  VAC  AREA.  [ 


R0262  TflrOUTPUT  DEFINES  COORDINATE  SYSTEM  A REFERRED  TO  COORDINATE' SYSTEM  B,  THE  THREE  HALF-UNIT  VECTORS  ARE  STORED 

rC'264 AT  LOCATIONS  XDC,  XDC  + 6,  XDC  + I2D,  AND  STArAD,  S T A r A 0'+6j^s T A R A D + 12D. 


0265 

15*2677 

66370  0 

AXISGEN 

AXT , 1 

SSP 

PUSHDOWN  00-22D,24D-28D,30D 

0266 

RtF 

1 

15,2700 

01452  0 

STARAD 

■f  6 

0267 

REF 

6 

LAST 

409 

15*2701 

00051  0 

SI 

026S 

REF 

2 

LAST 

413 

15*2702 

01436  1 

STARAD 

-6 

0269 

15,2703 

46773  0 

AXISGEN1 

VLQAD# 

VXV* 

06D  UA  = 51 

0270 

REF 

3 

LAST 

413 

15,2704 

01461  0 

STARAD 

+12D,1 

STARAD  +00D 

UB  = SI 

0271 

'REF 

4 

LAST 

413 

15,2705 

01467  TT 

STARAD' 

+18D,1 

0272 

15,2706 

77656  1 

UNIT 

12D  VA  = UNIT(S1  X 

52) 

0273 

REF 

5 

LAST 

413 

15,2707 

33467  1 

STOVL* 

STARAD 

+18D,1 

STARAD  + 06D 

VB  = UNIT (SI  X S2 ) 

0274 

REF 

6 

LAST' 

“413 

I5,27rcr- 

01461  0 

STARAD 

+12D,1 

0275 

15,2711 

76433 

1 

vxv* 

VSL1 

0276 

“REF 

7 LAST  413 

15,2712 

01467 

0 

STARAD  +180,1  18  D 

WA  = UA  X VA 

0277 

REF 

8 LA5T  413 

15,2713 

03475 

1 

5 TORE 

STARAD  +24D,1 

STARAD  + 12D  WB  = UB  X VB 

0278 

15,2714 

77700  0 

T I X , 1 

0279 

REF 

1 

15,2715 

32703  1 

AxISgENI 

0280 

15,2716 

66160  0 

AXC , 1 

SXA , 1 

0281 

15,2717 

00006  1 

6 

0282 

15,2720 

00036  1 

30D 

0283 

15,2721 

66370  0 

AXT , 1 

SSP 

0284 

15,2722 

00022  1 

18D 

0285 

REF 

7 

css  r 

413 

15,2723 

00051  0 

SI 

0286 

15,2724 

00006  r 

6 

0287 

15,2725 

66374  1 

AXT, 2 

ss r ' ' 

0288 

15,2726 

00006  1 

6 

0289 

REF 

9 

LAST 

412 

15,2727 

00052  0 

S2 

0290 

15,2730 

00002  0 

2 

U291 

15,2731 

76720  0 

AXISGEN2  XCHX , 1 

VLOAD# 

0292 

15,2732 

00036  t 

300“ 

xr=-6  x 2 = + & 

XT=-6  X2=+4 

Xl=-6  X2  = + 2 

0293 

15,2733 

00001  0 

0,1 

0294 

15,2734 

62757  0 

VXSC# 

PDVL# 

J= (UA)  (UB  1 ) 

J= (UA) (UB2) 

J=  (UA)  (U63) 

0295 

REF 

9 

LAST 

413 

15,2735 

76324  0 

STARAD  +6,2 

tn 


9 
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USER'S  OwN  PAGE  NO.  11 

0296 

15.2736 

00007  0 

6.1 

0297 

15,2737 

77757  1 

VXSC* 

0298 

REF 

10  LAST  413 

15,2740 

76316  1 

5TARAD  + 12D  ,2 

0299 

15.2741 

30031  0 

STOVL* 

24D 

Ks(VAXVai)  J=(VA)(VB2) 

J=  <VA)  (VB3> 

0300 

15,2742 

00015  0 

120,1 

0301 

15,2743 

53357  0 

VXSC* 

VAD 

0302 

REF 

11  LAST  414 

15,2744 

76310  1 

STARAD  +180,2 

L= ( WA) ( WB1 ) J=TWA) (wB2 ) 

Js (WA)  (WB3T 

0303 

15,2745 

76455  1 

VAD 

VSL1 

0304 

15,2746 

00031  0 

24D 

0305 

15,2747 

77720  1 

XCHX , 1 

0306 

15,2750 

00036  1 

30D 

"0307 

REF 

11  LAST  404 

15,2751 

03445  1 

STORE 

XDC  +180,1 

XDC  = L+J+K  YDC  = L+J+K 

ZDC  = L+J+K 

0308 

15,2752 

77700  0 

TlX , l 

0309 

"REF 

1 

15,2753 

32754  0 

AXISGEN3 

0310 

15,2754 

77704  1 

AXISGEN3  TIX ,2 

0311 

“REF 

1 

15,2755 

32731  0 

AXISGLN2 

0312 

15,2756 

77775  1 

VLOAO 

0313 

REf 

12  LAST  414 

15 ,2757 

01423  0 

XDC 

10314 

REF 

12  LAST  414 

15,2760 

23445  0 

STOVL 

STARAD 

0315 

REF 

2 LAST  405 

15,2761 

01431  0 

YDC 

0316 

RcF 

13  LAST  414 

15,2762 

23453  1 

STOVL 

STARAD  +6 

0317 

REF 

2 LAST  405 

15,2763 

01437  0 

ZDC 

0318 

REF 

14  LAST  414 

15,2764 

01461  0 

STORE 

STARAD  + 1 2D 

0319 

15,2765 

77616  0 

RVQ 
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L INFLIGHT  ALIGNMENT  ROUTINES  H ~ USER'S  OWN  PAGE  NO,  12 

RQ4 18  TrANSPSECONPuTES  THETrANSPOSE  OF  a MATriXTTrANSPOSE  = INVERSE  OF  ORTHOGONAL  TRANSFORMATION). 

R0420  TATE  INPUT  IS  A MATRIX  DeFIMIN^COORDINATE  SYSTEM  A.  WlyH  ReSPeCT  TO  COORDINATE  ^SYSTEM  B STORED  IN  StARAD  THRU 
R0422  STARAD  +17D,  ' 

R0423  THE  OjTFUT  IS  A MATRIX  DeFINI  NG  G)0l^DTN^ATE  SY5fEfl_B_iriTH~R^SPECT  T0  COORDINATE  SYSTEM  A STORED  IN  STARAD  THRU 
R0425  STARAD  ♦ HD, ' 


0426  REF  15  LAST  414  15,2766  53*447  0 TRANSPSE  OXCH  STARAD  +2  PUSHDOWN  NONE 

0427  ~REF  1 6 LAST  415  15,2767  53*453  0 OXCH  STARAD  +6 

0428  REF  17  LAsT~4T5~  ~ 15,2770  53*447  0 ~ DXCH  STARAD  +2 


0429  REF  18  LAST  415  15,2771  53'451j DXCH  STARAD  +4 

0430  REF  19  LAST  4 11  15*2772  53*461  1 DXCH  STARAD  +12D 

0431  REf  20  LAST  4T5  15,2773  53*4511  DXCH  STARAD  +4 


0432 

REF 

21 

LAST 

415 

15,2774 

53*457  1 

DXCH 

STARAD 

+ 10D 

0433 

REF 

22 

LAST 

4I5 

15,2775 

53*463  0 

DXCH 

STARAD 

♦ 140 

0434 

REF 

23 

last 

415 

15,2776 

53*457  1 

DXCH 

STARAD 

+ 10D 

9435 

REF 

W 

LAST 

122 

15 ,2777 

1 6014  0 

TCF 

DANZIG 

R0436  SMD/EREF  TRANSFORMS  STaBLE  MEMBER  DESIRED  COORDINATES  FRqM  STABLE  MEMBER  DESIRED  (DESIRED  = PRESENT  HERE)  T0 

Rq438  earth  reference  coordinates  to  align  the- stable  member  to  specified  gimbal  angles,-- 


R0440  the  inputs  are  d the  matrix  defining  the  earth  reference  coordinate  frame  with  respect  to  the  navigation  base 

R0442  COORDINATE  FRAME,  2)  SAME  AS  2)  AND  3)  OF  SMNB, 


R0443  THe  OUTPUT  IS  THE  DESIRED  STA3Le  MEMBER  COORDINATES  WITH  ReSPeCT  TO  THE  EARTH  ReFeRENCe  COORDINATE  FRAME.  THE 

R0445  THREE  UN  mgECTORS- ARE  STORED  AT  XSM,  ySM,  AND  ZSM,  — ' - 


0446 

15,3000 

77230  0 

SMD/EREF  ITA 

VLOAD 

PUSHDOWN  00,02,04-10D,30D,32D-36D 

0447 

15,3001 

00014  1 

12D 

0448 

REF 

1 

15,3W2 

33040  0 

“XUNIT 

0449 

15,3003 

36041  1 

5TCALL 

32D 

0450 

REF 

3 

LAST  242 

15,3004 

32473  0 

SMNB 

STABLE  MEMBER  TO  NAVIGATION  BASE 

0451 

15,3005 

76521  0 

MXV-  - 

T5UT 

0452 

REF 

24 

LAST  415 

15,3006 

01445  0 

STARAD 

THEN  TO  EARTH  REFERENCE 

0453 

REF 

5 

LmST  ^11 

15 ,3007 

23401  0 

STOVL 

XSM 

9454 

REF 

r 

1 5 , 30  10 

33056  T 

YUWTT 

0A55  . 15,3011  36041  1 STCALL  32D 

0456  REF  4 LAST  415  15T30I2 32473  0 5MNB STABLE  MEMBER  TO  NAVIGATION  BASE 

— 0457  15,3013  7652T  0~  MXV  V5Cr  » 

0458  REF  25  LAST  415  15,3014  91445:  0 STARAD  THEN  TO  EARTH  REFERENCE 

9459  REF  4 LAST  411  15,3015  25407  0 STOVL — TSW 

0460  REF  15,3016  33034TT  ZUTTTT-  » 


O46I  15,3017  36O4I  I — STCALL  329 
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0462 

REF 

5 LAST  415 

15,3020 

32473  0 

SMNB 

STABLE  MEMBER  TO  NAVIGATION  BASE 

0463 

15,3021 

76521  0 

MXV 

V5L1 

0464 

RTF  ~ 

2&  LAST  415 

15,3022 

01445  0 

StARAD 

THEN  TO  EARTH  REFERENCE 

0465 

" RTF 

2 LAST  411 

15,3023 

37415  0 

stgall 

ZSM 

0466 

15,T024 

00014  1 

1 2D 

0467 

15 ,3025 

67777  1 

270DEG 

2DEC 

-.25 

C0^67 

15,3026 

77777  0 

0468 

15,3027  0 5520  0 

QT5N45 

2DEC 

.1768 

C0468 

15,3030 

26075  1 

0469 

15,3031 

20000  0 

HALFDP 

2DEC 

.5 

£0469 

15,3032 

00000  1 

“ 0470 

15,3033 

30000  1 

ZUNIT 

2DEC 

0 

£0470 

15,3034 

00000  1 

0471 

15,3035 

30000  1 

YUN I T 

2DEC 

0 

C0471 

15,3036 

00000  1 

0472 

15,3037 

20000  0 

XONTT 

2DEC 

0.5 

C0472 

15,3040 

00000  1 

0473 

15,3041 

00000  1 ZERODr 

2DEC 

0 

£0473 

15,3042 

00000  1 

0474 

15,3043 

30000  1 

2DEC 

0 

£0474 

15,3044 

30000  1 

0475 

15,3045 

30000  1 

2DEC 

0 

£0475 

15,3046 

00000  1 

~C476 

15, 3047 

05252  1 

. 1 66*  * * 

2DEC 

.1666666667 

£0476 

15,3050 

25253  1 
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L IMFLI5HT  ALIGNMENT  ROUTINES  USER»S  OWN  PAGE  NO. 14 

P0477  AOTN6;  CONVERTS  THE  TWO'  RETICLE!  ROTATION  ANGLES  (YRPT  AnO;  SIOT)  AnD 
KQ478  THE  DETENT  SETTING  TO  A HALF  JNIT  STAR  VECTOR  REFERRED  TO  THE 
R0479  NAVI G A TION  BASE. 

R0480  

R04M  THE  INPUTS  ARE 
R0482 

R0483  Y RET.  LINE  RATATION  S(YROT)  STORED  IN  LOC  3 OF  THE  MARK  VAC  AREA 

R0484  SPIRAL  ROTATION ' ANGlE  S < S R D T ) STORED  IN  LOC  5 OF  MARK  VAC  AREA 

R0485  ANGLE  OF  CeNTER  OF  FIELD  OF.  VIEW  S(ELV)  STORED  IN  LOC  9 OF  MARK  VAC 

R0486  aOT  A5ZIMUTH  ANGLE  S(DtT)  STORED  IN  LOC  8 OF  MARK  VAC  AREA 

R0487  THE  COMPLEMENT  OF  BASE  ADOHE5S- OFHTORK  VAC  IS  5T0RED  AT  Xl 

R0488 

R0489  THE  OJTPUT  IS  A<  HALF  UNIT  STAR  VECTOR  IN  NB  COORDINATES  STORED 

R049C  AT  32 D AND'AVAI LABLE  IiH'VSC  ON.  RETURN  TO  THE~C^LETNG  PROGRAM 


R0491  

0492  1 S 1 305 1 66601  0 AOTNB  SETPD  SLOAD* 


0493 

15.3052 

00001  0 

0 

0494 

15.3053 

00004  0 

3,1 

0495 

15.3054 

41424  0 

RTb 

PUSH 

0496 

REF 

4 LAST  409 

15,3055 

33345  0 

CDULOGIC 

0497 

15,3056 

00017  1 

STORE 

14D 

0498 

15,3057 

65346  0 

COS 

PDDL 

0499 

15,3060 

41556  1 

SIN 

PUSH 

0500 

15,3061 

45133  1 

SLOAD* 

RTB 

0501 

15,3062 

00006  1 

5,1 

0502 

REF 

5 LAST  417 

15,3063 

33345  0 

CDULOGIC 

0503 

15,3064 

00021  1 

STORE 

16D 

STORE  S IF  S AND  Y ARE  ZERO,  5=0 

O504 

15,3065 

52054  1 

BZE 

GOTO 

S NOT  ZERO 

0505 

REF 

1 

15,3066 

33070  0 

SISZ 

S = 0 

0506 

REF 

1 

15,3067 

33100  0 

SCOMP 

0507 

15.3070 

53145  1 SISZ  DLOAD 

BZE 

IS  Y ZERO 

0508 

15,3071 

~000I7  1 

14D 

0509 

REF 

1 

15.3072 

33075  0 

YISZ 

Y = 0 

0510 

15,3073 

77650  1 

GOTO 

0511 

REF 

TT.A5T  4rr 

1 5 ,3074 

33100  TT  " 

SCOMP  ~ 

0512 

15,3075 

52145  0 YI5Z  DLOAD 

GOTO 

0513 

REr 

2 LAST  404 

15,3076 

33042  1 

ZtRODP 

0514 

REF 

1 

15,3077 

33105  0 

“5GUT 

0515 

15,3100 

45345  1 SCOMP  DLOAD 

DSU 

0516 

15 ,3101 

00017  1 

14D 

0517 

15*3102 

00021  1 - 

rso 

Y-S 

0518 

15,3103 

77621  1 

3DSU  “ 

0519 

REF 

1 

15 ,3104 

33172  0 

NEARONE 

5=360- ( Y-S) 

0520 

15 ,3105 

41405  0 SGOT  DMP 

PUSH 

0521 

RcF 

1 

1 5 , 3 1U6 

33170  1 

0522 

1 5 , 3 i U7 

65346  0 

COS 

PDDL 

C523 

15 ,3110 

41556  1 

■ STN 

THJShf  ~ 

0524 

15,3111 

72405  0 

DMP 

SL1 

0525 

15,3112 

00001  0 

0 

0526 

15,3113 

06001  0 - 

STOUL 

“0 

CM 

n 

'3- 
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0527 

15.3114 

00003  1 

2 

0528 

15,3115 

45405  1 

OMP 

STADR 

0529 

15,3116 

77774  0 

STORE 

2 

0530 

15,3117 

45133  1 

SLOAD* 

RTB 

0531 

15,3120 

00012  1 

9D,1 

0532 

REF 

6 LAST” 417  15,3121 

33345  0 

CDULOGIC 

0533 

15,3122 

73406  1 

PUSH 

SIN 

0534 

1 5 » 3 i 2 3 

71525  0 

PDDL 

COS 

0535 

15,3124 

41206  0 

PUSH 

DMP 

”0536 

15,3125 

00001  0 

0 

0537 

15,3126 

41325  0 

PDDL 

DMP 

0538 

15,3127 

00005  1 

4 

0539 

15,31 30 

00007  0“ 

6 

0540 

15,3131 

72415  1 

DAD 

SL1 

0541 

15,3132 

77626  0 

STADR 

0542 

15.31 33 

71736  0 

STODl 

32D 

0543 

15,3134 

77605  1 

DMP 

0544 

1573135 

00005  1 

4 

0545 

15,3136 

06005  1 

STODL 

4 

0546 

15,3137 

44205  0 

DMP 

BDSU 

0547 

15,3140 

00001  0 

0 

0548 

15,3141 

66606  1 

PUSH 

SLOAD* 

0549 

15,3142 

7)0011  1 

8D , 1 

0550 

15,3143 

41424  0 

RTB 

PUSH 

0551  REF 

7 LA5T  418  15,3144 

33345  0 

CDULOGIC 

0552 

15,3145 

55346  “0 

"COS 

PDDL 

0553 

15,3146 

77756  0 

SIN 

0554 

15,3147 

00001  0 

STORE 

0 

0555 

15,3150 

65205  0 

DMP 

PDDL 

0556 

15,3151 

00005  1 

4 

0557 

15,3152  “ 

“ 00007  0 

6 

0558 

15,3153 

43205  1 

DMP 

DAD 

0559 

15,3154 

00003  1 

2 

0T60 

15,3155 

77712  0 

” 5L2 

0561 

15,3156 

06043  0 

5T0DL 

34D 

0562 

15,3157 

45405  T 

DMP 

STADR 

0563 

15,3160 

71732  1 

5T0DL 

36D 

U564 

15,3161 

77605  1 

DMP 

0565 

15,3162 

62421  1 

BDSU 

5L2 

0566 

15,3163 

00045  0 

“0567 

15 ,3164 

22045  0 — 

STOVL 

36D  “ 

0568 

15,3165 

00041  1 

32D 

0569 

15,3166 

77616  0 

RVQ 

473423A  YJL  SYSTEM  FOR  BLK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

INFLIGHT  alignment  routines 

USER’S  OWN  PAGE  NO,  16 

0570 

1 5 » 3 1 67 

02525  1 DPI/12 

2DEC  ,0833333333 

00570 

15,3170 

12525  0 

0571 

15,3171 

37777  1 NEAR ONE 

2DEC  ,999999999 

C0571 

15.3172 

37777  1 

473423A.  Y JL  SY ST  EM  FOR  bLK2  8 REVI  SIONi  12:  OF  PROGRAM  AURORA  BY  DAP  fiRQUP 


NOW  10,  1966  (MAIN)  PAfil  420 


L INFLIGHT  ALIGNMENT  ROUTINES  ___  ___  ___ _ _ USER'S  OWN  PAGE  NO.  U 

P0572  AOflrSMi  CALCULATES  A HALF  UNIT  STAR  VECTOR  INTESTABLE  MeMBeR  COORDINATES  “ 

Rq573  FROM  TWO  PLANTS  CONTAINING  THE  STAR  REFERRED  TO  NS 
R 0 5 74 

R0575  “ THE  INPUTS  ARE  


"Rq577  AOT  AzIMUTff  AND  ELEVATION  StqRe'ITTN  8P  AND  ~9D~Re5P,  OF  VAC  AREA 

ROSTS  CDUY*  CDUZ.  AND  CDUX.  FROM  A YMARK”  STORED  AT  3 , 5,  AND  7 OF  VAC  AREA 

R0579  CDUY,  CDUZ' aND'TDUX~FROM  A XVI  ART  STORED  AT  2",  4,  AND  6 OF  VAC  AREA 


R0580  THE  SASt  ADDRESS  OF  THE  CDUS  IS  STORED  AT  LOCATION  Si 

R0581  _ _ 

R 0 5 6 2 THE  OUTPUT  IS  A STAR  VECTOR  REFERRED  TO  STABLE  MEMBER  AT  LOC  32D 
PQ5S3  AND  AVAILBLE  IN  MPAC ~ 


R0584 


“0585 

15,3173 

77630  1 AOTSM 

ITA 

0586 

15*3174 

00035  1 

29D 

0587 

15,3175 

70001  1 

SETPD 

LXC , 1 

PUT  BASE  ADR  OF  VAC  AREA 

IN  XI 

0588 

15,3176 

00015  0 

1 2D 

T589 

REF 

8 LAST 

413 

15,3177 

00050  l 

SI 

0590 

15,3200 

41545  0 

DLOAD 

PUSH 

ZERO  12  - 13 

0591 

REF 

3 LAST 

417 

15,3201 

33042  1 

ZERODP 

0592 

15,3202 

45133  1 

5L0AD* 

RTB 

LOAD  AZIMUTH  ANGLE  (D) 

0593 

15,3203 

00007  0 

6 , 1 

0594 

“REF 

8 LAST 

4T8 

15,3204 

33345  0 

cdulogic 

0595 

15,3205 

71406  0 

PUSH 

COS 

0596 

15,3206 

73525  1 

PDDL 

SIN 

1/2  COSD  14-15 

0597 

15,3207 

41476  1 

DCOMP 

TUSH 

-1/2  SIND  16-17 

0598 

15*3210 

45133  1 

SLOAD* 

RTB 

LOAD  ELEVATION  ANGLE  (E) 

0599 

15,3211 

00010  0 

7,1 

“0600~ 

REF 

9 LAST 

420 

15,3212 

3334  5 0 

CDULOGIC 

0601 

15,3213 

71406  0 

PUSH 

COS 

0602 

15,3214 

06041  1 

5T0DL 

32D 

1/2C0SE 

0603 

" 15,3215 

41556  1 

SIFT 

PUSH 

1/2  SINE  18-19 

0604 

15,3216 

72405  0 

DMP 

SL1 

0605 

15,3217 

00021  1 

16D 

“0606 

T5T3220T 

060431)- 

5TUDL 

34D 

-1/2  SINE  SIND  UP  18-19 

0607 

15,3221 

57405  1 

DMP  DCOMP 

0608 

15,3222 

00017  1 

14D 

07309 

15,3223 

77752  T “ 

SL1 

0610 

15,3224 

36045  0 

STCALL 

360 

-1/2SINE  COSD 

0611 

RcF 

1 

15,3225 

32517  0 

NBSM 

GET  X PLANE  IN  SM 

TT612 

15,3226 

45515  I 

PWL 

5T  ADR 

X PLANE  IN  SM  I N 12-1 7 

0613 

15,3227 

77736  0 

STORE 

32D 

Y PLANE  IN  NB 

0614 

15,3230 

62120  XT 

XCHX , 1 

INCR , 1 

0615 

REF 

9 LA5  1 

420  ~ 

15,3231 

00050  1 

51 

ADD  ONE  TO  BASE  ADR  OF  VAC  AREA 

06  IS 

15,3232 

00001  0 

1 

0617 

15,3233 

47120  1 

XCHX , 1 

CALL 

0618 

REF 

10  LA5T 

420 

15,3234 

"00050  r 

sr 

PUT  NEW  BASE  ADR  BALK  TN 

51 

O6I9 

REF 

2 LAST 

420 

1 3 , 32  3 5 

32517  0 

NBSM 

GET  Y PLANE  IN  SM 

0620 

15,3236 

76435  1 

vxv 

VSL1 

0&"2 1 

15,3237 

77676  0 

- VCOMP" 
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t 


L 

IMFLI3HT  ALIGNMENT  ROJTlNES 

USER • 5 OwN  PAGE  NO,  16 

Cj 

' (1 

0622 

15.3240 

00041 

1 

STORE 

32D 

STORE  STAR  VEC  REFERRED  TO  SM 

0623 

15,3241 

77650 

1 

GOTO 

; 

0624 

15,3242 

00035 

1 

290 

fl 


i 


1 


I 


I 

) 


( 


4- 


1 


I I 
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L INFLIGHT  ALIGNMENT  ROUTINES  USER* 5 OWN  PAGE  NO.  i9 

P0625  GIVEN  RR  TRUNlON  ANO  SHAFT  (T,S)  IN  TANG . + 1 , FIND  THE  ASSOCIATED  LINE  OF  SIGNT  IN  NAV  BASE  AXES. 

R0627  Tic  "HALF  UNIT  VECTOR,  .5 i SIN (5) COS ( T) .-SIN (T) .C05 (5) COS ( T)  ) IS  LEFT  IN  MPAC  AND~32D. 


0629  15.3243  45135  1 RRNB  SLOAD  RTB 

0630  REF  1 7 LAST  376  15.3244  00424  0 TANG 

"0631  REF  10  LAST  420  15.3245  33345  0 CDULOGIC 

0632  _ 15.3246  41401  1 " 5ETPD  PUSH  " "TRUNNION  ANGLE  TO  0. 

"0633  " 15.3247  00001  0 0 

U634 
0635 


15.3250  57556  0 SIN  DCOMP 

15.3251  P6043"ir~  STODL  34D  "Y  COMPONENT, 


0636  15.3252  41546  0 COS  PUSH  .5  COS(T)  TO  0. 

0637  1573253  45135  1 "SLOAD  RTB 

0638  REF  13  CAST  422  15,3254  00425  1 " ' ' TANG  +1 

0639  REF  11  LAST  422  15.3255  33345  0 CDULOGIC 

11640  15,3256  71406"0~  PUSH  COS  SHAFT  ANGLE  TO  2, 

0641  15.3257  72405  0 DMP  SL1 

0642  15.3260  00001  0 0 

0643  __  15.3261  06045  0 STOOL  36D  Z COMPONENT 


0644  '15.3262  41356  1 SIN  DMP 

0645  15.3263  77752  1 SL1 

10646  15.3264  22041  1 STOVL  321T 

064T  15  * 32  6 5 00041"  1 3"2D 

0648  T5T3266  776 1 6 0 RFS 


473423A  YJL  SYSTEM  FOR  bLK2:  REVISION)  12.  OFi  PROGRAM;  AURORA  BY  DAP  GROUP 


NOV  10*  1966  (MAIN)  PAGE  423 


L INFLIGHT  ALIQNMENT~ROUTINeS  USER'S  OWN  PAGE  NO.  20 


P0649  THC  FOLLOWING  ROUTINE  TAKES  A HALF  UNIT  TARGET  VECTOR  REFERRED  TO  NAV  BASe  COORDINATES  AND  FINOS  BOTH 

R'0651  GIMBAL  ORIeNTATTOITS  AT  WHICH  THE  RK  MIGHT  SIGHT  THE  TARGET.  THE  GTMBAL  ANGLES  CORRESPONDING  TO  THE  PRESENT  MODE 

R0653  ARE  CEFl^IN  MCDEA  AND  THOSE  WHICH  WOULD  Be  USED  AFTER  A RE MODE  IN  MODEB.  THIS  ROUTINE  ASSUMES  MODE  1 IS  TRUNNION 

R0655  ANGLE  LlSS  THAN  90  DeGS  IN  ABS.  VALUE  WITH  ARBITRARY  SHAFT,  WITH  A CORRESPONDING  DEFINITION  FOR  MODE  2.  MODE 

R0657  "“Selection  and  limit  checking  are  done  elsewhere". 


RQ658  THE  LODE  1 CONFIGURATION  IS  CALCULATED  FROM  THE  VECTOR  AND  THEN  MODe  2 IS  FOUND  USING  THE  RELATIONS 

R0660  S ( 2 ) = 180  + S < 1 ) 

R 0 661  T ( 2 ) = ISO  - Til) 


0662  15,3267  57545  1 RRANGLES  DLOAD  DCOMP 


0663  15,3270  00043  0 340 

L‘664  15,3271  67401  0 5ETPQ~  ‘ASlN 

0665  15,3272  00001  0 0 

0666  15,3273  44206  0 PUSH  ~ BDSU 

0667  REF  2 LAST  40b  13,3274  33032  O'"  HALFDP 

0668  15,3275  06005  1 STODL.  4^ 


SINCE  WE  will  FIND  the  MODE  1 SHAFT 
ANGLE  LATER,  WE  CAN  FIND  THE  MODE  1 " 

TRUNNION  BY  SIMPLY  TAKING  THE  ARCS  IN  OF 
THE  Y COMPONENT,  THE  ASIN  GIVING  AN 
ANSWER  WHuSE  ABS  VAL  IS  LESS  THAN  90  DEG 

MODE  2 TRUNNION  TO:  ^ 


0669 

REF 

4 LAST  420 

15,3276 

33042  1 

ZERODP 

0670 

15,3277 

22043  0 

STOVL 

34D 

UNIT  THE  PROJECTION  OF  THE  VECTOR  IN  THE 

0671 

15,3300 

00041  1 

32D 

X-Z  PLANE. 

0672 

15,3301 

41056  1 

UNIT 

BOVB 

CALL  FOR  S/C  MANEUVER  ON  GIMBAL  LOCK. 

0673 

REF 

4 LAST  240 

1 b 1 3302 

20346  1 

DESRETRN  +1 

0674 

15,3303 

06041  1 

STODL 

32D 

PROJECTION  VECTOR. 

0675 

15,3304 

00041  1 

32D 

0676 

15,3305 

46142  1 

SRI 

STO 

0677 

REF 

10  LA5T  413 

15,3306 

00051  0 

S2 

0678 

HtF 

11  LAST  412 

15,3307 

06023  T5 

STODL 

SI  NTH 

USE  ARCTRIG  SINCE  SHAFT  COULD  BE  ARB. 

0679 

15,3310 

00045  C 

36D 

0680 

15,3311 

77742  0 

SRI 

0681 

REF^ 

9 LAST  411 

15,3312 

36021  1 

STCALL 

COSTH 

0682 

REF 

7 LAST  412 

15,3313 

32440  0 

arctrig 

I' 


1 


A.  hH  Fi 


473423A 

VJL  SYSTEM  FOR  BL<2 

: REVISION 

12  OF  PROGRAM 

AURORA  BY  1 

OAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  424 

L 

TmFLIoHT  alignment 

routines 

USER'S  0WN  PAGE  nO.  21 

0683 

15*3314 

43206  1 

PUSH 

DAD 

MODE  1 SHAFT  TO  2. 

0684 

“REF  3 LAST  423 

15*3315 

33032  0 

flALFDP 

(OVERFLOW  DOESNT  MATTER  SINCE  SCALED  REV 

“0685 

15*3316 

22007  0 

STOVL 

6 

0686 

15*3317 

00005  1 

4 

0687 

15,3320 

77624  1 

RTB 

FIND  MODE  2 CDU  ANGLES. 

0688 

REF"  1 

15.3321 

33431  1 

2V1ST02S 

0689 

REF  3 LAST  239 

15,3322 

22426  1 

STOVL 

MODEB 

0690 

15,3323 

OOOOl  0 

0 

0691 

15,3324 

77624  1 

RTB 

MODE  1 ANGLES  TO  MODE  A. 

0692 

REF  2 LAST  424 

15,3325 

33431  1 

2V1ST02S 

0693 

REF  2 LAST  237 

15,3326 

00424  0 

STORE 

MODEA 

“0694 

15,3327 

77776  1 

EXIT 

0695"  ' 

REF  78  LAST  376 

J.5  *3330 

4 0413  0 

CS 

RADMODES 

SWAP  MODEA  AND  MODEB  IF  RR  IN  MODE  2. 

0696 

REF  19  LAST  403 

15,3331 

7 7644  1 

MASK 

BIT12 

0697 

REF  303  LAST  401 

15*3332 

10  000  0 

CCS 

A 

“0698 

“15,3333 

1 3337  1 

TCF 

+ 4 

"0699 

REF  3 LAST  424 

15*3334 

52  424  1 

DXCH 

MODEA 

■'0700 

REF  4 LAST  424 

I 5*3335 

52  426  0 

DXCH 

MODEB 

“0701  _ 

REF  4 LAST  424 

15,3336 

52  424  1 

OXCH 

MODEA 

0702 

REF  10  LAST  412 

15*3337 

0 6000  1 

TC 

INTPRET 

0703 

15,3340 

77650  1 

GOTO 

0704  REF  11  LAST  423  T5T334I  00051  0 S2 


0705 15*3342  'ENDINFSS  EQUALS 
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L _ RTB  OP  CODES  _ _ _____  USER'S  OWN  PAGE  NO.  1 


000 1 “ REF  ~l  15,3342  SETLOC  EnDimFSS 

R0002  LOAD  TINE2rTlMEl  INTO  MPAC; 

0003  ~ 15,3342  0 0006  j LOADTIME  EXTEND 

000a  ~REF  r^LAST  374  15,3343  3 0025  0 DCS  TIME2 

0005  REF  2 LAST  50  15.3344  1 6470  0 TCP  SL0AD2 


R0006  CONVERT  THe  SINGLE  PREOI5I0N  2*S  COMPLEMENT  NUMBER  ARRIVING  IN  MPAC  (SCALeD  IN  HALF-REVOLUTIONS)  TO  A 

R0008  DP  i'S  COMPLEMENT  NUMBER  SCALED  IN  REVOLUTIONS. 


0009 

REF 

533 

LAST 

396 

15,3345 

10  140 

0 

CDULOGIC  CCS 

MPAC 

0010 

REF 

142 

LAST 

403 

15,3346 

3 7665 

0 

CAF 

ZtRO 

0011 

15,3347 

1 3352 

1 

TCF 

+ 3 

0012 

15,3350 

1 3351 

1 

NOOP 

0013 

REF 

17 

LAST 

232 

15.3351 

4 7642 

1 

CS 

HALF 

0014 

REF  534  LAST  425 

15,3352 

54  141  1 

TS 

MPAC  +1 

0015 

REF  143  LAST  425 

15,3353 

3 7665  0 

CAF 

ZERO 

C016 

“REF  535  LAST  425 

15,3354 

56  140  1 

XCH 

MPAC 

0017 

15.3355 

0 0006  1 

EXTEND 

0018 

REF  1 3 LAST  425 

15,3356 

7 7642  1 

ViP 

HALF 

0019 

REF  53b  LAST  425 

15,3357 

20  141  1 

DAS 

“MPAC 

0020 

REF  3 LAST  425 

15,3360 

1 6472  1 

TCF 

SL0AD2  +2 

C (A)  = +0. 

R u 0 2 1 Read  IMU  CDUS  INTCr ~WCTa5~  a vector,  especially  USEFUL  IN  CONNECTION  WITH  SmNB,  eTCT 


0023 

15,3361 

0 0004 

0 

READCDUS  INHINT 

0024 

REF 

4 

LAST 

222 

15,3362 

3 0033 

1 

CA 

“CDUY 

TiT  ORDER  Y Z X 

0025 

REF 

537 

LAST 

425 

15,3363 

54  140 

0 

TS 

MPAC 

0026 

REF 

9 

LAST 

376 

15,3364 

3 0034 

0 

CA 

CDUZ 

0027 

REF 

538 

LAST 

425 

15,3565 

54  143 

“0““ 

TS 

TfPAC  +3 

0023 

REF 

11 

LA5T 

376 

15,3366 

3 0032 

“0 

CA 

CDUX 

0029 

REF 

1 

15,3367 

1 3376 

1 

TCF 

READPIPS  +6 

COMMON  CODING. 

R0030 


READ  THE  PIPS  INTO  MPA: 


them: 


0031  ~ 15.3370  0 0004  0 READPIP5  INHINT 


0032  REF  4 LAST  376  15.3371  3 0037  0 CA PIPAX 

0033  REF  539  LAST  425  15.3372  54  140  0 TS MPAC 

tf03A  REF  2 " LA5T  197  15.3373 — 3““OOW  “0 CA PIPAY — 

0035  REF  540  LAST  425  15.3374  54  143  0 ~ — TS MPAC  *3 

0036  REF  3 LAST  376  “ 15,3375  3 0041  T CA PTPAZ 

TW37  15,3376  0 0003  1 RELINT 

0038  REF  541  LAST  425  15,3377  54'  145  0 TS MPAC  *5 


0039  RFT  144  LAST“425  IT. 3400  3 7665  0 CAT  ZERO 

0040  REF  542  LAST  425  “~tS,3401  54  tt.1  U TS MPAC~4l — 

0041  REf  543  LAST  425  15,3402  54  144  1 TS  ^pACTF*- 

0042  REF  544  LAST  425  “15,3403  54  146  0 TS MPAC  +6 


CD 


473423A  YUL  SYSTEM  FOR  BLK2 8 REVISION'  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


MOV  10,  1966  (MAIN)  PAGE  426 


L RTS  OP  CODES  ""  __  - _ USER'S  OWN  PAGE  NO,  2 

0043  REF  101  LAST  362  15 ,3404  T76~57  0 VECMODE  CS  ONE 

0044  REF  9 LAST  106  15,3405  1 6013  1~  TCF  NEWMODE 

R0045  FORCE  TP  SIGN  AGREEMENT  IN  MPAC? 

0046  REF  5 LAST  3i8  l5,34o6  Q 7235  1 SGNAGReI  TC  TPAQREE 

0047  REF  pi  LAST  415 ~ 15,3407  I 6014  0 TCF  DANZIG 

R0048  CONVERT  THE  DP  1 *S  COMPLEMENT  ANGLE  SCALED  IN  REVOLUTIONS  TO  A SINQLeTPRICTSI'ON'  2»S  COMPLEMENT  ANGLE 

R0050  SCALE 0 IN  HaLFAREVqLUTTqnS. 


0051 

REF  “ 1 

15,3410 

0 3440 

1 1ST02S 

TC 

0052 

RcF  145  LAST  425 

15,3411 

3 7665 

0 

CAF 

" 0053 

~REF  545  EAST  425 

15*3412 

54  141 

1 

T5 

0054 

REF  10  LASI  426 

15,3413 

1 60 1 3 

1 

TCF 

1T02SUB 
ZERO 
MPAC _♦! 
NEwMOOE 


R0055  DO  1ST02S  ON  A VECTQRi  OF  ANGLES.' 

0056  REF  2 LAST  426  15,34j4  Q 3440  l V1STO2S  TC  1T02SUB  ANSWER  ARRIVES  IN  A AND  MPAC, 


OO57 

REF  546  LAST  426 

15,3415 

52  146  0 

DXCH 

MPAC  +5 

0058 

REF  547  LAST  426 

15,3416 

52  141  1 

DXCH 

MPAC 

YT059 

REF  3 LAST  426 

15,3417 

0 3440  1 

TC 

1T02SUB 

0060 

REF  543  LAST  426 

15,3420 

54  142  1 

TS 

MPAC  +2 

0061 

REF  549  LAST  426 

15,3421 

52  144  1 

DXCH 

MPAC  +3 

0062 

REF  550  LAST  426 

15,3422 

52  141  1 

DXCH  ' 

MPAC 

0063 

REF  4 LAST  426 

15,3423 

0 3440  1 

TC 

1T02SUB 

“0064^ 

“REF  55rTS5T“426 

15,3424 

54  141  r 

TS 

MPAC  +1 

0065 

REF  552  LAST  426 

15,3425 

3 0145  1 

CA 

MPAC  +5 

0066 

REF  55 1 LAS)  426 

15,3426 

54  140  0 

TS 

HMPAC 

U067 

RtF  102  LAST  426 

15,3427 

3 7657  1 

CAF 

ONE 

MODE  IS  TP, 

006T8 

RtF  11  LAST  426 

15,3430 

1 6013  r 

TCF 

TTEWMODE 

R0069 

V15T025 

FOR  2 COM  PUN 

ENT  VECTOR,  USED 

BY  RR. 

OO7O 

REF 

5 

LAST  426^ 

15,3431 

0 3440 

1 2V1ST02S 

TC 

1T02SUB 

00  7 1 

RcF 

554 

Las  1 426 

15,3432 

52  144 

1 

DXCH 

MPAC  +3 

0072 

REF 

5F5 

EAST  426 

I543433 

52  141 

T5XCFT- 

' MPAC 

0073 

REF 

6 

LAS)  426 

15,3434 

0 3440 

T 

TC 

1T025UB 

0074 

RcF 

164 

LAST  400 

15,3435 

54  001 

1 

TS 

L 

0075 

“0076 

RcF 

“REF 

5F6 

~4“ 

LAST  426 
LAST  425 

15  ,"3436 
15  *343T 

3 0143 
l- 6470 

r 

0 — 

~CAT 

TCF 

MPAC  +3 
SL0AIT2~ 

"ROOTY 


0076 

OT79 


SUBKQUT I NE~Y"0  'DO  DOUBLING  AND  1 » S TO  2»S  CONVERSION: 

RtF  557  LAST  426  15,3440  52  141  l 1T02SUB  DXCH  MPAC 

"15*3441  20  001  1 DDUUBt 


final  mpac  +i  unspecified. 
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L 

RTB 

OP  COOES 

USER'S  OWN  PAGE  NO.  3 

0080 

REF 

304  LAST 

424 

15*3442 

10  000  0 

CCS 

A 

“ 0081  " 

REF 

103  LAST 

426 

15,3443 

6 7657  1 

AD 

ONE 

0082 

15*3444 

1 3446  0 

TCF 

+ 2 

0083 

15,3445 

4 0000  0 

COM 

THIS  WAS  REVERSE  OF  MSU, 

OOeA 

REF 

558  LAST 

426 

15*3446 

54  140  0 

TS 

MPAC 

AND  SKIP  ON  OVERFLOW, 

0085 

REF 

266  LAST 

395 

15,3447 

0 0002  0 

TC 

Q 

0086 

REF 

305  LAST 

427 

15,3450 

50  000  i 

INDEX 

A 

OVERFLOW  UNCORRECT  AND  IN  MSU. 

0087 

REF 

3 LAST 

123 

15,3451 

3 7640  1 

CAP 

LIMITS 

0088 

REF 

559  LAST  427 

15,3452 

26  140  0 

ADS 

MPAC 

0089 

REF 

267  LAST 

427 

15,3453 

0 0002  0 

TC 

Q 

Of 


47342  3 A 

YJL 

systfm  for  blk2:  revision 

12  OF  PROGRAM 

AURqRA  by 

DAP  GRqUP 

NQV  10,  1966  (MAIN)  PaG£  428 

L 

RtB 

OP  CqDfS 

USSR'S  OWN  PAGE  NO.  4 

P0090 

SUBROUTINE  to  INCREMENT  cdus 

0091 

REF 

1 15.3454 

3 3467  1 INCRCDUS  CAF 

loctheta 

0092 

REF 

119  LAST  312  15,3455 

54  114  1 

TS 

BUF 

PLACE  ADRES(THETA)  IN  BUF, 

0093 

REF 

560  LAST  427  15,3456 

30  140  1 

CAE 

MPAC 

INCREMENT  IN  IS  COMPL. 

0094 

REF 

2 LAST  262  15,3457 

0 3470  1 

TC 

CDUINC 

OO95 

REF 

120  LAST  428  15,3460 

24-  114  0 

I NCR 

BUF 

0096 

REF 

561  LAST  428  15,3461 

30  143  1 

CAE 

MPAC  +3 

0097 

REF 

3 LAST 428  15,3462 

0 3470  1 

TC 

CDUINC 

0098 

REF 

121 

LAST 

428 

15,3463 

24  114 

0 

I NCR 

BUF 

0099 

REF 

562 

LAST 

428 

15,3464 

30  145 

1 

CAE 

MPAC  +5 

0100 

REF 

4 

LAST 

428 

15,3465 

0 3470 

1 

TC 

CDUINC 

0101  REF  1 15*3466  1 3404  0 TCF  VECMODE 


0102 

REF  9 LAST  412 

15,3467 

00400  0 

LOCTHETA  ADRES 

THETAD 

R0103 

THE  FOLLOWING  ROUTINE  INCREMENTS  IN  2S  COMPLEMENT  THE 

register  whose  address  is  in  buf  by 

THE  IS  COMPL, 

R01O5 

QUANTITY  FOUND  IN 

TEM2.  THIS 

NAY  BE  USED 

TO  INCREMENT  1 

desired 

IMU  AND  OPTICS  CDU  ANGLES  OR  ANY  OTHER  2S  COMPL, 

RO 107 

(+0  UNEQUAL  to  -0) 

QUANT  I TY. 

NAY  BE  CALLED  BY  BANKCALL/SWCALL. 

0108 

REF  3 LAST  n 

15,3470 

54  128  0 

CDUINC  TS 

tem2 

IS  COMPL, QUANT,  ARRIVES  IN 

ACC.  STORE  IT 

0109 

REF  122  LA5 1 428 

15,3471 

50  114  0 

INDEX 

buf 

0110 

15,3472 

10  000  0 

CCS 

0 

CHANGE  2S  COMPL.  ANGLE ( IN 

BUF ) I NTO  lb 

OTTT 

REF  104  LAST  427 

15,3473 

6 7657  T 

AIT 

OTTE 

0112 

15,3474 

1 3500  0 

TCF 

+ 4 

0113 

REF  105  LAST  428 

15,3475 

6 7657  1 

AD 

ONE 

0 1 14 

KcF  106  LA5T  428 

15.3A76 

6 7657  T 

AD 

ONE 

' OVERFLOW  HERE  IF  2S  COMPL. 

IS  180  DEG, 

0115 

15,3477 

4 0000  0 

COM 

0116 

REF 

4 

LAST 

428 

15,3500 

6 0126 

1 

~Al T 

TEM2 

ADD  IN  INCREMENT , WILL  OVERFLOW  IF  RE- 

C0117 

SULT  MOVES  FROM  2ND  TO  3D  QUAD, (OR  BACK) 

0118 

REF 

3 06 

LAST 

427 

15,3501 

10  000 

0 

CCS 

A 

BACK  TO  25  COMPL, 

0119 

REF  107 

LA51 

4 28 

15,3502 

6 7557 

“I 

~ AO  " 

ONE"- 

0120 

15,3503 

1 

0 

TCF 

+ 2 

0121 

15*3504 

4 0000 

0 

COM' 

0122 

REF 

5 

— * 
LO 
< 
_J 

428 

15',  3505 

54  126 

u 

TS  “ 

TeM2  - 

STORE  14B1T  QUANTITY  WITH  PRESENT  STGIT 

0123 

last 

15,3506 

1 3512 

0 

tcf 

+ 4 

0124 

REF 

307 

42~B 

15,3507 

50  000 

1 

INDEX 

A 

OVERFLOW  MEANS  CORRECT  14BIT  VA|_UE* WRONG 

C0125 

SIGN. 

0126 

REF 

4 

LAS  1 

42  7 

15,3510 

3 7640 

CAF 

limits 

FIX  IT, BY  ADDING  IN  37777  OR  40000 

0127 

REF 

6 

LA51 

428 

15,3511 

6 0126 

r 

“ AD 

TEPT2 

REF 

123 

0128 

LAbl 

428 

15,3512 

50  114 

0 

INDEX 

BUF 

0129 

15,3513 

54  000 

0 

TS 

0 

STORE  NEW  ANGLE  IN  2S  COMPLEMENT, 

U 1 30 

REF 

278 

LAS  1 

427 

""  15,3514 

0 0002 

“0 — 

TC 

“ Q 

473423A  YJL  SYSTEM  FOR  BLK2 ; REVISION  12  OF  PROGRAM:  AURORA  BY  DAP  GROUP 
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L 

RTB 

OP  COOES 

USER'S  OWN  PAGE  NO.  5 

P0131 

RTB 

TO  TORQUE  gyros* 

EXCEPT 

FOR 

THE  CALL  TO  i MUST ALL,  ECADr 

OF  commands  Arrives  in  XI. 

0133 

REF 

19  LAST 

130  15*3515 

50  104 

1 

PULSE I MU  INDEX 

FIXLOC 

ADDRESS  OF  GYRO  COMMANDS  SHOULD  BE  IN  Xl 

0134 

REF 

9 LAST 

117  15,3516 

3 0046 

0 

CA 

XI 

0135 

REF 

23  LAST 

336  15*3517 

0 4063 

0 

TC 

BANKCALL 

0136 

REF 

3 LAST 

263  15,3520 

26317 

0 

CADR 

IMUPULSE 

0137 

REF 

52  LAST 

426  15,3521 

1 6014 

0 

TCF 

DANZIG 

' 


473423A  YJL  SYSTEM  FOR  BLK2:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN) PAGE  430 


L RTB  OP  COOES _____  _ _ „ _ USEr*S  OWN  PAGE  NO.  6 

PQ138  THE  FOLL^TNG^OUYTNg^TS  TJSeD  ONLY  IN  BeNCT~Te^T I NG1  tHf  RR. 


0139 

REF 

10  LAST  279 

15,3522 

0 4554  1 

RRSIM 

TC 

FIXDELAY 

' QUO 

15,3523 

00062  0 

DEC 

50 

0141 

REF 

23  LAST  377 

15,3524 

3 7656  0 

RRSIM2 

CAF 

BIT2 

SEE  IF  RR  ECTR  ENABLED. 

0142 

15,3525 

0 0006  1 

EXTEND 

0143 

15,3526 

02  012  0 

RAND 

12 

0144 

15,3527 

0 0006  1 

EXTEND 

0145 

REF 

1 

15,3530 

1 3522  0 

3ZF 

RRSIM 

OI46 

REF 

7 LAST  428 

15*3531 

3 0126  1 

CA 

F tn2 

SAVE  EXEC  TEMPS  SINCE  IN  RUPT. 

0147 

REF 

24  LAST  276 

15,3532 

54  074  0 

TS 

RUPTREGl 

0148 

RlF 

1 

15,3533 

3 3573  0 

CAF 

LGPTY 

~0149 

REF 

124  LAST  428 

15,3534 

56  114  0 

XCH 

BUF 

OI5O 

REF 

25  LAST  276 

15,3535 

54  075  1 

TS 

RUPTREG2 

0151 

REF 

7 LAST  376 

15,3536 

3 0362  (T 

CA 

LASTYCMD 

ECTR. 

0152 

15,3537 

6 0000  1 

double 

0153 

15,3540 

0 0006  1 

EXTEND 

0154 

REF 

1 

15,3541 

7 3574  0 

MP 

RRSIMG 

0155 

REF 

5 LAST  428 

15,3542 

0 3470  1 

TC 

CDUINC 

0156 

REF 

125  LAST  430 

15,3543 

24  114  0 

I NCR 

BUF 

0T57 

W 

TTO  LAST  376 

15 ,3544 

3 0035  1 

~CA 

OPTY 

SHAFT  CMD  I 5 DIVIDED  BY  THE  ABS 

VALUE  OF 

0158 

15,3545 

0 0006  1 

EXTEND 

THE  COS  OF  THE  TRUNNION  ANGLE, 

0159 

15,3546 

20  007  1 

vlSU 

7 

TO  IS  complement. 

0160 

REF 

3 LAST  182 

15 ,3547 

TT4232  0 

TC 

SPCOS 

# 

0161 

15,3550 

0 0006  1 

EXTEND 

SPCOS  NOW  GIVES  COS  SCALED  AT  1 

* 

0162 

REF 

34  LAST  377 

15,3551 

7 7642  1 

'FTP 

BIT14 

(A  DAP  GROUP  FIX) 

* 

0163 

"REF 

308  LAST'  428 

15,3552 

W OOTTTT 

CCS 

A 

^31 64 

15,3553 

1 3556  0 

TCP 

+ 3 

0165 

15,3554 

1 3556  0 

TCF 

+ 2 

0166 

15*3555 

1 3556  0 

tcf 

+ 1 

0167 

RcF 

108  LAST  428 

15,3556 

6 7657  1 

AD 

ONE 

0168 

REF 

50  LAST  371 

15,3557 

54  065  0 

TS 

I TEMP  1 

0169 

REF 

5 LAST  232 

15,3560 

3 0363  1 

TA 

LASTXCMD 

SHAFT  RATE  DEPENDS  ON  TRUNNION. 

0170 

15,3561 

0 0006  1 

EXTEND 

0T71 

REF 

Z LAST  430 

15,3562 

7 3574  0 

'-IP 

RRS I MG 

0172 

15,3563 

0 0006  1 

EXTEND 

OI73 

REF 

51  LAST  430 

15,3564 

10  065  0 

DV 

ITEMP1 

"01:74 

REF 

6 LAST  430 

15,3565 

0 3470  1 

TC 

cDomc 

0175 

REF 

25  LAST  430 

15,3566 

3 0074  1 

CA 

RUPTREGl 

0176 

RfcF 

8 LAST 430 

15,3567 

54  126  0 

TS 

TEM2 

0177~ 

REF 

26  T5AST  430 

15,T57CT 

3 0075T) 

CA 

RUPTREG2  " 

0178 

RcF 

126  LAST  430 

15,3571 

54  114  1 

TS 

BUI- 

0179 

REF 

2 LAST  430 

15,3572 

1 3522  0 

TCF 

RRSIM 

u 1 80 

Rtr 

11  LA5 T 430 

15,3573 

00035  1 

LQPTY 

ADRES 

OPTY 

0131 

15,3574 

22755  0 

RRSIMG 

DEC 

.59259 

0182 

15,3375 

ENDRTBS5- 

TOOTLF 
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L LEM  FLIGHT  CONTROL  SYSTEM  TEST 

USER'S  OWN  PAGE  NO. 

1 

0001  06,2000 

BANK  6 

0002  REF  1 E4 

EBANK=  JETSTEP 

R 0 0 0 3 LEM  FCS  TEST  ENTRY  AND  INITIALIZATION  JOB* 


R0OO4  THIS'  JOB  INITIALIZES  THf  ERASABLE  TABLES  FOR  THe'TCS  TEST  AND  PUTS  T^E  FOLLOWING  PROGRAMS  UNDER 

R0006  WAITLIST  CONTROL. 

RO007  (1)  RCS  JET  SET  TA3< 

R0008  ~ (2)  ENGINE  ON  - OFF  TASK 

R0009  (3)  DESCENT  ENGINE  G-IMBAL  TRIM  TASK 

Rooio  (4)  descent  engine  throttle  task 

ROOll  (5)  INTERFACTTHANNELi  LOOK  TASK 


0012 

REF 

11  LAST  367 

06,2000 

0 5317  1 

fcsstart 

TC 

GRABWAI T 

SO  NOTHING  DISRUPTS  THE  LOAD. 

0013 

REF 

1 

06,2001 

3 2054  1 

CAF 

JSTEPADR 

THE  START  OF  THE  LIST. 

0014 

REF 

309  LAST  430 

06,2002 

10  000  0 

FCS3 

CCS 

A 

0015 

~REF 

563  LAST  428 

06,2003 

54  142  1 

TS 

MPAC  +2 

0016 

REF 

1 

06,2004 

3 2057  1 

FCS2 

CAF 

V04N01K 

DISPLAY  PRESENT  CONTENTS  IN  R2. 

0017 

REF 

23  LAST  367 

06,2005 

0 5332  0 

TC 

NVSBWAIT 

00  is 

REF  564  LAST  431 

06,2006 

24  142  0 

TNCr 

MPAC  +2 

0019 

REF 

1 

06,2007 

3 2055  0 

CAF 

V21N02K 

0020 

RcF 

24  LAST  431 

06,2010 

0 5332  0 

TC 

NVSBWAIT 

IN  CASE  IT,S  BUSY  BUT  IT  SHOULDN ,T  BE. 

0021 

REF 

19  LAST  397 

“06,2011 

514CT 1 

TC 

ENDIDLE 

WHILE  LOADING. 

0022 

06,2012 

0 2015  1 

TC 

+ 3 

V34E.  TERMINATE  LOAD  OF  THIS  LIST 

A0023 

SECTION,  GO  TO  NEW  SECTION  OR  TO  TEST* 

0024 

06,2013 

7T2014  0 

TC 

+ 1 

V33E.  PRESENT  CONTENTS  OK,  PROCEED  TO 

AC025 

NEXT  LOCATION  IN  LIST. 

0026 

REF 

1 

06,2014 

0 2004  1 

TC 

FCS2 

0027 

REF 

1 

D6,20T5 

3 2056  0 

CAF 

V21N30K 

0028 

REF 

25  LAST  431 

06 1 2U 16 

0 5332  0 

TC 

NV5BWAIT 

0029 

RcF 

20  Las  1 431 

06,2017 

0 5140  1 

TC 

ENDIDLE 

0030 

RtF 

8 LAST  367 

06,2020 

0 4437  0 

TTT 

EJFREE 

OO3 1 

REF 

1 

06,2021 

0 2024  0 

TC 

FCSTEST 1 

PROCEED  TO  TEST. 

0032 

RiF 

23  LA5I  354 

06,2022 

30  333  1 

CAE 

DSPTEM1 

NEW  ADDRESS, 

0033 

REF 

T 

06,2023 

0“2O02  1 

TC“ 

FCS  3 

0034 

R^F 

1 

06,2024 

3 2060  0 

FCSTEST 1 

CAF 

V47K 

0035 

REF 

26  LAS  1 431 

06,2025 

0 5332  0 

TC 

NVSBWAIT 

OUR  VERB  IN  THE  LIGHTS. 

0036 

06,2026 

0“  000  4-0“ 

FCSTEST 

INHTNT 

OO37 

REF 

2 LAST  431 

E4 

ebank= 

JtTSTEP 

0038 

RcF 

5 1 LAST  401 

“06,2027 

3 7656  0“ 

CAF 

TWO 

20MS. 

0030 

REF 

42  LAST  402 

06  *2030 

0 4536  0“ 

TC“ 

”” WATTLI5T 

0040 

REF 

3 LA5T  431 

E4 

EBANK=  JETSTEP 

0041 

06  v 2 0 3 1 

02065  0 

2CADR 

JET5TART 

COO4I 

REF 

1 

06,2032 

14004  0 

UUs-t 

Ktr 

LA b 1 377 

06,2033 

3 7657  1 

CAF 

BITl 

10MS, 

0043 

REF 

43  LAST  431 

06,2034 

0 4536  0 

TC 

WAITLIST 

“0044 

REF 

4 LAs  1 431 

E4 

EBATJK= 

JETSTEP 

473423A  YJL  SYSTEM  FOR  BL<2i  REVISION  12,  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L Lem  flight  control  system  test  _user»s  own  page  no,  2 


0045 

06,2035 

02220  0 

2CADR 

ENGSTART 

C0045 

RcF 

1 

06 ,2036 

14004  0 

”0046 

REF 

15 

LAST 

403 

06,2037 

3 6165  0 

CAF 

THREE 

30MS, 

0047 

REF 

5 

LAST 

431 

E4 

ebank= 

JETSTEP 

0048 

REF 

44 

LAST 

431 

06 » 2040~ 

0 4536  0 

TC 

WAITLIST 

0049 

06,2041 

02315  1 

2CADR 

TRIMTOP 

C0049 

REF 

1 

06,2042 

14004  0 

0050 

REF 

12 

LAS  f 

377 

06,2043 

3 7655  0 

CAF 

FOUR 

40MS. 

T5051 

REF 

45 

LAST 

432 

06,2044 

0 4536  0 

TC 

WAITLIST 

0052 

REF 

6 

LAST 

432 

E4 

ebank= 

JETSTEP 

“TOSS 

”06,2045 

02435  1 

2CADR 

THRSTART 

COO  5 3 

REF 

1 

06,2046 

14004  0 

~0054 

REF 

8 

LAST 

377 

06,2047 

3 7664  1 

CAF  FIVE 

50MS. 

0055 

REF 

46 

LAST 

432 

06*2050 

0 4536  0 

TC 

WAITLIST 

0056 

REF 

7 

LAST 

432 

E4 

ebank= 

JETSTEP 

”0057 

06,2051 

02523  1 

2CA0R 

LCOKTOP 

C0057 

REF 

1 

06,2052 

14004  0 

0058 

REF 

9 

LAST 

431 

06,2053 

0 4437  0 

TC 

EJFREE 

NOW  they  start. 

OO59 

REF 

8 

LAST 

432 

06 , 2U  54 

02007  1 

J5TEPA0R 

ECADR 

JETSTEP 

0060 

06,2055 

02102  0 

V21N02K 

OCT 

02102 

0061 

06,2056 

02130  1 

V21N30K 

OCT 

02130 

0062 

06,2057 

00401  1 

V04N01K 

TCT 

00401 

0063  06,2060  04700  1 V47K  OCT  04700 


< 
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L 

LEM  FLIGHT  CONTROL  SYSTEM  TEST  USER'S  OWN  PAGE  NO,  3 

- - - * 

P0064 

LEM  FCS  TEST  RCS  JET5ET  T A S <i 

R'0065 

THIS  JOB  ISSUES  A PROFILE  OF  JET  ON-OFF  SIGNALS  AS  DETERMINED  BY  THE  CONSTANTS  IN  A SET  OF  SIX  REGISTERS, 

R0067 

the  six  registers  are,  <d  nttmes,  the  number  of  times  a particular  step  will  be  performed,  (2)  nexttime,  the 

1 

R0069 

time  BETWEEN  STEPS,  a MAXIMUM  OF  2 MINUTES,  (3)  JET0NTM,  THe  TIME  TO  TURN  THE  JETS  ON*  SCALED  FOR  T3*  (A)  JET- 

R0071 

UFFTM,  THE  TTME  AFTER  UNTFTTD  TJRTTTHe  JETS  OFF,  (5)  XJETS,  THE  PARTICULAR  X JETS  TO  BE  TURNED  ON  AND  OFF 

R0073 

during  each  Repeat  of  a step*  and  (6)  yzjets,,  the  y and  z jets  to  be  turned  on  and  off  during  each  repeat  of  a 

t 

R0075 

STEP*  XJETS  AND  yzjets  MUST  3e  IN  THE  SAME  FORMAT  AS  CHANNELS  5 AND6  RESPECTIVELY,  THERE  ARE  eIOHT  SETS  OF 

R0077 

these  six  registers. 

R0078 

THE  REGISTER  JETSTEP  IS  JSeD  TO  INDEX  THe  8 SETS  OF  REGISTERS,  THE  ALLOWABLE  VALUES  OF  JETSTEP  ARE  +0  THRU  7 

l 

R0080 

“ THIS  JOB  WILL  Be  ENTERED  3 J I IMMEDIATELY  ENDED  IF  THE  INITIAL  VALUES  OF  JETSTEP  AND  NTIMES  ARE  +o. 

c 


0082  REF  9 LAsT  *32  06,2061  11*407  1 NEXT s^T  CCS  JETsTEP  IT  MAY  BE  ZERO. 


0083 

06*2062 

0 2064  1 

TC 

+ 2 

NOPE 

0084 

REF 

35 

LAST 

403 

06  *2063 

0 4602  1 

TC 

taskover 

IT  IS  SO  wE  ARE  DONE  WITH  THIS  TASK. 

“ 0085 

RTF 

10 

LASf 

433 

06,2064 

55 ' 407  1 

TS 

JETSTEP 

0086 

ref 

11 

LAST 

433 

06  1 2065 

51*407  0 

JETsTArT 

NDX 

JETsTEP 

ENTER  HErE. 

“0087 

RtF 

1 

06,2066 

11*410  1 

CCS 

NTIMES 

SEE  IF  THIS  STEP  IS  FINISHED. 

0088 

06*2067 

0 2071  0 

TC 

+ 2 

NO 

0089 

REF 

1 

06*2070 

0 2061  1 

TC 

nextset 

YES 

0090 

REF 

12 

LmST 

433 

06,2071 

51*407  0 

T1DX 

JETSTEP 

0091 

REF 

1 

06*2072 

3 1 ' 42o  0 

CAE 

nexttime 

MUST  BE  SCALED  FOR  T3.  REMEMBER  TO  BIAS 

A0092 

THIS  FOR  ON  TIME. 

0093 

REF 

47 

LASl 

432 

06,2073 

0 4536  0 

TC 

USTTLIST 

J 

0094 

REF 

13 

LAST 

433 

E4 

ebank= 

JETSTEP 

OO95 

06*2074 

02110  0 

2CADR 

JTOP 

C0095 

REF 

1 

06,2075 

14004  0 

0096 

REF 

36 

LAST 

433 

06,2076 

0 4602  1 

TC 

TASKOVER 

0097 

REF 

146 

LAST 

426 

06*2077 

3 7665  0 

JETUFF 

OAF 

ZERO 

0098 

06,2100 

0 0006  1 

EXTEND 

0099 

06,2101 

01  005  0 

WRITE 

5 

oioo~ 

0672 I02~ 

TT  0006  1 

EXTEND 

0101 

06  1 2 1U3 

01  00b  0 

“WRITE 

6 

0102 

REF 

14 

LA51 

433 

06,2104 

51*407  o 

“NDX 

JETSTEP 

0103 

"REF 

2 

LATT 

43T 

ITT  41 0 I 

CCS 

NTIMES 

0104 

RtF 

1 5 

LAST 

433 

^6  t 2 1 06 

51*407  0 

“NDX 

JtTSTtP 

7 

0105 

REF 

3 

LAST 

433 

06,2107 

55*410  1 

T5 

NTIMES 

ONE  LESS  TIME. 

oros 

~REF 

is 

LAST 

433 

06 , 2 1 10 

51  * 407  TT 

' JTOF^ 

NDX  “ 

JETSTEP 

0 1 0 7 

RtF 

4 

LA5T 

433 

06,2111 

11*410  1 

CCS 

NTIME5 

FOR  LOOPING. 

0108 

06,2112 

0 2114  1 

TC 

+ 2 

0109 

2 

LAST 

433 

06,2113 

0~20“61  1 

T C 

TEXT  SET 

0110 

RtF 

17 

LAST 

433 

06*2114 

51*407  0 

NDX 

JETSTEP 

Dili 

REF 

1 

06,2115 

31*430  1 

cae 

jetontm 

SCALED  FOR  T3.  TIME  FOR  JETS  ON, 

0112 

RtF 

48 

LAST 

433 

— 0-6,2116 

TT  4536  0 

TC 

WA1TLI5T 

0113 

REF 

13 

LAST 

433 

E4 

EBANK= 

JETSTEP 

% 

0114 

~ 06*2117 

02122  1 

2CADR  JETON 

C0114 

REF 

I 

“06,2120 

74004“  0“ 

1 

* 
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0115 

REF  37  LAST  433 

06,2121  0 4602  1 

TC 

TASKOVER 

. 

0116 

REF  I9  LAST  433 

06 » 2 122  51*407  0 

JETON 

NDX 

JtTSTEP 

0117 

REF  1 

06,2123  31*440  0 

CAE 

XJETS 

MUST  be  IN  CHANNEL  5 FORMAT, 

0118 

REF  1 

06,2124  55*401  1 

T 5 

XJBUF 

0119 

REF  20  LAST  434 

06,2125  5i*407  0 

NDX 

JET5TEP 

0120 

REF  1 

06,2126  31*450  1 

CAE 

YZJETS 

must  be  in  channel  6 format. 

OT2T 

REF  1 

06,2127  55*402  1 

TS 

YZJBUF 

0122 

06,2130  0 0006  l 

JFAILCK 

extend 

THIS  ROUTINE  EXAMINES  EACH  JETFAIL  BIT 

0123 

06,2131  00  032  0 

READ 

32 

AND  IF  A FAILURE  15  INDICATED  THE  C0RRES 

0124 

06,2132  4 0000  0 

COM 

PONDING  COMMANDS  ARE  MASKED  OUT  . 

0125 

ref  1 

06,2133 55*403  0 

TS 

JFBUF 

SAVE  32  REINVERTED, 

0126 

REF  9 LAST  377 

06,2134  3 f663  0 

m 

SEVEN 

“0T27 

REF  1 

06,2135  55*404  1 

JF3 

TS 

FCNTR 

0123 

REF  2 LAST  434 

06*2136  31*403  1 

CAE 

JFBUF 

0129 

REF  2 LASI  434 

06,2137  51*404  0 

NDX 

FCNTR 

0130 

REF  22  LAST  377 

06,2140  7 7650  1 

MASK 

B1T8 

0131 

RtF  310  LAST  431 

06,2141  10  000  0 

CCS 

A 

0132 

REF  1 

06,2142  0 2161  0 

TC 

JFAIL 

“0133 

REF  3 LAST"  434 

06,2T43  11*404  1 

JFAIL1 

CCS 

FCNTR 

0134 

RcF  1 

06,2144  0 2135  1 

TC 

JF3 

0135 

REF  2 LAST  434 

06,2145  31*401  0 

CAE 

XJBUF 

0136 

06,2146  0 0006  1 

EXTEND 

0137 

06,2147  01  005  0 

WRITE 

5 

XJETS  GO  ON. 

0138 

RcF  2 CAST  434 

06,2150  31*402  0 

CAE 

YZJBUF 

0139 

56 » 2 1 5 1 0 0006  1 

EXTEND 

0140 

06,2152  01  006  0 

WRITE 

6 

YZJETS  GO  ON, 

OlAl 

RcF  21  LAST  434 

06,2153  51*407  0 

NDX 

JETSTEP 

Ol  42 

RtF  1 

06,2154  31*460  1 

CAE" 

JETOFFTR 

JET  OFF  TIME  SCAL'ED'T0'R'"73 , 

0 1 43 

RcF  49  LA5T  433 

06,2155  0 4536  0 

TC 

WAITLIST 

0144 

RcF  22  LAS  1 434 

E4 

EBANK=  "JETSTEP 

0145 

06*2156  02077  0 

2CADR 

JETOFF 

C0145 

REf  l 

REF  J~B  LAST  434 

06,2157  14004  0 

0146 

06,2i6U  0 4602  1 

TC 

TASKOVER 

u *47 

RtF  4 LASI  434 

06*2161  51*404  0 

JFAIL 

NDX 

FCNTR 

U146 

RcF  1 

06,2162  4 2204  1 

C5 

xjetmask 

0149 

RcF  3 LASI  434 

0670163  7"  1401  1 

TASK 

XJBUF 

0 1 50 

REF  ~4~LA5T434 

06,2164  55*401  1 

TS 

XJBUF 

U i 0 1 

RtF  5 LAST  434 

06,2165  51* 404  0 

NDX 

FCNTR 

— 0152 

REF  1 

06,2166  4 2174  G 

CS 

YZJETM5IC 

OI53 

RcF  3 LAST  434 

06,2167  7 1402  1 

MASK 

YZJBUF 

u 1 54 

REF  4 LAST  434 

06,2170  55*402  1 

TS 

YZJBUF 

U155 

REF  2?  LAST  412 

06,2171  0 5413  1 

TC 

ALARM" 

u 1 56 

06,2172  01410  0 

OCT 

01410 

TEMPURART  JET  FAIL  ALARM  C0DE7 

U i.  57 

REF  I 

0 1 , 2 1 7 3 0 ^ i 3 0 

TC 

JFA,rn~ 
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0158 

06.2174 

00010  0 

YZJETMSK  OCT 

00010 

JET  11 

0159 

06.2175 

00020  0 

OCT 

00020 

JET  12 

“ 0160 

06,2176 

00004  0 

OCT 

00004 

JET  15 

0161 

06,2177 

00200  0 

OCT 

00200 

JET  16 

0162 

Oo ,2200 

00001  0 

OCT 

00001 

JET  7 

0163 

06,2201 

00002  0 

TOCT 

00002 

JET  3 

0164 

06,2202 

00040  0 

OCT 

00040 

JET  8 

0165 

06,2203 

0010(0  0 

OCT 

00100 

JET  4 

0166 

06.2204 

00040  0 

XJETMASK  OCT 

00040 

JET  10 

0167 

Oo,2205 

00020  0 

OCT 

00020 

JET  9 

0168 

06,2206 

00100  0 

OCT 

00100 

JET  13 

0169 

06,2207 

00200  0 

OCT 

00200 

JET  14 

0170 

06,2210 

00010  0 

OCT 

00010 

JET  6 

0171 

06.2211 

00001  0 

OCT 

00001 

JET  1 

0172 

06,2212 

00004  0 

OCT 

00004 

JET  5 

0173 

06.2213 

00002  0 

OCT 

00002 

JET  2 

# 


4 bu  1 
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P0174  LEM  FCS  TEST  ENGINE  ON  - OFF  TASK 

Rolys  THUS  TASK  TURN5  THe  LeM  ASCENT  3K  DESCENT  ENGINE  ON  and  OFF  ACCORDING  TOTHe  CONSTANTS  STOReQ  IN  THe  five  Sets  of 

R0177 REGISTERS,  <T>  CTLT IM£S , "WH TCHi  "CUNTATNS  THeT" NUMbER  OF  TIMES  A PARTICULARSTEP  WILL  BE  REPEATED.  (2)  NeXTCYLT, 

R"0 179  " WHICH  CONTAIN 5 THE  TIME  BeTW'EEVSTEPS'  SCALED  FOR  T3,  (3)  ONTIME,  WHICH  CONTAINS  THE  TIME  TO  TURN  THe  ENGINE  ON 

R018"l  WHICH  Also  DETERMINES  the  LENGTH!  OF  TIME  THE  ENGINE  WILL  BE  OFF  WITHIN  A SERIES  OF  ON (OFF  CYCLES.  (A)  OFFTIME, 

— R 0 1 8 3 WHICH  CONTAINS'  THE" NUMBER  OF  2 "MINUTE  S BEFORE  THE  ENGINE  WILE" Be  TURNED  OFF", ""AND  (5)  QFFtIMfR,  WHICH 

RC185 CONTAINS  THE  "RESIDUAL  TTME  BEFORE  THE  ENGINE  WILL  Be  TURNED  OFF,  OFFTIME  AND  OFFTIMeR  DETERMINE  THE  LENGTH" 

R0187 OF  TIME  THe  ENGINE  WILL  BE  ON 'IN.  ANY  ONE  CYCLE.  THERE  ARE  THREE  SETS  OF  THESE  REGISTERS, 

R0189  THE  ENGSTeP  REGISTER  IS  J5e0  AS  AN  INDEX  TO  PICK  UP  A PARTICULAR  "5eT  OF  THE  ABOVE  5 REGISTERS.  THIS  TASK 

R0T9I  WILL  BE  ENTERED  BUT  IMMeDI  ATELY""END"ED  IF  ENG5TEP  AND  CYLTIMES  = +Q.  THE-  ALLOWABLE  VALUES  OF  ENGSTEP  ARE  + 0, 
R0193  1 AND  2,  " " 


0194 

REF 

1 

06*2214 

11*470 

1 

NXTONOFF  CCS 

ENGSTEP 

0195 

06,2215 

0 2217 

1 

TC 

+ 2 

0 1 96 

REP 

39 

LAST"  434 

“06,2216 

0 4602 

1 

TC 

TASkOvER 

EXIT  HERE  WHEN  STEP  AND  CYL  ARE  +0. 

0197 

REF 

2 

LAST  436 

06,2217 

55*470 

1 

TS 

ENGSTtP 

ONE  LESS. 

0198 

REF 

3 

LAST  436 

06,2220 

51*470 

0 

ENGSTART  NDX 

ENGSTEP 

ENTER  HERE. 

0199 

1 

06*2221 

11*471 

0 

CCS 

CYLTIMES 

NUM  OF  EACH  ON/OFF  SET 

0200 

06,2222 

0 2224 

1 

TC 

+ 2 

0201 

REF" 

i 

06 ,2223 

7T22TW 

1 

TC“ 

NXTONOFF 

NO  MORE  OF  THIS  SET 

0202 

REF 

4 LAS i 436 

06,2224 

51*470 

0 

NDX 

ENGSTEP 

0203 

RcF 

1 

06.2225 

31*474 

1 

CAE 

NEXTCYLT 

START  OF  NEXT  CYCLE. 

0204 

RcF 

50 

LAST  434 

06.2226 

0 4536 

0 

TC 

“WAITLIST 

0205 

HEP 

5 

LAST  436 

E4 

EBANK=  ENGSTEP 

0206 

06.2227 

02250 

IT 

2CADR  ENGONTM 

COST)  6 

REF 

1 

06 ,2230 

14004 

0 

0207 

REP 

40 

LAST  436 

06,2231 

0 4602 

1 

TC 

TA5K0VER 

U208 

RcF 

2 

LAST  272 

0&.223 

4 45Z6" 

"0 

ENGRESET  CS  " 

P R 1 0 3 0 

BITS  1 3 "AND  14. 

0209 

Ob  » 2. 2 3 3 

0 0006 

1 

tXTEND 

0210 

06 ,2234 

02  Oil  0 

RAND 

11 

"0211 

RcF 

35 

LAST  430 

“0672X35 

6 7642 

0"  " 

AD" 

"BTTT4" 

0212 

06 ,2236 

0 0006  1 

EXTEND 

0213 

06,2237 

01" Oil 

0 

WRITE 

11 

ENG  ON  = 0,  ENG  OFF  = 1. 

0214" 

RcF 

6 

LA5l  436 

06,2240 

51*470 

0 

NDX 

ENGSTEP 

0215 

REF 

2 

LAST  436 

06*2241 

11*471 

cr 

CCS 

CYLTIMES 

0216 

RcF 

311 

lAsT  434 

06,2242 

10  000 

0 

CCS 

A 

0217" 

06,2243 

0 2246 

0 

“TC 

+ 2 

0218 

REF 

2 

LAS  T 436 

06,2244 

0 2214 

1 

TC1 

NXTONOFF 

WAS  ONE. 

U219 

RiiF 

IO9 

LAST  430 

06,2245 

6 7657 

ML 

AD  " 

ONE 

WAS  MORE  THAN  ONE. 

0220 

REF 

1 

LAbl  436 

“0  b , 2 2 4 6 

51*470 

"XT 

NDX 

"ENGSTEP 

1 

REF 

3 

LAbT  436 

06,2247 

55*471 

0 

TS 

CYLTIMES 

RtF 

8 

LAST  436 

Uo  1 2&5Q 

6l*"470 

0 

ENGONTM  NDX 

ENGSTEP 

0223 

REF 

1 

06,2251 

31*502 

Ml 

CAE 

OFFTIME  " 

RcF 

1 

06,2252 

55*406 

0 

T 5 

OFFTMBUF 

0225" 

REF“ 

9 

L7TS1  43  6 

~ 06,2253 

51*470 

~0 

NDX 

"ENGSTEP 
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7 

0226 

REF 

l 

06*2254 

31*477  1 

CAE 

ONTIME 

0227 

“ REF 

5l  LAST  436 

06*2255 

0 4536  0 

TC 

WAITLIST 

0228 

ref 

10  LAST  436 

E4 

EBANK= 

engstep 

0229 

06.2256 

02261  0 

2CADR 

ENGSET 

CO  2 29 

REF 

1 

06.2257 

14004  0 

0230 

REF 

~4T  LAST  436 

06*2460 

0 4602  1 

TC 

TASKOVER 

0231 

REF 

3 LAST  436 

06.2261 

4 4526  0 

ENGSET 

CS 

PR  1 030 

0232 

06,2262 

0 0006  1 

extend 

0233 

06,2263 

02  Oil  0 

rand 

11 

0234 

REF 

22  LAST  377 

06,2264 

6 7643  1 

AD 

BIT13 

0235 

06*2265 

0 0006  1 

extend 

0236 

06,2266 

01  Oil  0 

/YR I TE 

11 

ENG  ON  = 1,  ENG  OFF  = 

0. 

0237 

REF _ 

2 LAST  436 

06,2267 

11*406  0 

engrst 

CCS 

OFFTMBUF 

0238 

REF 

1 

06*2270 

0 2277  1 

TC 

LT  TMEON 

AT  LEAST  2MIN.  BEFORE 

ENGINE  OFF. 

0239 

REF 

11  LAST  437 

06,2271 

51*470  0 

NDX 

ENGSTEP 

0240 

REF 

1 

T6,2272 

31*505  0 

CAE 

OFFTIMER 

LESS  THAN  2MlN.  TO  ENGINE  OFF, 

0241 

REF 

52  LAST  437 

06,2273 

0 4536  0 

TC 

WAITLIST 

0242 

REF 

12  LAST  437 

E4 

EBANK= 

ENGSTEP 

0243 

TT6 ,2274 

02232  0 

2CADR 

ENGRESET 

C0243 

REF 

1 

06,2275 

14004  0 

0244 

REF 

42  LAST  437 

06,2276 

0 4602  1 

TC 

TASKOVER 

0245 

REF 

3 LA5  f 437 

06*2277 

11*406  0 

LTIMEON 

CCS 

OFFTMBUF 

15  THERE  ANY  MORE. 

0246 

06,2300 

0 2302  1 

TC 

+ 2 

yes. 

0247 

REF 

TT 

06,2301 

T 2267  0 

“ TC 

ENGRSl 

TO. 

0248 

RtF 

4 LAST  437 

06,2302 

55*406  0 

TS 

OFFTMBUF 

ONE  LESS, 

0249 

REF 

1 

Oo  ,2303 

3 2310  1 

CAF 

2MIN 

0250 

REf 

53  LAST  437 

06 ,2304 

0 4536  0 

TC 

WATTlIST^ 

0251 

Her  13  LA5 1 437 

E4 

EBANK= 

ENGSTEP 

0252 

06 ,2305 

02277  I 

2CADR 

LTIMEON 

C02T2 

REF 

2 LAST  437 

06 ,2306 

140C4T) 

0253 

ReF 

43  Lm5T  437 

T>6 ,2307 

0 4602  1 

TC 

TASKOVER 

°254  — 0'6V2310  27340  0 ZMTR  DEC 


T2WO 
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!SSl!li5TASPR0HLE  OF:  PITCH  AND  ROLL  TRIM  COMMANDS  TO  THE  LeM  DESCENT  ENGINE  GIMBAL  IN  ACCORQANCeWITH 


P02 55  LEM  PCS  TEST 

R0256  THIS  PROGRAM  _ _ _ _ . . . _ 

R0258 THE 'VALUE  S IN  THe’TRIMS'TeP  REGISTER  AND  THE  12  SETS  OF  5 REGISTERS  CALLED  NUMTIMeS,  StePDLYT,  TRIMONT,  TRIMOFFt 

R 0 2 6 0 "AND  1*84  MIND,  TRIMSTEP  IS  USeD  TO  PICK"'  UP  “A"  PART  I CULAR  SeToF  THe  5~REGISTERS  AND  HAS  ALLOWABLE  VALUeS  FROM  +0 

R0262 THROUGH  + 11  DECIMAL",  THe  5 R'EGTSTeRS  IN  EACH  SET  ARE  DEFINED  AS  FOLLOWS 

R0263  — (l)  NUMTlMES  DETERMINES  THE  NUMBER  OF  TIMES  THE  COMMAND  IN  TRIMIND  WILL  Be  ISSUeD,  VALUES  FROM  +o  TO 

- R0265  OCT  37777  ARE  PERMITTED , 

R0266  (2)  STEPDLYT  PETERMINE~5~~THE  TIME  BETWEEN  THE  5TART  OF  A STEP  AND  THE  BEGINNING  OF  TRIMONT.  STePDLYT  MUST  Be 

R0268  FORMATTED' FOR  T3,  IT5  MAXIMUM  VALPE~T5~2  MINUTE5.  . _____ 

R0269  rsrTRIMONT  DETERMINES  TH-  time  BETWEEN  the  end  OF  StePDLYT  or  TRIMOFFT  AND-  THE  TIME  THe  TRIM  COMMANDS  ARe 

R0271  ISSUED,  IT  MUST  3E  FORMATTED  FOR  T3. 

R0272  (4)  TRIMOFFT  DETERMINES- THE  LENGTH  OF  TIME  THE  TRIM  COMMAND  WILL  Be  ON,  FORMATTED  FOR  T3. 

R0274  (5)  TRITND  DETERMINES  THE  PITCH  AND"ROLL  COMMAND  TO  BE  ISSUED,  THE  FORMAT  IS,  BIT9=l=+  PITCH  COMMAND, 

' R0276 BIT10  = 1=-PITCH,  BTT11  = 1 = +ROLL,  BlTl2=l=  -ROLL,  A ESlTO  INDICATES  NO  LoWMAND.  ANY  COMBINATION  OT^"COMMANDS  IS 


R0278 

R0279 


PERMITTED,  

THIS  TASKi  WILL  Be  ENTERED  BUT  IMMEDIATELY  ENDED  IF  TRIM5TEP  AND  NUMTIMeS  = +0. 


0281 

REF 

1 

06,2311  11*510  0 

NEXTTRIM  CCS 

trimstep 

0282 

06,2312  0 2314  0 

TC 

+ 2 

0283 

REF 

44  LAST  437 

06*2313  0 4602  1 

TC 

taskover 

EXIT  HERE, 

~02B4 

RET 

2 LAST  438 

06 ,2314  55 '510  0 

T5 

TRIMSTEP 

LESS  ONE, 

0285 

3 LAST  438 

06,2315  51*510  1 

TriMTOP  NDX 

TriMsTEP 

ENTEr  HErE. 

0286 

REF 

1 

0 o,2316  11*511  1 

CCS 

NUMTIMES 

0287 

06,2317  0 2321  0 

TC 

+ 2 

0288 

REF 

1 

06,2320  0 2311  0 

TC 

NEXTTRIM 

0"289 

REF 

4 LAST  438 

06,2321  51 r5T0- 1 

~NDX 

TRIMSTEP 

0290 

RtF 

I 

06.2322  31 ' 525  1 

CAE 

STEPDLYT 

0291 

REF  64  LA5T437 

06,2323  0 4536  D 

TC 

WAITLIST 

-0292 

REF 

5 LAST  438 

E4 

EBANK= 

TRIMSTEP 

0293 

06,2324  02342  0 

C0293 

REF 

1 

06,2325  14004  0 

-0294 

REF 

45  LAST  438 

06,2326  0 4602  1 

TC 

TAOKOVER 

U295 

RtF 

1 

06.2327  4 2426  1 

TRIMOFF  CS 

TRIMMASK 

' 0296 

06,2330 

0 0006  1 

extend- 

0297 

06,2331 

03  012  1 

WAND 

12 

TRIM  GOES  OFF, 

0298 

RcF 

6 

LAsI  438 

06,2332 

5 1 ' 5 1 0 1 

NUMSTEP 

NDX 

TRIMSTEP 

0Z99 

Kch 

2 

TA5T  438 

06,2333 

11*511  1 

CCS 

TIUMTIMES 

0 3UU 

REF 

312 

LAST  436 

06,2334 

10  000  0 

CCS 

A 

0301 

06,2335 

TC 

♦ 2 

0302 

REF 

z 

LAS  T 438 

06,2336 

T3  2311  CT 

TC 

-NEXTTRIM 

-WAS  ONE, 

0303 

REF 

110 

LA5T  436 

06,2337 

6 7657  1 

AD 

ONE 

0304 

RcF 

7 

LAS  1 438 

06,2340 

51*510  1 

NDX 

TRIMSTEP 

03CT5 

3 

LAST  438 

06,2341" 

55T51 1 1 

- TS 

--NUMTrME5 

0306 

REF 

3 

LAST  438 

0o.2342 

5 1 ' 5 1 0 1 

trimset 

NDX 

TRIM5TEP 

0307 

RtF 

1 

06,2343 

31*541  0 

wAE 

TRIMONT 

0308 

REF 

55 

LAST  438 

06,2344 

0 4536  0 

TC 

WAITLIST 
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0309 

REF 

9 

LAST 

438 

E4 

ebank=  TRIMSTEP 

0310 

06  *2345 

02350 

0 

2CADR  TRIMON 

C0310 

REF 

1 

06  ,2346 

14004 

0 

0311 

REF 

46 

LAST 

438 

06,2347 

0 4602 

1 

TC  TASKOVER 

0312 

RTF 

1 

06,2350 

3 2425 

0 

TRIMON  CAF  BITS9,10 

CHECK  PITCH  AND  ROLL  TRIM  FAIL  BITS, 

0313 

06,2351 

0 0006 

1 

extend 

0 314 

06,2352 

06  032 

0 

RXOR  32 

0315 

REF 

2 

LAST 

439 

06,2353 

7 2425 

1 

MASK  BITS9,10 

0316 

06,2354 

0 0006 

1 

EXTEND 

0317 

REF 

1 

06,2355 

1 2363 

1 

3ZF  TRIMON I 

0318 

REF 

3 

LM5  1 

213 

06,2356 

3 4533 

0 

CAF  PR  1 035 

FAIL  IS  ON.  FLASH  FAIL  CODE  (01400)  AND 

0319 

REF 

1 9 

LAST 

396 

06,2357 

0 4363 

0 

TC  NOVAC 

IDLE  UNTIL  SOMEONE  RESETS  IT,  TERMINATES 

0320 

06,2360 

02376 

1 

2CADR  PERFORM 

THE  TASK,  OR  "DECIDES  TO  PROCEED  'WITH  IT. 

C0320 

REF 

1 

06,2361 

14004 

0 

0321 

REF 

A 1 

LAST 

439 

06,2362 

0 4602 

1 

TC  TASKOVER 

0322 

REF 

10 

LAST 

439 

06,2363 

51*510  1 TRIM0N1 

NDX 

TRIMSTEP 

0323 

RcF 

1 

06,2364 

31*571  0 

CAE 

TRIMIND 

0324 

LAS  f 

438 

T6,2365 

7 2426  1 

TASK 

TR IMMASK 

SAFETY  PLaY 

0325 

06,2366 

0 0006  1 

extend 

0326 

06,2367 

05  012  1 

WOR 

12 

TRIM  STARTS. 

0327 

REF 

11 

LAST 

439 

06,2370 

5D51T0  1 

NDX 

tr  tmstep 

0328 

REF 

1 

06,2371 

31*555  0 

~CA£ 

TRIMOFFT 

0329 

REF 

56 

LAST 

438 

06,2372 

0 4536  0 

T C 

WAITLIST 

0330 

kef 

12 

last 

439 

E4 

~E6Mi<  = 

TRIMSTEP 

0331 

06,2373 

02327  0 

2CADR 

TRIMOFF 

C0331 

REF 

1 

06,2374 

14004  0 

48 

LAST 

439 

06,2375 

0 4602  1 

TC 

TASKOVER 

0333 

RtF 

12  LAST  431 

06,2376 

~ 1 05317  1 PERFORM 

TC 

grabwait 

KEY  RELEASE  MAY  COME  ON. 

0334 

KEF 

1 

06,2377 

“ 5 2425 '0  ~ 

CAF; 

TRTMcaDE" 

~ 01400 

0335 

REF 

24  LAST  431 

06,2400 

54  333  0 

TS 

DSPTEM1 

0336 

REF 

i 

06,2401 

3 2427  1 

CAF 

V01N25K 

0337 

REl- 

27  LA5T  431 

~0  6, 2 40 2 

0 5332T5 

TC 

NVSBWATT 

0338 

REF 

1 

06,2403 

3 2430  1 

CAF 

V50K 

PLEASE  PERFORM. 

0339 

REF 

28  LAST  439 

06 ,2404 

0 5332  0 

TC 

nvsbwait 

0340 

REF 

7 LAST  397 

06 ,2405 

0 5274  0 

TC 

"TL7T5H07T 

AMT  RESPONSE  TURNS  IT  OFF. 

0341 

REF 

21  LAST  431 

06,2406 

0 5140  1 

TC 

ENDIDLE 

WAIT  FOR  SOMEONE  TO  DO  SOMETHING. 

0342 

REF 

1 0 LAS  I 432 

06.2407 

0 4437  0 

TC 

EJFREE 

V34E.  TERMINATE  THE  TASK. 

0343 

REF 

1 

' 06,2410 

“CT  2417  71 

TC  TR  i ~~ 

V33E,  PROCEED  WITH  TFfET  FAIL  ON. 

0344 

REF 

06*2411 

0 0004  0 

INHINT 

ENTER.  THE  FAIL  HAS  BEEN  RESET. 

0345 

c4  LAST  430 

06,2412 

3 7656  0 

CAF 

BIT2 

20MS, 

0346 

REF 

57  LAST  A39 

~06 ,2413 

0 4536  CT 

T C 

WAITLIST 

0347 

06 ,2414 

02350  0 

2CADR 

TRIMON 

OhEOK  AOAlN  TU  BE  SURE,  THEN  PRUCEtD.. 

C0347 

REF 

2 LAST  439 

06,2415 

14004  0 

0348 

REF 

11  LAST  439 

06 ,8416 

0 4437~0  ~ 

TC 

EJFREE 

034* 

06*2417 

0 0004  0 TR1 

INHINT 

PROCEED  WITH  THE  FAIL. 

0350 

RE^ 

25  LAST  439 

OSN 2420 

3 7656  0 

caf 

“BTT2“ 

20MS. 

ro 

*3- 
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L 

LEM  FLrGHT  COiMTrOL  SYSTEM  TEsT 

user's  own  page  no.  ig 

0351 

REF  58  LAST  439 

06*2421 

0 4536 

0 

TC 

WAITLIST 

0352 

06*2422 

02363 

0 

2CADR 

TRIM0N1 

bypass  the  Recheck. 

CO352 

REF  2 LAST  439 

06,2423 

f— 

O 

O 

4T 

0 

0353 

REF  12  LAST  439 

06,2424 

0 4437 

0 

1C 

EJFREE 

0354 

06*2425 

OI4OO 

1 

6ITS9»1Q  OCT 

01400 

0355 

REF  3 LAST  439 

TRTMcOdF-  EQUAL' 

5 BITS9,10 

0356 

06,2426 

07400 

1 

TRIMMASK  OCT 

07400 

“ 0357 

Ofa ,2427 

00125  1 

V01N25K  OCT 

00125 

0353 

06,2430 

05000 

1 

V50K  OCT 

05000 

47342 3A  YJL  SYSTEM  FO R B LK 2 i REVISION  12  OP  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

lem  flight  control  system  test  user's  own  page  no.  n 

P0359 

LEM  PCs  TEST  THROTTLE  TASK 

R0360 

fFilS  PROGRAM  I S5UES  A PROFILE  OF  THROTTLE  COMMANDS  TO  THe  LEM  DESCENT  ENGINE,  THe  PROFILE  IS  DETERMINED  BY 

R0362 

THE  VALUES TN  THE  THRT5TEP  REGISTER  AND  THE  6 SETS  OF  REGISTERS,  5 PER  SET,  CALLED  UOTIMES,  DELAY,  THRlTlME, 

R0364 

T HCO M:*i  1 AND  THCOMM2.  THE  THRTSTEP  REGISTER  VALUE  IS  USED  TO  INDEX  THE  6 SETS  OF  5 REGISTERS  AND  HAS  ALLOWABLE 

R0366 

m“UE5“0T  +D“THROUGH  +5.  THE  ' "5  REGISTERS  PER  SET  ARE  DEFINED  AS  FOLLOWS 

R0367 

Cl)  DOTTMeS  DETERMINES  THE  number  OF  TIMES  THe  THROTTLE  WILL  BE  EXERCISED  AS  Per  the  VALUES  OF  THRlTlME, 

R0369 

THCCM-ii  AND  THCOMM2  OF  THE  CURRENT  STEP.  IT  HAS  ALLOWABLE  VALUES  OF  +0  THROUGH  37777  OCT. 

Ru371  ""  VTl  DELAY  DETERMINES  THE 'THE  BETWEEN  THE  5TART  OF  A 5TEP  AND  THE  BE  GINNING  OF  THRlTlME.  UTS  CALLED  07NLY 

R0373 

ONCE  PER  STEP, I. E.,  REPEATS  OF,  THE  SAME  THC0MM1  AND  THC0MM2  START  AT  THRlTlME,  DELAY  MUST  BE  FORMATTED  FOR  T3 

R0375 

AND  HENCE  HAS  A MAXIMUM  VALUE  OF;  2 MINUTES. 

R0376 

f 3 ) TFTR1TIME  DETERMINES  THE  TIME  B E T W E EN~T HFE®  OF"DeLAY  OR  TTHe  END  OF  THCDMM'2  AND  THE  START  OF 

R0378 

THCOMMl,  IFMUST  BE  FORMATTED  FOR  T3. 

R0379 

rush" 

(4)  THCOMMl  AND  (5)  THCOMMB  DETERMINE  THE  NUMBER  OF  THRUST  INCREASE  OR  DECREASE  PULSES  TOBfi  ISSUED  AT  A 
3.2KPP5  RATS,  THE  RANGE  OF  POSSIBLE  VALUE'S'ET  EITHER  TS"FROM  POSMAX  "TOCT  377  77)  TO  NEGMAX  (OCT  400007  ALTHOUGH 

R0383 

THE  ACTUAL  THROTTLE  RANGE  IS  FROM  OCT  6116  TO  OCT  71661  < + ,-  3150  DEC). 

R0384 

THIS  TASK  WILL  BE  ENTERED  3JT  IMMEDIATELY  ENDED  IF  THE  INITIAL  VALUES  OF  THRTSTEP  AND  DOTIhES  ARE  +0. 

0386 

REF 

1 

06,2431 

11*605 

1 

nextthrt 

CCS 

THRTSTEP 

0387 

06,2432 

0 2434 

0 

TC 

+ 2 

0388 

REF 

49  LAST 

439 

06,2433 

0 4602 

1 

TC 

TASKOVER 

EXIT  HERE. 

038  9 

REF 

2 EAST 

441 

06,2434 

55*605 

1 

TS 

THRTSTEP 

0390 

REF 

3 LAST 

441 

9 2435 

51*605 

0 

THRSTArT 

NDX 

THRTsTEP 

enter  here. 

0391 

REF 

1 

06,2436 

11*606 

1 

XCS“ 

UOTIMES" 

NUMBER  OF  TIMES  COMMANDS  1 AND  2 DONE. 

0392 

06,2437 

0 2441 

1 

TC 

+ 2 

0393 

REF 

1 

06,2440 

0 2431 

0 

TC 

NEXTTHRT 

03K)4 

REF 

4 LAST 

441 

06,2441 

“ 51 ' 603' 

0 

THRT  TTEF~ 

0395 

REF 

I 

06  *2442 

3 1 ' 61 4 

0 " 

CAt 

DELAY 

TIME  BETWEEN  STEPS.  BIAS  FOR  THRlTlME. 

A0396 

MUST  BE  SCALED  FOR  T3. 

03^7 

"REF 

59 

LAST  W 

Oo » 2443 

U'4536"CT 

TC 

“ WATTLT5T 

0398 

REF 

5 

LAST  441 

E4 

ebank= 

THRTSTEP 

♦ 

0399 

06 ,2444 

02467  0 

2CADR 

THR0T0N1 

COB  9 9 

RcF 

i 

U6 ,2445 

" 14004  0 

0400 

RcF 

50 

LAS!  441 

06,2446 

0 4602  1 

TC 

TASKOVER 

R6F 

6 

LASI  441 

06,2447 

51*605  0 

"THRU COMM  NDX 

"THRTSTEP 

0402 

ref 

1 

06,2450 

31*636  0 

CAET 

THCOMMr 

SAME  REMARKS  As  FOR  THCOMMl.  • 

0403 

REF 

1 

06 ,2451 

0 2505  0 

TC 

THROTON 

0404 

REF 

06,2452 

6 7657  1 

^ AD““ 

BTT1 

10MS  IN"  CASE  OF  NO  THC0MM2, 

0405 

REF 

60 

LAST  441 

Oo ,2453 

0 4536  0 

— TO 

WAITLIST 

0406 

REF 

7 

LASI  441 

E4 

ebank= 

THRTSTEP 

0407 

06 ,2454 

' 02457  0" 

2CADR 

"CKDOTIME 

C0407 

RcF 

1 

06,2455 

14004  0 

♦ 

5 1 

LAST  441 

Oo  ,2456 

0 4602  1 

rc 

TASKOVER 

Ktr 

8 

LMil  441 

^6*2457 

51*605  0 

CKDOTIME  NDX 

THRT5TEP 

♦ 

0410 

ref 

2 

LA5T  441 

Oo , 2460 

11*606  1 

CCS" 

DOTIMES 

LAST  438 

U6 ,2461 

locroo 

CC5 — 

A ” 

473423A 

YJL 

SYSTEM  FOR  8LK2: 

REVISION 

12.  OF  PROGRAM 

AURORA  BY 

DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  442 

L 

lem 

flight  control  system  test 

USER  * 5 OWN  PAGE  NO,  12 

0412 

06.2462 

0 2464  0 

TC 

+ 2 

O4I3 

REF 

2 LAST 

441 

06.2463 

0 2431  0 

TC 

nextthrt 

WAS  ONE, 

0414 

REF 

111  LAST 

438 

06,2464 

6 7657  1 

AD 

ONE 

0415 

REF 

9 LAST 

441 

06.2465 

51*605  0 

NDX 

THRTSTEP 

““0416 

REF 

3 LAST 

441 

“0672466 

55*606  1 

TS 

DO TIMES 

"0417 

"RTF 

10  LAST 

442 

06.2467 

51*605  0 IHRU1UN1  NDX 

THRT5TEP 

041a 

REF 

" 1" 

“06,2470 

31*622  0 

CAE 

thRitime 

TIME  BETWEEN  qOTIMEs.  SCAlEd  FOR  T3. 

0419 

"RET 

61  LAST 

441 

06,2471 

0 4536  0 

TC““ 

WAITLIST 

0420 

REF 

11  LAST 

442 

E4 

ebank 

= THRTSTEP 

0421 

06,2472 

02475  0 

2CADR 

THRlCOMM 

C042  1 

ref 

1 

06,2473 

14004  0 

0422 

REF 

52  LAST 

441 

06.2474 

0 4602  1 

TC 

TASKOVER 

"0423 

REF 

12 

LAST  442 

06,2475 

51*605  0 

THRlCOMM  NDX 

THRTSTEP 

" 0424 

REF 

1 

06  1 247 6 

31 • 630  0 

CAE 

ThCOMMI 

SHOULD  BE  NO  LARGER  TfiSN  3150dEc. 

2 

LAST  441 

06,2477 

0 2505  0 

TC 

THROTON 

0426 

REF 

1 

"06,2500 

6 2522  0 

AD" 

250MS 

SO  ACE  CAN  SAMPLE, 

0427 

REF 

62 

LAST  442 

06,2501 

0 4536  0 

TC 

WAITLIST 

0428 

REF 

13 

LAST  442 

E4 

EBANK = 

THRTSTEP 

0429 

06,2502 

02447  1 

"2CADR 

THR2C0MM 

C0429 

REF 

1 

Oo  ,2503 

14004  0 

0430 

REF 

53 

LAST"  442 

06 ,2504 

0 4602  1 

TC 

TASKOVER 

0431 

REF 

1 

^6*2505 

54  055 

0 

THROTON  TS 

THRUST 

THROTTLE  OUTPUT  COUiNTlR. 

043Z 

REF 

I 

Ut> , 2506 

55  * 405 

C~ 

TS 

ThBuf 

SAVE  FOR  BZMf. 

0433 

RTF 

25 

LAS  1 

377 

06,2507 

3 7654 

1 

CAF 

BIT4 

0434 

06,2510 

0 0006 

1 

EXTEND 

O435 

06.2511 

05  014 

1 

WOR 

14 

ENABLE  THRUST  DRIVE,  COMMAND  STARTS  NOW 

0436 

ReF 

2 

LAS  1 

442 

'"06,2512 

31*405 

1 

CAE 

THBOF  ' 

0437 

Ob,  25 13 

0 0006 

1 

EXTEND 

0438 

06,2514 

6 2516 

"1 

BZMF 

+ 2 

04T9~ 

06.2515 

4 OCOC 

13 

CUM 

0440" 

06,2516 

4 0000 

0 

COM 

0441 

06,2517 

0 0006 

1 

EXTEND 

0442 

REF 

37 

LAS  r 

~4U2 

06,2520 

7 7646 

0" 

«IP 

BITlO 

SCALED  FOR  T3, 

0443 

REF 

269 

LAST 

428 

— 06TZ52Tr 

~0  "OOTT2" 

0 

TC 

Q 

W44 


06.2522  00031  U 25OMS 


OCT 


00031 
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USER  *S  OWN  PAGE  NO.  13 


PQ445  LEM  TC S TEST  INTER  FACE  LOOK  I ASK , 


1^0446  THIS  PROGRAM  KEEPS  A KUNMING'  HISTORY  OF  THE  STATE  OF  ALL  THE  BITS  IN  INPUT  CHANNELS  30*  31*  32  AND  33. 

R044S IT  DOES  This  BY  DETECTING  A CHANGE  of  AN  INPUT  BIT  FROM  AN  INITIAL  ONE  STATE  TO  A ZERO  STATE  OR  FROM  AN  INITIAL 

RoAso  zero  to  a one,  thetttstory“TS7tayimtatneD  in  two  buffer  Registers  for  each  channel*  one  for  storing  one~to  zero 

R0452  CHANGES^ (30BUF1*  +1*  +2*  ATMD  +3)  AND  ONE  FOR  ZERO  TO  ONE  CHANGES  (30BUF0*  +1  +2  AND  +3).  THE  OPERATOR  MUST 

R0454  LOAD  THe  INITIAL  STATES  D'FTHE~TNPUT  CHANNEL5~TNT3~ THEIR  RESPECTIVE  BUFFER  REGISTERS  BEFORE  THIS  PROGRAM  IS  IN- 


RQ456 

R0457 

R0459 

R04S1 

R0462 

R0464 

R0466 

R0468 

R0470 

RD4rr 

R0473 


ITIATED.  _ 

TO  ALLOA  THIS  PROGRAM  TO  RJM  C(QUlTLOOK)  MOST  Be  SET  GREATER  THAN  +o  BEFORE  II  IS  STARTED. 

does  not  desire  this  program  to  run  he  should  set  c (quitlook) =+o  before  starting  the  fcs  test. 

15.’  RUNNING  the  OPERATOR  CAN 


IF  THE  OPERATOR 
AFTER  THIS  TASK 


rWTXTDUlTLOOK)  = +0. 

no  displays  of  either  the  sjffer  registers  or  channels  are  incorporated  into  this  program,  this  was  done  to 

ALLOW  THE  TEST  OPERATOR  MONITORING  FLEXIBILITY,  FOR"  REAL  TIME  MONITORING  IT  IS  SUGGESTED  THAT  THE  BUFFER 
REGTSTERS  BE  DISPLAYED  WITH  TTE  MONITORS  VERBS"  ( 1 THROUGH  15)  . ON  THE  OTH'ER  HAND,  THE  OPERATOR  MAY  ELECT  TO 
PERFORM  NO  REAL  T I Me  MON  I TOR  I MG  UNTIL  THe  TEST  IS  COMPLETED / WHEN  THE  BUFFER  REGISTERS  WOULD  Be  CALLeD  FOR 
DISPLAY  (VERB  01)  AND  RECORDED. 

“THTS  PROGRAM  IS  PRIMARILY  INTENDED’  FOR- INTERFACE  MONITORING  DURING  THE"  LeM^V  IB  RATION  TEST  AT  BETHPAGE,  N.Y. , 

althojgh  it  may  also  be  useful,  during  vehical  level  emi  tests. 


0474 

' REF 

Hl 

06,2523 

11*654  0 LOOKTOP 

CCS 

QUITLOOK 

IS  THIS  TASK  WANTED. 

0475 

06,2524 

0 2526  1 

TC 

+ 2 

YES. 

0476 

REF 

54  LA5 1 

442 

06,2525 

0 4602  1 

TC 

TASKOVER 

NO. 

0477 

REF  16  T. AST  432 

-06,2526 

3 6165  0 

TAF  ' " 

THREE 

START  SCAITOF  CHANNELS, 

0478 

RcF 

1 

06,2527 

55*655  1 LOOKLOOP 

T5 

CHCNTR 

3,  2,  1,  0. 

0479 

REF 

2 LAST 

443 

06,2530 

51*655  0 

NDX 

CHCNTR 

“ 0^80 

-REF" 

T 

06,2531 

31*644  C 

-■CAE 

30BUF1 

0481 

06,2532 

0 0006  1 

EXTEND 

0482 

REF 

3 LAST 

443 

Oo  ,2533 

5 1655  0 

NDX 

CHCNTR 

0483 

- 06,2534 

02  030  0 - 

RAND~ 

30 

DETECTS  CHANGES  FROM 

1 TO  0. 

0484 

REF 

4 LAST 

443 

06,2535 

51*655  0 

NDX 

CHCNTR 

O485 

RcF 

2 LAST 

443 

Qu  * 2 536 

57*644  0 

XCH 

30BUF1 

STORE  NEW  ZEROS. 

0486 

ref 

T LAST 

443 

06 ,2537 

5F*65G  0 

NDX 

CHCNTR 

0487 

REF 

1 

06,2540 

31*650  0 

CAE 

30BUF0 

0488 

06,2541 

0 0006  1 

EXTEND 

0489 

REF 

6 LAST" 

443 

06,2542 

5 1655  C 

NDX 

CHCNTR 

0490 

06,2543 

04“ 030  0 

ROR 

30 

DETECT 5 CHANGES  FROM 

0 TO  1. 

0491 

REF 

7 LA57 

443 

06 ,2544 

51*655  0 

NDX 

CHCNTR 

0493 

0494 
10495 

0496 

0497 

0498 
C0498 

0499 

0500 


REF 

REF 

~REF 

REF 

REF 


8 LAST  443 
1 

T LAST“40r 
53“ LAST  442 
2 LAST  443 


06 

06 

06 

06 


XCH 


2546 

2547 

2550 

2551 


-05 

06 

06 


Z55Z 

2553 

2554 


11*655  1 
0 2527  0 
3 7651  1 
0 4536  0 
— E4 

~ 02523- T" 
14004  0 
0 4602  1 
05,2555 


CCS 


TC 


CAF 


TC- 


ebank= 


CHCNTR 

L00KL00P 

TEN 

WAITLIST 

QUITLOOK 


IS  THIS  SCAN  DONE. 
NO. 

TEE. 


20  ADR — LOOKTOP 


REF 

REF 


2 LAST  432 
55  LAST  443 


TC 


TASKOVER 


ENDLFCS5“  =“ 


* 


LO 
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l _ i mu  performance  tests  i . _ _ user»s  own  page  no. 

0001  “ ““  14*2000  BANK  14 

0002  REF  6 LAST  415  _ E5  __1 EBANK=  XSM 


0003 

R£f 

112 

LAST  442 

14,2000 

3 7657 

1 AOTNBIMU 

CAf 

ONE 

AOT-NB-IMU  FINE  ALIGNMENT  TEST 

0004 

“RcF 

1 

14*2001 

55*512 

1 

TS 

eroptn 

...  TEST  CAPABILITY  ... 

0005 

REF 

24 

LAST  429 

14,2002 

0 4063 

0 

TC 

BANKCALL 

“0006 

“REF 

2 

LAST  260 

14,2003 

26000 

0 

CADR 

IMUZERO 

IMU  ZERO  ENCODER  MODE 

0007 

REF“ 

11 

LA5T  424 

14,2UU4 

0 6000 

1 

TC 

INTPRET 

0008 

14,2005 

77634 

0 

CALL 

0009 

“REF 

1 

14,2006 

30530 

1 

LATAZCHK 

TO  LOAD  AZIMUTH  <SM)  AND  LATITUDE 

0010 

14,2007 

77634 

0 

CALL 

CTO  1 1 

“REF 

1 

14,2010 

30325 

0 

MAKEXSMU 

TO  SET  UP  A STABLE  MEMBER  DESIRED  MATRIX 

0012 

14,2011 

47014 

1 

SET 

CALL 

0013 

“REF 

1 

14,2012 

00065 

1 

CQAROFIN 

FOR  COARSE  OR  FINE  ALIGN  MARKS 

0014 

REF 

1 

14,2013 

30405 

0 

ERTHRVSE 

TO  CALCULATE  EARTH  RATE  VECTOR 

“0015 

14,2014 

77776 

1 

EXIT 

00i6 

REF 

r 

14*2015 

3 3655 

1 POSLOAD 

CAF 

V24N30E 

R 1 OOOOX  ENTER  POSITION  1,2,  OR  3 

“0017 

ref 

29 

LAST  439 

14,2016 

0 5332 

0 

TC 

NVSBWAIT 

R2  00000  ENTER  00001  FOR  LAB  OPTION 

0018 

REF 

22 

LAST  439 

14,2017 

0 5140  1 

T C 

ENDIDLE 

0019 

REF"- 

1 

14,2020 

1 2745 

1 

TCF 

E NOTEST 

0020 

14,2021 

1 2015 

0 

TCF 

-4 

0021 

REF 

25 

LA5T“ 439 

14,2022 

55  333 

1 

XCH 

D5PTEMT 

DO  NOT  USE  POSITION  3 WITH  NAV  BASE  AT 

0022 

“REF- 

1 

14,2023 

55*544 

1 

lb 

POSITON 

“ZERO  DEGREE  TILT  TINGLE,  (GIMBAL  LOCK) 

U023 

RtF 

26 

LAsT  444 

14,2024 

10  334 

1 

CCS 

dsptemi  +1 

“0024 

REF 

1 

14,2025“ 

1 2760 

0 

“TXT  “ 

LEMD4B 

SPECIAL  LAB  TEST  TO  BYPASS  MARKS 

0025 

“REF 

1 

14*2026 

0 2576  1 

TC 

P05N JUMP 

0026 

KcF 

1 

14,2027 

0 2501  1 

TC 

OPTDATA 

0027 

REF 

1 

14,2030 

“0  2135  1 

FINDNAVB 

VU2  Q 

Kct-  45  LA5I  444 

14,2031 

0 4063  0 

TC 

BANKCALL 

0029 

KcF 

6 LAST  263 

14, 2032 

26716  0 

“CADR 

IMUsTALL 

0030 

REF 

2 la6  r 444 

14,2033 

1 2745  1 

TCF 

ENDTEST 

0031 

REF 

1 

14,2034 

022471 

TC“ 

PUTPOSX 

OO32 

RtF 

1 

14*2035 

0 2737  0 

TC 

GMLCKCHK 

0033 

REF 

1 

14,2036 

“0  2727  1 

SET  UP  STABLE  MEMBER- DESIRED  COORDINATES 
TARGETS!  ,2  AZIMUTH  AND  ELEVATION 
'“COARSE  ALIGN  MARKS- 


INSURE" 


completion 


“MEMBER- 


CHECK  FOR  GIMBAL  LOCK  BEFORE  FINE  ALIGN 
FOR  EARTH  RATE  COMPENSATION 


0034“ 

REF 

26  LAST 

444 

14,2037 

0 4063  0 ' 

TC 

BANKCALL 

0035 

REF 

2 LAST 

2 63 

14,2040  26227  1 

CADR - - 

IMUFINE- 

FINE  ALIGN“MUDE 

0036 

REF 

2 7 LAST 

444 

14,2041 

0 4063  0 

TC 

BANKCALL 

0037 

REF 

7 LAST 

444 

14,2042 

26716 

CADR 

IMUSTALL 

tT03  8 

RtF 

3 LAS  1 

444 

14,2043 

1 2745  1 

TCF- 

ENDTEST 
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I MU  PERFORMANCE  TESTS  1 


USER'S  OWN  PAGE  NO, 


0039 

0040 


REF  2 LAST  444  14 

REF  9 LAST  397  U 


0041  REF 


14 


0042 

REF 

28 

LAST  444 

14,2047 

0 4063 

BANKCALL 

LAST  EARTH 

RATE  SHOT 

0043 

REF 

1 

14,2050 

30422 

0 

CADR 

EARTHR 

0044 

REF 

2 

LAST  444 

14,2051 

11*512 

1 

CCS 

eroptn 

IF  DESIRED 

TO  COMPENSATE  CONTINUALLY 

0045 

REF 

1 

14,2052 

1 2065 

1 

TCF 

MONSTART 

CHANGE 

BY  V21  N02  E XXXXX  E 00000  E 

0046 

REF 

~ 1 

T4,2053 

1 2047 

1 

TCF 

ERFINAL 

0047 

REF 

4 

LASi  444 

14,2054 

1 2745 

1 

TCF 

endtest 

0048 

REF 

3 

LAST  445 

14,2055 

55*512 

1 

TS 

eroptn 

0049 

14,2056 

0 0004 

0 

INHINT 

0050 

REF 

1 

14,2057 

3 4517 

0 

CAF 

PR  1 02  1 

PRIORITY  1 

HIGHER  THAN  SXTNBIMU 

0051 

REF 

6 

LAST  356 

14,2060 

0 4374 

0 

TC 

FINDVAC 

0052 

14,2061 

03062 

0 

2CADR 

RDR37511 

C0052 

REF 

1 

14,2062 

30005 

1 

0053 

14,2063 

0 0003 

1 

RELINT 

01354 

REF~ 

2 

LAST  445 

14,2064 

1)  2047 

0 

nr 

TRFiNAL 

2044  0 2135  1 

2045  05401  1 


TC 

rc 


FINDNAVB 

FREEDSP 


Fine  align  marks 

FREE  DISPLAY  SYSTEM 


2046  0 2263  1 


TC 


SMDCALC 


TO  FINE  ALIGN  STABLE  MEMBER 


0055 
UO Jb 

0057 

0058 


REF  3 LAST  283 


14 


"REF~S'65"LAST  431 
REF  147  LAST  433 


T4 

14 

14 


2065 

2TJ66 

2067 

2070 


0 5470  1 
~52  14T  1 
0 0003  1 
3 7665  0 


MONSTART  TC 

~DXCH 


finetime 

W7TC~ 


TIME  AT  INITIAL  MISALIGNMENT 


RELINT 
CAF  ZERO 


ZERO  PIPA  COUNTERS 


0059" 

REF 

~ 5 

LAST  425 

r4,2071 

54  037 

1 

TS 

PIPAX 

0060 

REF 

3 

LAST  425 

14,2072 

54  040 

1 

~7S 

PIPAY 

0061 

REF 

4 

LAST  425 

14,2073 

54  041 

0 

TS 

PIPAZ 

0062 

RTF 

T 

14,2074 

55*551 

0 

“T5 

STOREPL 

0063 

RcF 

1 

U*2075 

55 ' 537 

0 

TS 

NDXCTR 

0064 

REF 

1 

14,2076 

0 2454 

0 " 

TC 

storrslt 

STORE  T (INITIAL)  AND  PIPAI 

= 0 

0065 

14,2077 

0 0004 

0 

INHINT 

0066 

REF 

1 

14,2100 

3 3666 

1 

CAF 

60SEC 

INSURE  PIPAI  VARIES  IN  ONE 

DIRECTION 

0068 

C006S 


REF 


2102 

2103 


0 

02106  1 
30005  1 


2CADR  PIP1 


0069 

" REF 

■ r 

14,2  TO’4^ 

3^21  T4 

D 

CAF 

PIP2ADR 

0070 

REF 

6 LA5T 

360 

14,2105 

0 4416 

0 

TC 

JOBSLEEP 

UUJL 

Ktf 

2 LASI 

445 

1 4 » 2T06 

3 2134 

~0~ 

PI  PI 

CAF 

PIF2ADR 

UU72 

REf 

6 LAST 

362 

14,2107 

0 4422 

“1 

TC 

JOBWAKE 

0073 

Ref- 

56  LAST 

443 

14,2110 

0 4602 

1 

TC 

TASKOVER 

^^74 

Kur 

i 

14,2111 

31*542 

0 

PIP2 

CAE 

PIPNDX 

UU73 

Ktp 

— o-et — 

X 

14,2112 

55*541 

1 

TS 

pipindex 

POST  PIPAY 

P0s2  PIPAX 

P0S3  PIPAX 

0077  REF 


14,2114  36771  0 


~CADR  CHECKG 


SYNC  ON  PIPA  PULSE 


14,2115  00003  1 


CO 

■=3- 

# 


0073 


"RFLTNT 
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L 
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PcRFORMANCE  TESTS  1 

USER'S  OWN  PAGE  NO,  3 

0079 

RtF 

2 LAST  445 

14,2116 

0 2454 

0 

1C 

STOrrslT 

store  ttme  and  pipai 

0080 

REF 

2 LAST  445 

14,2117 

31*543 

1 

CAE 

PIPNDX  +1 

~008l 

REF 

2 LAST  445 

14 ,2 120 

55 ' 54l 

1 

TS 

PIPINDEX 

P0S1  PIPA4  P0S2  P 1 PAY  P0S3  PIPAZ 

0082 

RE TF“ 

30  LAST  445 

14.2121 

0 4063 

ID 

7C 

bankcall 

0083 

RETf 

2 lA5T^445 

14,2122 

36771 

0 

“ capr 

checkg 

SyNc  ON  plpA  PULSE 

0084 

14,2123 

0 0003  1 

relint 

~00  85 

RtF 

3 LAST  446 

14,2124 

0 2454  0 

TC  STORRSLT 

STORE  TIME  AND  PIPAI 

0086 

14,2125 

0 0004  0 

INHINT 

0087 

REF  ~ 

1 

14,2126 

3 3665  1 

CAF  30SEC 

MONITOR  PIPAS  AT  30  SECOND  INTERVALS 

0083 

REF 

65  LAST  445 

14,2127 

0 4536  0 

TC  WAITLIST 

0089 

14,2130 

02106  1 

2CADR  P I P 1 

CO  0 8 9 

REF 

2 LAST  445 

14,2131 

30005  1 

OO9O 

REF 

3 LAST  445 

14,2132 

3 2134  0 

CAF  PIP2ADR 

“0091 

REF 

7 LAST  445 

14,2133 

0 4416  0 

TC  JGBSLEEP 

0092 

RtF 

I “ 

14,2134 

30111  0 PIP2ADR 

CADR  PIP2 

I 
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L 

I MU 

PERFORMANCE 

TESTS  1 

USER'S  own  PAGE  NO,  4 

0093 

14,2135 

0 0006  1 

FINDNAv'B  EXTEND 

MARKS  * CALC  NB  OR  SM  WRT  EARTH  REF 

0094 

REF 

4 LAST  267 

14,2136 

23*546  1 

OXCrl 

OPLACE 

0100 

ref 

31  LAST  446 

14,2137 

0 4063  0 

TC 

BANKCALL 

0101 

REF 

1 

14,2140 

27014  1 

CADR 

MKRELEAS 

RELEASE  MARK  SYSTEM 

0102 

REF  113  LAST  444 

14,2141 

3 7657  1 

CAF 

ONE 

0103 

REF 

27  LAST  444 

14,2142 

54  333  0 

TS 

DSPTEM1 

0T04 

REF 

l 

1 4 , 2 1 4 3 

3 3651  0 

CAF 

V01N30E 

DISPLAY  OOOOl  IN  R1 

0105 

REF 

30  LAS  1 444 

14,2144 

0 5332  0 

TC 

NVSBWAIT 

0106 

REF 

148  LAST  445 

14,2145 

3 7665  0 

CAF 

ZtRO 

TO  INDICATE  GROUND  MARKS 

0107 

REF 

32  LAST  447 

14,2146 

0 4063  0 

TC 

BANKCALL 

0108 

REF 

1 

14,2147 

26753  1 

CADR 

AOTMARK 

MARK  ON  TARGET  1 

0109 

REF 

33  LAST  447 

14.2150 

0 4063  0 

TC 

BANKCALL 

0110 

REF 

1 

14,2151 

26714  1 

CADR 

OPTsTALL 

INSURE  SUCCESSFUL  MARK 

0111 

REF 

5 LAST  445 

14,2152 

1 2745  1 

TCF 

ENDTEST 

0112 

14,2153 

0 0006  1 

^EXTEND 

0114 

0115 


REF  40  LAST  376 


2154 

2155 

2156 


5 0374 
3 0001 
53*565 


INDEX  MARKSTAT 
" DCA 
"DXCH 


r> 


tmark 


TIME (PRES)  FOR 


COMPENSATION 


0116  REF 


14 


2157  0 22e*Z~V 


TC 


GlMANGSl 


0117 

0118 
Oil  9 
0120 
0121 
0122 

0123 

0124 


REF 


"RET 

REF 


12  LAST~444 

"4T“EAST_447 

1 


REF  2LAST~444 


REF  3 LAST  420 


14 

14 

T4 

14 

14 

T4 

14 


T4 


2160 

2161 

2163 

2164 

2165 

2166 
2167 


0 6000  1 
47140  1 
IT 
33051  0 
47014 T 
00TO5  1 
3017  CT-!- 
325I7~0" 


TC 

lx  e rr 


INTPRET 
CALL" 


BON 


MARKSTAT" 

AOTNB 

"CALL: 

COAROFTN 


0PTIC5DT0  NAV^BASE^COORDINATE^FRAME 


"C^ARSE~MAFTkS  = 0 


FINE  MARKS 


♦ 2 

NBSM 


NAV  BASE  DIRECT  TO  STABLE  MEMBER 


0T25 

REF" 

27 

LAST  416 

14,2170 

Or44"5TJ 

^ store 

starad-— 

TARCET  1 WRT  NAV  EASE  DR  5T ABUETTMXMBER 

0126 

RlF 

1 

1 4 9 2 1 J 1 

01601  1 

STORE 

LOSl 

• • • F OR  K • • • 

0127 

14,2172 

77776  1 

EXIT 

U148 

Kth 

34 

LASI  447 

14.2173 

0 4063  0 

TC 

BANKCALL 

0129 

ReF 

2 

LAST  447 

14.2174 

27014  1 

CADR 

MKRELEAs 

RELEASE  MARK  SYSTEM 

0130 

FEF 

52 

LA5T  431 

14,2175 

3 7656  0 

CAF  - 

~T¥0 

0131 

REF 

28 

LA5T  447 

14,2176 

54  333  0 

T5 

DSPTEM1 

w i 3c 

REF 

2 

LAST  447 

14,2177 

3 3651  0 

CAP 

V01N30E 

DISPLAY  00002  IN  R1 

0133 

REF 

31 

XmST  447 

14,2200 

0 5332  0 

TC 

W5BWAIT 

0134 

REF 

149 

LAST  447 

14,2201 

3 7665  0 

CAF 

ZERO 

TO  INDICATE  GROUND  MARKS 

v i D D 

Rer 

35 

LAST  447 

14,2202 

0 4063  0 

TC 

BANKCALL 

'-'136 

ReF 

2 

LA5T  447 

14,2203 

26753  1 

CADR 

A0TMAR1C 

— MARK  XTTSR GET  2 

V 4,  3 ( 

Kur 

^8 

LH5I 

1 4 » eU4 

3 7646  1 

CAF 

BIT10 

U13ti 

REF 

22 

LAsf  if 6 

14 » 2203  7 0061  I 

' MASK 

state^ 

“ BTT10  = CDAROFITT 

0139 

REF 

3 1 4 

LAST  441 

14,2206 

10  000  0 

CCS 

“A 

yi40 

REr 

1 

14,2207 

1 2215  1 

TCF 

EARRTCOM+5 

IF  COARSE  ALIGN  MARKS 

O 
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0U1 

REF 

36 

LAST  447 

14,2210 

0 4063  0 

EARRTLQM  TC 

BANKCALL 

earth  rate  compensation  between  marks 

“ 0U2 

REF 

2 

LAST  445 

14,2211 

30422  0 

CADR 

EARTHR 

0U3 

REF- 

2 

LAST  158 

14,2212 

10  372  0 

OILS 

OPTCADR 

+0  IF  MARK  BUTTON  NOT  DEPRESSED 

0144 

14,2213 

1 2216  1 

TCF 

+ 3 

0145 

REF" 

2 

LAST  447 

14,2214 

1 2210  1 

TCP 

EAR RT COM 

CONTINUE  TO  COMPENSATE  FOR  EARTH  RATE 

0T46 

14,2215 

1 2216  1 

TCF 

+ 1 

0147 

REF 

37 

LAST  448 

14,2216 

0 4063  0 

TC 

BANKCALL 

0148 

REF 

2 LAST  447 

14,2217 

26714  1 

CADR 

OPTSTALL 

INSURE  SUCCESSFUL  MARK 

0149 

REF 

6 

LAST  447 

14,2220 

1 2745  1 

ecf 

ENDTEST 

0150 

REF 

2 

LAST  447 

14,2221 

0 2242  1 

TC 

GIMANGS1 

~ 0151 

REF 

13 

LAST  447 

14,2222 

0 6000  1 

TC 

INTPRET 

~“0T52 

14,2223 

47140"  1 

LXC , 1 

CALL 

0153 

REF 

42 

LAST  447 

14,2224 

00374  1 

MARKSTAT 

BASE  ADDRESS  VAC  AREA  FOR  AOTNB 

0154 

REF 

2 

LAST  447 

14,2225 

33051  0 

AOTNB 

OPTICS  TO  NAV  BASE  COORDINATE  FRAME 

~OT55 

14,2226 

47014  1 

~30NCLR 

CALL 

SET  TO  ZERO  FOR  FINE  ALIGN  MARKS 

0156 

REF" 

" 3 

LAST" 447 

14,2227 

00205  0 

COAROFIN 

COARSE  MARKS  =0  FINE  MARKS  = 1 

0157 

14,2230 

30232  1 

+ 2 

0158 

REF 

4 

LAST  447 

14,2231 

32517  0 

NBS"M 

NAV  BASE  DIRECT  TO  STABLE  MEMBER 

0159 

REF 

28 

LAST  447 

14,2232 

01453  1 

STORE 

St Arad  + 6 

TARGET  2 WRT  NAV  BASE  OR  STABLE  MEMBER 

0160 

REF 

I 

14,2233 

01607  1 

5T0RE 

L0S2 

• • • for  k « « • 

0161 

14,2234 

77634  0 

MATXDET  CALL 

' 0162 

REf 

1 

14,2235 

30350  1 

TAR/EREF 

TARGETS  1*2  WRT  EARTH  REF  FRAME 

0163 

14,2236 

77634  0 

“CALL 

0164 

REF 

1 

14,2237 

32677  0 

AXISGEN 

NAV  BASE  OR  SM  WRT  EARTH  REF  FRAME 

0165 

14,2240 

77776  1 

EXIT 

“OT166 

"REF- 

5 

LAST  447 

14,2241 

0 1546  1 

TC  " 

OP Lace 

"0167 

REF  53  LAST  "447 

14,2242 

3 7656  0 

GTMANGS1  CAF“ 

TWO 

base  address  gimbal  angles  for  nbsm 

0168 

REF  43  LA5T  448 

14,2243 

6 0374  1 

AD 

MARKSTAT 

FI  6 9 

"REF  — 20"  LAST 429 

14 ,2244 

50  104  1 

"IWEX 

FIXLOC 

0170 

REF  11  LAST  420 

14,2245 

54  050  0 

TS 

SI 

0171 

REF  270  LAST  442 

14,2246  0 0002  0 

TC 

-Q 
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PERFORMANCE  TESTS  1 

USER'S  OWN  PAGE  NO.  6 

0172 

14,2247 

0 0006  1 

PUTPOSX 

extend 

COARSE  ALIGNS  STABLE  MEMBER 

TT173 

REF-" 

6 LAST  448 

14,2250 

23 '546  1 

3XCH 

QPLACE 

0 1 7 A 

ref 

14  LAST  448 

14,2251 

0 6000  1 

TC 

iNTPrET 

0175 

14,2252 

77634  0 

CALL 

0176 

" REF- 

IT 

14,2253 

32615  1 

CALCGA 

CALCULATE  COARSE  ALIGN  GIMBAL  ANGLES 

0177 

14,2254 

77776  1 

EXIT 

0173 

REF 

3s  LAST  448 

14,2255 

0 4063  0 

TC 

BANKCALL 

0179 

REF 

2 LAST  261 

14,2256 

26055  0 

cadr 

IMUCOARS 

coarse  align  mode 

0180 

REF 

T9  LAST  449 

14,2257 

0 4063  0 

TC 

BANKCALL 

0 1 8 1 

REF 

8 LAST  444 

14,2260 

26716  0 

CADR 

IMUSTALL 

0182 

REF 

7 LAST  448 

14,2261 

1 2745  1 

TCF 

endtest 

0133 

REF~ 

7 LAST- 449 

14,2262 

0 1546  1 

Ter 

QPLACE 

0134 

14,2263 

0 0006  1 

smdcalc  extend 

FINE  ALIGNS  STABLE  MEMBER 

0185 

REF 

8 

LAST 

449 

14,2264 

23 • 546  1 

3XCH  QPLACE 

0186 

ref 

15 

LAST 

449 

14,2265 

0 6000  1 

TC  INTPrET 

0187 

14,2266 

64375  1 

vload  mxv 

0188 

REF 

7 

LAST 

444 

14,2267 

01401  0 

XSM 

XSM  DESIRED  WRT  EARTH  REF  FRAME 

0189 

REF 

29 

LA5T 

44F 

14,2270  01445  0 

STAR  AD 

THEN  TO  SM  PRESENT  OR  NAV  BASE  FRAME 

0190 

14,2271 

43172  1 

VSL1  BOFF 

0191 

REF 

4 

LA5T 

446 

14,2272 

00345  0 

COAROFIN 

BIT10  FOR  LEMLAB  TEST 

0192 

14,2273 

30276  1 

+ 3 

OI93 

14,2274 

36041  1 

5T CALL  32D 

0194 

REF 

5 

LAST 

448 

14,2275 

32517  0 

NBSM 

THEN  TO  SM  PRESENT  FRAME 

01 95 

REF 

13 

LA5  1 

414 

14,2276 

23423  C-' 

STOVL  XDCT 

0196 

REF 

5 

LAST 

415 

14,2277 

01407  0 

YSM 

YSM  DESIRED  WRT  EARTH  REF  FRAME 

0197 

14,2300 

76521  0 

MXV  VS  LI 

0198 

REF 

30 

LAST 

449 

14 ,2301 

01445  0 

STARAD 

THEN  TO  SM  PRESENT  OR  NAV  BASE  FRAME 

0199 

14,2302 

77614  1 

BOFF 

0200 

REF 

LAS  r 

^449 

14,2303 

00345  0 

COAROFIN 

BIT10  FOR  LEMLAB  TE5T 

0201 

14,2304 

30307  0 

+ 3 

0202 

14,2305 

36041  1 

STCALL  32D 

0203 

REF 

6 

LAS  1 449 

14 , 23U6 

- 32517'  0" 

NE5M 

THEN  TO  SM  PRESENT  FRAME 

0204 

REF 

3 

LAS  1 

414 

14,2307 

23431  0 

STOVL  YDC 

0205 

REF 

14 

LAST 

449 

1 4 , 23 10 

01423  0 

XDC 

U2U6 

14,2311 

76435  1 

VXV  VSL1 

0207 

ref 

4 

last 

449 

14,2312 

01431  0 

YDC 

02013 

REF 

LAST 

414 

14,2313 

3743  7 0 

~ STCAUL  ZDC 

ESM  DESIRED  WRT  SM  PRESENT  FRAME 

0209 

REF 

1 

14.2314 

32367  1 

CALCGTA 

CALCULATE  FINE  ALIGN  TORQUING  ANGLES 

TTZTO  14,2315 45170  0 AXTTl — RTF 


co 

« 
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NOV  10  * 1966  (mAI N ) pAGE  450 


L 

I MU 

performance 

TESTS  1 

U5ER*S  OWN  PAGE  NO.  7 

0211 

ref 

5 LAST  412 

l4»2316 

02500 

0 

LCAOr 

OGC 

XI  = BASE  ADDRESS  OF  TOrQUinG  AmGLES 

0212 

REF 

1 

14.2317 

33515 

0 

PULSEIMU 

TO  PUT  OUT  GYRO  TORqUING  PULSES 

0213 

14,2320 

77776 

1 

EXIT 

0214 

REF 

40  LAST  449 

14,2321 

0 4063 

0 

TC 

BANKCALL 

~ 0215 

REF 

9 LAST 449 

14,2322 

26716 

0 

CAdR 

imustall 

WAIT  FOR  PULSES  TO  GET  OUT 

0216 

REF 

3 LAST  449 

14,2323 

1 2745 

1 

TCF 

ENDTEST 

0217 

REF 

9 LAST  449 

14,2324 

0 1546 

1 

TC 

QPLACE 

I 


4 


~ 473423A  yJL  SySTEM  FOR  BL.K2 ! REVISION,  12.  OF  pROGRAM  AURORA  By  DAp  QROUp  NOy  10,  1966  (MAIN)  pAGE  4§| 

V 


% 

L 

I v,u 

performance 

TESTS  l 

USER'S  OWN  PAGE  NO.  8 

< 

0218 

14,2325 

7777b 

1 

makexsmd  exit 

XSM 

V YSM  SW  ZSM  SE 

0219 

REF 

1 

14,2326 

3 3660 

1 

caf 

1 70EC 

ZERO 

XSM,  YSM,  AND  ZSM 

♦ 

0220 

REF 

1 

14,2327 

55*776 

1 

Ts 

zerondx 

0221 

REF 

1 

19,2330 

3 3676 

0 

CAF 

XSMADRX 

% 

0222 

REF 

41  LAST 

450 

14,2331 

0 4063 

0 

TC 

BANKCALL 

♦ 

0223 

REF 

1 

14,2332 

37236 

1 

CADR 

ZEROING 

VERT  SOUTH 

EAST 

0224 

REF 

19  LAST 

425 

14*2333 

3 76^2  0 

CAF 

HALF 

XSM 

* +1  0 

0 * 

* 

U225 

REf 

8 LAST 

449 

14,2334 

55*400 

0 

TS 

XSM 

* 

* 

022  6 

REF 

lb  LAST 

449 

14,2335 

0 6000 

1 

tc 

INTPRET 

* 

* 

J 

0227 

14,2336 

73545 

1 

OLOAD 

SIN 

Y5M 

* 0 +SIN (AZ) 

+COS  (AZ)  * 

0 

1 

0228 

REF 

1 

14,2337 

01507 

1 

AZIMUTH 

* 

* 

0229 

REF 

9 LAST 

451 

14,2340 

01411 

1 

STORE 

XSM  +8D 

* 

* 

* 

0230 

REF 

10  LAST 

451 

14 ,2341 

07421 

1 

stodl 

XSM  +16D 

ZSM 

* 0 -COS ( AZ) 

♦ SIN  (AZ)  * 

0 

0231 

RcF 

2 LAST 

45 1 

14,2342 

01507 

1 

AZIMUTH 

0232 

14,2343 

77746 

1 

cos 

- 

0233 

REF 

i i Las i 

451 

14,2344 

01413 

0 

STORE 

XSM  + 10D 

c 

0234 

14,2345 

77676 

0 

OCOMP 

0235 

REF 

12  LAST 

451 

14,2346 

01417 

1 

store 

XSM  + 14D 

4 

0236 

1*+, 2347 

77616 

0 

RVQ 

0 , 

4 

*> 

0237 

14,2350 

77170 

1 

TaR/EREf  4xT,l 

AXT.2 

TARGET  VECTOR 

0238 

IT, 2351 

00002 

0 

2 

SIN  (EL)  -COS  (Az)COS (EL) 

SIN  (AZ) COS (EL) 

* 

0239 

14,2352 

00014 

r 

I2D 

0. 

0240 

14,2353 

77731 

l 

ssp 

0241 

REF 

12  LAST- 

424 

14,2354 

00052 

0 

S2 

* 

0242 

14,2355 

00006 

1 

6 

TARGET  1 

TARGET  2 

4} 

“0243 

T4 , 23  5 6 

60533 

T 

TaRI  sload* 

sre 

XI  = 2 

X2  = 1 2 S2  = 6 . Xl  = 0 

X2=6  S2=6 

* 

0244 

REf 

1 

14,2357 

01557 

1 ' 

TAZElI  +3*1 

0 

0245 

14,2360 

00001 

0 

5T0RE 

0 

PDOO 

ELEVATION 

PDOO 

0246 

14,2361 

T7756 

0 

"5Tir 

# 

0247 

14,2362 

12023 

0 

STODL 

180,2 

PD06 

***  SIN (EL) 

*#*  PD12 

0 

0298 

14,2363 

30001  0 

0 

* 

0249 

14,2364 

41546  0 

COS 

PUSH 

PDOO 

COS (EL) 

PDOO 

0250 

14,2365 

45133  1 

SLOAD* 

RTB 

0251 

““RET 

“2  “LT5T 

45T 

14 ,3366 

01556  C “ 

TAZFL1T+2 * IT 

$ 

0252 

REF 

12  LA51 

422 

14,2367 

33345  0 

COULUU 1 C 

0253 

14,2370 

00003  1 

STORE 

2 

PD02 

AZIMU1 H 

PD02 

0254 

” 14,2371 

41356  1 

STN 

T5MP 

0 

0255 

14,2372 

00001  0 

0 

0256 

14,2373 

77752  1 

SL1 

0257 

14,2374 

“ 12027  1 

STOOL  2 2D,  2 

~ ~PDTO  *** 

9SITrCAZ)C05(EL)  *** 

Pul  6 

0 


0258 

0259 


14*2375  00003  1 

14V2576  41396  TO 


CO  5 


2 

mw 


9 
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L 

I MU 

PERFORMANCE 

TESTS  1 

USER’S  OwN  PAGE  NO,  9 

0260 

14,2377 

57552 

1 

SLl 

DCOMP 

0261 

14,2400 

04025 

1 

STORE 

20D  ,2 

POO 8 ***  -COS (AZ) COS (EL)  ***  PD14 

0262 

14,2401 

61170 

0 

AXT  ,jl_ 

TI X ,? 

0263 

14,2402 

00000 

1 

0 

10264 

REF 

14,2403 

30356 

1 

TAR1 

0265  14,2404  77616  0 RVQ 


*> 
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L 

HU 

performance 

TESTS  i 

USER'S  0/JN  PAGE  NO.  10 

0266 

14,2405 

65345 

0 

ERTHRVSE  DLOAD 

PODL 

0267  " 

REF 

5~LAST  423 

14,2406 

33042 

1 

ZEROOP 

PD24  = (SIN  -COS  0) (OMEG/MS) 

0268 

REF 

l 

14,2407 

01511 

0 

LATITUDE 

0269 

14,2410 

57546 

1 

COS 

DCOMP 

0270 

14,2411 

73525 

1 

POOL 

SIN 

0271 

REF 

2 LAST  453 

14,2412 

01511 

0 

LATITUDE 

EARTH  RATE  = .1504  ARCSEC  / 10  MSEC 

0272 

14,2413 

74266 

0 

VDEF 

VXSC 

1.618  GYRO  PULSES  = 1 ARCSEC 

‘ 0273 

REF" 

T 

14,2414 

31702 

0 

OMEG/MS 

OMEG/MS  = .243...  GYRO  PULSES  / 10  MSEC 

0274 

REF 

1 

14,2415 

01514 

0 

STORE 

ervector 

0275 

14,2416 

77624 

1 

RTB 

0276 

ref 

T 

14,2417 

33342 

1 

loadtime 

* 

0277 

REF  " 

2 LAST  447 

14,2420 

01565 

0 

STORE 

tmark 

TIME  FOR  GYRO  DRIFT  - PIPA  SCALE  FACTOR 

0"278 

14,2421 

77616 

0 

RVQ 

A 


U279  REF  4TAST  342  14,2422  0 4112  1 EARTHR  TC  MaKECADR  CALCULATE^  AND  COMPENSATES  EARTH  RATE 

0280  REF  1~~  T4 , 2423  55*547  1 TS  -PLACES  * 


0281 

ref 

17  LAST 

451 

14,2424 

0 6000  1 

TC 

INTPrET 

0282 

14,2425 

77624  1 

RTB 

0283 

REF 

2 LAST 

453 

14,2426 

33342  1 

loadtime 

T (PRESENT) 

0284 

1 

14,2427 

— 01562  T 

store 

"TEMPT  I ME 

0285 

14,2430 

54225  0 

DSU 

SL 

4 

0286 

REF 

3 LAST 

453 

14,2431 

01565  0 

tmark 

T (PRES)  - T(PREV)  = DT  SCALED  10  MSEC 

0287 

14,2432 

00212  0" 

9D 

2 TO  2 1ST  POWER  = 1 REVOLUTION 

0288 

14,2433 

54361  1 

VXSC 

MXV 

4 

0289 

RtF 

2 LAS  1 

453 

1 A ,2434 

01514  0 

ERVECTOR 

V T = (SIN  -COS  0) (OMEG/MS) (DT) 

02$0 

” REF 

13  LAST 

451 

14,2435" 

"01401  0“ 

X3M 

(XSMMVT)  = EARTH  RATE  COMPENSATION- 

0291 

14,2436 

77655  1 

VAD  " 

4 

0292 

REF 

2 LAST 

23 

14,2437 

01772  1 

ERCOMP 

"0293 

REF 

3 LAST 

453 

14,2440 

07772  I 

ST0DL 

""ERCOMP 

0294 

RtF 

2 LAST 

453 

14,2441 

01562  1 

TEMPTIME 

# 

0295 

REF 

4 LAST 

453 

14,2442 

01565  0 

STORE 

tmark 

T (PREVIOUS) 

0296 

14,2443 

45170 

0 

AXTtl 

RTB 

4 

0297 

REF 

4 

LAST 

453 

14,2444 

02771 

1 

ECADR 

ERCOMp 

0298 

REF 

450 

14 ,2445 

33515 

0 

""PuLSETMU  "" 

TO  PUT  OUT  GYRO  TORQUTNG  PULSES 

0299 

14,2446 

77776 

1 

exit 

► 

Ktr 

42 

LAS  1 

451 

14»Z447 

0 4063 

0 

TC 

BANKCALL 

U30  1 

REF 

10 

LAsT 

450 

14,2450 

26716 

0 

cadr 

IMUsTALL 

WAIT  FOR  PULSES  TO  GET  OUT 

4 

0302 

Hzr 

9 

LAST 

450 

14,2451 

1 2745 

1 

TCF 

endtest 

0303 

R EF 

2 

LAST 

453 

14,2452 

31 '547 

0"  " 

4-  A El 

OP LACES 

0304 

REF 

12 

LAST 

360 

14,2453 

1 4105 

0 

TCF 

BANK JUMP 

4 

* 
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L 

IMU 

performance  tests  i 

user«s  own  page  no,  h 

0305 

14.2454 

0 0006  1 

STORRSLT  EXTEND 

0306 

REF 

TO  EAST  450  - 

14.2455 

23*546  1 

3XCH 

OPLACE 

0307 

RtF 

1 8 LAS"  453 

14,2456 

0 6000  1 

TC 

INTPrET 

dp  Time  in  mpac  scaled  ,312 (5)  msec 

0308 

14,2457 

54340  1 

LXC , 1 

SL 

0309 

REF 

2 LAST  445 

14,2460 

01537  1 

NDXCTR 

0310 

14,2461 

00204  1 

3 

0311 

14,2462 

45005  0 

DMP 

RTB 

0312 

REF 

1 

14,2463 

31700  1 

scalftr 

0313 

REF 

2 LAST  283 

14,2464 

33406  0 

sgmagree 

0314 

REF 

29  LAST  25 

I4T2465 

035T  1 

STORE 

genpl.i 

STORE  DP  TIME 

0315 

1 4 ,2466 

77776  1 

EXIT 

0316 

REF 

2 LAST  445 

14,2467 

57*551  1 

XCH 

storepl 

CONTAINS  C(PIPAI) 

0317 

ref 

3 LA5T  454 

14,2470 

51*537  1 

index 

NdXCTR 

0318 

REF 

30  LA5T  454 

14,247 1 

55*572  1 

TS 

GENPL  +2 

STORE  PIPA  COUNTER  READING 

0319 

REF 

4 LAS  1 454 

14,2472 

4 1537  0 

CS 

NDXCTR 

0320 

REF 

1 

14,2473 

6 3664  0 

AD 

72DEC 

0321 

14,2474 

0 0006  1 

EXTEND 

0322 

REF 

1 

I4 ,2475 

6 3123  1 

3ZMF 

MISALIGN 

TO  CALCULATE  MISALIGNMENT 

0323 

REF 

17  LAST  443 

14,2476 

3 6165  0 

CAF 

THREE 

0324 

REF 

5 LAST  454 

14,2477 

27*537  0 

ADS 

NDXCTR 

~03T5 

REF 

11  LAST  454 

Ia,2500 

0 1546  1 

TC 

QPLACE 

0326 

14*2501 

0 0006  1 

OPTDATA  EXTEND 

CALLS  FOR  AZIMUTH  AND  ELEVATION  OF 

~0T27 

REF 

12  LAsI  454 

F4,2502 

23*54o  1 

txcft 

QPLACE 

TARGET  1,  ThEN  TARGET  2 

0328 

REF 

36  LAST  441 

14,2503 

3 7657  1 

CAF 

BIT1 

AZIMUTH  CLOCKWISE  FROM  NORTH  TO  TARGET 

0329 

14,2504 

22  007  0 

ZL 

ELEVATION  MEASURED  FROM  HORIZONTAL 

0330 

REF 

1 

14,2505 

23 ' 550  0 

LXCH 

RUN 

0331 

R-F 

49  LA5 1 447 

14,2506 

54‘  335  0 

T5 

DSPTEM1  *2 

U332 

REf 

1 

14,2507 

3 3652  0 

CAF  V05N30E 

DI5PLAY  TARGETTnuMBER  IN  R3 

0333 

REF 

32  LAST  447 

14,2510 

0 5332  0 

TC 

NV5BWAIT 

0334 

RcF 

2 last  454 

14,2511 

51*550  0 

INDEX 

RUN 

03  35 

FTEF 

3 LASl  45 1 

14,2512 

~ 53*554  0 

BXCH  TAZEL I 

0336 

REF 

30  LA5T  454 

14,2513 

52  334  1 

DXCH 

dsptemi 

0337 

REF 

1 

14,2514 

0 2554  1 

TC 

checked 

Rl  +-  XXX*XX  AZIMUTH  IN  DEGREES 

0338 

14,2515 

00661  0 

"OCT 

00661 

R2  +-  XX. XXX  ELEVATION  IN  DEGREES 

0339 

REF 

10  LAST  453 

14,2516 

1 2745  1 

TCP 

ENDTEST 

R3  OOOOX  TARGET  NUMBER  1 OR  2 

0340 

RcF 

31  LA5T  454 

14*2517 

52  334  1 

DXCH 

DSPTEMI 

1 AZEL1  TARGET  1 AZIMUTH 

0341 

REF 

3 LA5I  454 

14,2520 

51*550  0 

index 

RUN 

0342 

REF 

4 EAST  454 

14,2521 

53*554  0“ 

■ cxcpt 

TAZELI 

TAZEL1  *2  TARGET  2 AZIMUTH 

0343 

RcF 

4 LAST  454 

14,2522 

11*550  1 

CCS 

RUN 

0344 

14*2523 

1 2527  1 

TCP 

+ 4 

0345 

TRcF 

54  EAST  448 

14T2524 

3 7656  0 

OPTRdRTNCAF — 

r wo 

- SPECIAL  ENTRY  FOR  RDR37511 

0346 

REF 

165  LAST  426 

14,2525 

54-  001  1 

TS 

L 

0347 

RcF 

2 LASl  444 

14,2526 

1 2505  1 

TCP 

OPTDATA  +4 

MPAC  1ST  PASS  = 0 2ND  PASS  = 2 

T3348 

RcF 

~13  LAS  1 454 

14,2527 

0 1546  1 

TC 

TJFLACE  ~ 

J 
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L 

I MU 

performance 

TESTS  1 

USER'S  OWN  PAGE  NO.  12 

0349 

14,2530 

62545  1 

LATAZCHK  DLOAD 

SL2 

CALLS  FOR  AZIMUTH  <5M)  AND  LATITUDE 

0350 

RTF 

3 LAST  453 

14,2531 

01511  0 

LATITUDE 

0351 

REF 

32  LAST  454 

14,2532 

06335  1 

STODL 

DSPTEMl  +1 

0352 

RlF 

3 LAST  451 

14,2533 

01507  1 

azimuth 

• • #NOT  REALLY •• • 

0353 

14*2534 

77424  0 

RTB 

EXIT 

0354  REp  1 

14.2535 

33410  1 

1ST02S 

fraction  Of  revolution  TO  2S  complement 

i 0355  REF  566  LAST  A <+5  14,2536  56  140  1 XCH  TIPAC  AZIMUTH  MUST  BE  135  DEGREES  R1  = +13500 

0356  REF  ~33  LA5T  455  14^2?37 ~~5F~333  0 TS  DSPTEM1  FOR  SXT-NB-IMU  FINE  ALIGNMENT  TEST 


0357  REF  2 LAST  454  " T472T40  0 2554  1 TC  CHECKED  Rl  +1TKXX7XX  AZIMUTH  IN  DEGREES'  fSW) 

2 0358  14,2541  00661  0 XT  00661~~  R2  +-  XX. XXX  LATITUDE  IN  DECREES 


0359  REF  11  LAST  454  14T2T54Z  I 2745  1 TCF  ENDTE5T  R3~  NOT  USED 


> 


0360 

REF 

1 9 LAST  454 

14,2543 

0 6000  1 

TC 

“INTPRET 

0361 

14,2544 

45135  1 

SLOAD 

RTB 

03bZ 

REF 

34  LAST-  455 

14,2545 

00334  0 

DSPTEMl 

0363 

REF 

13  LAST  451 

14,2546 

33345  0 

CDUL0GIC 

BACK  TO  FRACTION  OF  REVOLUTION 

0364 

REF 

4 LASi  455 

14T2547 

01507  1 

5T0RE 

AZTMUTH 

* 


* 


0365  14*2550  60535  1 5LOA0  “5R2  " 

0366  REF " 35  LAST  455 ""  14,2551  00335nT~  DSPTEMl  +1 

0367  REF  4""  LA  SI  455  14,2552  01511  0 STORE — LATITUDE 

0365  14,2553  Y76T6~0““  RVQ 


0369  r4,2554  0 OOOFT  ChECKLD"  EXTEND 

^70  REF  1 14,2555  23*545  1 QXCH  QPLAC 


O37I  REF  2 LAST  455  14,2556  51*5451  INDEX  QPLAC 


03  72 

RTF" 

"3T5 

LAST 

447  “ 

1 4 , 2557 

“ 3 OOOC  1 

CA “ 

A" 

0373 

REF 

5 

LAST 

396 

14,2560 

0 5107  1 

TC 

NVSUB 

ft 

0374 

REF 

1 

14 ,2561 

1 2573  0 

TCF 

CHECKLD1 

* 

KCI- 

a 

Lnb  1 

489 

■*■4  * 06^ 

u 5274  0 

TC 

FLASHON 

ft 

fb 

Ktf 

a 

LAS  1 

444 

14,2563 

t>  51^0  I 

TC 

“ENDTDUE  " 

"CHANGE  Rl  V21  N61  E"  +-  XXX. XX  E 

0377 

14,2564 

1 2567  0 

TCF 

+ 3 

CHANGE  R2  V 22  N61  E +-  XX. XXX  E 

+ 

0378 

14,2565 

1 2571  1 

TCF 

+4  7 

VERIFY,  THEN  PROCEED  WITH  VERB  33  ENTER 

U379 

REF 

3 

LAS  1 

455 

14 t^566 

1 25561 

TCP 

CHECKLC  +Z 

* 

U 3 80 

Kcr 

3 

LAST 

455 

14,2567 

51*545  1 

INDEX 

QPLAC 

ft 

0381 

14,2570 

0 0001  0 

TC 

1 

0382 

Ref 

4 

last 

455 

14,2571 

51*545  1 

TNDEX" 

TPUAc 

(0 

0383 

1 4 , 25  72 

0 0002  0 

TC 

2 

ft 

0384 

REF 

1 

14,2573 

3 2 57T  1 

CHECKLD1 

TAP 

CHFCKETT2 

it 

0385 

Kcr 

4 

LAST 

397 

14,2574 

0 5327  1 

TC 

NVSUBUSY 

ft 

03  86 

Ktr 

4 

LAST 

455 

14,2575 

30556  1 

CHECKLD2 

CADR 

"CHECK  LD  +2 

ft 


* 

♦ 
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L I MU  PERFORMANCE  TESTS  1 _ USEr~*S  OWN  pAGE  NO.  13 

~0387 1472576  0 0006  1 PQSNJUMP  EXTEND  “ POSlTlMS~~FOR~SXTNBIMU 

0388  REF  14  LAST  454  14,2577  23*546  1 3XCH  QPLACE 


T589~~  r£F  2 LAST  444  14,2600  51*544  0 

0390  14,2601  1 2602  0 

0391  REF  12  LAST  455  14,2602  1 2745  1 

0392  REF  1 14*2603  1 2610  0 

0393  REF  1 “ ” 14,2604  1 2615  0 

~0394  REF  1 14,2605  1T2633  1 

T0395  REF  1 14,2606  1 2654  0 

U396  REF  I 14,2607  1 2706  0 


INDEX  PQStTON 
TCF  ' +1 
TCF  ENDTEST 
TCF  P0S1 
TCF  P052 
TCF  PQS3 
TCF  P0S4 
“TCF  P0S5 


0397 

REF 

114 

LAST  447 

14  *261q 

3 7657  1 P0S1 

CAP 

ONE 

XSM  = V 

VSM  = 

SW  ZSM  = SE 

0398 

REF 

3 

LAST  446 

14,2611 

55*542  1 

T S 

PIPNDX 

0399 

REF 

55 

LAST  454 

14,2612 

3 7656  0 

CAP 

TWO 

0400 

REF 

4 

LAS 1 456 

14,2613 

55*543  0 

TS 

PIPNDX  +1 

MONITOR 

P I PAY  AND 

PIPAZ 

0401 

REF 

15 

LAST  456 

14,2614 

0 1546  1 

TC 

QPLACE 

0402 

REf 

“20  tTST  455 

1 4 , 2 6 1 5 

0 6000  T pOS2 

Tc 

INTpRET 

XSM  = SE  ySM  = 

5W  ZSm  = -V 

0403 

14,2616 

57575  1 

vLOAD 

VCOMP 

C4O4 

REF  " 

14  LAST  453 

14,2617 

01401  0 

XSM 

040  5~ 

1 4 , 2620 

77715  1 

pdvl 

0406 

REF 

3 LAST  416 

14,2621 

01415  0 

Z5M 

0407 

REF 

15  LA5I  456 

14,2622 

23401  0 

5T0VL  XSM 

“0403 

14 ,2623 

77626  0 

StADR 

0409 

REF 

4 LAST  456 

14,2624 

76362  1 

STORE 

Z5M 

0410 

14,2625 

77776  1 

EXIT 

0411 

RtF  150  LAST  447 

14 ,2626 

3 7665  0 

CAF  ' 

“ZERO 

0412 

REF 

5 LAS [ 456 

14,2627 

55 ' 542  1 

TS 

PIPNDX 

0413 

REF 

1 1 5 LAST  456 

1 4 » 2 630 

3 7657  1 

CAF 

ONE 

0414 

REF 

T>  LA5T  456 

14T263T 

55*543  0 

TS 

““PTPNdX  + 1 

“ MONITOR  PIPAX  AND 

PIPAY 

0415 

RLF  16  LAST  456 

14,2632 

0 1546  1 

TO 

QPLACE 

0416 

REf 

21  lA5T  456 

14,2633 

0 6000  1 P0S3 

TC 

INTPRET 

XSM  =“5E  YSM  = V ZEM  = SW 

0417 

“14,2634 

63375  0 

TLUATT 

PUV1T 

0418 

REF 

16  LAST  456 

14,2635 

01401  0 

XSM 

0419 

REF 

6 LAST  449 

14,2636 

01407  0 

YSM 

T3420 

14 ,2637 

77715  T 

PDVL  “ 

0421 

REF 

5 LAST  456 

14,2640 

01415  0 

ZSM 

0422 

REF 

17  LA5l  456 

14,2641 

23401  0 

STOVL 

XSM 

U4^5 

J-4  f 2642 

77646  0 

STADR 

0424 

RcF 

6 LAST  456 

14,2643 

54362  1 

stovl 

ZSM 

a 
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USER'S  OWN  PAGE  NO.  14 

l 

* 

0425 

14,2644 

77626 

0 

STADR 

0426 

REF 

7 

LAST 

456 

14,2645 

76370 

1 

STORE 

YSM 

p 

* 

0427 

14,2646 

77776 

1 

exit 

$ 

0428 

REF 

151 

LASl 

456 

14,2647 

3 7665 

0 

CAF 

ZERO 

0429 

REF' 

7 

LAST 

456 

14,2650 

55 '542 

1 

TS 

PIPNDX 

* 

0430 

REF 

“ 56 

LAST 

456 

14,2651 

3 7656 

0 

CAF 

TWO 

0431 

REF 

8 

LAST 

457 

14,2652 

55*543 

0 

TS 

PIPNDX  +1 

MONITOR  PIPAx  AND  PIPAZ 

0432 

REF 

“ 17 

LAST 

456 

14,2653 

0 1546 

T 

TC 

OPLACE 

§ 

0433 

RcF 

14 

LAST 

377 

14,2654 

3 7653 

0 PQS4 

caf 

BIT5 

option  to  align  sm  to  specified  angles 

1 f I* 

0434 

REF 

21 

LAST 

448 

14,2655 

6 0104 

1 

AD 

FlXLOC 

43435 

“REF 

22 

LAST 

457 

1472656 

50  104 

1 

INDEX 

FIXLOC 

II 

0436 

REF 

12 

LAST 

448 

14,2657 

54  050 

0 

TS 

SI 

BASE  ADDRESS  GIM6AL  ANGLES 

0437 

REF 

1 

14,2660 

3 3656 

1 

CAF 

V25N22E 

Rl  +-  XXX, XX  OUTER  GIMBAL  ANGLE 

0438 

REF 

33 

LAST 

454 

14,2661 

0 5332 

0 

TC 

NVSBWAIT 

R2  +-  XXX. XX  INNER  GIMBAL  ANGLE 

0439 

REF 

24 

LAST 

455 

14,2662 

0 5140 

1 

TC 

ENDIDLE 

R3  +-  XXX, XX  MIDDLE  GIMBAL  ANGLE 

4 

0440 

REF 

13 

L.AST 

456 

14,2663 

1 2745 

1 

TCF 

ENDTEST 

0441 

14,2664 

1 2660 

1 

TCF  “ 

-4 

0442 

REF 

10 

LAST 

428 

14,2665 

3 0400 

0 

CA 

THETAD 

SET  UP  ANGLES  FOR  SMNB 

0443 

REF 

23 

LAST 

457 

14,2666 

50  104 

1 

INDEX 

FIXLOC 

0444 

14,2667 

5 4 024 

0 

TS 

24 

«. 

0445 

REF 

11 

LAS  1 

457 

14,2670 

3 040T 

1 

CA 

THETAD  +1 

V 

0446 

REF 

24 

LAS  1 

457 

14,2671 

50  104 

1 

INDEX 

FIXLOC 

0447 

14*2672 

54  020 

1 

TS 

20 

m. 

0448 

REF 

12 

LAST 

457 

14,2673 

3 0402 

1 

CA 

THETAD  +2 

* 

0449 

REF 

25 

las  i 

457 

14,2674 

50  104 

1 

INDEX 

FIXLOC 

0450 

14 ,2675 

54  022 

0~ 

TS 

22 

4* 

* 

0451 

REF 

22 

LAST 

456 

14,2676 

0 6000 

1 

TC 

INTPRET 

0452 

14,2677 

47024“ 

7 

TIB 

'CALL 

i 

0453 

REF 

1 

14,2700 

32766 

1 

TRANSPSE 

EARTH  REF  WRT  NAV  BASE 

* 

0454 

REF 

1 

14,2701 

33000 

1 

SMD/EREF 

STABLE  MEMBER  DESIRED  WRT  EARTH  REF 

0455“ 

1447702 

" 77624 

I 

“RTET 

J 

0456 

REF 

2 

LAST 

457 

14,2703 

32766 

1 

TRANSPSE 

BACK  TO  NAV  BASE  WR 1 TO  EARTH  REF 

0457 

14,2704 

77776  I 

EXIT 

0458 

REF 

18 

LA51T 

457 

14 ,2705~ 

13  1546 

1 

TC 

OPLACE 

■ 

- v 


* 


$ 


t 


C 


$ 


4 
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performance  TESTS  1 

user  * 5 own  page  no.  is 

0459 

REF 

19  LAST  457 

14,2706 

3 1546  1 P0S5 

CA 

Ur LACE 

option  to  align  sm  to  any  orientation 

0460 

REF 

OBLAST”  454 

T4,2707 

55t551  0 

rs 

“STOREPL 

WRT  EARTH  REFERENCE  FR4ME 

0461 

ref 

3 LAqT  454 

14,2710 

0 2501  1 

TC 

optdata 

LOAD  YsM  AND  ZsM  AZiMUTH  AND  ELEVAT iON 

0462 

REF 

23  LAST  457 

14,2711 

0 6000  1 

TC 

intpret 

0463 

14,2712 

77634  0 

CALL 

0464“ 

“RET 

2 LAST~~448 

14,2713 

30350  1 

TAR/EREF 

CALC  YSM  AND  ZSfTWRT  EARTH  REF,  FRAME 

~ 0465 

14,2714 

41575  ~0 

v/LOAD 

PUSH 

0466 

14,2715 

00007  0 

6D 

0467 

REF 

8T^ST"457 

14,2716 

01407  ”0 

STOrT 

YSM 

0468 

14,2717 

76435  1 

vxv 

VSL 1 

0469 

14,2720 

00015  0 

12D 

0470“ 

REF 

”T6“LATST  456 

14,2721 

01401  0 

STORE 

XSM 

XSM  = (YSM)  X (ZSM) 

0471 

14,2722 

76435  1 

YXV 

VSL1 

0472 

14,2723 

77626  0 

STADR 

0473 

“REF~ 

7 LAST'  456 

14,2724 

76362  1 

STORE 

ZSFT 

ZSM  = (XSM)  X (YSM) 

0474 

77776  1 

EXIT 

0475 

REF 

4 LA5T  458 

J.4  f 2726 

0 1551  1 

TC 

storepl 

II' 


<4 
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L IML)  PERFORMANCE  TESTS  1 USER»S  OWN  PAGE  NO, 16 


0476  ~ 14,2727  O'  0006  1 OGCZERO  EXTEND ZERO  EARTH  RATE  TCRQUING  ANGLES 


04  7 7 

REF  20  LAST  458 

14,2730 

23 ' 546  1 

QXCH 

QPLACE 

I* 

0478 

REF  24  LAST  458 

14,2731 

0 6000  1 

TC 

INTPrET 

0479 

14,2732 

77775  1 

vload 

0480 

REF  6 LAST  453 

14,2733 

33042  1 

ZERODP 

VECTOR  IN  THIS  CASE 

% 

0481 

REF  ' 5 LAST  453 

14,2734 

01772  1 

STORE 

ERCOMP 

0482 

14,2735 

77776  1 

EXIT 

0483 

REF  21  LAST  459 

14,2736 

0 1546  1 

TC 

QPLACE 

% 

0484  REF  2g  LAST  377  14,2737  3 7652  1 GMLCKCHK  CAF  BIT6  CHECK  FOR  GIMBAL  LOCK  (MGA  GREATER  70)  # 

0485  REF  61  LAST  403  14,2740  7 0322“0~  MASK  DSPTA8  +11D 

0486  14,2741  O'  0006'  l EXTEND 

0487  14,2742  1 2744  0 8ZF  +2  % 

0488  REF  14  LAST  457  14,2743  1 2745™1~  TCF  ENDTEST 

'"UAB?  REF  271  LAST  448  14,2744  0 0002  0 TC  0 


0490 

REF 

7 LAST 

190 

14,2745 

3 7650  0 

ENDTEST  CA 

1MUSEFLG 

BIT8 

0491 

REF 

4 LAST 

236 

14,2746 

6 7651  1 

AD 

RRUSEFLG 

BIT7 

4 

0492 

REF 

316  LAS  1 

455 

14,2747 

4 0000  0 

CS 

A 

0493 

14,2750 

0 0004  0 

' IFTHTNT 

049A 

REF 

33  LAS  1 

447 

14,2751 

7 0061  1 

MASK 

state 

• 

0495 

REF 

24  LAST 

459 

14,2752 

54  061  1 

TS 

STATE 

0496 

REF 

4 

LAST 

278 

14,2753 

0 4667  1 

TC 

NEWMODEX 

0497 

14,2754 

00000  1 

OCT 

00000 

0498 

REF 

43 

LAST 

453 

14,2755 

0 4063  0 

TC 

BANKCALL 

0499 

REF 

3 

LAST 

447 

14,2756 

27014  1 

CADR 

MKRELEAS 

RELEASE  MARK  SYSTEM 

0500 

REF 

13 

LA5l 

~440 

14, 2757 

CT  4437  0“ 

T XT 

EJFREE 

— oo 
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HU 

performance  tests  i 

USER’S  OWN 

PAGE  NO.  17 

0501 

REP 

25  LAST  459 

14,2760 

0 6000  1 LEMLAB 

TC 

INTPRtT 

0502 

14,2761 

57575  1 

VLOAD 

VCOMP 

0503 

REF 

2 LAST  4 1 5 

14,2762 

33036  1 

YUNIT 

0504 

REF 

2 LAST  411 

14,2763 

01437  0 

5T0RE 

ZNB 

XNB  MATRIX 

USED  IN  CALCGA 

0505 

~FEF 

31  LAST  449 

14,2764 

23461  0 

5T0VL 

5TARAD  + 1 2D 

5TARAD  MATRIX  USED  IN  AXISGEN  * SMDCALC 

0506 

REF 

2 LAST  415 

14,2765 

33040  0 

XUNIT 

0 5O7 

REF 

4 LAST  411 

14*2766 

01423  0 

5T0RE 

XNB 

*XNB*  *1 

0 0*  *v* 

0508 

REF 

32  LA5T  460 

14*2767 

23445  0 

stovl 

starad 

* * * 

* * * 

11509 

~REF 

2 LAST  415 

14*2770 

33034 

ZUNIT 

#YNB#  = *0 

0 1*  *S* 

0510 

REF 

2 LASH  411 

14*2771 

01431  0 

store 

YNB 

* # * 

# * * 

0511 

REF 

33  LA51  460 

14,2772 

01453  1 

STORE 

STARAD  +6 

*ZNB*  *0 

-1  0*  #E* 

0512 

14,2773 

77776  1 

exit 

0513  REF  3 LAST  456  “ H*2774  4 1544  1 CS  POSITON 

"05T4  REF  18  LAsT  4^4  rK72TT5  6 6165  0 Ad  ThREE 

0515  — 14*2776  0 0006  1 EXTEND 


0516 

14,2777 

1 3001  1 

BZF 

♦ 2 

0517 

FEF“ 

1 

1.4,3000 

1 3014  0 

TCF 

LEMLAB1 

0518 

REF 

26  LAST  460 

14,3001 

0 6000  1 

TC 

INTPRtT 

— 0519 

14,3002 

57575  1 

VLOAD 

VCOMP 

0520 

REF 

5 LASl  460 

14,3003 

01423  0 

XNB 

05  ZT 

14,3004 

77715  1 

PDVL 

*XNB*  #0-1  0#  *V* 

0522 

~REF 

3 LA5I  460 

14 ,3005 

0T43T  0 

ZNB 

# * * # * * 

0523 

REF 

6 LA51  460 

14,3006 

01423  0 

STORE 

XNB 

*YNB*  = * 0 0 1#  #5# 

0524 

RcF 

34  LAST  460 

14,3007 

23445  0 

STOVL 

STARAD 

* * * * * * 

0525 

14,3010 

“ 77626  CT~ 

“5TABFT 

*ZNB*  *-l  0 “0#  * * 

0526 

REF 

4 LAST  460 

14,3011 

76340  1 

5T0RE  ZNB 

0527“ 

REF 

35  last  460 

14,3012 

01461  0 

STORE  5TARAD  +12D 

0528 

14,3013 

77776  1 

EXIT 

Ktr 

44  LASl  459 

14*3014 

0 4063  0 LEMLAB1 

TC 

BANKCALL 

0730 

FEF 

11  LA5T  453 

14,3015 

26716  71 

“TAdR~“ 

“ tmustall 

INSURE  TMUZERO  COMPLETION 

U531 

KtF 

15  LASl  459 

1493016 

1 2745  1 

TCF 

ENDTEST 

w532 

Ktr 

2 LA5 T 444 

14,3017 

0 2576  1 

TC 

P05NJUMP 

SET  UP  stable  member  desired  COORD  1 NA 1 ts 

0533 

REF 

10  LAST  445 

14,3020 

0 5401  1 

TC 

FREED5P 

FREE  DISPLAY  SYSTEM 

0534 

RtF 

2 LAST  444 

14,3021 

0 2247  1“ 

TC 

PUTPU5X“~ 

TO  COARSE  ALIGN  STA6LE“ MEMBER 

U535 

Ktt 

2 LA5I  444 

14  • 3022 

0 2737  0 

TC“ 

GMLCKCHK 

0536 

RcF 

45  LAST  460 

14,3023 

0 4063  0 

TC 

BANkCALL 

0537 

REF 

3 LAST  444 

14,3024 

26227  1 

CADR 

IMUFINE 

FINE  ALIGN  MODE 

D5375 

REF 

46  LAST  460 

14,3025 

0 4063  0 

TC 

BANKCALL 

0539 

REF 

12  LAST  460 

14  1 3026 

26716  "0 

CADR 

IMUSTALL 

U54U 

KtF 

16  LAST  460 

14,3027 

1 2745  1 

TCF 

ENDTEST 
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SYSTEM  FOR  BLK2 
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L 

I MU 

PERFORMANCE  TESTS  1 

USER'S  OWN  PAGE  NO.  18 

r 

0541 

REF 

12  LAST  425 

14*3030 

3 0032 

0 

CA 

CDUX 

0542  " 

REF" 

26  LAST  457 

T4,3031 

50  104 

1 

IINDEX 

FIXLOC 

» 

0543 

1 <+ , 3 0 3 2 

54  024 

0 

T S 

24 

0544 

REF 

5 LAST  425 

3.4  1 3033 

3 0033 

1 

CA 

CDUY 

“0545 

"REF" 

27  LASTToT 

T4 ,3034 

50  104 

1 

TNDEX 

FIXLOC 

0546 

14,3035 

54  020 

1 

TS 

20 

0547 

REF" 

~ TO  LAST  425 

14,3036 

3 0034 

"0“ 

CA 

CDUZ 

“0548 

REF" 

“28  LAST  461 

14,3037 

50  104  1 

TNDEX 

FIXLOC 

» 

0549 

14,3040 

54  022 

0 

T5 

22 

0550 

REF  15  LAST  457 

14,3041 

3 7653 

0 

CAF 

BIT5 

0551 

REF  29  LAST'  461 

14,3042 

6 0104 

1 

AD 

FIXLOC 

t 

0552 

REF  30  LAST  461 

14,3043 

50  104 

1 

INDEX 

FIXLOC 

0553 

REF  13  LAST  457 

14,3044 

54  050 

”0 

TS 

S1 

« 

0554 

REF  2 LAST  445 

14,3045 

0 2263 

1 

TC 

SMDCALC 

TO  FINE  ALIGN  STABLE  MEMBER 

# 0555  REF  27  LAST  460 

0556 

0557  REF  3 LAST  45* 

0558  REF  5 LAST  453 

0559 


0560  REF  A LAST  /+45  H»3053  4 1512  1 CS  EROPTN 

0561  REF ““57  LAsT  457  “IT,  3054  “6  7656“0  Kq  TW 

0562  T4,3'055 — 0 0006  1 EXTEND 

0563  r4T3055 — 1 3060  0 BZF  t2 

0564  REF  3" LA ST  445  14*3057  1 205 1~0  TCF  ERFINAL  +2 


0565  REF  47  LASTED  TA7J060  0 4063"  0 TC  BANKCALL" 

0566  REF  I T4T306I  35235  0 CATJR SAMODRTN  RETURN  TO  SEMI-AUTOMATIC  MOOING  TEST 


14.3046  0 6000  1 

14.3047  77624  1 
14,3050  33342  1 
l*t  ,3051  01565  0 
14,3052  77776"  1' 


TC 

RTB 


INTPRET 


LOAPTIME 
STORE  TMARK 
EXIT 


IF  EARTH  RATE  COMPENSATION  DESIRED 


n 


# 
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USER'S  Own  PAGE  NO « 19 


0567 

REF 

1 

14,3062  3 3674  1 RDR37511 

CAF 

rdrretn 

rendezvous  radar  and  antenna 

TRACKING 

0568 

REF 

“22  LAST  459 

r4 , 3 06 3 5 5 *546  0 

T5 

QPLACE 

to  return  from  optdata 

0569 

ref 

48  LAS'  461 

14,3064  0 4063  0 

TC 

bankcall 

“05  70 

REF 

2 LAST  260 

14,3065  20247  1 

CADR 

RRZERO 

0571 

REF 

49  LAST  462 

14,3066  0 4063  0 

TC 

BANKCALL 

0572” 

REF” 

2 "OAST  2b4 

14,3067  23001  1 

CADR 

AURLOKON 

operator  decision  to  lock  on 

OR”  NOT  ” 

0573  REF  1 


14 


3O7O  1 2524  1 RDR1 


TCF 


OPTRDRIN 


CALL  FOR  AZIMUTH  AND  ELEVATION 


0 57 4 REF  “50  LA5T“462 

0575  REF  4 LAST  260" 

JJ5T6  REF  5T  J-A5T  397 


14 

14 

"14 


30?1  0 4063~0~ 
3072  26712  1 
7073  1 4440  1 


BANK CALL 
RADSTALL 
”ENB0FJ08~ 


0577  REF  28  LAST  46l 


0578 

0579 


0580 


”7T4 
“T9 
' 14 
14 


3O74 

3075“ 


3076 

3077 


) 6000  I 
7717CT~r 
00000  1 
00006  1 


TC  INTPRET 
AXT , 1 AXT  ,2 
0 
6 


~5ET  UP  XI  AND  X2  F^R  TAR /ERE p ' 


0581 

14,3100 

77634  C 

CALL  ~ 

0582 

“ REF" 

3 LAST  458 

14,3101 

30353  1 

TAR/EREF  +3 

LINE-OF-SiGHT  wkt 

EARTH 

REF  FRAME 

0583 

14,3102 

64375  1 

VLOAD 

MXV 

0584 

14,3703 

00015  0 

120 

LINE-OF-SIGHT  wrt 

EARTH 

REF  FRAME 

0585 

REF  19  LAST^  458 

14*3104 

01401  0 

XSM 

TO  STABLE  MEMBER 

PRESENT 

FRAME 

0586 

14,3105 

77772  0 

VSL1 

0587 

RcF 

' 14,3106 

36416  1 

“5TCALL 

RRTARGET 

0588 

REF 

1 

14,3107 

20306  0 

RRDE5SM 

0589 

REF  1 

14,3110 

1 3115  0 

TCF 

37511ALM 

0590 

REF  51  LASI  462 

14,3111 

0 4063  0 

TC 

BANKCALL 

0591 

REF  5 LAST  462 

14,3112 

26712  1 

CADR 

RADSTALL 

0592 

REF  52  LASI  462 

14,3113 

1 4440  7 

^rcF 

” END O F JO  B 

0593 

REF  53  LAST  462 

14,3114 

14440  1 

TCF 

ENDDFUOB 

0594 

“ REF  21 

“LAST  434 

”14,3115 

0 5413 

r 

37511ALM  TC 

ALARM 

0595 

14,3116 

00524 

1 

OCT 

524 

O596 

REF 

LAST  462 

14,3117 

1 4440 

“T” 

TCF 

EnDufjOb 

-0597  REF  152 

LF5T  457  ' 

14,3120 

4 7665 

1 KDFTNIT 

”CS 

ZERO 

0598  R-F  5 

LAST  461 

14,3121 

55*512 

1 

T5 

ER0PTN 

0599  REF  2 

LAST  267 

14,3122 

1 2002 

0 

TCF 

AOTNBIMU  +2 

473423A  YJL  SYSTEM  FOR  BL<2{  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  463 


L 

iMU  PERFORMANCE  TESTS  1 

USEr*S  OwN  PAGE  NO,  20 

0600 

REF  13  LAST  439 

14,3123 

0 5317  1 

MISALIGN  1C 

GRABWAIT 

DISPLAY  SYSTEM  WAS  FREED 

060 1 

REF  153  LAST  462 

14 ,3124 

3 7665  0 

taf 

ZERO 

i , 

0602 

REF  6 LAST  454 

14,3125 

55*537  0 

TS 

NDXCTR 

0603 

REF  ~ 7 LAST  463 

14,3126 

51*537  1 

BBBB  INDEX 

NDXCTR 

”0604 

REF  31  |_AsT  454 

14,3127 

4 1674  1 

CS 

GENPL  +68D 

0605 

REF  8 LAST  463 

14,3130 

51*537  1 

INDEX 

NDXCTR 

** 

0606 

REF  ”32  LAST  463 

14,3131 

27*702  1 

ADS 

GENPL  +74D 

0607 

~REF  I 

14,3132 

3 3662  0 

CST^ 

63DEC 

0608 

REF  9 LAST  463 

14,3133 

6 1537  1 

AD 

NDXCTR 

** 

0609 

REF  317  LAST  459 

14,3134 

10  000  0 

CCS 

A 

0610 

REF  19  LAST  460 

14,3135 

4 6165  1 

cs 

THREE 

0611 

REF  10  LAST  463 

14,3136 

27*537  0 

ADS 

NDXCTR 

0612 

REF  1 

14,3137 

1 3126  0 

TCP 

BBBB 

0613 

REF  11  LAST”  463 

14,3140 

55*537  0 

“TS 

NDXCTR 

0614 

REF 

29  LAST  462 

14,3141 

0 6000  1 CCCC 

TC 

INTPRET 

0615 

14,3142 

70750  1 

LXA,! 

DLOAD* 

0616 

REF 

12  LASl  463 

14 , 3X43 

D 1”5>  3 7 I 

NDXCTR 

0617 

REF 

33  LAs)  463 

14,3144 

”01701  0 

GENPL  + 7 2 D , 1 

0618 

14,3145 

77625  0 

DSU 

0619 

REF 

34  LASl  463 

14,3146 

01571  0 

GENPL 

0620 

REF 

35  LASl  463 

14,3147 

03701  1 

STORE” 

GENPL  +72D , 1 

0621 

14,3150 

77776  1 

EXIT 

0622 

RtF  13  LA5T  463 

14,3151 

4 1537  0 

CS 

NDXCTR 

0623 

REF 

1 

14,3152 

6 3663  1 

AD 

69DEC 

0624 

REF 

318  LASl  463 

14,3153 

10  000  0 

CCS 

A 

0625 

TEF 

TO  TAST  463 

14,3154 

3”  6165  0 

CAP 

THREE 

U6i6  KEF 

14  LAST  463 

14 , 3 1 55 

27*537  0 

ADS 

NDXCTR 

ub<i7 

KEF 

1 

14,3156 

1 3141  1 

TCF 

CCCC 

0628 

KEF 

”5  I.7TSTT54 

14,3157 

" 55»550  1 

”T5  ” 

”TUN” 

0629 

REF 

til  LASl  463 

i f 3 1 60 

3 6165  0 

CAF 

THREE 

,J6  30 

REF 

15  LAs  1 463 

14,3161 

55*537  0 

TS 

NDXCTR 

W3T  rEF  30-CTsT  463  I4T3T62  0 6000  1 — DDDD TC INTPrET 

°632 1 A * 3 163  77775  1 VLOAD 

0633  REF  7 LAST  <+59  U,3l64  33042  1 — ZERODP 

0634  14,3165  00031  0 STORE  240 

°635  ' 14,3166  00037  0 STORE — 30D — 

0636  14,3167  77735  0" SLOAD 

0637  REF  1 14,3170  31660  0 11DEC 

0638  14,3171 — 00041  1 STORE — 32D 

063 9 14,3172  77776  1 EXIT 


0640  REF  31  LAST  463  1 4431 73  0 6000  1 DDDD1 

0641  14,3174 70750  1 — 

0642  REF  16  LAST  463  14TT1T5 01537  1 — 


TC 

LXA , 1 


INTPRET 

DLOAd* 

NDXCTR 


» 


4b  15 


473423A 

YJL 

SYSTEM  FOR  6LK2: 

REVISION 

12  OF  PROGRAM 

AURORA  BY 

DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  464 

L 

I viu 

PERFORMANCE  TEST £ 

i 1 

USER'S  OWN  PAGE  NO.  21 

0643 

REF 

36  LAST  463 

14,3176^ 

01701  0 

GENPL  +720,1 

2644 

12,3177 

41423  1 

DSU* 

PUSH 

0645 

REF 

37  LAST464 

14,3200 

01673  1 

GENPL  +660 , 1 

0646 

14,3201 

42742  0 

SRI 

DAD* 

0647 

REF 

38  LrtST  464 

14,3202 

01673  1 

GENPL  +660,1 

0648 

REF' 

39  LAST  464 

14,3203 

03701  1 

STORE 

GENPL  +720,1 

' 0649  14,3204  43312  0 5L2  DAD 

0650  Ht  32P5  00031  0 24D 

0651  “ 14,3206  14031  0 STOOL*  240 

0652  REF  40  LAST  464  14,3207  01701  0 GENPL  +72D,i 

0653  14,3210  63412  0 5L4  DSQ 

0654  14 7321 1 77615  0 DAD 

0655  14,3212  00033  1 26D 

0656  T4T32T3  00033  1 STORE  260 

“0657  14,3214  77776  1 EXIT 

0658  REF  6 LAST  463  14,3215  31«550  0 CAE  RUN 

0659  REF — 17  LAST  463 14,3216  6 1537  1 AD  NDXCTR 

0660  14,3217  4 0000  0 

0661  REF  2 LAS!'  463  14,3220  6 3662  0“ 

0662  “REF  319  LAST  463  1473221  10  000  0 

“0563  REF  T4  LAST  377  14,3222  3 61621T 

“0554  REF- "18  LAST  464  14,3223  2T«537~ir 

0555  REF  I 1473224  I“3173  0“ 

“0555  REF  7^LAsT“454  14,3225 — 6 1550  0 

0667  REF  19  LAST"  464  1473226  55*537 "0 


COM 

“AD  63DEC 

CCS  A“ 

CAF  SIX 

“5DS  NDXCTR 

TCF  DD2D1 

AD  "RUN 
T5  NDXCTR 


0558  REF  32  LAsT  463 


0669 

0670 
0671 


REF  20  LAST  464 
"REF  41  LAST  464 


0672 


0673" 

0674 


14,3227 

14,3230 

1473231 

“1573232 

14*3233 

14,3235" 


0 6000  1 EEEE 
66740  1 
01537  1 
01504  1 
“20043  0 


1C 

LXC , 1 


5TORE 


INTPrET 

SLQAD* 

NDXCTR 

GENPL  +112,1 
352 


0675 


14,3235 


“0575 

0677 

0678 
“0579 

0680 

0681“ 


15,3237 

14.3240 

14.3241 
14,3252 
14,3243 
14,8244 


77745  I 
54206  1 
00211  "0 


DLOAD 

FUSH 


SL 


8D 


43265  1 
00043  0 
00035  1 


“3227“ 


“DA2“ 

340 

28D 


0582“ 


“1573255" 

14.3246 

14.3247 
25732501 

14.3251 

14.3252 
“1573253 


“050  3 5“  I 
55261  1 
00207  1 


5T0DL" 

SL 


282  " 
BDDV 


00043-0"" 
42523  0 
01602  1 
77605  1 
77615  0 
00037  0 
00037  0“ 


REF  42~LAST  464 


PDDL* 


^35D“ 

SL4 

GENPL  +9D  ,1 


0686" 

0687 

“0688“ 


“OMP” 

-DAD 


“5T0RE“ 


30D 

30D 
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l i mu  Performance  tests  i user's  own  page  no.  22 

% 


0689 14 ,3254  77776  1 EXIT 


13690 

REF" 

21 

"LAST  464 

14,3255 

4 1537  0 

CS 

NDXCTR 

0691 

REF 

r 

1 4 y 5 2.  b 6 

6 3661  0 

AD 

60DEC  » 

0692 

"REF 

8 

LAST  464 

14,3257 

6 1350  0 

AD 

RUN 

0693 

REF 

320 

LAST  464 

14,3260 

10  000  0 

CCS 

A 

0694  REF  15  LAST  464  14,3261  3 616ZT-  CAF  SIX-  % 

0695  REF  22  LAST  465  14,3262  27*537  0 ADS  NDXCTR 

0696  REF  1 " 14,3263  1 3227  1 ~~  TCF  EEEE 


0697 

REF 

33  LAST 

464 

14,3264 

0 6000 

1 

TC 

INTPRET  * 

0698 

14,3265 

41345 

0 

dload 

DMP 

13699 

14,3266 

00031 

1 T 

24D 

0700 

14,3267 

00037 

0 

30D  « 

0701 

14,3270 

41325 

0 

PDDL 

DMP 

0702 

14,3271 

00033 

I 

26D 

0703 

14,3272 

00035 

1 

28D  ♦ 

0704 

14,3273 

77625 

0 

DSU 

0705 

14,3274 

63525 

0 

PDDL 

DSQ 

0706 

14,3275 

00031 

0 

240  * 

0707 

14,3276 

65342 

1 

SRI 

PDDL 

0708 

14,3277 

00041 

1 

32D 

0709 

14,3300 

41261 

1 

5L 

DMP  ♦ 

0710 

14,3301 

00212 

0 

11 

0711 

14,3392 

00033 

1 - 

26D 

0712 

14,3303 

55225 

1 

DSU 

BDDV  ♦ 

0713 

14,3304 

54205 

1 

DMP 

SL 

0714 

REF 

1 _ 

~ 14,3305 

31673 

1 

KKKK 

0715 

14,3306 

00204 

1 

3 • 

0716 

REF 

9 LAST 

333 

14,3307 

00337 

0 

STORE 

DSPTEM2 

071T 

14,3310 "" 

"77776 

1 

EXTT 

♦ 

'■'7X8 

Ktr 

4 LM5I 

460 

14,3311 

3 1544 

0 

CA 

POSITON 

0719 

ref 

TO  LAST 

465~ 

14,331 T 

947340 

1 

Ts 

DSPTEM2  +2 

* 

V 72 U 

KEF 

1 

1h,3313 

3 3654 

0 

CAF 

V06N66E 

0721 

REF 

34  tW5T 

4 5 7 

1 4:  ,93 1 4 

0 5332 

0 

TC  " 

NVSBWAIT 

0722 

REF 

9 LASI 
25  LAST 

455 

14,3315 

0 5274 

0 

TC 

flashon  * 

0723 

REF 

457 

1*+  9 33 1 6 

0 5140 

1 

TC 

ENDIDLE 

U7C4  KCr 

17  LAET 

460 

14,3317 

1 2745 

T - 

TCF 

ENDTEST"  " 

U (£0 

Ktr 

22  LAST 

463 

14,3320 

3 6165 

0 

CAF 

THREE  * 

0726 

REF 

9 LASI 

465 

14  »33Z 1 

55*550 

1 

TS 

RUN 

0 72  7 

REF 

104  LAST 

463 

14,3322 

3 7665 

0 

— CAF 

^ZERO 

0728 

REF 

1 

14 « 33^3 

1 3161 

0 

T’CF 

DDDD  -1  * 

% 

— CD 


*3" 
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L 

i mu  performance  tests  i useris 

OwN 

PAGE 

NO,  23 

R0729 

this  revision  reflects  changes,  as  of 

R0730 

1/31/66 

R0731 

ENGINE  OIvT/OFFiTOW  IN  CHANNEL  ELEVEN.  the  BITS  rOK  EACH  CHANNEL  Get  TURNED  on  all  at 

ONCe 

, they  stay 

ON  UNTIL 

R0733 

:ENTLR:I5  PUSHED,  THEN  they  all  go  out  AND  ThL  neat  channels  bits  are  TURNED 

ON. 

R0735 

CHANNEL  5 ““FITS  1-8 

R0736 

CHANNEL  6 BITS  1-8 

R0737 

CHANNEL  11  BITS  13,14 

R0738 

CHANNEL  12  BITS  9-14 

R0739 

FOLLOWING  THE  CHANNEL  12  TESTS  ENTER  IS  PRESSED.  CHANNEL  12  IS  SET  TO  ZeRO  AND 

the 

NEXT 

test  begun. 

L0W9 

R0741 

GOES  IN  LOCATION  (COUNTER)  55. 

R0742 

increase  throttle  rate  Descent  engine' 

R0743 

! ENTER;  NO a CAJSES  THE  CONTENTS  OF  55  TO  BE  MADE  NEGATIVE 

R0744 

DECREASE  THROTTLE  RATE  DESCENT  ENGINE 

R0745 

THE  REXT  TenTeRI  ZRRUS  THE  REGISTER  AND  SEND5TV  FULSe  TRAIN  (HERE  ALTERN 

R0746 

ZEROS  FOR  CLARITY)  TO  THE  ALTITUDE  WETER. 

R0747 

THE  NtXT  IENTeR)  WILL  ADVANCE  THE  TEST  TO  THE  ALTITUDE  RATE  METER  TEST, 

R0748 

' THE  NEXT  ; ENTER  ! FILL  TERMINATE  THE  TEST. 

0749  REF  26  LAST  T5T~  14,3325  3 7637  I SAuTQIFSOT  TOS^AX 

C750  REF  1 14 * 3 32 5 55*5 76  0 TS  N0BIT5 

0751  REF  155  LAST  465  14,3326  3 7665  0 CA  ZERO 

0752  REF  I 14,3327  55*577  i T5  CHAN 

0753  REF  I 14,3330  55*575  0 TS  TEWF“ 

0754  REF  I 14*3331  0 3333  1 TC  DINO 

0755  REF  2 LAST  466  14*3332  25*577  0 BACK  I INCR  CHAN 


0756  REF  3 LAST  466  14,3333  51*577  0 DTfTO  INDEX  CHAN 

0757  REF-  I 14  ,“3334  3 3336  1 C« SAUTLOCS 

“TT753  REF  4 LAST  257  “ 14,3335  1 4067  0 TCF  SWCALL 

0759  REF  I 14,3336  3135  21.  5R0TUUUT  “CADR  CHAN  50 

0760  REF  I 14,3337  31370  1 CADR"  CNAN60 

0761  REF  1 14,3340  31376  1 CADR  CHAN11D 

0762  REF  I 14,3341  3T4IU  0 CADR CHAN12D 

0763  REF  1 ' 14,3342  31422  1 CADR  PTITRDE 

0764  kEP  1 “ “ 11,3343  31447  1 CADR;  — PTDTRDE 


U765_  KbF  T 14,3344  3T524  0 CADR ALTMET 

0766  REF  1 14,3345  31551  T CADR  ALTRMET 

0767  REF  18  EAST  4E5  14,3346  ~3074T  I CADR  ENDTE5T 


~0768 

REF 

“2“ 

TA5T 

46 '6 

T4,3347 

31454 

0 

THRDT  ADD 

CADR" 

PTDfRDE  +5 

0769 

REF 

2 

LAST 

466 

14,3350 

31527 

0 

METERADD 

CADR 

ALTMEI  +3 

U770 

REF 

2 

LAS  1 

466 

14,3351 

31554 

“1“ 

MRATEADD 

CADR 

ALTRMET  +3 

“0771 

REF 

9 

LAST 

T72 

14,3352 

3 7664 

T 

CHAN5D 

or 

FIVE  “ 

0772 

REF 

36 

LAST 

455 

14,3353 

54  333 

0 

TS 

D5PTEM1 

0773 

REF 

8 

LAST 

377 

14,3354 

3 5235 

0 

2ENTRY 

CA 

LOWS 

CHANNEL  6 RtTURNS  HERE 

“077H 

REF 

3 ! 

CA5T 

466 

14,3755 

54  334 

I 

TS 

TJ5PTEWI  +1 

0775 

14,3356 

0 0006 

1 

EXTEND 

0776 

REF 

2 

LAS  1 

466 

14,3357 

5 1575 

1 

INDEX  TEMP 

0777 

“ 14,3360 

nor  005 

“0“ 

“WRITE 

5 
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0778 

REF 

1 

14 , 336 1 

3 3643  0 

3ENTR? 

CA 

V04N30D 

CHI  1 , 12  RETURN  HERE  TO  USE  THE  DISPLAY 

0779 

REF" 

3~5 

LAST  465 

14,3362 

""0"" 5332  0 

TC 

NVSBWAIT 

0780 

REF 

1 

14,3363 

3 3650  1 

4 ENTRY 

CAF 

WAITER 

WAITER  IS  03300 

0781 

REF 

36 

LAST  467 

14,3364 

0 5332  0 

TC 

NVSBWAIT 

0782 

“REF" 

26 

LAST  465 

14,3365 

0 5140  1 

TC 

ENDIDLE 

0783 

REF 

"19 

LAST  466 

14,3366 

0 2745  0 

TC 

ENDTEST 

0784 

REF 

1 

14,3367 

0 3332  0 

TC 

BACK  1 

0785 

REF 

3 

LAST  466 

14,3370 

25 ' 575  1 

CHAN60 

INCR 

TEMP 

0786 

REF 

38 

LAST  466 

14,3371 

24  333  1 

INCR 

DSPTEMl 

0787 

REF 

156 

LAST  466 

14,3372 

3 7665  0 

CAF 

ZERO 

0788 

14,3373 

0 0006  1 

extend 

0789 

14,3374 

01  005  0 

WRITE 

5 

get  rid  of  channel  5 bits 

0790 

REF 

T 

14,3375 

0 3354  0 

TC 

2ENTRY 

0791 

REF 

1 

14,3376 

3 7662  1 

CHAN  HD 

CA 

0CT1I 

0792 

REF 

39 

LAST  467 

14,3377 

54  333  0 

T 5 

DSPTEMl 

0793 

REF 

" 1 

14,3400 

3 7700  1 

CA 

BIT13-14 

0794 

REF 

40 

LAST  467 

14,3401 

54  334  1 

TS 

DSPTEMl  +1 

0795 

14,3402 

0 0006  1 

EXTEND 

0796 

14,3403 

05  Oil  1 

WOR 

11 

wor  is  non  exclusive  or 

0797 

REF 

157 

LASI  467 

14,3404 

3 7665  0 

CAF 

ZERO 

0798 

14,3405 

0 0006  1 

EXTEND 

0799 

1 4- 9 3406 

01  006  0 

m 1 te 

6 

0800 

REF 

1 

14,3407 

0 3361  0 

TC 

SENTRY 

0801 

REF 

1 

14,3410 

3 7661  1 

CHAN12D 

CA 

0CTI2 

0802 

REF 

41 

LAST  467 

"14,3411 

54  333  C 

T5  ' 

“DSPTEMl 

0803 

REF 

2 

LAST  467 

14,3412 

4 7700  0 

CS 

BIT  13-14 

0804 

14,3413 

0 0006  1 

EXTEND 

0805 

14,3414 

03  Oil  1 

“ WAND" 

11 

0806 

REF 

1 

14,3415 

3 3646  0 

CA 

CH12BITS 

0807 

RtF 

42 

LA5l  467 

1 4 9 3**  1 6 

54  334  1 

T5 

DSPTEMl  +1 

0808 

14,3417 

0 0006  1 

"TXT END 

0809 

14,3420 

05  012  1 

*0R 

12 

0810 

RtF 

2 

LA5T  467 

14,3421 

0 3361  0 

TC 

3ENTRY 

wn 

REF 

2 

LAST  467 

14,3422 

4 3646  1 

PTTTRT7E" 

"TS 

"0412  BITS"""" 

0812 

14,3423 

0 0006  1 

EXTEND 

0813 

14,3424 

03  012  1 

WAND 

12 

0814 

REF 

1 

LAST  467 

14,3425 

3 7665  CT 

CA 

"ZERO  " 

0815 

REF 

43 

LAST  467 

14,3426 

54  333  0 

TS 

DSPTEMl 

0816 

REF 

Las ( 467 

i4 ,3427 

54  334  1 

T 5 

DSPTEMl  +1 

0817 

REF 

4 

EAST  467 

14,3430 

55  • 57 5" IT 

T5 

TEMP 

08 1 8 

REF 

37 

LASI  454 

14,3431 

3 7657  1 

CA 

BITl 

0819 

REF 

2 

last  466 

14,3432 

55 ' 576  0 

T 5 

NOBITS 

0820 

14,3433 

0 0004  CT~ 

PTT — 

rNFTTNT" 

082  1 

REp 

66 

LAST  446 

14  ,3434 

0 4536  0 

TC 

waitlist 

0 8 2 2. 

14,3435 

03460  0 

2CADR 

THROTASK 

CO  8 22 

REF 

i 

14,3436 

30005  1 

0823 

14,3437 

0 0003  1 

relint 

0824 

REF 

2 

LasI  467 

14,3440 

5 3650  1 

CA 

WAITER 

0825 

REF 

37" 

Lasi  467 

14,3441 

0 "5332  0 

"TC" 

"NV5BWAIT 
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0826 

REF 

27  LAST  467 

14  *3442 

0 5140 

1 

TC 

ENDIDLE 

“$827 

REF 

20  LAST  467 

14*3443 

0 2745 

0 

TC 

ENDTEST 

0828 

REF 

159  LASl  467 

14,3444 

3 7665 

0 

CA 

ZERO 

0829 

REF 

3 LASl  467 

" 14,3445 

55*576 

0 

TS 

NOBITS 

0830 

"REF 

2 LAST- 467 

14  * 3446 

0 3332 

0 

TC 

BACK  1 

0831 

REF 

160  LAST  468 

14,3447 

3 7665 

0 PTDTRDE 

LA 

ZERO 

0832 

REF 

2 LAST  442 

14,3450 

54  055 

0 

TS 

THRUST 

0833 

REF 

1 

14,3451 

3 3347 

1 

CA 

THROTADD 

0834 

REF 

1 

14,3452 

55*574 

1 

TS 

TEMPADD 

1)835 

REF 

8 LAST  446 

14 ,3453 

0 4416 

0 

TC 

JOB'SLeEP 

THIS  INHIBITS  THE  NEXT  TASK  UNTIL 

R0836 

current 

TASK 

HAS  BEEN  COMPLETED 

0837 

REF 

27  LAST  466 

14,3454 

3 7637 

1 

CA 

POSMAX 

0838 

"REF 

5 LAST  467 

14,3455 

55*575 

0 

TS 

TEMP 

0839 

REF 

25  LASl  377 

14*3456 

3 7651 

1 

CA 

BIT7 

0840 

ref 

1 

14,3457 

0 3433 

0 

TC 

PIT 

0841 

"REE" 

4 EAST  468 

14,3460 

11*576 

0 throtask 

"CCS 

NOBITS 

15  This  task  still 

REQ 

0842 

14,3461 

0 3466 

0 

TC 

+ 5 

YES 

0843 

""REF" 

2 LAST  468 

14,3462 

3 1574 

0 

CA 

TEMPADD 

NO 

”0844 

""REF" 

5“ LAST  468 

14,3463 

55*576 

0 

TS 

NOBITS 

0845 

REF 

7 LAST  445 

14,3464 

0 4422 

1 

TC 

JOBWAKE 

0846 

"REF 

57  LAST  445 

14,3465 

0 4602 

1 

TC 

TASKOVER 

0847 

"'REF 

6 EAST  468 

14^3466 

rP575 

0 

CCS 

TEMP 

G848 

REF 

1 

14*3467 

0 3502 

0 

TC 

SOMETIME 

0849 

REf 

8 LAST  356 

14,3470 

3 5234 

1 

CA 

LOW  11 

0850 

REF 

“3“ LASl  468 

14,3471 

54'  055 

0 "ALWAYS 

TS 

THRUST 

0851 

REF 

26  LA5T  442 

14,3472 

3 7654 

1 

CA 

BIT4 

0852 

14,3473 

0 0006 

1 

EXTEND 

A SMERZH  FIX, 

0853 

14,3474 

D5  014 

1 

wok 

14 

0854 

REF 

30  LA5T  459 

14,3475 

3 7652 

1 

CA 

BIT6 

320  MS, DELAY 

0855 

REF 

67  LAST  467 

14,3476 

0 4536 

0 

TC 

WAITLIST" 

0856 

14,3477 

03460  0 

ZCADR 

THRO TASK 

C0856 

REF 

2 LAST  467 

14,3500 

30005 

1 

5 8 LAST  466 

14,3501 

0 4602 

1 

TC 

TASKOVER 

08  58 

REF 

9 LA5T  468 

14 ,3502 

4 5234 

"0  SOMETIME  C5 

LOW  11 

1 

14,3503 

0 3471 

0 

TC 

ALWAYS 

0860 

REF 

6 LAST  468 

14,3504 

11*576 

0 ALTASK 

CCS 

N0BIT5 

IS  TASK  5TILL  REQ 

0861 

14,3505 

TT  3 512 

1 

TC 

" +5 

0862 

REF 

3 LA5i  468 

14,3506 

3 1574 

0 

CA 

TEMPADD 

NO 

0863 

REF 

7 LAST  466 

14,3507 

55*576 

0 

TS 

N0BIT5 

ENABLES  NEXT  TASK 

0864 

KtF 

a- LAST  468 

1^,3510 

0 4422 

T 

TC 

JOBWAKE 

0865 

REF 

59  LAST  468 

14,3511 

0 4602 

1 

TC 

TASKOVER 

0866 

REF 

1 

14,3512 

3 3644 

1 

CA 

ALBITS 

ACTUAL  TASK  STARTS 

MERE 

0867 

REF 

2 LASl  165 

14,3513 

54  060" 

o - 

TS"" 

" ALTFT 

0868 

REF 

16  LAST  377 

14,3514 

3 7655 

0 

CA 

BIT3 

0869 

14,3515 

0 0006 

1 

EXTEND 

0870 

14,3516 

05  014 

1 

"/TOFF 

T4 

0871 

REF 

31  LAS!  466 

14,3517 

3 7652 

T 

CA  - 

BIT6 

320  MS,  DtLAY 

0872 

REF 

68  LAST  468 

14,3520 

0 4536 

"0 — 

TC — 

WAITLIST 

0873 

- 14,3521 

03504 

0 - 

ZCADR 

ALTASK 

CC873~ 

REF 

1 

14,3522 

30005 

1 
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0 8 7 A 

REF 

60  LAST  A68 

14,3523 

0 4602  1 

TC 

TASKOVER 

0875 

REF 

1 

14,3524 

3 3350  1 ALTMET 

CA 

meteradd 

0876 

REF 

A LAST  A68 

14,3525 

55,574  1 

TS 

TEMPADD 

0877 

REF 

9 LAST  A68 

14,3526 

0 4416  0 

TC 

JOBSLEEP 

0878 

REF” 

161  LAST  A66 

14,3527 

3 7665  0 

CA 

ZERO 

0879 

REF 

7 LAST  A68 

14,3530 

55*575  0 

TS 

TEMP 

0880 

REF 

27  LA5T 

14,3531 

4 7654  0 

cs 

BIT4 

0881 

14,3532 

0 0006  1 

extend 

0882 

14,3533 

03  014  1 

WAND 

14 

0883 

14,3534 

0 0004  0 

INHINT 

0884 

REF 

116  LAST  A56 

14,3535 

3 7657  1 

~CS 

ONE 

0885 

REF 

69  LAST  A68 

14,3536 

0 4536  0 

TC 

WAITLIST 

0886 

14,3537 

03504  0 

2CADU 

ALTASK 

C0886 

~ REF 

2 LAST  A68 

14,3540 

30005  1 

0887 

14,3541 

0 0003  X 

relint 

0888 

REF 

3 LAST  A67 

14,3542 

3 3650  1 

CA 

WAITER 

0889 

REF 

"T8“LAST  467 

14,3543 

0 5332  0 

TC 

NVSBWAIT 

0890 

REF 

28  LAST  468 

14,3544 

0 5140  1 

TC 

ENDIDLE 

0891 

REF 

21  LAST  A68 

14,3545 

0 2745  0 

TC 

ENDTEST 

0892 

' REF 

162  LAST  A69 

14,3546 

3 7665  0 

CA 

ZERO 

0893 

REF' 

8 LAST  A68 

14,3547 

55  *576  0 

TS 

NOBITS 

089A 

REF 

3 LAS  I 468 

14,3550 

0 3332  0 

TC 

backi 

0895 

RfcF 

1 

14,3551 

3 3351  0 ALTRMET 

CA 

MRATEADD 

0896 

REF 

5 LAST  A69 

14,3552 

55*574  1 

TS 

TEMPADD 

0897 

REF 

TO  EAST  A69 

14,3553 

0 4416  TT 

TC 

JOBSLEEP 

0898 

RcF 

117  LAST  A69 

14,3554 

3 7657  1 

CA 

ONE 

0899 

REF 

8 LAST  A69 

14,3555 

55*575  0 

TS 

TEMP  TEMP 

WILL  BE  INDEXED  TO  ACQUIRE  BIT2  INS 

CG900 

TEAD 

OF  BTT3 

O9OI 

RtF 

A6  LA5l  A39 

14,3556 

3 7656  0 

CA 

BIT2 

0902 

14,3557 

0 0006  1 

extend 

0903 

14,3560 

05  014  1 

“SOFT 

14 

090A 

REF 

3 LAST  A66 

14,3561 

0 3534  0 

TC 

ALTMET  +8D 

473423A  YJL  SYSTEM  FOR  BLK2 ! REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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Rq907  C3HPJTE  THe  An5Ue~BeT^EEN  TWO'  LINeS  OF  SIGHT  AS  INUKaTeD  BY  THE  APT,  WHICH  IS  WHAT  THIS  PROGRAM  DQES^ 
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R09 1 1 TRe  155  NEED  NOT  Be  ON  TO  RPN  THI 5 PROGRAM,  __ 


0912 

ref 

34 

Last  465 

14,3562 

0 6000  1 

AOTanGCK  tc 

IjiTPRET 

09 1 3 

14,3563 

77414  0 

set 

EXIT 

IN  CASE  THE  ISS  IS  OFF. 

0914 

REF 

6 

LAST  449 

14,3564 

00065  1 

COAROFIN 

0915 

REF 

3 

LAST  445 

14,3565 

0 2135  1 

TC 

FlNDNAVB 

FOR  LOSl  AND  LOSE. 

0916 

REF 

35 

LAST  470 

14,3566 

0 6000  1 

TC 

IN TP RET 

0917 

14,3567 

47375  0 

VLOAD 

vxv 

' 

0918 

REF 

2 

LAST447 

14,3570 

"01601  1 

L0S1 

0919 

~ REF 

2 

LAST  448 

14,3571 

01607  1 

L0S2 

0920 

14,3572 

77646  0 

ABVAL 

0921 

~RtF 

12" 

LAST  423 

14,3573 

22023  0 

STOVL 

SINTH 

SINTH  = ABVAL  (VXV  ) . 

0922 

REF" 

3 

LAST  470 

14,3574 

01601  1 

LOSl 

0923 

14,3575 

77641  I 

“DOT 

0924 

REF 

3 

LAST  470 

T493576 

01607  1 

L0S2 

~0925 

REF 

10 

LAST  423 

14,3577 

36021  1 

stcall 

COSTH 

COSTH  = V.V 

0926 

REF 

8 

LAST  423 

14,3600 

32440  0 

ARCTRIG 

”0927 

14,3601 

77624  1 

RTB 

0928 

"REF" 

2 

LAST  455 

14,3602 

33410  1 

1ST02S 

DP  IS  COMP  TO  SP  25  COMP. 

0929 

REF 

6 

LAST  406 

14,3603 

"00025  0 

STORE 

THETA 

V9TQ 

“14,3604 

77776  1 

EXIT 

0931 

"REF" 

1 

14,3605 

3 3675  0 

CAF 

THETAADR 

"0932 

TRET 

31 

LAST  461 

14,3606 

6 0104  1 

AD 

FIXLOC 

0933 

567 

LAST  4 55" 

14,3607 

54  142  1 

rs 

TP  A"C  +2 

0934 

REF 

r 

14,3610 

3 3653  1 

CAF" 

V06N03E 

XXX. XX  DEGREES  IN  Rl. 

0935 

REF 

39" 

LA5F  469 

14,3611 

0" 5 33  2 0" 

TC 

NVSBWAIT 

0936 

REF 

22 

CAST  469 

14 i 36 12 

1 2745  1 

rcF 

ENDTEST  ' 
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0937 E3  _ EBANK ~ 1400 


0938 

14*3613 

0 0004  0 

ZERO£RASrTNHINT 

PROGRAN  BY  MUNTZ  TO  ZERO  ERASEABLE 

093  81 

REF 

163  LAST  469 

14,3614 

3 7665  0 

CAF 

ZERO 

09382 

REF” 

5 LAST  156 

14,3615 

54>  026  1 

TS 

TIME3 

0939 

REF 

1 

14,3616 

3 3642  1 

CAF 

OCT27 

0940 

REF 

24  LAST  393 

14,3617 

54  003  0 

TS 

EBANK 

0941 

14,3620 

22  007  0 

ZEROLP  zl 

0942 

REF 

321  LAST  465 

14,3621 

50  000  1 

INDEX 

A 

0943 

14,3622 

23*401  0 

lxch 

1401 

0944 

REF 

58  LAST  461 

14,3623 

6 7656  0 

AD 

TWO 

0945 

REF 

25  LAST  471 

14,3624 

26  003  0 

ADs 

EBANK 

0946 

REF 

9 LAST  466 

14,3625 

7 5235  1 

MASK 

LOWS 

0947 

REF 

322  LAST  471 

14,3626 

10  000  0 

CCS 

A 

0948 

REF 

1 

14,3627 

1 3620  1 

TCF 

ZEROLP 

0949 

REF 

26  LAST  471 

14,3630 

10  003  0 

CCS 

EBANK 

0950 

REF 

1 

14,3631 

1 3634  1 

TCF 

ZEROLPI 

0951 

R“EF 

22  LAST'  WT 

14,3632 

0 4102  0 

TC 

POSTJUMP 

0952 

REF 

2 LAST  306 

14,3633 

24000  1 

CADR 

SLAP  1 

0953 

14,3634 

0 0003  1 

ZEROLPI  RELINT 

09531 

REF  I64HLA5r  471 

14 ,3635 

3 7665  0 

CAF 

ZERO 

KEEP  T4RUPT  GOING,  BUT  NOT  CYCLING, 

09532 

REF 

5 LAST  164 

14,3636 

54  350  0 

TS 

DSRUPTSW 

0954 

14,3637 

0 0004  0 

INHINT 

_ 0955 

REF  118  LAST  469 

14,3640 

4 765?  0 

CS 

ONE 

0956 

REF 

2 LAST  471 

14,3641 

1 3620  1 

TCF 

ZEROLP 

09565 

14,3642 

00027  1 

0CT27  OCT 

27 

cn 


473423a  YUL  SYSTEM  FnR  BLK2 « REVlSlnN  12.  pF  PRqQRaM  AURnRft  BY  DaP  GRnUP 


Nnv  io»  1966  (Main)  Page  472 


L 

I MU 

performance  tests  1 

USER'S  OWN  PAGE  NO,  29 

0958 

ref 

6 LAST  450 

E5 

EBAnk= 

0GC 

0960 

l*f *3643 

00430  0 

V04N30D  OCT 

00430 

0961 

14,3644 

52525  1 

ALB1TS  OCT 

52525 

0962 

14,3645 

70707  0 THRSB ITS  OCT 

70707 

0963 

REF 

6 LAST  443 

7661 

OCT  1 2 = 

TEN 

0964 

" REF 

1 

7662 

OCT  1 1 = 

NINE 

0965 

14,3646 

37400  1 

CH12BITS  OCT 

37400 

0966 

14”,  3647 

00130  0 

voin3od  ocr 

00130 

0967 

14,3650 

03300  1 WAITER  OCT 

03300 

0968 

14,3651 

00130  0 

V01N30E 

OCT 

00130 

FOR  FINDNAyB 

0969 

14,3652 

00530  1 

V05N30E 

OCT 

00530 

FOR  OPTDATA 

0970 

14,3653 

00603  1 

V06N03E 

“OCT 

00603 

0971 

14,3654 

00666  1 

V06N66E 

OCT 

00666 

0972 

14,3655 

02430  1 

V24N30E 

OCT 

02430 

FOR  POSITION  LOAD 

O97T 

14,3656 

02522  0 

V25N22E 

“OCT 

02522 

FOR  PQS4 

0974 

14*3657 

00013  0 

11DEC 

DEC 

11 

0$75 

14*3660 

00021  1 

170EC 

“dec 

17  “ 

0976 

14,3661 

00074  1 

60DEC 

DEC 

60 

0977 

14 ,3662 

00077  1 

63DEC 

DEC 

63 

0978 

714,3663 

00105  0 

690EC 

DEC 

69 

FOR  MISALIGN 

0979 

14,3664 

00110  I 

72DEC 

DEC 

72 

FOR  STORRSLT 

0980 

14,3665 

05670  0 

30SEC 

DEC 

3000 

3000  X 10  MSEC 

0981 

14 ,3666 

13560  XT 

60SEC 

DEC 

6000 

6000  X 10  MSEC 

U982 

Rcr 

7 LAST  47Z 

14*3667 

00500  O' 

OGCADR 

ADRE5 

OGC 

' FOR  ZtRDTTTG 

09~S3 

REf 

43  LAST  464 

14,3670 

01570  1 

GENPLApl 

ACRES 

GENpl 

0984 

REF 

44  LAST  472 

14,3671 

02570  1 

GENPLADR 

ECADR 

GENPL 

FOR  P0S4 

W85 

14,3672 

“00322  1 

“KKKK  ' 

~ZUEC“ 

210,39  B-14 

" 1230  3-14  FOR  CSM 

C0985 

14,3673 

14366  1 

0986 

REF 

1 

14,3674 

03071  1 

RDRRETN“ 

ACRES 

RDR 1 +1 

FOR  RDR 3 7 511 

0987“ 

REF 

7~DT5T~47U~ 

14,3675 

“THETA 

0988 

REF 

20  LAST  462 

14,3676 

01400  1 

XSMADRX 

ADRES 

XSM 

FOR  MAKEXSMD 

U9g9 

14*3677 

24365  1 

“5CALFTR 

2TJEC 

#64 

FOR  STORRSLT 

~C<D989 

14,3700 

30244  0 

0990~ 

14,3701 

07623  1 

OMEg/MS 

ZDEC 

,24339048 

GYRO  PUL5LS  / 10  MSEC 

C099O 

14,3702 

26552  1 

% 
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L 

IMU  performance  tests 

1 

USER • S OWN  PAGE  NO.  30 

PQ991 

THE  FOLLOWING 

ROUTINE  READS  the  CLOCK  AND  SCALAR  (CHANNELS  3 

AND  4)  INTO  A AND  L,  INSURING  THAI  THE 

R 0 993 

DATA  wASNOT  IN  TRANSI T iWWflcN  IT  WAS  READ. 

Q994 

REF  1 

5470 

SETLOC  ENDFAILF 

0995 

5470 

0 0004  0 finettme 

inhint 

RETURNS  WITH  INTERRUPT  INHIBITED. 

0996 

5471 

0 0006  1 

EXTEND 

0997 

REF  x 

5472 

00  004  0 

READ  LOSCALAR 

0998 

REF  166  LAST  454 

5473 

54  001  1 

TS  L 

0999 

5474 

0 0006  1 

EXTEND 

SEE  IF  2 READINGS  AGRtE.  IF  NOT,  READ 

1000 

REF  2 LAST  473 

5475 

06  004  0 

RXCR  LOSCALAR 

LOSCALAR  AGAIN. 

1001 

5476 

0 0006  1 

EXTEND 

1002 

5477 

1 5503  0 

8ZF  +4 

1003 

5500 

0 0006  1 

EXTEND 

IF  CLOCK  RIPPLED  BEFORE,  IT  WONT  NOW. 

1004 

REF  3 LAST  473 

5501 

00  004  0 

READ  LOSCALAR 

1005 

REF  167  LAST  473 

5502 

54  001  1 

TS  L 

1006 

REF  2a  LAST 

468 

5503 

4 7637  0 

+ 4 

CS  POSMAX 

IF  LOW  PART  CONTAINS  SOMETHING  LESS  THAN 

1007 

REF  168  LAST 

473 

5504 

6 OOOT  0 

ATT  L 

POSMAX,  THE  HIGH  PART  CAN  BE  READ  5AFELY 

1008 

5505 

0 0006  1 

EXTEND 

1009 

RtF  4 LAST 

445 

5506 

1 5471  1 

BZF  FINETIME  +1 

TRY  AGAIN  - CONDITION  WILL  DISAPPEAR. 

1010 

5507 

0 0006  1 

EXTEND 

1011 

REF  1 

5510 

00  003  1 

READ  HISCALAR 

1012 

~REF  272  LAST 

459 

5511 

0 0002  0 

TC  — Q 

1CT13  - ' 5512  ENDIMUF  = 


O 

* 
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L 

I MU 

performance 

tests  1 

USER'S  OWN  PAGE  NO.  31 

1014 

rEF 

2 LA5T  453 

14,3703 

sETloc 

OMEG/Ms  +2 

1015 

REF 

52  LAST  462 

14,3703 

0 4063  0 

redytork  to 

BANKCALL 

1016 

REF 

13  LAST  460 

14,3704 

26716  0 

CADR 

IMUSTALL 

1017 

REF 

23  LAST  470 

14,3705 

1 2745  1 

TCF 

ENDTEST 

1018  REF  “ 2 LAST  444 


14,3706  0 2727  1 


TC 


OGCZERO 


10 1 9 

RcF 

36 

LAST 

470 

14,3707 

0 6000  1 

TC 

INTPRET 

1020 

14,3710 

77634  0 

call 

1021 

REF 

2 

LAST 

444 

14,3711 

30405  0 

ERTHRVSE 

SETS  UP  EARTHRATE 

ANGLES  AND  TIME 

10  2 2 " 

14,3712 

77776  1 

EXIT 

1023 

REF 

1 

14,3713 

3 1617  0 

CA 

OPTNREG 

initialize  CDUNDX 

FOR  PULSE  CATCHING 

” 1024 

"REF 

3 

LA5T 

377 

14,3714 

6 7670  1 

AD 

NEG2 

C (K7  WAS  4 2 1 NOV^ 

C < A)  IS  2 0 .1 

~ 1025 

REF” 

— r 

— 14,3715 

5 5 ’ 6 1 6 0 

T S 

gytobeto 

CTKT  = 2 ,0,-1  FOR 

X , Y ,2, 

' 1026 

14,3716 

0 0006  1 

EXTEND 

1027 

14,3717 

1 3722  1 

BZF 

+ 3 

” 1028 

”RET‘ 

59 

LAST 

471 

14,3720 

3 7656  0 

CAT 

TWO 

1029 

14,3721 

0 3723  1 

TC 

+ 2 

” 1030 

REF 

119 

LAB  1 

471 

14,3722 

3 7657  1 

CAP 

ONE 

ICST 

REF 

1 

14,3723 

"55~'672  1 

rs 

CDUNDX- 

C (K ) = 1 FOR  Y,  2 

"FOR  Z CDU  SELECT 

1033  REF 


““14,3725 


T034 


36545  0—  CADR  ENABLE 

14,3726  EN01MUS1  EOJUALS 
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USER'S  OWN  PAGE  NO.  1 

0001 

17  *2000 

SAN< 

17 

0002 

REF 

21  LAST  472 

E5 

EBANK= 

XSM 

0003 

REF  165  LAST  A7 1 

17.2000 

3 7665  0 IMUTEST 

CA 

ZERO 

00031 

REF  2 LAST  376 

17,2001 

55*576  0 

TS 

ORIFTT 

‘ 00032 

REF'  1 

17,2002 

55*742  0 

TS 

GEOCOMPS 

00033 

REF  1 

17,2003 

3 3626  0 

CAF 

1SECX 

0003  A 

REF  1 

17,2004 

55*744  0 

TS 

1SECXT 

00033 

REF  37  LAST  A7A 

17,2005 

0 6000  1 GE0IWJT1 

INTPRET 

OPTIMUM  COMPASS  COMES  IN  HERE 

0004 

17,2006 

77634  0 

call 

0005 

REF  2 LAST  AAA 

17,2007 

30530  1 

LATAZCHK 

0006 

17,2010 

77776  1 

exit 

0009 

REF  120  LAST  A7A 

17,2011 

3 7657  1 

CA 

ONE 

0010 

KEF  5 LASl  A65 

17,2012 

55*544  1 

TS 

positon 

0011 

REF  11  LAST  A65 

17,2013 

54  340  1 

TS 

DSPTEM2  +2 

0012 

REF  13  LAST  A57 

17,2014 

54  400  1 

TS 

THETAD 

0013 

"REF  14  LAST  A? 5 

17,2015 

54  401  0 

T 5 

THETAD  +1 

00 1 A 

REF  15  LAST  A75 

17,2016 

54  402  0 

TS 

THETAD  +2 

0015 

REF  5A  LAST" 474 

17,2017 

0 4063  0 

TC 

BANKCALL 

00 1 6 

REF""  3"  LAST  AAA 

17,2020" 

26000  0“ 

caor 

TMUZERO 

0017 

REF  55  LAST  475 

17.2021 

0 4063  0 

TC 

BANKCALL 

0018 

REF  14  LAST  474 

17,2022 

26716  0 

CADR 

IMUSTALL 

1 7,20  23 

1 2243  1 

TCF 

END TEST! 

0020 

KEF  166  LASl  475 

17,2024 

3 7665  0 IMUBACK 

CA 

ZERO 

0021 

REF  12  LAST  475 

17,2025 

54  337  1 

TS 

DSPTEM2  +1 

0022 

REF  23  LAST  465 

17,2026 

55*537  0 

TS 

TWXCTR 

0023 

REF  1 

17,2027 

55*574  1 

"TS 

torqndx 

002A 

REF  2 LAST  475 

17,2030 

55*575  0 

15 

TORQNDX  +1 

0026 

REF  1 

17,2031 

3 3660  1 

CAF 

TESTTIME 

0028 

REF  13  LAST "475 

17,2032 

54  336  0 

TS 

DSPTEM2 

0029 

REF  56  LAST  475 

17,2033 

0 4063  0 

TC 

BANKCALL 

ISS  RcTURNS  IN  COARSE  ALIGN  MODE  TO 

0030 

REF  3 LAS ! 449 

17 ,2U34 

26055 

CAOR 

IWUCOARS" 

ENABLE  OPERATOR  TO  DECIDE  WHAT  TO  DO 

R0031 

ASuur  gimbal  lock 

0032 

REF  1 

i7,2035 

0 3567  0 

TC 

SHOWLD 

0033 

REF  1 

1T»2035 

0 3576  0 

TC 

5FTOW 

0034  REF  ~§T "LAST3475  17T2037  0 4063  0 tC BaNKCaEE"~~ 


0035 

REF 

15  LAST  475 

— 17,2040  26716  0 

-CADR 

IMUSTALL 

0036 

REF 

2 LAST  475 

IT, 2041  0 2243  0 

TC 

EnDtesI 1 

OO37 

REF 

1 

17,2042  0 3344  1 

TC 

NBPOSPL 

0038 

REF 

1 

17,2043  0 3077  1 

TC 

POSGMBL 

0039 

TREF 

1 

17,2044  02106  1 

TC 

"PTPACHK  " 

"TF  MGAT~I5  60UEG+  PROg  "WILL  STAY  IN~COARS 

C0040 

ALIGN  AND  MEASURE  VERTICAL  PIPA  RATE 

0041 

REF 

1 

17,2045  0 3124  0 

TC 

FALNE 

0042 

REF 

58  LAST  475 

1 l ,2046  0 4U63  U 

"TC 

" B7TNKCAUL 
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0043 

REF 

16 

LAST 

475 

17*2047  26716  0 

CADR 

IMUSTALL 

0044 

REF 

3 

LAST 

475 

17,2050  1 2243  1 

TCF 

ENDTEST1 

00442 

REF 

2 

LAST 

475 

17,2051  11*742  0 

CCS 

GEOCOMPS 

00443 

REF 

1 

17,2052  0 2072  0 

TC 

JUMPLOAD 

0045 

“REF 

58 

LAST 

475 

17,2053  0 6000  1 GUESS 

tct 

INTPRET 

CALCULATE  -COS  LATITUDE  AND  SIN  LATITUDE 

0046 

17,2054  71545  0 

DLOAD 

COS 

FOR  ESTIMATE 

0047 

REF 

5 

LATST 

455 

17,2055  0 1511  0 

LATITUDE 

0048 

17,2056  72476  1 

DCOMP 

SL1 

“0049 

REF 

1 

17,2057  07573  1 

STOOL 

WANGI 

0050 

REF 

6 

LAST 

476 

17,2060  01511  0 

LATITUDE 

0051 

17,2061  72556  1 

SIN 

SL1 

0052 

REF 

1 

17,2062  23571  0 

STOVL 

WANGO 

LOAD  TRANSITION  MATRIX  INTO  ERASABLE 

00521 

REF 

1 

17,2063  37630  0 

GEORGED 

00522 

REF 

1 

17,2064  23721  1 

STOVL 

TRANSM1 

00523 

REF 

“I 

17*2065  37636  0 

georgec 

00524 

REF 

2 

LAST 

476 

17,2066  23727  1 

STOVL 

TRANSM1  +6 

00525 

RTF 

1 

17,2067  37644  0 

GE0RGEB 

00526 

REF 

3 

LAST 

476 

17,2070  01735  1 

STORE 

TRANSM1  +12D 

0053 

17,2071  77776  1 

exit 

00531 

REF 

T" 

17,2072  0 36T2  I JUMPLOAu 

' TCT 

L0ADGTSM 

0054 

REF 

59 

last 

475 

17,2073  0 4063  0 

TC 

BANKCALL 

0055 

REF 

1 

17,2074  42000  1 

CADR 

ESTIMS 

0075 

REF 

1 

17,2075  0 4614  0 TORQUE 

TC 

PRASCRNG 

filter  torques  pltfm  and  sets  up  eRatl 

0076 

17,2076  00000  l 

OCT 

00000 

0081 

REF 

167 

LAST 

475 

17,2077  3 7665  0 

C A 

ZERO 

oo^r 

TEF 

T4 

LA5  1 

475 

T7,210rr  54  556  0 

TS 

DSP T EM 2 

0083 

REF 

2 

LAST 

376 

17,2101  3 1640  1 

CA  ” 

DRIFTI 

0084 

REF 

15 

LAST 

476 

17,2102  54  337  1 

TS 

D5PTEM2  +1 

”0085 

RET 

6 

LAST 

475 

17,2103  5 1 » 544  0 

index 

POSITON 

0086 

RcF 

1 

17,2104  55*551  0 

TS 

S0UTHDR  -1 

UUB7  RcF 

2 

LAST 

475 

17,2105  0 3576  0 

T C 

5H0W 

U088 

REF 

24 

LA5T 

475 

17,2106  51  *537  1 PIPACHK 

INDEX 

NDXCTR 

TORQUE  PLATFORM  TO  OOKRECT  LEVELING  EKK 

0089 

17,2107  0 2110  0 

TC 

♦ 1 

IN  PRtPARATlON  TO  MEASURING  VERTICAL 

uOW 

REF 

”6U 

LAS  1 

476 

T7T2TT0"  Q 4065  0 

TC 

BANKCALL 

PTPA“OUTPUTTrULSE  RATE 

0091 

RcF 

3 LF5I 

448 

IT, 2111  30422  0 

CADR 

EARTHR 

0092 

REF 

1 

17,2112  3 3663  1 

CA 

DEC17 

ALLOW  PTF  COUNTER  TO  OVERFLOW  17  1 IMEb 

0093 

REF 

5 

LAST 

376 

17,2113  55*632  0 

TS 

DATAPL  +4 

0094 

REF 

39 

LAST 

447 

17*2114  3 7646  1 

CA 

BIT10 

IN  THE  ALLOTED  TIME  INTERVAL 

009? 

REF 

1 

17,21  IT  55  T27  1 

T5 

LENGTH  OT 

OO96 

REF 

121 

LAST 

475 

17,2116  3 7657  1 

" CA 

ONE 

0097 

RcF 

1 

17,2117  55*673  0 

TS 

RESULTCT 

0098 

REF 

168  LAE  T 476 

17,2120  3 7665  C — 

“CA 

ZERU 

ZERO  PIPA“COUNTtR  INITIALLY 

GO99 

REF 

3 

LAs  i 

446 

17,2121  51*541  0 

INDEX 

PIPINDEX 

0100 

REF 

6 

LAST 

445 

17,2122  54  037  1 

T S 

PIPAX 

0101 

ref 

6“ 

LAST 

4T6 

17,2123  55*626  0 

T 5“ 

DATAPT. 

U 102 

REF 

i 

1 / * 2 1 2 4 3 3676  0 

CA 

DEC56 

LOOP  56  t I ME S 5#12  SEC  »ACH#  EACH  INEK« 

0103 

REF 

i 

17,2125  0 3205  0 

TC 

WAITL00P 

WILL  ALSO  CORRECT  EARTFI  RATE 

0104 

17,2126  0 0004'  0 

tnfftnt 
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0105 

REF 

3 

LAST  446 

17*2127 

0 2771 

1 

TC 

Checkg 

0106 

17,2130 

0 0003 

1 

RELINT 

0107 

REF 

1 

17,2131 

0 3065 

1 

TC 

DATALD 

0108 

REF 

10 

LA5I  466 

17,2132 

3 7664 

1 

CA  FIVE 

"0109 

RcF 

2 

LAST  476" 

17,2133 

55*673 

0 

TS 

RESULTCT 

0110 

REF 

25 

LAST  476 

17*2134 

51*537 

1 

INDEX 

NDXCTR 

0111 

17,2135 

0 2136 

1 

TC 

+ 1 

0112 

REF 

6 1 

LAST  476 

17,2136 

0 4063 

0 

TC 

BANkCALL 

0113 

REF 

4 

LAST  476 

17,2137 

30422 

0 

CADR 

EARTHR 

0114 

REF 

1 

17,2140 

11*676  0 

CCS 

countpl 

0115 

REF 

1 

17,2141 

0 3227 

0 

TC 

WAITLP2 

0116 

REF 

7 

LAST  476 

17,2142 

11*627 

1 

CCS 

DATAPL  +1 

0117 

17,2143 

0 2147 

1 

TC 

+4 

0118 

REF 

23  LAST  338 

17,2144 

0 5464 

1 

TC 

CCSHOLE 

0119 

REF 

8 

LAST  477 

17,2145 

4 1632 

0 

cs 

DATAPL  +4 

0120 

REF 

9 

LAST  477 

17,2146 

55*632 

0 

TS 

DATAPL  +4 

0121 

17,2147 

0 0006 

1 

EXTEND 

0122 

REF 

10 

LAST  477 

17,2150 

4 1627 

1 

DCS 

DATAPL 

0123 

REF 

11 

LAST  477 

17,2151 

21*633 

1 

DAS 

DATAPL  +4 

0124 

REF 

39 

LAS  1 476 

17,2152 

0 6000 

1 

TC 

INTPRET 

0125 

17,2153 

45345 

1 

dload 

DSU 

0126 

REF 

12 

LAST  477 

17,2154 

01635 

0 

DATAPL  +6 

0127 

REF 

13 

LAST  477 

17,2155 

01631 

1 

DATAPL  +2 

0128 

17,2156 

56325 

0 

PDDL 

DDV 

0129 

REF 

14 

LAET  477 

1?,2T57 

" 01633 

0 

DATAPL  +4 

0130 

17,2160 

41325 

0 

PDDL 

DMP 

0131 

REF 

1 

17,2161 

37665 

0 

DEC585 

DEC585  HAS  BEEN  REDEFINED  FOR  LEM 

0132 

17,2162 

77624 

1 

”RTB 

0133 

REF 

3 

LAST  454 

1 f , 8 X63 

33406 

0 

SGNAGREE 

0134 

REF 

1 6 

LAST  476 

17,2164 

00337 

0 

5 TORE 

DSPTEM2 

01 35~ 

17,2165 

77775 

T 

“EXIT 

0136 

REF 

3 

LA5T  476 

17,2166 

0 3576 

0 

TC 

SHOW 

0137 

REF 

1 

17,2167 

3 3656 

1 VERTDRFT 

CA 

3990DEC 

NUMBER  OF  SECONDS  TO  SPEND  ESTIMATING 

0138 

REF 

2 

EAST  476 

1772170 

5ET52T 

T 

T5 

"TENGTIT07 

01381 

REF 

62 

LAS  1 47  l 

17,2171 

0 4063 

0 

TC 

BANKCALL 

THIS  WILL  CORRECT  FOR  EARTH  RATE  DURING 

01382 

REF 

b 

LAS!  477 

1 1 , 2 i f 8 

30422 

0 

CADR 

EARTHR 

time  spent  in  show  above* 

0X383  Kcr 

10 

LAST  461 

17,2173 

3 0032 

a 

CA 

TUUX~ 

STOORE  AXIS  TOR  LAB  CALC  OF  'DRIFT 

Ktr 

1 

17,2174 

55*530 

1 

TS 

L05VEC 

0139 

REF 

7 

LAST  476 

17,2175 

5 1 ' 544 

0 

INDEX 

POSITON 

0140 

REr 

2 

LAST  476 

1 ( , 2 1 7 6 

4 1550 

1 

cs 

eouthdr  -2 

0141 

RcF 

3 

LAST  475 

1 J , 2 177 

55 • 576 

0 

T 5 

DRIFTT 

014101 

REF 

2 

LAST  476 

17 ,2200 

0 3612 

1 

TC 

LOADGTSM 

0142 

Ktf  169 

LASl  476 

IT*  2201 

3 7665 

“0 

TTA 

ZERO"- 

* ALLOW  DAILY  SOUTH  GYRO  EARTH  RATE  COMPENS 

0143 

Ktr 

84 

LAST  475 

17,2202 

55*400 

0 

XSM 

OI44 

REF 

23 

LASl  477 

17,2203 

55*401 

1 

TS 

XSM  +1 

~0145 

KEF 

24 

LAST  477 

17 ,2204 

55*404 

1 

"TS 

"XSlM~  +4  - 

0146 

REF 

25 

LAST  477 

17,2205 

55*405 

0 

TS 

XSM  +5 

0147 

REF 

9 

LAST  458 

1 f 9 2206 

55 ' 406 

0 

TS 

YSM 

OI4E 

REF 

10 

LAST  477 

17*2207 

55*407 

1 

TS — 

"TSFT  +T" 
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DI49 

rEf 

T1  LAsT  477 

17*2210 

55*412 

0 

Ts 

YSM  + 4 

OI5O 

REF 

12  LAST  478 

17*2211 

55*413 

1 

T5 

YSM  +5 

0151 

REF 

8 LAST  458 

17*2212 

55*414 

0 

TS 

ZSM 

0152 

REF 

9 LAST  478 

17,2213 

55*415 

1 

TS 

ZSM  +1 

0 1 5 3 

REF 

10  LAST  476 

17*2214 

55*420 

1 

TS 

ZSM  +4 

OI54 

REf 

11  LAST  478 

17.2215 

55 *421 

0 

TS 

ZSM  +5 

T3T55 

TTEF 

29  LAST  473 

17.2216 

3 7637 

1 

GUE5S1 

CAF 

POSMAX 

0T56 

~RFF 

3 LAST  t t75 

T 7.2217 

55*574 

1 

T$ 

TORQNDX 

0157 

TREF 

' 4 LAST  476 

17*2220 

55*575 

cr 

TS 

TORQNDX  +1 

0158 

REF 

63  LAST  477 

17.2221 

0 4063 

0 

TC 

bankcall 

0 1 59 

REF 

2 LAST  476 

17.2222 

42000 

1 

CADR 

ESTIMS 

0170 

REF 

2 LAST  476 

17.2223 

0 4614 

0 

VALMTS 

TC 

PHASCHNG 

01701 

17.2224 

00000 

1 

OCT 

00000 

0T702 

"REF 

2 LAST  376 

17.2225 

3 1636 

0 

CA 

DRIFTO 

0171 

REF 

17  LAST  477 

17.2226 

54  337 

1 

TS 

DSPTEM2  +1 

01711 

REF 

14  LAST  477 

17.2227 

3 0032 

0 

CA 

CDUX  STORE  OG  angle  FOR  LAb  CALC  OF  DRIFT*** 

0T7TT 

KEF~ 

2 LAST  477 

17.2230 

55*531 

0 

~ts 

LOSVEC  +1 

0172 

REF 

170  LAST  477 

17.2231 

3 7665 

0 

CA 

ZERO 

0173 

REF  T.8  LAST  478 

17,2232 

54  336 

0 

TS 

DSPTEM2 

07,74  REF 

4 LAST  477 

17,2233 

0 3576 

0 

TC 

SHOW 

0175"  REF  122  LAST  476  17.2234  3 7657  1 FINISH  CA  Oi\E 


0176 

REF  8 LAST  477 

17,2235 

6 1544  0 

AD 

POSITON 

“Cl  77 

REF~~  T9  LAST  478 

17 ,2236 

54  340  1 

T5 

DSPTEM2  +2 

0178 

TREF  60  LAST  474 

17,2237 

3 7656  0 

CA 

TWO 

0179 

REF  23  LAST  462 

17.2240 

55*546  0 

TS 

QPLACE 

0T80 

TREF  64  LAST  478 

17.2241 

0 4063  0 

"T C 

BANKCALL 

0181 

REF  2 LAST  267 

17,2242 

22343  0 

CADR 

TSELECT  -6 

0182 

REF  65  LA5T  476 

17.2243 

0 4063  0 

LNDTEST1  TC 

BANKCALL 

— ur§3 

REF  24  LASI  474 

i-7 ,2244 

30745  T 

CADR 

ENDTEST 
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0184 

REF 

1 

17*2245 

3 3666 

1 OPCHK 

CAF 

DELYOFF 

AUTOMATIC  TEST  FOR 

system  operation 

0185 

17*2246 

0 0006 

1 

EXTEND 

0186 

17*2247 

02  030 

0 

RAND 

30 

CHECK  TO  SEE  IF  IMU 

IS  ON 

0187 

REF 

323 

LAST 

471 

17*2250 

10  000 

0 

CCS 

A 

0188 

REF 

1 

17,2251 

0 2440 

0 

TC 

ALARMS 

0189 

REF 

1 

17,2252 

3 3661 

0 

CAF 

V16N20S 

0190 

REF 

40 

LAST 

470 

17,2253 

0 5332 

0 

TC 

NVSBWAIT 

0 1 9 1 

REF 

11  LAST  460 

17*2254  0 5401  1 

TC 

FREEDSP 

0192 

REF 

66  LAST  478 

17,2255  0 4063  0 

TC 

bankcall 

0193 

REF  “ 

4 LAST  475 

17,2256  26000  "0 

TZADR 

IMUZERO 

0194 

REF 

67  LASl  479 

17,2257  0 4063  0 

TC 

BANKCALL 

0195 

REF 

17  LAST  476 

17,2260  26716  0 

CADR 

IMUSTALL 

0196 

REF 

4 LAST  476 

17,2261  1 2243  1 

TCF 

ENDTEST 1 

0197 

REF 

23  LAST  434 

17,2262  3 7650  0 

CA 

BITS 

ZERO  ALL  ERASEABLE  USED  IN  TEST 

0198 

REF 

2 LAST  451 

17,2263  55*776  1 

TS 

ZERONDX 

0199 

REF 

1 

17*2264  3 3671  1 

CA 

genplad 

0200 

ref 

2 LAST  451 

17,2265  0 3236  0 

TC 

ZEROING 

0201 

REF 

2 LAST 475 

17,2266  0 3344  1 

' TC 

N6P0SPL 

ALIGN  ANGLE  COMPUTATION 

0202 

0203 

0204 


REF  2 EAST  475 


REF 

REF 


2 LAST  267 
2 LAST  475 


2267  0 3077  1 

2270 


TC 


POSGMBL 


COARSE  ALIGN  THOSE  GIMBALS  NOW 


2271 


1 2245  1 
0 3124  0 


TCF 

TC 


OPCHK 

FALNE 


FINE  ALIGN  PLATFORM  BY  TORQUING  GYROS 


0205 

0206 

0207 

0208 

0209 

0210 


REF 

ref 

REF 

REF 

REF 

■REF- 


68  LAST  479 
18  LAST  479 


2272 

2273 


0 4063  0 
26716  0 


5 LAS!  479  IT 

61  LAST  478  17 

Z CAST  4T4  TT 

3 "LA5T~479  TT 

0211  -REF  16  LAST  4T5~  17 


2274 

2275 

2276 
2277' 
2300 


1 "2243  1 

3 7656  0 
55*672  1 
51*672  0 

4 0400  1 


CADR 


CDUCHECK 


TCT 
CA — 
TT 

INDEX 

OS 


BMkcSLU 

imustall 


endtestt 

TWO 

CDUNDX 
"CD"UNDX“ 
THETAD' 


THIS  LOOP  CHECKS  FOR  NO  ERROR  BETWEEN 
DESIRED  CDU  ANGLES  AND  THE  ACTUAL  ANGLES 


0212 

ref 

4 LAST  479 

17,2301 

5T*S72  0 

index 

CDUNDX 

0213 

REF  15  LA5T  478 

17,2302 

6 0 032'  0 ‘ 

" AD"  ' 

CDUX 

0214 

KtF 

5 LASl  458 

17,2303 

55*551  0 

TS 

STOREPL 

0215 

REF 

6 LAST  479 

17 ,2304 

11*551  0 

CCS 

STOREPL 

0216 

~REf 

- T " 

1 t ,23U5 

O' 2313  1 

TC 

ERRMASK 

0217 

REF 

1 

17,2306 

0 2310  1 

TC 

NOERR 

0218 

R;F 

2 LASl  479 

17,2307 

0 2313  i 

r c 

ERRMASK 

0219 

REF 

"5  LASl  479 

17,2310 

11 '672  1 ""NOERR"" 

CCS 

CDUNDX 

0220 

REF 

1 

17,2311 

0 2276  0 

TC 

CDUCHECK 

0221 

R b F 

1 

1 7 , 237  2 

0 2 3 1 7 0 

TC 

LOAdIC 

0222 

REP 

1 

' 17,2313 

7 3674  TT  ERRMASK 

LOWTOUR  ALLOW  FIVE  BIT "ERRORS 

0223 

REF 

324  LAST  479 

17,2314 

10  000  0 

CCS 

A 

0224 

REt- 

2 LAST  479 

17,2315 

0 2440  0 

TC 

ALARMS 

0225 

REF 

2 LAST  479 

17.2316 

0 2310  1 

TC 

"NOERR 

0226 

REF 

123  LAST  478 

17,2317 

3 7657  1 LOADIC 

CA 

ONE 

0227 

REF 

3 LAST  477 

17,2320 

55*673  0 

T S 

RE5ULTCT 

0228 

' REF 

124  LAST  479 

1 7 , 232 1- 

4 7657~0 

CS 

ONE 

co 
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0229  REF  T~  17.2322“  55*670  0 T5  MASKREG  SETS  UP  AZIMUTH  AND  VERTICAL  VECTORS  FOR 


0230 

REF  171  LAST 

17.2323 

3 7665  0 

CA 

ZERO 

0231 

REf  7 LAST  476 

17.2324 

54  037  1 

TS 

PIPAX 

0232 

REF  4 LAST~445 

17.2325 

54  040  1 

TS 

PIPAY 

~0233 

RTF  5 LAST  445 

17.2326 

54  041  0 

TS 

PIPAZ 

0234 

REF  27  LAST  377 

17.2327 

3 7645  1 

CA 

BIT11 

0235 

REF  3 LAST  477 

17.2330 

55*527  1 

TS 

LENgTHOT  VECTOR  IN  PIPA  COUNTERS 

0236 

REF  125  LAST  479 

17.2331 

3 7657  1 

CA 

ONE 

“0137 

REF  2 LAST  476 

17.2332 

0 “3205  0 

TC 

WAITLOOP 

0238  “ 

REF  2 LAST  477 

17,2333 

11*676  0 

CCS 

COUNTPL 

0239 

REF  2 LAST  477 

17,2334 

0 3227  0 

TC 

WAITLP2 

0240 

RTF  2 LAST  476 

17,2335 

3 3675  0 

CA 

DEC56 

" 0241 

REF  3 LAST  480 

17.2336 

0 3205  0 

TC 

WAITLOOP 

0242 

REF  62  LAST  479 

17,2337 

3 7656  0 

0PCHK1 

CA 

TWO 

0243 

REF  4 LAST  476 

17,2340 

55*541  1 

0PCHK2 

TS 

PIPINDEX 

0244 

17,2341 

0 00 04  0 

INHINT 

0245 

RTF  4 LAST  477 

17 ,2342 

0 2771  1 

TC 

CHECKG 

“0246 

17,2343 

0 0003  1 

relint 

0247 

REF  172  LAST  480 

17.2344 

3 7665  0 

CA 

ZERO 

0246 

RTF  5 LAST  480 

17,2345 

51*541  0 

INDEX 

PIPINDEX 

022*9 

REF  8 LmST  480 

17.2346 

54  037  1 

TS  “ 

PIPAX 

0250  “ 

RTF  2 LAST  477 

17,2347 

0 3065  1 

TC 

DATAlD  LOAD  pIpA  DATA  AND  TI|vjE  IN  DAT Apt_ 

0251 

RtF  4 LAST 479 

17,2350 

57*673  1 

XCH 

RESULTCT 

0252 

REF  T5““  LA3T”432 

17,2351 

6 7655  0“ 

AD 

FOUR 

0253 

REF  5 LAST  460 

17,2352 

55*673  0 

TS 

RESULTCT 

0254 

REF  6 LAST  480 

17,2353 

11*541  1 

CCS 

PIPINDEX 

0255 

REF  “T“ 

17,2354 

0 2340  1 

TC“  “ 

0PCHK2 

02  56 

REP  14  LAST  480“ 

17,2355 

4 7655  1 

READOUT 

“CS 

FOUR 

0257 

REP  6 LAST  480 

17,2356 

6 1673  1 

AD 

RESULTCT 

0258 

REF  7 LAST  480 

17,2357 

55*673  0 

TS 

RESULTCT 

0259 

17,2360 

22  007  0 

ZL 

0260 

RcF  8 LAST  480 

17,2361 

51*673  1 

INDEX 

RESULTCT 

0261 

“REF  T5  LAST  477 

1 7 , 236T 

3 1626  1 

“CA 

DATAPL 

0262 

REF  325  LAST  479 

17,2363 

22  000  I 

LXCH 

A 

0263 

REF  9 LAST  480 

17,2364 

51*673  1 

INDEX 

RE5ULTCT 

0264 

REP  45 LAST  472 

1772  J65 

21*572  1 

0A5 

GENPL  +1  ““ 

0265 

REF  10  LAST  480 

17,2366 

3 1673  1 

CA 

RESULTCT 

0266 

RtF  2 LAST  480 

17,2367 

7 1670  0 

MASK 

MASKREG 

0267 

RtF  326  LAST  480 

17,2370 

TO  “001 J cr 

CCS 

A 

0268 

RtF  1 

17,2371 

0 2355  0 

TC 

READOUT 

0269 

REF  9 LA5T  472 

17,2372 

3 7661  1 

CA 

TEN 

0270 

KEF  ii3  LA5T  465 

17,2373 

6 6165  Cr 

“AD 

THREE 

0271 

REF  H LAS  1 480 

17,2374 

55 » 673  0 

TS 

RESULTCT 

0272 

REF  327  LAST  480 

17,2375 

4 0000  0 

CS 

A 

0273 

KtF  3 LA5T  480 

175.2376 

55 1 670  0“ 

TS 

MASKREG  “ 

0274 

RcF  3 LAST  480 

17,2377 

11*676  0 

CCS 

COUNTPL 

0275 

RtF  3 LAST  48O 

17,2400 

0 3227  0 

TC 

WAITLP2 

“0276 

RTF  1 “ 

5— ’ 

-4 

IV 

C 

l~ 

0“ 3250TJ  - 

TC  - 

CCWUT 

473423A  YJL  SYSTEM  FOR  BLK2 ; REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10»  1966  (MAIN)  PAGE  481 


L I MU  PERFORMANCE  TESTS  2 _ __  USER'S  Own  PAGE  nO»  7 


0277 

REF 

1 

17*2402 

3 3662 

0 

RADCK 

CA 

V16N40S 

CT2  7 8 

RTF 

4F 

LASr 

479 

17,2403 

0 5332 

0 

TC 

NVSBWAIT 

OPERATOR  WILL  CHECK  RADAR  STATUS, IN  LAB, 

0279 

REF 

10 

LAS  1 

465 

17,2404 

0 5274 

0 

~TC 

FLASHON 

SET  RADAR  OFF  THEN  PUT  RESOLVER  STANDARD 

0280 

REF 

29 

LAST 

469 

17,2405 

0 5140 

1 

TC 

ENDIDLE 

ON  TRUNNION  AND  SET  TO  +45  DEG. SHAFT  WIL 

0281 

IRcF 

6 

LAST 

479 

17,2406 

0 2243  0 

TC 

ENDTEST 1 

0282 

17,2407 

0 2410 

0 

TC 

+ 1 

AFTER  SETTING  RES  STANDARD  DO  A V33  v 

0283 

480 

17,2410 

3 7665 

0 

CA 

ZERO 

TJ284 

REF 

r9 

LAST 

422 

17,24H 

54  424 

1 

TS 

TANG  +1 

0285 

REF 

1 

17,2412 

3 3676 

0 

CA 

45DEG 

1 

0286 

REF 

20 

LAST 

481 

17,2413 

54  423 

0 

TS 

TANG 

0287 

REF 

69  last 

479 

17,2414 

0 4063  0 

DRIVRAD 

TC 

bankcall 

IN  SC  WHEN  RAD  PRESENT  DO  V33  RIGHT  AWAY 

0288 

REF 

3 

LAST 

462 

17,2415 

20247 

1 

CADR 

RRZERO 

LGC  WILL  ATTEMPT  TO  DRIVE  45  DEG  TRUNN,  , 

0289 

REF 

70 

LAST 

481 

17,2416 

0 4063 

0 

TC 

BANKCALL 

TO  MATCH  STANDARD,  AFTER  ZEROING  CDUS 

02  90 

REF 

6 

LAST 

462 

17,2417 

26712 

1 

CADR 

RADSTALL 

0291 

REF 

7 

LAST 

481 

17,2420 

0 2243 

0 

TC 

ENDTEST1 

1 

0292 

REF 

40 

LAST 

477 

17,2421 

0 6000 

1 

TC 

INTPRET 

0293 

17,2422 

77634 

0 

CALL 

0294 

RtF 

2 

LA5  1 

264 

17,2423 

20363 

0 

RRDESNB 

0295 

REF 

71 

LAST 

481 

17,2424 

0 4063 

0 

TC 

BANKCALL 

0296 

REF 

7 

LAS  1 

48 1 

17*2425 

26712 

1 

XAFR 

RADSTAEL 

IF  CDO  FAILS  TO  AGREE  WITH  COT'IMAND  TO 

0297 

REF 

3 

LAST 

479 

17,2426 

0 2440 

0 

TC 

ALARMS 

1 DEG  GET  ALARM  HERE  « 

0298 

REF 

11 

LAST 

481 

17,2427 

0 5274 

0 

TC 

FLASHON 

OPERATOR  WILL  CHECK  STATUS  OF  RADAR 

0299 

RtF 

30 

LAST 

481 

17,2430 

0 5140 

1 

TC 

ENDIDLE 

IN  S/C  DO  V33  TO  CONTINUE  WITH  SHAFT  % 

0300 

REF 

8 

LAST 

481 

17,2431 

0 2243 

0 

TC 

ENDTEST1 

TEST 

0301 

17,2432 

0 2433  1 

TC 

+ 1 

IN  LAB  TURN  RADAR  OFF  CHANGE  RES  STAND AR 

0302 

REF 

174 

LA5  1 

48 1 

17,2433 

3 7665 

0 

CA 

ZERO 

TO  SHAFF  AND  SET  FOR  -45DEG.  * 

0303 

REF 

21 

LAST 

48 1 

17,2434 

54  423 

0 

T5 

TANG 

THEN  DO  A V33  IF  WANT  TO  REPEAT  CHECK 

2 

LAST 

481 

17,2435 

4 3676 

1 

cs 

45T5EG 

DO  A V34  TO  TERMINATE 

0305 

REF 

22 

LAST 

48 1 

17,2436 

54  424 

1 

TS 

TANG  +1 

0306 

REF 

1 

17,2437 

0 2414 

1 

TC 

DRIVRAD 

0307 

473 

17,E440 

56  002  0 

ALARM5 

XXfl 

Q 

0308 

REF 

24 

LAST 

478 

17,2441 

55 ’ 546 

0 

TS 

OPLACE 

O3O9 

REF 

29 

LAST 

462 

17,2442 

0 5413 

1 

TC 

alarm 

'0310 

17,2443  ' 

01411 

1 

OCT 

14TT 

0311 

REF 

25 

LAST 

481 

17,2444 

0 1546 

1 

TC 

OPLACE 
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USERIS  own  page  no» 1 


0312 

REF 

41 

LAST 

48 1 

17,2445 

0 6000  1 

GYRSFTST 

TC 

intpret 

START  ADRESS  FOR  IRIG  5F  TEST 

0313 

17,2446 

77634  0 

CALL 

0314 

REF 

3 

LAST 

475 

17,2447 

30530  1 

LATAZCHK 

LOAD  AZ  AND  LAT 

0315 

17,2450 

77776  1 

EXIT 

0316 

REF 

1 

17 ,2451 

3 3651  0 

TESTCALL 

CAF 

V21N30E 

0317“ 

“'REF 

42 

LAST 

481 

17,2452 

0 5332  0 

TC 

nvsbwait 

LOAD  t OR  - i FOR  + OR  - X TEST  (+00001) 

“0318 

REF“ 

“51 

LAST 

481 

17,2453 

0 5140  1 

TC 

ENDIDLE 

LOAD  + OR  _ 2 FOR  + OR  _ Y TEST 

03X9 

REF 

9 

LAST 

481 

17,2454 

1 2243  r 

TCF 

ENDTE5T1 

LOAD  + OR  - 3 FOR  + OR  - Z TEST  “ 

“0320 

REF 

1 

17,2455 

0 2451  0 

TC 

TESTCALL 

0321 

REF 

W5 

LAST 

467 

17,2456 

56  333  1 

XCH 

DSPTEMl 

~ 0322 

REF 

r 

17,2457 

“55*614  1 

TS 

“CALCDIR 

03221 

17*2460 

0 0006  1 

tX 1 END 

THI 5 ROUTINE  LOOKS  AT  THE  SIZE  OF  THE 

03222 

REp 

i 

1 ( , 246 1 

6 2466  i 

BZMF 

NEGsIZ 

ENTRY  MAdl  BY  ThE  OPERATOR,  IF  hE  DlD  NO 

03223 

“REF“ 

3 

TA5T 

377 

17,2462 

7 7671  1 

5XZL0UK 

TASK 

7TEG3 

T ENTER  TcST  NO  THAT  IS  Wfl  PERMISSIBLE 

03224 

17,2463 

0 0006  1 

extend 

RANGE-  HE  WILL  BE  ASKED  TO  LOAD  AGAIN, 

03225 

REF 

1 

17,2464 

1 2470  1 

BZF 

GUDENTRY 

THI5  IS  CONSIDERED  NECESSARY  BECAUSE 

““03226“ 

REF 

2 

LAST  482 

T7,2465 

0 2451  0 

TC 

TESTCALL 

OF  FOLLOWING  INDEXED  TC  WHICH  COULD  “ 

03227 
“CrjZXfT 
03229 
0323 
W 
U3Z5- 

0326  REF  3 LAST  482" 


“REF  I 

“REF  2 LAST  482 
REF  15  LAST  480 


REF  328  LAST  480 


TV 

I? 

17 

17 

T7 


T7 

17 


2466  4 0000  0 

73*57  0 2462  0 

2470  3 T5T5~~0" 

2471  6 T6S5  0 

2472  50  000T“ 

2473  O- 2474  1 

2474  0 2451  0 


“NEGSTZ  COW 
TC“ 

GUDENTRY  CA 
ATI” 


TNOEX 
“TC 
TC  “ 


SlZLOOK 

CALCDIR 

FOUR 

“A 


SEND  THE  COMPUTER  OFF  INTO  THE  BOONDOCKS 
TCTPuAY  WITH  ITSELF  IF“THE  UPERATOK 
“MAKES  ABAD  ENTRY****** 


♦ 1 

TESTCALL 


0327 

17,2475  “0  2503  0 

TC  “ 

+ 6 

C < A ) = + 00001  FOR  -Z 

0328 

17,2476  0 2502  1 

TC 

+ 4 

C (A) =+00002  FOR  -Y 

0329 

17,2477  0 2501  1 

TC 

+ 2 

C (A) =+00003  FOR  -X 

“0330“ 

17,2500  0 2474  X 

TC 

-4 

C(AT=+00004  ERROR 

0331 

17,2501  0 2504  1 

TC 

+ 3 

C (A) = + 00005  FOR  +X 

0332 

“17,2502  0 2510“  X 

TC 

+ 6 

0333 

17*2503  0 2513  1 

TC 

+ 10““ 

0334 

LAST  482 

17*2504  3 7655  0 

CAF  “ 

FOUR 

0335 

REF 

9 

LA 51  478 

17,2505  55*544  1 

TS 

POSITON 

4 IS  FOR  A,L,  POSN  4 USED  FOR  X 5F  TEST 

0536 

“1.7,2505  “ 0 2515  1 

TC 

“ + 7 

0337 

17,2507  0 2515  “1 

TC 

+ 6 

0338 

RcF 

63 

LAST “480 

17,2510  “ 3 7656  0 

CAF 

TWO 

“0330 

REF 

10 

LAST  “432 

“T7T251T  “551544  X 

TS 

““PU5TTUN““ 

+2  15  A»L»  P05  2 USED  FOR  Y SF  lEST 

0340 

17,2512  0 2515  1 

TC 

+ 3 

0341 

REF 

126 

LAST480 

17,2513  3 7657  1 

CAF“ 

ONE 

“0342“ 
“0343  “ 

REF 

— 2 - 

“LrtST  482“ 
-LAST  474 

“ 17,2514 — 55*  544“  1“ 
irjgglB  SS*Al7-n — 

TS 
TS — 

POSITON  “ 
nPTNRFG 

+1  TS  A,L»  POS  T USED  FOR  Z SF  TEST 
C ( K ) = (4.2.1)  FOR  X.Y.Z 

0344  REF  1 


17 


2516  55*621  1 


— 0345““- 

RTF 

“12  lAsT  479 

““17,2517 

0 540 1“1 

0346 

REF 

175  LAST  481 

17,2520 

3 7665  0 

0347 

REF 

1 

17,2521 

55*536  1 

0345“ 

KEF 

2 “LA5T““482 

I7TZ522 

“55*  622“1  “ 

O349 

REF 

1 

17*2523 

55*563  1 

0350 

ref 

1 

17*2524 

551 615  0 

UB51 

REF 

“ “T“  “ 

17*2525 

3 3653  1 

TS 


SAVE  +1 


TC 

CAF 

TS 

T5 

TS 

TS 

“CAT 


“TREEDSP“ 
ZERO 
NBPOS 
“SAVE  +2 
TESTNO 
cduflag 
“5FCUN5T“ 


SET  UP  NB  COORD  TO  Zr  NORTH,  “X  UP 
INITIALIZE  FOR'  EARTHR  'DESIGNATE  USAGE 
INITIALIZE  FOR  TEST  ABORT  ROUTINE 
ZEROS  FOR  STRTWACH  USE 
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USER'S  own  page  NO,  9 

0352 

REF 

1 

17  ,2526 

55*623  0 

TS 

SFCONST 1 

FOR  DIVISION  DURING  CALCSFE 

0353 

REF 

72  LAST  48 1 

17  *2527 

0 4063  0 

TC 

BANKCALL 

0354" 

REF 

5 LAST  479 

17*2530 

26000  0 

CADR 

IMUZERO 

0355 

“ REE~ 

73  LAST  483 

17*2531 

0 4063  0 

TC 

BANKCALL 

0356 

REF 

1 9 LAST  479 

17,2532 

26716  0 

CADR 

IMUSTALL 

0357 

REF 

IQ"  LAST  482 

17,2533 

1 2243  1 

TCF 

ENDTEST1 

0358 

REF 

3 LAST  479 

17,2534 

0 3344  1 

TC 

NBPOSPL 

0359 

REF 

3 LAST  479 

17,2535 

0 3077  1 

TC 

POSGMBL 

0360 

REF 

11  LAST  483 

17,2536 

1 2243  1 

TCF 

ENDTEST1 

0361 

REF 

3 LAST  479 

17,2537 

0 3124  0 

TC 

Falne 

0362 

REF 

74  LAST  483 

17,2540 

0 4063  0 

TC 

BANKCALL 

0363 

REF 

1 

17,2541 

31703  1 

CADR 

REDYTORK 

TJ364 

- REF 

3 LAST  477 

17,2542 

WAITFIVE 

TS 

SOUTHDR 

0365 

REF 

32  LAST  468 

17*2543 

3 7652  1 

CAF 

BIT6 

THIS  SECTION  CALLS  FOR  2-32  MSEC  WAITS 

0366 

ref 

1 

17,2544 

0 2557  1 

TC 

DIRECTN  -5 

17,2545 

3 7652  1 

ENABLE 

CAF 

B I T6 

0368 

17,2546 

0 0006  1 

EXTEND 

ENABLE  GYRO  TOROUING  LOOP  BY  TURNING 

0369 

REF 

1 

17,2547 

05  014  1 

WOR 

14C 

ON  CAL  MODULE  RELAY 

0370 

17,2550 

0 0004  0 

inhint 

0371 

REF 

64  LAST  482 

17,2551 

4 7656  1 

C5 

TWO 

SETS  UP  EXEC  SWITCH  SO  IMUPULSE  WILL 

OT72 

REF 

16  LA5T  364 

17,2352 

7 0370’  1 

MASH  ’ 

TM0DES33 

’ NOT  TURN  OFF  GYRO  TORO  ENABLE  RELAY 

0373 

REF 

63  LA5l  483 

17,2553 

6 7656  0 

AD 

TWO 

0374 

REF 

17  LAS)  483 

17,2554 

54  370  1 

TS 

IM0DES33 

0375 

"REF 

66  LAS  1 483 

17 ,2555 

3 7856T3 

CAF 

TWO 

0376 

REF 

4 LAST  483 

17,2556 

55*552  0 

TS 

SOUTHDR 

0377 

REF 

4 LAST  480 

17,2557 

55*527  1 

TS 

LENGTHOT 

20  MSEC  DELAY  FOR  GYRO  LOOP  STABILIZAT. 

0378 

REF  127  LA5 1 482 

17  ,72560 

3 7657  1 

CA 

ONE 

0379 

REF 

4 LA5T  480 

17,2561 

0 3205  0 

TC 

WAITLOOP 

0380 

REF 

4 LAST  480 

17,2562 

11*676  0 

CCS 

COUNTPL 

038 1 

"REF- 

-4 

LAST 

480" 

1 7,2563 

0 3227  0 

TC 

WAITLP2 

0382 

RtF 

75 

LAST 

483 

17,2564 

0 4063  0 

DIRECTN 

TC 

BANKCALL 

TORQUING  ROUTINE  IN  IMU  PERFORMANCE 

0383 

REF 

1 

17,2565 

34520  1 

CADR 

5ILVER 

BANK  3 

0384 

REF 

5 

LA5  1 

4E3 

17,2566  11*552  C 

"CC5" 

SOUTHER  " 

A ONE  FIRST  TIME  THROUGH,  THEN  ZERO 

0385 

REF 

- 1 

17*2567 

0 2542  0 

TC 

WAIT FIVE 

U6Bb 

RtF 

2 

LAST 

482 

17,2570 

11*615  0 

STRTWALH 

CCS 

CDUFLAG 

RETURNS  HERE  VIA  QPLACt  FROM  SILVER 

0387 

REF 

1 

LAST 

17,2571 

0 2652  1 

TC 

CDUZOTST 

BEEN  CAUGHT  AND  CDU  THROUGH  ZERO  IS 

'-'■388 

REF 

3 

482 

17,2572 

11*621  1 

*-CS 

SAVE  +1 

0389 

REF 

1 

17*2573 

0 2612  0 

TC 

LOOKCDUP  -4 

RtF 

2 

LAST 

483 

17,2574 

0 2616  1 

TC 

lookcdup 

Ktr 

176 

LAST 

482 

17,2575 

3 7665  0 

CORRECT 

CAF 

ZERO 

REF 

1 0 

LAST 

203 

17,2576 

54  357  1" 

TS 

" LGYRO" 

RtLtAStS  GYROS  FOR  IIMUPUL5E  U5AGE 

U59  J 

Kfcr 

76 

LAST 

483 

17,2577 

0 4063  0 

TC 

BANKCALL 

EARTHRATE  CORRECTION  TO  GYROS  NOT  EAST 

0394 

KEr 

6 

LAST 

477 

17,2600 

30422  0 

CADR 

EARTHR 

OR  WEST 

0395 

REF 

128 

Las  T~ 

483 

17,2601 

3 7657  T 

"CAF 

ONE 

0396 

Rcr 

1 1 

LAST 

483 

17,2602 

54  357  1 

TS 

LGYRO 

RESERVES  GYROS  FOR  S.F,  TEST  TORQUING 

u J97 

KEr 

LAo  1 

483 

17 ,2603 

55*622  1 

TS 

SAVE  +2 

1NIIIAL1ZE5  TO  INSURE  5,6  DEG  OF  TURU) 

0398 

REF 

2 

LMOI 

17*2604" 

27*563  1 

ADS — 

TESTNO 

ITCR  THE  BURST  COUNTER’,  WHICH  IS  "USED  TO 
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L IM y:  perf ormance  TESTS  2 


USER'S  OWN  PAGE  NO.  10 


0399 

REF 

3“ 

LAST 

483 

17*2605 

4 1563  1 

cs 

TESTmO 

count  the  not  of  times  the  gyro  counter 

"0400“ 

REF“ 

11 

LAST 

477 

17*2606 

7 7664  0 

MA5K 

FIVE 

IS  LOADED.  IF  A TENTH  LOAD  Is  REQUESTED 

0401 

17*2607 

0 0006  1 

EXTEND 

THE  SFE  IS  TOO  large  to  be  meaningfull 

0402 

"REF 

1 

17,2610 

1 2760  0 

BZF 

STOPTEST 

OR  THE  CDU .S  ARE  NOT  WORKING, 

" 040  3 

REF“ 

2 

“LAST 

483 

17,267  r 

TT  2564  I 

TC 

DIRECTN 

“0404 

REF 

T77 

LAST 

483 

17,2612 

3 7665  0 

CAF 

ZERO 

ZEROS  CDU  REG  WHICH  WILL  BE  USED  TO 

0405 

REF 

5 

"LAST 

483 

17*2613 

55*621  1 

T S 

SAVE  +1 

“0406 

““REF 

6 

LAST 

479 

17*2614 

51*672  0 

INDEX 

CDUNDX 

MEASURE  ANGLE. 

0407 

ref 

16 

last 

479 

17  *2615 

54  032  1 

TS 

CDUX 

0408 

17,2616 

0 0004  0 

LOOKCDUP  INHINT 

0409 

“REF 

16 

LAST 

461 

17,2617 

3 7653  0 

CAF 

BIT5 

0411  RET 


0412 

04T3 

0414 

0415 

0416 

04  ir 


REF 

REF 

REF 

“REF 

REF 


7 TTST"  484 
17  LAST  484 
1 


4 LAST  481 


0418 


“RET 

“REF 


LA5T”484“ 


“ I7“ 

17 
1? 
TT 
IT 
17 
1 7 
17 


262T 

2622 

2623 

2624 
2626 
2626 


5Tr672"C 
TO  032  T 
0_2635  0 
0 2627  0 
0 2440 
0"2646 


2627 

2630 


0415 


T7 


2631 


“CT 

1 

11*624  _r 
0 2620)  1 
0 0 003“T 


INDEX  CDUNDX 
CDUX 
OUTPLUS 
TIMEWACH' 
ALARMS 
QUTNEG 
"TIMER 
STILLOOK 


LOOKS  FOR"  FIRST  CDU  PULSE "AFTER  TORGUING' 
“STARTS"" 

HERETTS  PUPS  PULSE 

TTELL- OPERATOR  FIRST  CDU  PULSE  WAS  MIS5D 
HERE  IS  MINUS  PULSE  “" 

WATCHES  TIME  IN  INHTNT  sO"“COPS  “WrLL  MOT 
CATCH  US 


RELINT 


0420 

REF 

19  LAST 

395 

17,2632 

10  067 

1 

CCS 

NEW JOB 

“0421 

“REF 

4 LAST 

395 

17,2633 

0 4404 

0 

TC 

CHANG! 

“0422 

"REF“ 

"3  HAST 

483 

1772634 

O'  2616 

T 

"rcr 

"LOOKCDUP 

KEEP  WATCHING  IF  THE  PULSE  IS  NOT  HEKt 

0423 

REF 

1 

1 7 » 2 6 3 5 

4 3652  1 

OUTPLUS  CS 

DESANGLE 

-2047  CDU  PULSES  ADDED  TO  CDU  REG  SO 

0424 

REF 

8 

LAST 

4B4 

“ 1772656 

51*672  0 

index 

CDUNDX 

““ZERO  CROSSOVER  CAN  BE  DETECTED 

0425 

~ REF 

“I“8 

LAS  1 

484 

17,2637 

54032  1 

TS 

CDUX 

0426 

LA51 

483 

17,2640 

3 7657  1 

LOADFLAG  CAF 

ONE 

04Z7 

REF 

3 

LAST 

483 

“ 17,2641 

“55 '61 5 0 

TS" 

cduflag 

042  8 

REF 

1 

17,2642 

3 0047  1 

CA“ 

GYROCTR 

GYRO  TORQ  CMDS  LEFT  OUT  OF  FIRST  5*625 

0429 

RcF 

6 

last 

484 

1 7 ,2643 

55*620  0 

TS 

SAVE 

DEG  COMMANDED  WHEN  cDU  PULSE  ARRIVED 

"0430“ 

17 ,2644 

0 0003  1 

RELi  NT 

0431  REF 2 LAST  483 


2645  0 2652“  1 


TC 


CDUZOTST 


“0432 

REF 

2 

LAST  454 

“17,2646” 

3 3652 

TT 

“OUTNEG 

“CS 

DESANGLE  “ 

0433 

REF 

9 

LA5T  484 

17,2647 

51*672 

0 

INDEX 

CDUNDX 

0434 

REF 

19 

LAST  484 

17,2650 

54  032 

1 

TS 

CDUX 

0435 

KEF 

1 

"17,4651 

0“  2640 

I 

TC 

LOAD FLAG 

u 4J6 

KtF 

1U 

LASI  484 

17,2652 

51 ' 672 

0 

CDUZOTST 

INDEX 

CDUNDX 

0437 

REF 

20 

LaSI  4^4 

17*2653 

10  032“ 

T~ 

OCS“ 

“CDTX 

0438 

17 ,2654 

0 2660 

0 

TC 

+4 

0439 

REF 

1 

17,2655 

0 2675 

T 

TC 

ENDWATCH 

0440 

“17,2656 

“0  266CT 

“0“ 

TC 

>2 

0441 

REF 

2 

LASl  484 

17,2657 

0 2675 

“T“ 

TC 

ENDWATCH 

0442 

REF 

40 

LAST  476 

1 ( 9 2 b60 

3 7646 

1 

CAF 

BIT10 

RAND  WITH  BIT  10  TO  SEE  IF  STILL  TORQ* 

0443 

17,2661 

0'  0006“ 

1 

“EXTENT 

NOV  10,  1966  (MAIN)  PAGE  485 


47342 3A  YJL  SYSTEM  FOR  BLK2:  REVISION  12  OF  PROGRAM~~AURORA  BY  DAP  GROUP 


L I MU  PErIOrMANCE  TESTS  2 


USER'S  own  PAGE  N0»  11 


0444 

RTF  “ 2 

LAST 

483 

17*2662 

02  014  0 

RAND 

14C 

“0445 

REF  329 

LAST 

482 

17*2663 

10  000  0 

CCS 

A 

0446 

17*2664 

0 2672  0 

TC 

♦ 6 

CH7 

REF 

7 LAST  484 

17*2665 

11*622  1 

CCS 

SAVE  +2 

SEE  IF  2.8DEG  OR  5.6  DEG  SINCE 

LAST 

— 

0448 

17*2666 

0 2670  1 

TC 

+ 2 

EEARTHR  USE*  IF  2.8  DEG*  DO  2*8 

MORE 

1 

0449 

ref 

1 

17*2667 

0 2575  1 

TC 

CORRECT 

THEN  GO  TO  CORRECT 

0450 

RcF~ 

- 8 LAST  485 

17*2670 

55*622  1 

TS 

SAVE  +2 

0451 

REF 

3 LAST  484 

17,2671 

0 2564  1 

TC 

DIRECTN 

n 

0452 

RtF 

20  LAST  484 

17,2672 

10  067  1 

CCS 

NEW JOB 

0453 

REF 

5 LAST  484 

17,2673 

0 4404  0 

TC 

CHANG1 

0454 

REF 

3 LAST  484 

17,2674 

0 2652  1 

TC 

CDUZOTST 

0 

0455 

” 17,2675 ' 

0 0004 

0 

ENDWATCH  INHINT 

WW ILL  STOR  GYROCTR  AT  END  OF  2048  CDU 

0456 

REF 

178  LAST 

484 

17,2676 

3 7665 

0 

CAp  ZERO 

PULSES  AND  STOP  TORU  BY  ZEROING  REQUESTS 

* 

0457 

REF 

12  LAST 

483 

17,2677 

54  357 

1 

TS  LGYRO 

RELEASE  GYROS  FOR  OTHERS  USAGE 

0458 

REF 

2 LAST  484 

17,2700 

56  047 

1 

XCH  GYROCTR 

0459 

REF 

9 LA5T 

485 

17,2701 

55*621 

1 

TS  SAVE  +1 

AND  STOPS  TORQUING  BY  ZEROING  TORO 

t 

0460 

REF 

67  LAST 

483 

17*2702 

4 7656 

1 

CS  TWO 

0461 

REF 

rs  last 

483 

17,2703 

~T  0370 

I 

MASK  ImODES33 

this  turns  off  exec  switch  so  the  gyro 

0462 

REF 

19  LAST 

485 

17,2704 

54  370 

1 

TS  IIM0DES33 

TORQ.  ENABLE  RELAY  CAN  BE  TURNED  OFF, 

$ 

0463 

17,2705 

0 0003 

1 

RELINT 

0464 

REF 

10  LAST 

485 

17,2706 

3 1620 

1 

CALCSFE  CA  SAVE- 

"GYROCTR  AT  TEST  START 

0465 

17,2707 

0 0006 

1 

EXTEND 

0466 

REF 

11  LAST 

485 

17,2710 

61*621 

0 

SU  SAVE  +1 

GYROCTR  AT  TEST  END 

0467 

REF 

12  LAST 

485 

17,2711 

5 5 r6  2 2 

1 

TS  SAVE  +2 

J 

0468 

17,2712 

0 0006 

1 

EXTEND 

0469 

REF 

1 ~ 

17,2713 

6 2732 

0 

BZMF  ARITH 

SEE  IF  IT  IS  NEG  OR  ZERO, IF  NEG  ,SFE  IS  ♦ 

0470 

"REF  " 

T~ 

17,2714 

7 0654 

1 

MASK  SfZCHK 

40 

0471 

17,2715 

0 0006 

1 “ 

EXTEND 

THIS  ROUTINE  TESTS  SAVE- ( SAVE*  1 ) 1 0 SEE 

04?2 

REF 

1 

17,2716 

1 2724 

0 

bzf  negspe 

IF  THE  RESULT  IS  WITHIN  PERMISSIBLE  SIZE 

0473  “ 

REF 

13  LAST 

485 

17,2717 

4~ 1622 

1 

CS  SAVE  *2 

AND  DETERMINES  POLARITY  OF  5FE  U5TNG  THE 

40 

0474 

REF 

2 LAST 

485 

17,2720 

7 3654 

1 

"MASK  5IZCHK 

PRESENCE  UR  AbSENCE  UF  bllS  12,13,14, 

0475 

17,2721 

0 0006 

1 

EXTEND 

IF  BITS  ARE  PRESENT  IN  POSITIVE  SAVE  +2 

04T6 

REF 

~T 

'"  17,2722" 

1 2726 

T" 

"3ZF  — PUS5FE 

THEN"THE  SFE  (MUST  BE  P05,  IF  DIFFERENCE 

* 

0477 

REF 

2 LAST 

484 

17,2723 

0 2760 

1 

1 C SI UPTES 1 

IS  GREATER  THAN  2047  PULSES  FROM  THE 

0478 

REF 

14  LAST 

485 

17,2724 

31*622 

0 

NEGSPE  CAE  SAVE  +2 

IDEAL  NO  OF  PULSES,  THE  SFE  EXCEEDS 

0479 

REF 

2 LAST 

485 

17,2725 

O 2732 

0 

"TC—  " "ARTTH 

15600  PPM",  IHE  TEST  IS  NOT  VALID"AND 

R0480  THEREFORE  ABORTS  AND  TURNS  ON  PROGRAM  ALARM 


0467 

REF 

30 

LAST  478 

17,2726 

3 "7637 

I 

P0S5FE 

CAT 

PCSMAX  ” 

P05  5FE  DEFINITION  = TRIG  5F  IN  SEC  OF 

/ 

0482 

17,2727 

17,2730 

0 0006 

1 

EXTEND 

ARC  PER  PULSE  IS  GREATER  THAN 

0483 

REF 

15 

LAST  485 

61 '622 

0 

SU 

SAVE  +2 

,61798095703125  SEC  OF  ARC/  PULSE 

LAST  485 

17*2737 

0 2733 

1 

" TC 

- ARITH  +T" 

/ _ 

0485 

17,2732 

4 0000 

0 

ARITH 

COM 

"0486 

77,2733 

22  007 

"cr 

“ ZL 

f 

0487 

17,2734 

0 0006 

1 

EXTEND 

0488 

REF 

2 

LAST  483 

17,2735 

11*623 

0 

DV 

SFCONST 1 

0489 

LAST  478 

17*2736 

54  336 

tr 

L'OADTT 

TS  " 

— DSPTEM2 
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L 

I MU 

PERFORMANCE 

TESTS  2 

USER'S  OWN  PAGE  NO,  12 

0490 

ref 

1 

17*2737 

0 2740  0 

TC 

datadsp 

0491 

REF 

2 LA5T  394 

17.2740 

0 5304  0 

DATAD5P  TC 

GRABDSP 

0492 

RTF 

3 LAST  394 

17,2741 

0 5312  1 

TC 

PREGBSY 

0493 

REF 

3 LAST  482 

17,2742 

3 1614  0 

CA 

CALCDIR 

0494 

REF 

21  LAST  485 

17,2743 

54  340  1 

T 5 

DSPTEM2  +2 

DISPLAYS  TEST  NO  JUsT  PERFORMED" 

0495 

"REF 

1 

17,2744 

3 3657  0"" 

CAF 

VB06N66 

R3  = TEST  NO  JUST  PERFORMED 

0F96 

REF 

"43  "LS5F  482 

17,2745 

~0  5332  0 

TC 

NVSBWAIT 

0497 

REF" 

12  LAST  48 1 

17,2746 

0 5274  0" 

r c 

FLASHON 

0498 

REF 

32  LAST  482 

17,2747 

0 5140  1 

TC 

END  IDLE 

TO  END  TE5T  DO  V34E 

0499 

17,2750 

0 2752  0 

TC 

♦ 2 

0500 

"REF 

4 LA5T" 482 

17,2751 

0 2451  0 

1 c 

TESTCALL 

TO  CONTINUE  TEST  DO  V33E 

0501 

REF 

77  LAST  483 

17,2752 

0 4063  0 

T C 

BANKCALL 

0502 

REF 

6 LAST  483 

17,2753 

26000  "0 

~CADR 

TWZER"0" 

0503 

"REF 

78  LASF"486 

17,2754 

0 4063  0 

T C 

BANKCALL 

0504 

REF 

20  LAST  483 

17,2755 

26716  0 

CADR 

IMUSTALL 

0505 

HREF 

12  LA"ST  483 

17,2756 

1 2243  1 

TCF 

ENDTESTl 

0506 

REF 

13  LAST  486 

17,2757 

1 2243  1 

TCF 

EiNDTESTl 

0507 

REF 

79  LAST  486 

17,2760 

0 4063  0 

STOPTtST  TC 

BANKCALL 

0508 

"REF" 

7 LAST  486 

17,2761 

26000  0 

CADR 

IMUZERO 

0509 

REF 

80  LAS  1 486 

17,2762 

0 4063  0 

TC 

BANKCALL 

CORRECT  CDUCjRS  AND  TURN  ON  PROS  ALARM 

C5T0" 

"REF 

H2'I  EAST"  436 

T7 *2763"" 

T67T6  0 

CADR 

TMUBTALL  " 

TO  TEEL  OPERATOR"  LAST  CDU  PULSE  "WAS 

051 1 

REF 

14  LASI  486 

17,2764 

1 2243  1 

TCF 

ENDTESTl 

MISSED  OR  GYRO  TQRQ  LOOP  WAY  OUT  OF 

0512 

REF 

179  LA5T  485 

17,2765 

3 7665  0 

^AF 

ZERO 

ALLOWABLE  LIMITS 

13  EAST  485 

17,2766 

54  357  I 

T5"  " " 

LGYRD 

####  RELEASE  GYROS  FOR  QTHER5  USAGE**#** 

05126 

5 LAST  484 

17,2767 

0"  2440  0" 

TC 

ALARMS 

0513 

REF 

15  LASI  486 

17,2770 

1 2243  1 

TCF 

ENDTE5T1 
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L 

I MU 

PERFORMANCE  TESTS  2 

USER'S  OWN  PAGE  NO.  13 

0514 

17,2771 

0 0006  1 

CHECKG 

EXTEND 

PIP  PULSE  CATCHING  ROUTINE 

CT515 

REF 

“26  LAST  48 1 

17,2772 

23*546  1 

SXCh 

QPtACE 

RECORDS  TIME  AT  OCCURRENCE  OF  A DELTA  V 

0516 

17*2773 

0 0003  1 

CHECKGl 

relint 

KEEPS  CONTENT  OF  PlPA  REG  INTACT 

05T.7 

REF 

21  LAST  485 

17,2774 

10  067  1 

CCS 

NEWJOB 

0518 

REF 

6 LAST  485 

17,2775 

0 4404  0 

TC 

CHANG1 

0519 

17,2776 

0 0004  0 

INHINT 

0520 

REF  180  LAS!  486 

17,2777 

3 7665  0 

CAF 

ZERO 

052  r 

REF 

7 LAST  480 

17,3000 

51*541  0 

INDEX 

PIPINDEX 

0522 

RcF 

9 LAST  A80 

17*3001 

56  037  0 

XCH 

P1PAX 

0523 

REf 

7 LAST  479 

17,3002 

55*551  0 

TS 

STOREPL 

0524 

REF' 

8 LA5T  487 

17,3003 

11*551  0 

CCS 

STOREPL 

0525 

REF 

1 

17,3004 

0 3010  0 

tc 

CHECKP 

0526 

REF 

1 

17,3005 

0 3063  1 

TC 

RESTOREA 

0527 

REF 

1 

17,3006 

0 3023  0 

TC 

CHECKM 

j " 

0528 

REF 

2 LAST  487 

17,3007 

0 3063  1 

TC 

RESTOREA 

0529 

REF 

34  LAST  483 

17,3010 

3 7652  1 

CHECKP 

CAF 

B 1 1 6 

LOOKS  FOR  ONE  MORE  PLUS  PULSE 

0530  REF  1 

17,3011  55*540  0 

“TS 

PIPANO 

0531 

RcF 

8 LASI  4«7 

17*3012 

51*541  0 

INDEX 

PIPINDEX 

0532 

REF 

10  LAS  1 48  7 

17,3013 

10  037  1 

CCS 

PlPAX 

0533 

REF 

T 

17,3014 

0 3036  1 

TC 

CHECKG3 

0534 

17,3015 

0 3020  0 

TC 

+ 3 

0535 

Rcr 

3 LAST  487 

17,3016 

0 3063  1 

T C 

RESTOREA 

“0536 

17,3017 

0 3020  0 

TC 

+ 1 

0537 

REF 

2 LAST  487 

17,3020 

11*540  0 

CCS 

PIPANO 

0538 

REF 

2 LAST  487 

17,3021 

0 3011  1 

TC 

CHECKP  +1 

0539 

PEF“ 

“ 4 LAST  487 

“ 17,3022 

CT30  63  I 

TC 

RESTOREA 

0540 

REF 

35  LAST  487 

17,3023 

3 7652  1 

CHECKM 

“CAF 

b 1 1 6 

LOOKS  FOR  ONE  MORE  MINUS  PULSE 

0541 

REF 

3 LAST  487 

17,3024 

55*540  0 

TS 

PIPANO 

0542 

ReF“ 

^9  LAST  48 7 

I?,3025 

5 i * 54 1 0 

“IWJEx 

PIPINDEX 

0543 

REF 

11  LAST  487 

17,3026 

10  037“ 1 

CCS 

PlPAX 

0544 

REF 

5 LAST  487 

17,3027 

0 3063  1 

TC 

RE5T0REA 

0545 

“ 17,3030 

0 3033  1 

TC 

+ 3 

73546 

REF 

2 LAST  487 

17,3031 

0 3036  1 

TC 

CHECKG3 

0547 

17,3032 

0 3033  1 

TC 

+ 1 

0546  “ 

“REF“ 

LAST  487 

17,3033 

11*540  0 

' CCS 

PIPANO 

0549 

REF 

2 LAST  487 

17,3034 

0 3024  1 

TC 

CHECKM  +1 

0550 

REF 

6 LAST  487 

17,3035 

0 3063  1 

TC 

RESTOREA 

0551 

IT,  303  6 

0“5470““1 

CHECKT7S 

TC 

F iNETTME 

TIME  ITT  DOUBLE  PRECISION  LEFT  IiN“MPAC 

0552 

REF 

568  LAST  470 

1 7 1 3037 

52  141  1 

DXCH 

MPAC 

“73553 

REF 

28  LAST  469 

“ 17,3040 

3 7654  1 

CAF 

B7I  4 “ 

0554 

REF 

5 LAST  487 

17,3041 

55*540  0 

CHECK65 

TS 

PIPANO 

0555 

REF 

10  LAST  487 

17,3042 

51*541  0 

INDEX 

PIPINDEX 

0556 

REF 

12  LAST  487 

17*3043 

10  037  T 

CC5 

PlPAX 

0557 

17,3044 

0 3050  1 

TC 

+ 4 

0558 

REF 

7 LAST  467 

17,3045 

0 3063  1 

TC 

RESTOREA 

0559 

17"  73046““ 

0 3050  T - 

“TC 

+2 

0560 

REF 

8 LAST  487  “ 

17,3047 

0 3063  1 

TC 

RESTOREA 

0561 

REF 

6 LAST  487“ 

17,3050 

11*540  0 

CCS 

PIPANO 

“ 0562  “ 

REF 

I ~ 

' 1773051 

0 3041  1 - 

“TC“ 

"“CHECKG5 



473423A  YJL  SYSTEM  FOR  BLK^S  REVISION  12  OF  PROGRAM  aURqRA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  488 

L 

I MU 

performance 

TESTS  2 

USER'S  OwN  pAGE  NO,  14 

0563 

REF 

1 

17,3052 

0 3055 

1 

NREAD 

TC 

RESTORE 

0564 

REF 

9 

LAST  487 

17,3053 

55*551 

0 

TS 

storepl 

0565 

~ REF 

27 

LAST  487 

17,3054 

0 1546 

1 

RESTORE 

TC 

QPLACE 

0566 

~ REF 

TO 

LAST  488 

17,3055 

57' 551 

1 

XCH 

storepl 

A WILL  CONTAIN  PREVIOUS  PIPA  CNTR  CONTEN 

~0567 

REF 

n 

“CAST  487 

17*3056 

5TT541 

0 

IWEx 

PIPINDEX 

STOREPL  WILL  CONTAIN  ZERO 

0568 

~REF 

"13 

LAST  487 

17,3057 

6 0037 

0 

TO 

PlPAX 

0569 

REF 

12 

LAST  488 

17,3060 

51*541 

0 

INDEX  PIPINDEX 

'"0570 

REF 

14 

LaET"“488 

17,3061 

5V  037 

1 

TS 

PIPAX 

0571 REF  274  LAST  48l  17,3062  0 0002  0 TC  Q 
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L 

i mu  performance  tests 

2 

USER ’ S OWN  PAGE  NO.  15 

0572 

ref  2 LAST  488 

17,3063 

0 3055 

1 

restorea 

TC 

restore 

0573 

REF  1 

17,3069 

0 2773 

0 

TC 

checkgi 

0574 

“ REF  nr  LAST  488 

17,3065 

3 1551 

1 

DATALD 

C A 

STOREPL 

0575 

- REF  12  LAST  480 

17,3066 

51 • 673 

I 

INDEX 

RESULTCT 

05  7 6 

REF  16  LAST  480 

17,3067 

55*626 

0 

TS 

DATAPL 

0577 

REF  569  LAST  987 

17,3070 

3 0190 

1 

CA 

MPAC 

0578 

REF  13  LAST  989 

17,3071 

51*673 

1 

INDEX 

RESULTCT 

0579 

T?EF  "T7  LAST  489 

17,3072 

55*627 

1 

TS 

DATAPL  +1 

0580 

" REF  570  LAST  989 

17,3073 

3 0191 

0 

CA 

MPAC  +1 

0581 

REF  19  LAST  989 

17,3074 

51*673 

1 

INDEX 

RESULTCT 

0582 

REF  T8  LAST  989 

17,3075 

55*630 

1 

TS 

DATAPL  +2 

0583 

REF  275  LAST  988 

17,3076 

0 0002 

0 

TC 

Q 

• 

f 


0589 

17*3077 

0 0006  1 

POSGMBL  EXTEND 

COARSE  ALIGNING  SUBROUTINE 

0585  REF  28  LAsT  988 

17,3100 

23*596  1 

dxch  qplace 

0586 

REF 

92 

LAST  982 

17,3101 

0 6000 

1 

TC 

INTPRET 

% 

0587 

17,3102 

77639 

0 

CALL 

0568 

RET 

2 

LAST  999 

17,3103 

32615 

1 

CALCGA 

0589 

17,3104 

77776 

1 

EXIT 

% 

0590 

REF 

8 1 

LAST  986 

17*3105 

0 9063 

0 

TC 

BANKCALL 

0591 

ref 

9 

LAST  975 

17,3106 

26055 

0 

CAdR 

IMUCOARS 

% 

0592 

REF 

1 

17,3107 

3 3123 

1 

CA 

GMLOCKCK 

IF  FAILREG  CONTAINS  901  WILL  RETURN  TO 

0593 

REF 

9 

LAST  367 

1773ir0  T 1363 

T 

MAERT 

FATLRET 

0594 

REF 

330 

LAST  985 

17,3111 

10  000 

0 

CC5 

A 

L +1,  OTHERWISE  TO  L +2. 

% 

0595 

REF 

1 

17,3112 

0 3115 

1 

TC 

LOCK 

0596 

"REF 

29 

LAST  489 

17,3113 

25*546 

r 

ITTCR 

QPLACE" 

0597 

17*3119 

0 3117 

0 

TC 

+ 3 

* 

0598 

ref 

68 

LAST  985 

17,3115 

3 7656 

0 

LOCK  CA 

T WO 

0599 

REF 

7 6 LAST  977 

17,3116 

— T5 

NDXCTR 

0600 

REF 

82 

LA5T  989 

17,3117 

0 9063 

0 

TC 

BANKCALL 

4 

0601 

REF 

22 

LAST  986 

17,3120 

26716 

0 

CADR 

IMUSTALL 

- 0602 

REF  16  LA5 1 966 

17,3121 

1 2293 

1 

— TCF 

" "EiTOTESTT 

0603 

REF 

30 

LAS  1 489 

17,3122 

0 1596 

T 

TC 

QPLACE 

Hi 

0609 

17,3123 

00901 

1 

GMLOCKCK  OCT 

00901 
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0606 

17.3124 

0 0006  1 

FALNE  EXTEND  TORQUES  GYROS  TO  NULL  OwT  DIFFERENCE 

0607 

REF  31  LAST  489 

17.3125 

23 ' 546  1 

QXCH 

QPLACE  BETWEEN  DtSlRED  5M  ORIENTATION  WITH  REST 

13608 

FEF  83  LAST  489 

17*3126 

0 4063  0 

TC 

BANKCALL  TO  NBASE  AND  ACTUAL 

0609 

REF  8 LAST  466 

17,3127 

26000  0 

cadr 

IMUZERO 

0610 

REF  84  LAST  490 

17,3130 

0 4063  0 

TC 

BANKCALL 

0611 

REF  23  LAST  489 

17,3131 

26716  0 

CADR 

IMUSTALL 

0612 

REF  17  LAST  489 

17,3132 

1 2243  1 

TCF 

ENDTEST1 

061 3 

HREF  85  LAST  490” 

17, 3133 

0“4063  0 

TC 

BANKCALL 

0614 

REF  4 LAST  460  ' 

17,3134 

26227  1 

CADR 

IMUFINE 

0615 

RcF  86  LAST  490 

17,3135 

0 4063  0 

TC 

BANKCALL 

0616 

REF  24  LAST  490 

17, 3136 

26716  0 

“CADR” 

IMUSTALL 

0617 

REF  18  LAST  490 

17,3137 

1 2243  1 

T CF 

ENDTEST1 

0618 

REF  ” 21  LAST  484 

17,3140 

3 0032  0 

FALNE1  CA 

CDUX 

“0619 

“ REF  32  LAST  470 

17, 3141 

50  104  1 

TNDtX 

fixloc 

0620 

17,3142 

54'  024  0 

TS 

24 

0621 

REF  6 LAST  461 

17,3143 

3 0033  1 

CA 

CDUY 

0622 

REF  33  LAST  49'0” 

17,3144 

50  104  1 

INDEX 

fixloc 

0623 

17,3145 

54  020  1 

TS 

20 

0624  REF  1 1 LAST  46 1 

17,3146 

3 0034  0 

CA 

CDUZ 

REF  34  LAST  490 

17,3147 

50  104  1 

“TNDEX 

FIXLOC 

0626 

17,3150 

54  022  0 

TS 

22 

0627 

REF  17  LAST  484 

17,3151 

3 7653  0 

CA 

B1T5 

0628 

REF  35  LAST  490 

17,3151“ 

6 0104  1 

”AD 

FTXLOC 

0629 

REF  36  LAST  490 

17,3153 

50  104  1 

INDEX 

FIXLOC 

0630  REF  14  LA5T  461 

17,3154 

54  050  0 ~ 

TS 

51 

0631 

KEF  43  LAS  1 489 

17,3155 

0 6000  1 

T C 

TNTPRET 

0632 

17,3156 

64375  1 

yload 

MXV 

0633 

REF  26  LAST  477 

17,3157 

01401  0 

XSM 

0634 

“REF  36  LAST  460 

17, 316)0“ 

01445  0 

”5TARAD 

0635 

17,3161 

77772  0 

”75  LI 

0636 

17,3162 

36041  1 

3 

i 

0637 

REF  7 LAST  449 

1773163 ^ 

32517  0 

NBSM 

0638 

REF  15  LAST  449 

17,3164 

23423  0 

STOVL  XDC 

0639 

KfcP  13  LAST  478 

17,3165 

01407  0 

YSM 

0640 

17,3X66 

765ZT  XT 

M XV 

V5LT“ 

0641 

REP  37  LAST  490 

17,3167 

01445  0 

starad 

0642 

17,3170 

36041  1 

STCALL  32D 

0643 

RtF  3 LA5T  490 

~ 17,3X71 

32517  0 

NB5M 

0644 

REF  5 LA51  449 

17,3172 

23431  0 

STOVL 

YDC 

0645 

REF  16  LAST  49O 

17,3173 

0X423  0 

XDC 

0646 

17,3174 

76435  1 

VXV 

V5LI 

0647 

REF  6 LAST  490  ' 

17.3175 

01431  0 

YDC 

0648 

REF  4 LAST  449 

17,3176 

37437  0 

STCALL  ZDC 

0649 

REF  2“LAST  449 

17,3177 

32367  1 

“CALCGTA 

0650 

17,3200 

77776  1 

EXIT 

0651 

REF  1 

17,3201 

3 3673  0 

' X.  A 

OGCPL 

0652 

REF  37  LAST  490 

1773 ZU2 

O'  4063  0 

TC 

BANKCALL' 

0653 

REF  4 LAST  429 

17,3203 

26317  0 

CADR 

IMUPULSE 

0654 

REF  32  LAST  490 

17,3204 

0 1546  1 

TC 

QPLACE 

473423A 

VJL 

SYSTEM  FOR  BLK2 

: REVISION 

12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE 

491 

L 

I MU 

PERFORMAN 

CE  TESTS  2 

USER'S  own  page  NO.  17 

0655 

17,3205 

0 0006 

1 

WAITLOOP 

EXTEND 

loops  in  x sec  increments  for  number 

OF 

0656 

REF 

5 LAS  1 

455 

17,3206 

23  '"545 

i 

QXCH 

QPLAC 

0657 

5 last 

483 

17 ,32  07- 

55*676 

0 

TS 

COUNTPL 

NUMBER  PUT  INTO  LENGTHOT 

0658  REF 

6 LAST 

491 

1 f , 32 10 

11*676 

0 

waitlpi 

CCS 

COUNTPL 

0659 

17,3211 

0 3215 

1 

TC 

+ 4 

0660 

REF 

6 LAST 

491 

17,3212 

0 1545 

1 

TC 

QPLAC 

0661 

17 , 32T3 

0 3215 

1 

TC 

+ 2 

0662 

REF 

1 

17,3214 

0 3207 

1 

TC 

WA1TLP1  -1 

0663 

17,3215 

0 0004 

0 

1NHINT 

0664 

REF 

5 LAST 

483 

17,3216 

31*527 

0 

CAE 

LENGTHOT 

0665 

REF 

70  LAST 

469 

T7,32l7 

0 4536 

0 

TC 

WAITLIST 

0666 

17,3220 

03233 

0 

2CADR 

WAITLP3 

C0666 

REF 

1 

17,3221 

36005 

1 

0667 

17,3222 

0"0003 

1 

RELINT 

0668 

REF 

7 LAST 

491 

17,3223 

11*676 

0 

CCS 

COUNTPL 

0669 

REF 

7 LAST 

491 

17,3224 

0 1545 

1 

TC 

QPLAC 

0670  REF  8 LAST 

49r 

IT , 3 2Z  5 

0 1545 

1 

T C 

QPLAC 

0671 

17,3226 

1 3227 

1 

NOOP 

0672 

REF 

8 LA5T 

49 1 

17,3227 

55*676 

0 

WAITLP2 

TS 

COUNTPL 

ENTER  HERE  AFTER  DOING  CALLING  JOB 

0673 

REF 

I 

17,3230 

3 3232" 

1 

"CAF 

wTlpcadr 

0674 

REF 

11  LAST 

469 

17,3231 

0 4416 

0 

TC 

J03SLEEP 

0675 

REF 

2 LAST 

491 

17,3232 

37210 

0 

WTLFCADR 

CADR 

WAITLP1 

0676 

REF 

2 LAST 

491 

17,3233 

3 3232 

1 

TTAITLF3 

"CAF 

"WTLPCADFT 

0677 

REF 

9 LAST 

468 

17,3234 

0 4422 

1 

TC 

JOBWAKE 

0678 

REF 

6l  LAST 

469 

17 ,3235 

0 4602 

1 

TC 

TASKOVER 

0679  REF  169  LAST473  17,3236  54  001  1 ZEROING  IS  L 

"“0510  17,3237  1 3241"!  TCF  +2 

0 0681  REF  3 LAST  479  17,3240  55*776  1 ZER0ING1  TO  ZERONDX 

0682  REF  181  LAST  487  17,3241  3 7665  0 CAF  ZERO 

0513  RIF  170  LAST  491 17, "324 2 — 50  001  0 TNUEX — C 

• 0684  17,3243  54  000"0“  TS  — 

0685  REF  171  LAST  491  17,3244  24'001“0 — INCR C — 

0515 REF 4 LAST  491 17,3245 — 11*776  1 CCS ZERONOX — 

f 0687  REF  1“  17,3246  1 3240  0 TCF  ZEROINGTT 

0688  REF  276  LAST  489  17,3247  0 0002 “0“  TC  — Q — 

0689  REF  44  LAST "400 17,3250 — 0 6000  1 COHPtJT TC INTPRET CALCULATE  LENGTH  OF  GRAVITY  VECTOR  AS 

• 0690  - 17,3251 77170  1 AXT.l  AXT,2 MEASURED  6Y  ACCELEROMETERS 

0691  17,3252  00025t^  22D 

0692  17,3253  00012  1 10D 

• 0693  17,3254  77731  1 SSP 

- 0694  REF — 15  LAST  490  - - 17,3255  00051  0 SI 

0695  17,3256  00004  0 4 

> 0696  17,3257  77731“1—  SSP 

0697  REF  13  LAST  451  17,3260  00052  0 — 52 — 

0698  " 17,3261 0000  4 0 4 


07 


« 
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0699 

17,3262 

44743  1 

LOPDELOP  DLOAD* 

DSU* 

op 

REF  19  LAST  489 

- 17,3263 

76120  ~0”” 

DATAPL  +24D ,2 

“O7OT 

REF  20  LAST  492 

17,3264 

01657  1 

DAT  APL  + 24D , 1 

0702 

17,3265 

41323  0 

PDDL* 

DMP 

0703 

REF  46  LAST  480 

T?  ,32  66 

76156  1 

GENPL  + 24D  ,2 

0704 

RET”  2 LAST  477 

17,3267 

37665  0 

DEC585 

0705 

17,3270 

77671  1 

DDV 

“0706 

17,3271 

55504  0 

r ix  ,2 

VDEF 

0707 

REF  1 

17,3272 

37277  1 

NEXT 

0708 

17,3273 

45046  1 

ABVAL 

RTB 

0709 

REF  4 LAST  477 

17,3274 

33406”  0 

SGNAGREE 

0710 

REF  22  LAST  486 

17,3275 

36337  0 

STCALL 

DSPTEM2 

0711  REF  1 

17,3276 

37301  1 

KODU 

0712 

17,3277 

6000b” 1 

NEXT  PUSH 

T I X , 1 

0713 

REF  1 

17,3300 

37262  0 

LOPDELOP 

0714 

17,3301 

77776  1 

KODU  EXIT 

07 1 5 

REF  14  LAST  463 

17,3302 

0 5317  1 

TC 

GRABWAI T 

0716 

REF  5 LAST  478 

17,3303 

0 3576  0 

TC 

SHOW 

0717 

REF  45  LAST  491 

17,3304 

0 6000  1 

T C 

INTPRLT 

0718 

17,3305 

41535  1 

SLOAD 

PUSH 

0719 

REF  21  LAST  492 

17,3306 

01630  0 

DATAPL  +1 

0720 

17,3307 

41535  1 

SLOAD 

PUSH 

“0721 

HREF  2-2--LAST 492 

17,3310“ 

01634  1 

DATAPL  +5 

0722 

17,3311 

55535  1 

SLOAD 

VDEF 

0723 

RtF-  23  LAST-  492 

17,3312 

01640  1 

DATAPL  +11 

0724 

1 7 ,3313 

76456  1 

UNTT 

VSLl 

0725 

IV  ,3314 

77606  1 

PUSH 

O7  2 6 

17,3315 

41535  1 

SLOAD 

PUSH 

“072T 

REF”  ”24  EAST  492 

1 7 , 3E  T6 

01644  0 

DATAPL  +15 

0728 

17,3317 

41535  1 

SLOAD 

PUSH 

0729 

REP  2b  LAST  492 

17,3320 

01650  0 

DA i APL  +21 

C 

U) 

O 

- 17,3321 

5 5535  1 

SLOAD  ” 

WEF 

0731 

RcF  26  LAST  492 

17,3322 

01654  1 

DATAPL  +25 

0732 

17,3323 

76456  1 

UNIT 

VSL1 

0753 

17,3524 

45525  T” 

PDDL 

TOST  ” 

0734 

REF  27  LAST  492 

” 17,3325 

01655  0 

DA  1 APL  +26 

0735 

REF  28  LAST  492 

1 / * 33^6 

01641  0 

DATAPL  +12 

0736 

17 ,332T 

77612  1 

-””SET 

0737 

1 7,3330 

77652  0 

5L3 

0738 

RcF  6 LAST  491 

1 7 , a i 1 

23530  0 

STOVL 

LENGTHOT 

0739 

1 7 1 3 3 32 

51435  1 

¥XV“ 

AWAL 

0740 

17.3333 

56205  0 

DMP 

DDV 

074  1 

REF  1 

17,3334 

37670  1 

ERUNITS 

0742 

REF  7 LASi  492 

1 7 ♦ 5 i i 5 

01530“  0 

LENETHOT 

0743 

1 7 , 3 3 3 b 

77624  1 

RTB 

0744 

REF  5 LAST  492 

1 7 » 3 3 3 7 

33406  0 

SGNAGREE 

0745 

”REF  c3  LAST  492 

1 7 , 3 J4U 

00337  0 

store 

DSPTEM2 

0746 

17,3341 

77776  1 

EXIT 

0747 

REF  6 LAST  492 

17 ,3342 

0 3576  0 

TXT 

SHOW 

0748 

REF-  1 

17  ,”3343 

1 2402  T 

TCF 

RADCK  ” 

473423A  YJL  SYSTEM  FOR  BLK2T  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  493 


L 
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PERFORMANCE  TESTS 

2 

USER'S 

OWN  PAGE  NO.  19 

0749 

17*3344 

0 0006  1 NBPOSPL 

EXTEND 

SETS  UP 

AZIMUTH  AND  VERTICAL  VECT0R5 

FOR 

“~C750 

33  LAST  490 

17,3345 

23*546  1 

2XCH 

QPLACE 

AXISGEN 

.RESULTS  TC  BE  USED  IN  CALCGA 

TO 

0751 

'REF 

46  EAST  492 

17*3346 

0 6000  1 

IX 

INTPRET 

' 0752 

1.  ! * 3547 

54160  1 

AXC  * 1 

X5U  * 1 

azimuth 

IN  Nb  COORDS 

0753 

REF 

1 

17.3350 

37704  0 

SCNBAZ 

0754 

RtE 

2 LAST  482 

17,3351 

01536  0 

NBPOS 

0755 

17,3352 

77773  T 

VLOAD* 

0756 

17,3353 

00001  0 

0,1 

0757 

REF 

38  LAST  490 

17,3354 

01445  0 

STORE 

STARAD 

0758 

17*3355 

54160  1 

AXC  * 1 

XSU.l 

VERTICAL 

IN 

NB  COORDS 

0759 

REF 

1 

17*3356 

37716  0 

SCNBVER 

0760 

REF 

3 

LAST 

493 

1 / *335  J 

0153b  0 

NBPOS 

0761 

rr.3360 

77773  1 

VLOAD* 

0762 

17*3361 

OOOOl  0 

0,1 

0763 

REF 

39 

LAST 

493 

17*3362 

07453  1 

STOOL 

STARAD  +6 

0764 

REF“ 

8 

LAS  1 

463 

17*3363 

33042  1 

ZERODP 

U76S 

17*3364 

06007  0 

STODL 

6D 

0766 

REF 

5 

LAST 

455 

17*3365 

01507  1 

AZIMUTH 

0767 

if*  3366 

57546  1 

COS 

DCOMP 

0768 

17*3367 

06011  1 

STOOL 

8D 

0769 

REF 

6 

LA5T 

493 

17,3370 

01507  1 

AZIMUTH 

0770 

17,3371 

77758  0 

SIN 

0771 

17,3372 

00013  0 

5T0RE 

10D 

VERTICAL 

IN 

CER 

0772 

17*3373 

77775  1 

VLOAD 

C773 

REF 

2 

LAST 

“493 

17,3374 

377T7  1 

scnbver 

0774 

17,3375 

36015  0 

stcall 

12D 

0775 

REF 

2 

LAST 

448 

17,3376 

32677  0 

AXISGEN 

“0776 

“17*3377 

77776  1 

exit 

C777  REF  2 LAST  476  17*3400  3 3663  1 SELPOSN  CA  DECI7 

'07TB  REF  5 |_Asr~Wr~  ~ T7T3F01 — 55*776  1 T$  ZERONdX““ 

0779  REF  I 17*3402  3 3703  0 CA  X5MADR 

0780  REF  “3  LA3T~4T9  lT,3403 — 0 3236  0 TC ZEROING — 


0781  REF  12 'LAST  482  17*3404  5l'544  0 INDEX — POSITON 

0782“  ““  17*3405  0 3406  0 TC  +1 

0783  REF  I 17*3406 — 0 3524“I TC OPCHkPOS OPCH«  WILL-  PUT  ZERO  IN  POSITON' 

078 4 REF  I 17*3407 — 0 3422“0 TC P0SN1 — 

0785  REF 1 17*3410 — 0 343 n TC P0SN2 — 

0785  REF  ““I  17*3411 — 0““3“43E“0 TC PE5N3 — 

0787  REF  1 17*3412 — 0 3450  0 TC P0SN4 — 

078  8 REF 1 1773473-  0“3460  '0 TC P0SN5 — 

'0789  REF  I 17*3414 — 0 3470  1 TC P05N6 — 

0790  REF  7 17*3415  0 3500  1 TC P0SN7 — 

0791  REF  1 17,3416  0 3513  0 TC  P0SN8 

0792  REF  1 17*3417  0'3542'  1 TC P0SN9 

0793  REF  1 17*3420  0 3553  1 TC  P05N1Q 


I 

« 


07931  REF  T 


1?,3421  0 3554  0 


TC 


P0SN11 


COMPASS  POSITION 
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Li  i viu  performance  tests  2 


USER  IS  OWN  PAGE  NO, 20 


R0794  we  will  denote  the  flashing  display  of  a horizontal  test  by  dh 

R0T95  ( XXX  ,XX~~MeRU)  AND  a VERTICAL  TEST  BY  DV"  ( XXX  ,X’X  MtRG  i EACH  POSITION  TELL  _ 

" R0796  tow  THg  displays  ' are"  Related  to  tthe  drift  coefficients  being  measured, 

RQ797  NOTE  THAT  IT  IS:  ILLEGAL  TO  RJV  VERTICAL  IN:  POS  6* At  OR'  2 WITHOUT  FIRST  “ 

R0798  RUNNING  HORIZONTAL  OF  PoS  5, '3,  0R1.  THIS  IS  BECAUSE  THE  HORIZ  DRIFT  CALC 

" R0799  IY  1,3,  OR"  5 15  USED  AS  EAST  OR IFFFT~FOR~TERTILAL  TE5T,  THIS  I S DONE  BY 

R 080 0 THE  MACHINE  AUTOMATICALLY  EXCEPT'  FQRi  VERTICAL' POSITION- S WHICH  THE 
RO8OI  OPERATOR  MUST  DO*  (SEE  POSITION  6 BELOW) 

'0802  REF  20  LAST  451  17*3422  3 7642  0 P0SN1  CA  HALF  X UP,  Y SOUTH*  Z EAST 

0803  REF  ~27~  LAST  490  17,3423  55*400  0 TS  XSM 

0804  REF  14  LAST  490  17*3424  55'4l0  1 TS  YSM  *2  N6DY  = DH 

~ 0F05  REf  12  LAST  "471  17 *3426 ~"S5't420  1 T5~~  ZSM.  *4 

0806  REFV 182  LAST  49l  17,3426  3 7665  0 NGUBGH  CA  ZERO  

"0807  REF  13  LAST  488  17,3427  55*541  1 TS  PIPINDEX 

0808  'REF  34  LAST  493  17*3430  0 1546  1 TC  OPLACE 


0817 

REF  21  LAST  494 

17,3431 

4 7642 

1 P0SN2 

cs 

HALF 

X DOWN,  Y WEST,  Z NORTH 

— 0818 

REF  T8  LA'S!" 494 

— 17,3432 

55*400 

0 

TS 

XSM 

0819 

RcF  I5  LAST  49 A 

17*3433 

55 ' 412 

0 

TS 

YSM  +4 

NBDZ  =DH  *NBDX  -ADIAX=  -DV 

0820 

REF  13  LAST  494 

17 ,3434 

55*416 

1 

TS 

ZSM  +2 

082  r~ 

REF  r 

17*3435 

0 3426 

1 

TC 

NGUBGH 

0832 

ref 

22  last  494' 

17,3436 

3 7642  0 POSNS 

“~Ca 

half 

Z UP,  Y 

WEST  ,X  NORTH 

14  LAST  494 

17,3437 

55*414  0 

TS 

ZSM 

0834 

17,3440 

4 0000  0 

COM 

NBDX  = 

-DH 

083s 

REF 

2 9 LAST  494 

17,3441 

55 ' 402  1 

T5 

XSM  +2 

0836 

REF 

16  LAST  494 

1 1 ,3442 

55*412  0 

T5 

YSM  +4 

0837" 

ref 

6T  LA51T4E9 

" 17,3443 

3 765613  N5FLAG1T 

CA" 

^rwir 

0838 

REF 

14  LAST  494 

17,3444 

55*541  1 

TS 

PIPINDEX 

0839 

REF 

183  LAST  494 

17*3445 

3 7665  0 N5BUGD 

CA 

ZERO 

0840 

REF 

TT.A5T  477 

17 ,3446~ 

55*576  0 

TS 

' DRIFTT 

Q84I 

REF 

35  LAST  4V4 

17*3447 

0 1546  1 

TC 

QPLACE 

0842 

REF 

23  LAST  494" 

17,3450 

4 7642  1 P0SN4 

CS 

HALF 

Y SOUTH,  X EAST*  Z DOWN 

0843 

REF 

15“  LA5T  494 

17*,  34*51 

55’AiA  U 

*T5 

*ZS1M 

NBDY  +ADSRAY=DH 

O844 

17,3452 

A 0000  0 

COM 

NBDZ  +ADIAZ  =DV 

0845 

REf 

17  LAST  494 

17 ,3453 

55*410  1 

TS 

YSM  +2 

0846 

REF 

30*  LAST  494 

17,3454 

55*404  1 

TS 

* X5M~  +4  " 

0847 

70  LAST  494 

17 ,3455 

3 7656  0 

CA 

TWO 

0848 

REF 

15  LAST  494 

1 t ,3456 

55*541  1 

TS 

PIPINDEX 

0852 

REF 

36  LAST  4 94 

17,3457 

TC 

□PLACE 

I 


$ 


I 
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L 

I MU  PERFORMANCE  TESTS  2 

USER'S  OWN  PAGE 

NO.  21 

0855 

REF  24  LAST  494  17,3460 

3 7642 

0 P0SN5 

CA 

HALF  Y UP,  Z NORTH,  X 

WEST 

0656  " 

REF  18  LAST  494  17,3461 

55*406 

0 

TS 

YSM 

O857 

17,3462 

4 0000 

0 

COM 

NBDZ-ADSRAZ  =DH 

0858 

REF  “31  LAST  494  17,3463 

55 • 404 

1 

TS 

XSM  +4 

0859 

REF  16  LAST  494  17,3464 

55*416 

1 

TS 

ZSM  +2 

0860 

REF  130  LAST  484  17,3465 

3 7657 

1 

CA 

ONE 

0861 

REF  16  LAST  494  17,3466 

55*541 

r 

TS 

P1PINDEX 

0862 

REF  1 17,3467 

0 3445 

i 

TC 

NSBUGD 

R0866 

TO'  RUsj  POSITION  6 VERTlCAL  AFTER  PlP  TEST  POS 

6 is  displayed  the  operaTr 

R0867 

MUST  CALCULATE  FROM 

2,5  -NBDZ-ADSRAZ  (XXX.XX) MERU. 

when  pi 

R0866 

IF  DATA  FLASHES  DO  VERB  33  ENTER.  THIS  STARTS 

vertical 

TEST.  THEN  THE 

R0869 

DATA  XXX, XX  MlRU  A5 

CALCULATED  MUST  BE  ENTERED 

INTO  DRIFTT.  IE  VERB  21 

R0870 

ENTER  NOUN  01  ENTER 

LOCATION  OF  DRIFT)  ENTER  + 

(OR  -) 

XXXXX  ENTER 

0871 

"“  ■REF  25"  LAST  495 

17,3470  3 7642  0 P0SN6 

CA" 

HALF  Y DOWN,  Z EAST,  X SOUTH 

0872 

REF  32  LAST  495 

17,3471  55*402  1 

TS 

XSM  +2 

0873 

REF  1 7 LAST  495 

17*3472  55*420  1 

15 

ZSM  +4 

D874r" 

17,3473"  1 0000  0 

cOiF 

NBDX  •*  ADSRAx  = DH,  NBDy  -AD  I Ay  = -DV 

0875 

REF  19  LAST  495 

17,3474  55*406  0 

TS 

YSM 

0876 

REF  131  LAST  495 

17,3475  3 7657  1 

CA 

ONE 

0877 

REF  17  LAST'D 95 

17,3476  55*541  1 

T5“ 

PIP  INDEX 

0878 

REF  37  LAST  494 

17,3477  0 1546  1 

TC 

QPLACE 

0883 

REF  26 

last 

495 

17,3500 

4 7642  1 

P05N7  CS 

HALF  Z OP-tAST  , Y UP-WEST, X NORTh*ThIS  POSITON 

0884 

“REF  733 

LAST 

T95 

17,35  OTT 

55*402  1 

"IS" 

XSM  +2 

0885 

REF  I 

17,3502 

3 3677  1 

CA 

ROOT  1/2 

0886 

REF  20 

LAST 

495 

17 , 3503 

55*406  0 

TS 

YSM  NBDX  - .707  ADSRAX  = -DH 

OB  87 

REF  IB" 

LAST 

495' 

17,3504 

55T4I4  0 

TS 

ZSM" 

0888 

REF  19 

LAST 

495 

17*3505 

55*420  1 

TS 

ZSM  +4 

0889 

17,3506 

4 0000  0 

COM 

OS90 

""REF  21 

LAST 

"495" 

"IT,  3507 

"55*412  0 

T5" 

YSM"  *.4  " 

0891 

REF  164 

LAST 

494 

17,3510 

3 7665  0 

GEORGES  "CA 

ZERO 

0892 

REF  10 

LAST 

489 

17,3511 

55*363  1 

TS 

FAILREG 

0393 

REF  2 

LAST 

495'  - 

" 17,3512 

"O  ' 3445  1 

"TC 

NSBUGD 

9907 

REF 

27 

LAST  495 

17,3513  3 7642  0 P0SN8 

CA" 

HREF  " 

Z UP-SOUTH, Y UP-NORTH, X EAST, THIS  POSITN 

O9O8 

REF 

34 

LAST  495 

17,3514  55*404  1 

TS" 

XSM  +4 

0909 

RtF 

2 

last  495 

17*3515  3 3677  1 

"CA 

ROOT! / 2 

.707  (-NBPZ-NBDY)  +.5 (ADIAZ-ADIAY) 

0910 

ref 

22 

LAST  495 

if, 3516  55*406  0 

— TS  " 

YSM 

+ • 5 ( AqSRAy  +ADSRAZ)=DH 

091 1 

REF 

20 

LAST  495 

17,3517  55*416  1 

TS 

ZSM  +2 

0912 

ref 

2 1 

LAST  495 

1713520  55r4l4  0 

T5 

— Z5W — 

0913 

17*3521  4 0000  0 

COM 

U9 14 

REF 

43 

LAST  A95 

17,3522  55*410  1 

TS" 

YSM  +2 

091E 

REF 

3 

LAST  495 

17,3523  0 3445  T 

"TC 

NSBUGD 
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L 

I MU 

PERFORMANCE  TESTS  2 

USER'S  OWN  pAGE  NO. 

22 

0922 

REF 

1 

17,3524 

3 3700  0 

OPCHKPQS  CA 

ROOT  ISO 

0G  = + 45DE'J,lG=»45DEG.MG  = +450tG. 

0923 

RTF 

33  EAST 

""495 

r? , 35  25 

55 • 400  0 

TS 

XSM 

0924 

"REF 

"24  EAST 

495 

1 7 » 3 5 2 6 

55*410  1 

T S 

YSM  +2 

0923 

RER 

T 5 LAST 

496 

17,3527 

55*412  0 

T5 

YSM  +4 

^092  6 

REF 

"32  LAST" 

495 

~1 7 * 3 5 3 0 

55*414  O' 

rs 

ZSM 

0927 

REF 

3 LA5T 

495 

17,3531 

3 3677  1 

CA 

R00T1/2 

0928 

RtF  ^6  LA5I 

496 

17,3532 

55  • 406  0 

TS 

YSM 

“0929 

-REF 

1 

17,3533 

3 3702  1 

CA 

R00T3SQ 

0930  " 

REF 

36  LAST 

496 

1?  ,3534 

55*402  1 

TS 

XSM  +2 

093T 

RTF" 

23  LAST 

496 

17*3535 

55  * 420  1 

TS 

ZSM  +4 

3932 

ref 

1 ' 

17*3536 

4 3701  0 

cs 

R00T25Q 

0933 

REF 

37  LAST 

496 

17*3537 

55*404  1 

TS 

XSM  +4 

0934 

REF 

24  LAST 

496 

17 ,3540 

55*416  1 

T 5 

ZSM  +2 

0935 

RTF 

38  LAST  495 

17*3541 

0 1546  1 

TC 

QPLACE 

0936 

REF 

28  LAST 

495 

17,3542 

3 7642  0 

PQSN9  CA 

HALF 

X UP  tAST , Y UP  WEST  ,Z 

SOUTH, THIS  POSITON 

0937 

RtF 

25  LAST 

496 

17,3  543 

55*416  1 

TS 

TzsFn +2 

0938 

REF 

4" LAST 

496 

17*3544 

3 3677  1 

CA 

ROOT  1/2 

-NBDZ  +.707  SRAZ  =DH 

0939 

REF  38  LA5T  496 

17,3545 

55*400  0 

T 5 

XSM 

"“0940 

RTF 

39  LAST 

496 

T7 ,3596 

55  *404~  1 

T S 

XSTT +4 

0941 

RTF 

27  LAST 

496 

17,3547 

55*406  0 

TS 

YSM 

0742 

17,3550 

4 0000  0 

COM 

"0943 

REF  23  LAST 

"496 

17,3551 

55  *'4 12"  0 

TS" 

Y5M  +4 

0944 

REF 

4 LAST 

495 

17,3552 

0 3445  1 

TC 

NSBUGD 

U955 

RtF  ^ LASI  496 

17,3553  3 764Z  0 

P0SR10  Ca 

half 

X UP  NORTH, Y UP  SOUTH, Z EaST.THiS  POSITn 

0956T 

“RtF  "26  "CAST  496 

1 7 ,3554  55*420  I 

TS 

ZSM  +4 

0957 

REF  5 LAST  496 

17,3555  3 3677  1 

CA 

ROOT  1/2 

*707 (NBUY  -NBDX ) +,5(ADIAY  -ADI AX) 

0958 

REF  40  LAST  496 

17,3556  55*400  0 

TS 

X5M 

+.5 (ADSRAX)  = DH 

0959 

"REF  29  LAST  496 

17,3557  55*406'  0 

"TS" 

YSM"  " 

0960 

REF  30  LAST  496 

17,3560  55*410  1 

TS 

YSM  +2 

0961 

17,3561  4 0000  0 

COM 

"0962 

REF  41TLA5T  496 

17*3562  55*402  1 

T5" 

X5M"  +"2  " 

0963 

REF  5 LAST  496 

17,3563  0-3445  1 

TC 

N5BUGD 

0964  REF  88  LA"ST  490"  17,3564  0 4063  0 POSNll  TC  "BANKCaLL  " "COMPASS  POSITION 

0W5  RTF  I 1 7*3565 43107  0 CAUR L0AD-x5M“ 

0966  REF  39  LASF  496 17,3566 — 0 1546“! TC QPLACE 


tv 

RtF 

44 

LAST 

492 

1 7 ♦ 3bb  f 

3 0336 

1 showld 

CA 

D5PTEM2 

0971 

RTF 

8 

LAST 

"492 

" 17,3570 

55"' 527 

“I 

TS 

L"EN"GTHOT" 

0972 

RtF 

25 

LAST 

496 

17 ,3571 

3 0337 

0 

CA 

DSPTEM2  +1 

0973 

REF 

4 

LAST 

493 

i 7,3572 

55*536 

1 

TS 

NBPOS 

0974 

REF 

26 

LAST 

496 

17,3573 

3 0340~ 

AT 

CA 

"""05PTEW2~+F  " 
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L 

I MU  PERFORMANCE 

TESTS  2 

USER'S  OWN  PAGE  NO.  23 

0975 

REF  13  LAST  493 

17.3574 

55*544  1 

TS 

POSITON 

0976 

REF  277  LAST  491 

17,3575 

0 0002  0 

TC 

Q 

0977 

17,3576 

0 0006  1 SHOW 

EXTEND 

0978 

RtF  4"0  LAST  496 

17,3577 

23*546  1 

OXCH 

QPLAcE 

0979 

REF  14  LAST  497 

17,3600 

3 1544  0 SHOW  1 

CA 

POSITON 

0980 

REF  27  LAST  496 

17,3601 

54  340  1 

T S 

DSPTEM2  +2 

098  r 

TREF^"  2T  LAST  486 

17,3602 

3 3657~0 

ZA 

VB06N66 

0982 

REF  44  LAST  486 

17,3603 

0 5332  0 

TC 

NVSBWAIT 

0983 

REF  13  LAST  486 

17,3604 

0 5274  0 

TC 

FLASHON 

0984 

REF  38  LAST  486 

17,3605 

0 514CT1 

TC 

END  IDLE 

0985 

REF  1 

1 7 ,3606 

0 2234  0 

TC 

FINISH 

0966 

REF  41  LAST  497 

17,3607 

0 1546  1 

TC 

QPLACE 

0987 

REF  2 LAST4T5 

17,3610 

0 3567  0 

~rc 

SHOWLD 

0988 

REF  1 

17,3611 

1 3600  0 

TCF 

SH0W1 

I 

i | [| 

: 


098801 

17,3612 

0 0006 

1 

LOADGTSM 

EXTEND 

THIS  LOADS  XSM  INTO  GEoMATRX 

098802  1WF~ 

42 

LAST  497 

17 ,3613 

23*546 

T 

qxch 

QPLACE 

098803  REF 

47 

LAST' 493 

17,3614 

0 6000 

1 

TC 

INTPRET 

098804 

17,3615 

77775 

1 

vload 

098805  REF' 

42 

LAST-  496 

T?  ,3616 

01401 

0 

XSM 

098806  REF 

1 

17,3617 

23750 

1 

STOVL 

GEOMTRX 

098807  REF 

31 

LAST  496 

1 ( f 362U 

01407 

0 

V5W 

098808  T7EF 

2 

LAST- 4 97 

1 f 1 3 6 2 1 

23  756 

I 

TTOV'L 

GEUMTRX  +6 

098809  REF 

27 

LAST  496 

17,3622 

01415 

0 

ZSM 

09881  REF 

3 

LAST  497 

1 ( 9 302  3 

01764 

0 

STORE 

GEOMTRX  + 1 2D 

098811 

1 7 ,3624 

77776 

T 

EXIT 

098812  REF 

43 

LAST  497 

17 , 3625 

0 1546 

1 

TC 

QPLACE 

w . 
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09886 

17,3626 

O 

O 

H 

47 

47 

0 1SECX  DEC 

loo 

098861 

17,3627 

17127 

0 GEORG  TD  2DEC 

,47408845 

CO9886I 

17,3630 

16705 

1 

098862 

17,3631 

07314 

0 2DEC 

.23125894 

C098862 

17,3632 

36223 

1 

098863 

17,3633 

04521 

0 2DEC 

.14561689 

C098863 

17,3634 

31140 

0 

CT98864 

17,3635 

75755 

1 GEORGETC  2 DEC 

-706360691 

C098864 

17,3636 

73521 

0 

1398865 

17,3637 

72476 

1 2DEC 

-.16806746 

CO  9 8 8 6 5 

17,3640 

54176 

0 

“098866 

17,3641 

04771  1 2DEC 

. i 5582939 

C098866 

17,3642 

03365 

1 

"”098867 

17,3643 

75644 

0 GEORGES  2DEC 

-.06806784 

C098867 

17,3644 

70661 

1 

098868 

17,3645 

47762 

1 2DEC 

-.75079894 

0098868 

17,3646 

7 5 07  7 

0 

~098869 

17,3647 

70023 

1 2DEC 

-.24878704 

CO 9886 9 

17 , 3650 

0989 

0014  14C  EQUALS 

0014 

“O99O 

17,3651 

02130 

1 V21N30E  OCT 

02130 

0991 

17,3652 

04000 

0 DESANGLE  DEC 

2048 

”0992 

17,3653 

04143 

0 SF CONST  DEC 

.13107 

0993 

17,3654 

34000 

0 SIZCHK  OCT 

34000 

0994 

17,3655 

00264  1 180DEC  DEC 

180 

O995" 

1 f ,3656 

07626 

1 3990DEC  DEC 

3990 

0996 

17,3657 

00666 

1 VB06N66  OCT 

00666 

0997 

17,3660 

"oroo" 

1 TESTTIME  DEC 

600 

0998 

17,3661 

01620  1 V16N20S OCT 

01620 

0999 

17,3662 

01640 

1 V16N40S  OCT 

01640 

1000 

17,3663 

00021  1 DEC  17  DEC 

17 

roor 

17,3664 

06200  0 DEC585  2DEC 

3200  B+ 14 

C1001 

17,3665 

00000 

1 

1002 

17,3666 

00400 

0 DELYOFF  OCT 

00400 

louy 

17,3667  “ 

00024 

1 “ ERWTT5“  2DEC  ' 

34T844  B-28 

C1003 

17,3670 

35474 

0 

1004  REF 

7 LAST  493 

17,3671 

01506 

0 GENPLAD  GENADR 

AZIMUTH 

“1003  “RTF 

I 

17,3672 

02521 

0 “GYROOPT.  ECADFT 

GYROD 

1006  REF 

8 LAST  472 

17,3673 

02500 

0 OGCPL  ECADR 

OGC 

1007 

17,367A 

77760 

0 LOWFOUR  OCT 

77760 

1008 

17,3675 

“00070“ 

0~  DEC56  — DEC 

~5  6“ 

1009 

17,3676 

10000 

0 45DEG  OCT 

10000 

1010 

17,3677 

13241 

1 ROOT  1/2  DEC 

.353553 

ion 

17,3700 

lOOOO 

0 ROOT15Q  “DEC 

.250000 

1012 

17,3701 

15520 

1 R00T2SQ  DEC 

.426776 

1013 

17,3702 

02260 

1 R00T3SQ  DEC 

.073223 

1014  REF 

— 4'3“'LAST  497 — 

“ 17,3703  “ 

01400 

T~  XSWADR”  GENADR" 

X5M'~ 

473423A 

YJL 

SYSTEM  FOR  BLK2:  REVISION 

12  OF  PROGRAM  AURORA  BY 

DAP  GROUP  NOV  10,  1966  (MAIN)  PAGE  499 
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USER'S  OWN  PAGE  NO,  25 

1018 

17,3704 

00000  1 

SCNBAZ  20EC 

0 

CTO  1 8 

" 17,3705 

00000  1 

1019 

17,3706 

00000  1 

2DEC 

0 

CIO  19 

17,3707 

00000  1 

1020 

17,3710 

20000  0 

LABNBAZ  2DEC 

.5 

C1020 

17,3711 

00000  1 

1021 

17,3712 

00000  1 

2DEC 

0 

C1021 

17,3713 

00000  1 

1022 

17,3714 

00000  1 

2DEC 

0 

C1022 

17,3715 

00000  1 

102  3 

17,3716 

20000  0 

SCNBVER  2DEC 

.5 

C1023 

17,3717 

00000  1 

1024 

17,3720 

00000  1 

2DEC 

0 

0024 

17,3721 

00000  1 

1025 

17,3722 

00000  1 

LABNBVER  2DEC 

0 

0 025 

17,3723 

00000  1 

1026 

17,3724 

00000  1 

2DEC 

0 

0 026 

17,3725 

00000  1 

1027 

17,3726 

57777  1 

2DEC 

-.5 

Cr027 

17*3727 

77777  0 

1028 

17,3730 

ENDIMUS2  = 

4 ? 342  3A  YJL  SYSTEM  FOR  BLK  2 : R E V I S I O'm  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE:  500 


L 

I MU 

PERFORMANCE  TESTS  3 

USER'S  OWN  PAGE  NO.  1 

0001 

REF 

1 

16*2620 

SEtLoC 

ENDPIN53 

0002 

REF 

44  LAST 498 

E5 

EBANK= 

XSM 

0500 

16,2520 

0 0006 

1 

silver 

EXTEND 

0501 

REF 

44  LAST  497 

16*2521 

23*546 

1 

OXCH 

QPLACE 

SHOULD  BE  ADDRESS  OF  STRTWACH 

O5O2 

REF 

4 LAST  486 

16*2522 

1 1 ' 6 1 4 

1 

CCS 

CALCDIR 

2F  COMMAND  IS  POSITIVE  THE  MINUS  TORQ 

"0503 

REf 

12  LAST  377 

16 ,2523 

3 7647 

0 

CAf 

BIT9 

winding  is  to  be  energized 

0504 

16.252A 

0 2526 

1 

TC 

+ 2 

0505 

REF 

1 

16,2525 

0 2530 

0 

TC 

TORK 

COMMAND  IS  NEG  SO  USE  PLUS  WINDING 

0506 

16,2526 

0 0006 

1 

EXTEND 

T507 

REF 

3 LAST  485 

16,2527 

05  014 

1 

WOR 

14C 

SELECT5  THE  MINUS  WINDING 

0508 

REF 

31  LASI  485 

16,2530 

3 7637 

1 

TORK 

CAP 

POSMAX 

0509 

REF 

3 LA5l  485 

16,2531 

54  047 

0 

TS 

GYROCTR 

16383  PULSES  =2.8125  DEG  LESS  ONE  PULSE 

~ 05 1 0 REF  2 LAST  474 

0511  REF  T 

U5T2  RTF  Z2rrATT^rT“ 
"U5T3  REF 

0514  REF  r~ 

"U5I5  REF  r~ 

T75T6“ 

^05IT  REF  4 LA5T  500  “ 


16*2=32 

11*616 

0 

CCS 

gytobetq 

16,2533 

0 2537 

1 

T C 

SELECTX 

T6 ,2534 

D 5464 

1 

TC 

CCSHOLE 

16,2535 

0 2547 

0 

TC 

selectz 

1 6 , 2 3 36 

0 2543 

1 

TC 

SELECTY 

16,2537 

3 2553 

0 

"5ELTCTX  CAF 

TURKIC 

16,2540 

0 0006 

1 

EXTEND 

16,2541 

05  014 

1 

WOR 

14C 

16,~254T 

0 1E46 

1 

TCT 

QPLACE 

CTKT=~~1  FOR  X,  -OFOR  Y,  "iFOR  Z. 


BETTS  7AN0  10'  IN  CHANNEL  U WTCE 
SELECT  X GYRO  AND  TURN  ON  BCSW  1/3200 
S5EC  LATER  BY  CHANNEL  OUTPUT  DESIGN... 


O5I9  REF  1 


n 


2543  3 2554  1 SELECTY  CAE 


TORKY 


BBITS  8 AND  10  TO  TORQ  Y GYRO 


O5T0" 

16,2544 

TOOOB  r 

TXTEND 

0521 

REF 

3 

LA5  I 

500 

16,2545 

05  014  1 

WOR  14C 

0522 

REF 

46 

LAST 

500 

16,2546 

0 1546  1 

TC  QPLACE 

u523 

REF 

1 

16*2547 

3 2555  0 

SELECTZ 

CAF  TORKZ 

BBITS  7, BAND  10  TO  TORQ  Z GYRO 

0524 

16,2550 

0 0006  1 

EXTEND 

— D525 

KEF 

6 

LAST 

500 

16,2551 

05  014  1 

WOR  T4C 

0526 

5OO 

16,2352 

0 1546  1 

TC  QPLACE 

0527 

16,2553 

01100  1 

TORKX 

OCT  01100 

0528 

1 6 ,2554 

731 200  r 

TORKY 

OCT  01200 

0529 


T6 


01300 


473423A~YJL  SYSTEM  FOR  BLK2 ; REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  501 


L I MU  PERFORMANCE  TESTS  3 


USER'S  OWN  PAGE  NO. 2 


0530 


REF 
CTS  31  REF 

0532  REF 


185  LAST  495 
A LAST  484 
E0""LA5T  465 


T6 


T6 

1 6 


2556 


2 5 57 
2560 


3 7665  0 SAMODCHK  CAF 
55 ' 563  I~ 


55*550  1 


TS 

TS 


ZERO 


TESTNO 

Run 


0533 

”0534 


REF 

REF 


16 
1 6 


2561 

2562 


0 3150  0 
0 3174  0 


TC 

TC 


ZEROMODE 

OPRTRDLY 


16 


0535  ' REF  1 


2563  0 3244  0 


TC 


COARZERO 


O536  REF 


0537  “RTF  2 LAST  50 T 


16 

T6 


2564  0 3160  0 


7<r 


2565  0 3174  0 


TC" 


ZEROMAIN 


UpRTRDLY” 


0538  REF  2 LAST  501 


16 


2566  0 3150  0 


TC 


ZtROMQDE 


0539 

0540 


REF 

RTF 


166  LAST  5OI 
1 


2567 

2570 


3 7665  0 
0“3102  1 


CAF 

TC 


ZERO 

THETADLD 


0541 

0542 


REF 

REF 


2 LAST  501 


16 

16 


2571 

2572 


3 3332  0 
0 3102  T 


CAF 

TC 


45ANG 

THETADLD 


0543  REF  1 


16 


2573  0 3260  0 


TC 


FNZEROFN 


0544 

0545 


REF 

REF 


T~ 

3 LAST  501 


T6 

16 


3 3334 FIT 
0 3102  1 


CAF 

TC 


2574 

2575 


9QANG 

THETADLD 


0546 

0547 


~~RET 

REF 


4 LAST  501 


2576 

2577 


3 3335  1 
0 3102  1 


CAF 

TC 


135ANG 

THETADLD 


0548  REF  2 LAST  501  16*2600  3 3332  0 CAF  45ANG 

0549  REF  5 LAST  501  16*2601  0 3104  1 TC  THETADLD  +2 


""  0550 

" REF" 

2 

LAST 

501 

lo  *2602 

0 3260  0 

TC 

FNZEROFN 

0551 

RtF 

1 

16*2603 

3 3340  0 

CAF 

180ANG 

055 2 

RTF 

17" 

las  1 

479" 

1 6 * 2604 

54  400  T 

T5" 

THETAD 

0553 

REF 

18 

LAST 

501 

16  *2605 

54  401  0 

TS 

THETAD  +1 

0554 

REF 

1 

16  *Z606 

3 3333  T 

CAF 

71 ANG 

0555 

RcF 

6 

LAS  1 

501 

16  *2607 

0 3104  T " 

TC 

THETADLD  +2 

D556 

Kcr 

16*2610 

3 3341  1 

CAF 

225ANG 

0557 

RcF 

7 

LAST 

501 

16*2611 

0 3102  1 " 

"TC 

"THETADLD  " 

REF 

187 

LAST 

0558 

501 

16*2612 

3 7665  0 

CAF 

ZERO 

0559 

RcF 

8 

LAST 

501 

16  9 2b 1 3 

0 3102  1 

TC 

THETADLD" 

0560  REF  71  LAST  494 

"0561  REF  II  LAST  484 


0562  RTF  1 

0563  RTF  12LAST  501 


16 

1"6 


2614  3 7656  0 

2615  55T6T2  I 


16*2616  3 3342  T 

16*2617  51 • 672  0 


CHKZ 


CAF  TWO 

TS  CDUNDX 

CAF  I7OANG 

INDEX  CDUNDX  ' 


473423A  YUL  SYSTEM  FOR  BL<2;  REVISION  12  OF  PROGRAM  AURORA^  BY  DAP  GROUP 
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L 

I V1U  PERFORMANCE  TESTS  3 

user*s  own  page,  no,  3 

0564 

REF  19  LAST  501 

16,2620  59  900  1 

TS 

THETAD 

0565 

REF  89  LAST  996 

16,2621  0 4063  0 

TC 

BANKCALL 

0566 

REF  5 LAST  989 

16,2622  26055  0 

CADR 

IMUCOARS 

0567 

REF  1 

16,2623  3 3336  1 

CAF 

10ANG 

0568 

REF  ' 1 

16,2629  0 3023  0 

TC 

CDURATE 

0569 

REF  1 

16,2625  3 3337  0 

CAF 

160ANG 

0)  570 

REF  2 LAST  502 

16,2626  0 3023  0 

TC 

CDURATE 

0571 

REF  1 

16,2627  0 3046  0 

TC 

CALCRATE 

0572 

REF  90  LAST  502 

16,2630  0 4063  0 

TC 

BANKCALL 

0573 

REF  25  LAST  990 

16,2631  26716  0 

CADR 

IMUSTALL 

05  7 A 

REF  I 

16,2632  1 2766  0 

TCF 

ENDTST03 

0575 

REF  2 LAST  501 

16,2633  0 3244  0 

TC 

COARZERO 

0576 

REF  13  LAST  5OI 

16,2634  11*672  1 

CCS 

CDUNDX 

0577 

REF  1 

16,2635  1 2615  0 

tcf 

CHK2 

0578 

REF  3 LAST  501 

16,2636  4 3332  1 

CS 

45ANG 

0579 

REF  9 LAST  501 

16,2637  0 3102  1 

TC 

THETADLD 

0580 

REF  3 LAST  501 

16,2640  0 3260  0 

TC 

FNZEROFN 

O58I 

REF  2 LAST  5OI 

16,2641  4 3335  0 

CS 

135ANG 

0582“ 

REF  20  LAST  502 

IE  ,2642  59  40TT:T~ 

T5 

THETAD 

0583 

1 X 
m 
( T 

1*- 

r 

'S 

16,2643  54  401  TT 

T5 

THETAD  +1 

0584 

Kth  2 LASI  501 

16,2644  4 3333  0 

CS 

71ANG 

0585 

TREF  “TO  LAST  502 

16,2645  0 3104  1 

TC  ~ 

THETADLD  +2 

0586 

REF  9 LASI  502 

16,2646  0 3260  0 

TC 

FNZEROFN 

v 5 o ( 

K Er  3 LAa 1 5O2 

16,2647  0 3244  0 

TC 

COARZERO 

0588 

REF  1 

16,2650  0 3215  1 

TC 

"FINE ZERO 

0589 

REF  2 LAST  502 

16,2651  0 3215  1 

TC 

FINEZERO 

U5VO 

REF  1 

16, 2652  4 3346  1 CHK5 

~ CS— 

4+6BITS 

0591 

16,2653  0 0006  1 

EXTEND 

0592 

16,2654  03  012  1 

WAND 

12 

Kcl-  if  LAa  1 48a 

16,2655  3 7655  0 

CAF 

FOUR 

0599 

REF  71  LAST  991 

16,2656  0 4536  0 

TC 

WAITLIST 

0595 

16,2657  02663  0 

2CADR 

ECET 

C0595 

REF  1 

16,2660  34005  0 

0596 

REF  1 

16,2661  3 3355  1 

CAF 

ECE2CADR 

0597 

RcF  12  LAST  A 91 

16,2662  0 4416  TT 

TC 

JUB5LEEP 

47  3 4 2 3 A YJL  SYSTEM  FOR  BLK2i  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


N 1 0 V 10,  1966  (MAIN) PAGE  503 


u_  i^u  performance  TESTS  3 


U S | R *S  OWN  PAGE  NO, 4 


"0598  REF  2 CAST  502  1-6,2663  3 3355  1 ECET  CAF  ECE2CADR 

"0599 REF — 10  LAST  491  1 6 , 2W“0“WT"  TC  JOBWAKE 

"0600  REF  62  LAST  491  16,2665  0 4602  1 TC  TASKOVER 


"0601 

REF 

~ 1 6 

LAST  465 

1 6 ♦ 2666 

4 6162  0 ECE2 

CS 

SIX 

0)602 

REF 

5 

LAST  501 

16,2667 

6 1563  0 

ad 

TESTNO 

0603 

16,2670 

0 0006  I 

EXTEND 

0604 

16,2671 

6 2673  1 

BZMF 

+ 2 

0605 

REF 

i 

16,2672 

1 2714  0 

TCF 

CHKX 

0606 

REF 

6 

LAST  503 

16,2673 

51*563  0 

INDEX 

TESTNO 

0607 

ref 

1 

16,2674 

3 2770  0 

caf 

ERCTRANG 

0608 

REF 

22 

LAST  502 

16,2675 

54  400  1 

TS 

THETAD 

0609 

REF 

23 

LAST"  503 

16,2676 

54  401  0 

TS 

THETAD  +1 

0610 

REF 

24 

LAST  503 

16,2677 

54  402  0 

TS 

THETAD  +2 

0611 

REF 

36 

LAST  487 

16,2700 

3 7652  1 

CAF 

61T6 

0613 


16,2702  05  012 


WOR 


12 


0614 

16,2703 

0 0004  0 

INhINT 

0615 

REF 

72  LAST  501 

16,2704 

3 7656  0 

CAF  TWO 

0616 

REF 

72  LAST  502 

16,2705 

0 4536T5 

TC  WAITLIST 

0617 

16,2706 

02613  1 

2CADR  ATTCK2 

C0617 

REF 

3 LAST  273 

16,270? 

22005  1 

0618 

16,2710 

0 0003  1 

RELINT 

0619  REF  3 LAST  501  16,2711  0 3174  0 TC  QPRTRDLY 

0620  R EF  7 LAST  503  16 , 2 71 2 25*563  0 TNCR TESTNO 


0621 

~rEf 

"I 

16,2713 

1 2652  0 

TCF 

CHK5 

. t 

0622 

REF 

4 

LAS  1 

502 

16,2714 

0 3244  0 CHKX 

TC 

COARZERO 

0923 

KtF  188 

LAS  1 

501 

16,2715 

3 7665  0" 

CAF 

ZERO 

V 

0624 

KtR 

8 

LA5  1 

503 

16,2716 

55*563  1 

TS 

TESTNO 

0625  REF  91  LAST  502  16,2717  0 4063  C TC BANKCALL 

0626  REF  4 LAST  46l  16,2720  20247"!""  CADR  RRZERO 

0627  REF  92"LAST  503 16,2721 0 4063  0 TC BATTKTALL  ' 

0628  — REF  8 LAST  481  16,2722  26712  1 CADR  RADSTALL 

0629  REF 2 LAST  502  16,2723  1 2766  0 TCF  ENDT5T03 


0630  REFT  9 

LAST 

503 

16,2724 

51*563 

0”  CHK6 

INDEX  TESTNO 

u63 1 REF  1 

16,2725 

3 2777 

1 

CAF 

RADECNTK 

0632  REF  23 

0633  REF  24 

last 

LAST 

481 

503 

1 6 , 2 7'2  6 
— T6.2727 

54  424 
5A  423 

1 

“0“ 

T 

TS 

TATTC  +1 
- TANG 

0634  REF  48  LAST  497  15 ,2730 — 0 6000  1 


TOT 


IT. 

rr 

‘--C 

■=3 


INTPRET 


473423A  YJL  SYSTEM  FOR  BLK2S  REVISION.  12  OF  PROGRAM  AURqRA  By  DAP  GROUP 
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L I MU  PERFORMANCE  TESTS  3 


USEr » 5 OWN  PAGE  NO, 5 


0635 

16,2731 

77634 

0 

CALL 

0636 

RTF 

3 LAST  481 

16,2732 

20363 

0 

RRDESNB 

0637 

REF 

93  LAST  503 

16,2733 

0 4063 

0 

TC 

BANKCALL 

0638 

RTF 

9 LAST  503 

16,2734 

26712 

1 

CADR 

RADSTALL 

0639 

~ REF  ' 

3 LAST  603 

16,2735 

1 2766 

0 

TCF 

ENDTST03 

0640 

REF 

1 

16,2736 

0 3167 

1 

TC 

RROPRDLY 

0641 

REF 

10  LAST  503 

16,2737 

25*563 

0 

INCR 

TESTNO 

0642 

REF 

18  LAST  502 

1 6 9 2 1 40 

4 7655 

1 

cs 

FOUR 

“ 0643 

" REF 

11  LAST  504 

16,2741 

6 1563 

0 

AD 

TESTNO 

0644  ' ' 16,2742  0 0006  I EXTEND 

TJ645  REF  1 16,2743  6 27241”  fZMF  CHR'6 


06^6 

REF  189  LAST  5O3 

16,2744 

3 7665  0 

CAF 

ZERO 

0647 

REF  12  LA5T  504 

16,2745 

55*563  1 

TS 

TESTNO 

0648 

~ REF  8 LAST  376 

16,2746 

54  354  1 

TS 

ALTRATE 

0649 

TEF  8 LAST  376 

16,2747 

54  35  2 1 

T5 

ALT” 

0650 

REF  9 LAST  504 

16,2750 

54  353  0 

TS 

ALT  +1 

0651 

REF 

132 

LAST  495 

16,2751 

4 7657  0 

CS 

ONE 

0652 

REF 

6 

LAST  278 

16,2752 

54  351  1 

TS 

D1DFLG 

0651  REF  IT- LAST  504  16,2753  51*563  0 CHKT7  INDEX  TESTNO 

0554  REF  1 1 6 , 2754  3 3004  0 CAT  RRRATFPS 

0655 REF  5 LAST  376  16,2755  54  360  0 T'S FORVEL 

0556  REF  3 LAST  156  16,2756 — 54-3(51'  1 TS LATVEL 


0E57  REF  ~ 2 LAST  504  - 16,2757  0 3167  1 TC  RROPRDLY 


0658 REF  14  LAST  504  16,2760  25*563  0 INCR TESTNO 


0659  REF  18  LAST  490  “ 

16,2761 

4 7653  1 

CS 

BITS" 

0660  REF  73  LAST  503 

16,2762 

6 7656  0 

AD 

TWO 

0661  REF  15  LAST  504 

16,2763 

6 1563  0 

AD 

TESTNO 

”0662 

16,2764 

0 0006  r 

EXTEND 

0663  REF  1 

16,2765 

6 2753  1 

BZMF 

CHK7 

U664  REF  94  LAST  5O4 

16,2766 

~0  4O63  XT 

EMDTSTO31X 

BANKCALL 

0665  R=.F  ^5  LAST  478 

16,2767 

30745  1 

CADR 

ENDTEST 

— II 


0666~ 

16,2770 

03013 

0 

erctrang  oct 

030T3~ 

0667 

16,2771 

02660 

”0- 

OCT 

02660 

”0668 

16,2772 

01042- 

“O' 

” OCT” 

” 01042  ” 
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L 

I MU  PERFORMANCE  TESTS  3 

USER'S  OWN  PAGE  NO.  6 

0669 

16.2773 

00000  1 

OCT 

00000 

0670 

16,2774 

76736  1 

OCT 

76736 

0671  ' 

16,2775 

75120  0 

OCT 

75120 

0672 

16,2776 

74765  0 

OCT 

74765 

0673 

16,2777 

01463 

1 

radecNtr  oct 

01463 

0674 

16,3000 

01042 

0 

OCT 

01042 

0675 

16,3001 

00000 

1 

OCT 

00000 

0676 

16,3002 

76736 

1 

ocr 

76736 

0677 

16,3003 

763  rs 

1 

OCT 

76315 

0678 

16,3004 

00000  1 

RRRATFPS  OcT 

00000 

0679 

16,3005 

00001  0 

OCT 

00001 

0660 

16,3006 

00002  0 

OCT 

00002 

0661 

16,3007 

00004”0 

OCT” 

00004 

0662 

lb, 3010 

00010  0 

OCT 

00010 

0663 

16,3011 

00020  0 

OCT 

00020 

0684 

16,3012 

00040  “0 

OCT” 

00040 

0685 

16,3013 

00100  0 

OCT 

00100 

0686 

lb  ,3014 

00200  0 

OCT 

00200 

0687 

Ib,30I5 

002  37  I 

OCT 

00237 

0688 

16,3016 

00400  0 

OCT 

00400 

0689 

16,3017 

00545  0~ 

OCT 

00545 

0690 

16,3020 

~oo54<nr 

' OCT" 

”00644  ” 

0691 

16,3021 

77540  0 

OCT 

77540 

0692 

16,3022 

77232  1 

OCT 

77232 

473423A  YJL  5YSTEM  FOR  BLK2 : REVI5I0.M  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

I MU 

PERFORMANCE 

TESTS  3 

USER'S  OWN  PAGE  NO,  7 

0693 

16.3023 

0 0006  1 

CDURATE  EXTEND 

0694 

“ REF 

48  LAST  500 

^ 1*673024 

23*546  1 

QXCH 

QPLACE 

0695 

ref 

1 

1 6 * 3VZ 5 

55*577  1 

TS 

CDULlMlT 

0696 

ref 

22  LAST  487 

16,3026 

10  067  1 

CCS 

NEW JOB 

11697 

REF 

7 LAST  487 

16,3027 

0 4404  0 

TC 

CHANG  1 

0698 

REF 

2 LAST  506 

16,3030 

4 1577  1 

cs 

CDULIMIT 

0699 

REF 

14  LAST  502 

16,3031 

51*672  0 

INDEX 

CDUNDX 

0700 

REF 

22  LAST  490 

16,3032 

6 0032  0 

A'D 

CDUX 

CATCH  FIRST  PULSE 

0701 

16.3033 

0 0006  1 

EXTEND 

0702 

REF 

3 LAST  502 

16,3034 

6 3026  0 

6ZMF 

CDURATE  +3 

LOOK  AGAIN 

0703 

REF 

1 5 LAST  5G6 

16,3035 

5l '672  0 

INDEX 

CDUNDX 

0704 

ref 

23  LAST  506 

16,3036 

30  032  0 

CAE 

CDUX 

0705' 

R'EF ' 

' r 

16,3037 

57*575  1 

CD'UREADF 

CDU  FINAL  READING 

0706 

REF 

i 

16,3040 

57*576  1 

XCH 

CDUREADI 

CDU  INITIAL  READING 

0707 

REF 

6 LAST  487 

16,3041 

0 5470  1 

TC 

FINETIME 

0708 

REF 

1 

16,3042 

53*573  0 

DXCH 

CDUTIMEF 

DP  FINAL  TIME 

0709 

REF 

1 

16,3043 

53*571  1 

DXCH 

CDUTIMEI 

DP  INITIAL  READING 

0710 


49  LAST  506 


1673044  0 0003  1 RELINT 

16.3045  0 1546  1 TC  QpLACE 


0712 

16,3046 

0 0006  1 CALCRATE  EXTEND 

0713 

REF  5CTLAST  506 

16.3047 

' 23*546  1 

TlXCfl  QPLACE 

u N4 

RtF  2 LASI  506 

16*3050 

53'57fc  0 

DXCH  CDUREADF 

0715 

1 6 , 3F5 1 

0 0006  1 - 

EXTEND 

0716 

REF  172  LAST  491 

16,3052 

20  001  1 

TMSU  L 

0717 

REF  1 

1 6 , 305  3 

55*677  I 

TS  CDUANG 

49  LAST  503 

~~ 1673054 

0 6000  1 

TC 

INTPRET 

0719 

16,3055 

45345  1 

DLOAD 

D5U 

11720 

kEF 

2 LAb  1 506 

16,3056 

01573  1 

CDUTIMEF 

0721 

REF 

2 LAST  506 

16,3057 

01571  0 

CDUTIMEI 

0722 

16,3060 

67206  1 

PUSH 

5L0AD 

0723 

REF 

2 EAST  506 

16,3061 

01700  1 

CDUATW 

0724 

16,3062 

56261  1 

SP 

DDV 

0725 

16,3063 

006 It  X 

14  D 

0726 

1 6 , 3U64 

45005  E 

TOMF  “ 

' RIB 

0727 

REF 

1 

ifc  , 3U65 

35361^0 

DEG/SEC 

0728 

REF 

6 LAST  492 

16,3066 

33406  0 

SGNAGREE 

0729 

REF 

20  LAS  1 49 J 

16,3067 

E0337  0 

STORE 

DSPTEM2 

473423A  YJL  SYSTEM  FOR  BLK2 i REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10,  1966  (MAIN)  PAGE  507~ 


L 

I MU 

PERFORMANCE  TESTS 

, 3 

USEr*S  OWN  PAGE  NO.  8 

0730 

16,3070 

77776 

1 

EXIT 

0731 

REF 

1 

J-6  ♦3U7i 

3 3353 

1 

RATEDSP  CAF 

V06N66X 

0732 

REF 

45  LAST  497 

16  *3U72 

0 5332 

0 

TC 

NVSBWAIT 

0733 

“REF 

14  LAST  497 

16,3073 

0 5274 

0 

“TC 

FLASHON 

0734 

REF 

34  LAST  497 

Tb  , 3074 

0 5140 

1 

TC 

ENDIDLE 

0735 

REF“ 

4 LAST  504 

16,3075 

1 2766 

0 

TCF 

ENDTST03 

0736 

16*3076 

1 3100 

1 

TCF 

+ 2 

0737 

REF 

1 

16,3077 

1 3071 

0 

TCF 

RATEDSP 

0738 

REF 

11  LAST  501 

16,3100 

25*550 

0 

INCR 

RUN 

0739 

RtF 

51  LAST  5O6 

1 6 ♦ 3 10 1 

0 1546 

1 

TC 

QPLACE 

473423A  YJL  SYSTEM  FOR  BLK2?  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10 « 1966  (MAIN)  PAGE  508 


L i MU  PERFORMANCE  TESTS  3 _ U5Er»S  OWN  PAGE  NO,  9 

0740  REF  25  LAST  503.  16,3102  54'  400  1 TMETADLD  T5  THETAD 

0741  REF  26  LAST  508  ' 16,3103  54  401  0 TS  THETAD  +1 

0742  REF  27  LAST  5O8  “1671104  54-  402  0~  T5  THETAD  42 

0743  lb 7 3105  “ 0 0 0 06  1 EXTEND 

0744  REF — 52  LAST  507"  T673IP6  25^546  1 3XCH  "QPEACE" " “ ~ __ 


■0745  rEF  10  LAST  434  " 16*3107  3 7663  0 CAF SEVEN 

TT746 REF  12  LAST  489  16,3110  55*551  0 THLP1  TS  STOREPL 


0747 

REF 

95  LAST  504 

16,3111 

0 4063  0 

TC 

BANKCALL 

43748 

REF  " 

6 LAST  502 

16,3112 

26055  0 

CADR 

IMUCOARS 

0749 

REF 

96  LASl  508 

16,3113 

0 4063  0 

TC 

BANKCALL 

“4JT50  " 

REF  “ 

2fa  LAST  502 

16,3114 

26716  0 

CADR 

IMUSTALL 

0751 

REF  “ 

5 LAST  507 

16,3115 

1 2766  0 

TCF 

ENDTST03 

0752 

REF 

13  LAST  508 

16,3116 

11*551  0 

CCS 

STOREPL 

0753  KEF  1 16*3117  0 3110  1 TC  THLDl 

0754  REF  4 LAST  503  16*3120  0 3174  0“  TC  OPRTRDLY 

0755  REF  53  LAST  508  1 6, 31 21  0 1546  1 TC  QPLACE 


0756 

16,3122  0 0006  T 

FINEALGN  EXTEND 

~OT57  4REF~  54  LAST  508 

' 16,3123  23*546  1 

QXCH 

QPLACE 

0758  REF  97  LAST  508 

16,3124  0 4063  0 

TC 

BANKCALL 

0759  ~REF  5 HAST  490 

16,3125  26227  1 

CADR 

TMUFTNET 

0760  REF  98  LA5T  508 

16,3126  0 4063  IT 

TC 

BANKCALL 

0761  REF  27  LAST  508 

16,3127  26716  0 

CADR 

IMUSTALL 

VT6 2 REF  6 LAST  508  164 3T30  1 2706  0 TCF ENDT5T03 


0763  REF~  55  LAST  508  16,3131  0 1546  1 TC 


QPLACE 


473423A ” YJL  SYSTEM  FOR  BLK2S  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L i MU  PERFORMANCE  TESTS  3 _ _ _ _ USEr*s  OWN  PAGE  NO.  10 

0764  16*3132  0 0006  1 CH30DSPY  EXTEND 

~U765  RTF  56  LAST  508  " 16,3133  23*546  1~  QXCH  QPLACE 


0766 

ref  1 

16,3134 

3 3344  1 

caf 

0cT30 

T)767 

REF  571  LAST  489 

16,3135 

54  142  1 

TS 

MPAC  +2 

0768 

” REF  I 

16,3136 

3 3347  1 

CAF 

V01N10X 

0769 

REF  46  LAST  507 

16,3137 

0 5332  0 

TC 

NVSBWAIT 

“0770 

REF  15  LAST  507 

16,3140 

0 5274  0 

nrc 

FLASHON 

0771 

REF  35  LAST  507 

16,3141 

0 5140  1 

T C 

ENDIDLE 

0772 

REF  7 LAST  508 

16,3142 

1 2766  0 

TCF 

ENDTST03 

0773 

16,3143 

1 3145  0 

fCF 

+ 2 

0774 

REF  1 ' 

16 ,3144 

1 3134  0 

TCF 

CH30DSPY  +2 

0775  ” REF  4 LAST  337  To.3145  0 5300  1 TC  FLASHOFF 

ft  0776  REF  12  LAST  507  16,3146  g5l550  0 I NCR  RUN  f) 

0777  REF  57  LAST  50T"  16,3147  0 1546  1 ”TC“  QPLACE 


» 


1 


0778 

16,3150 

0 0006  1 

zeromode  extend 

0779 

REF  58  LAST  509 

16,3151 

23*546  1 

QPLACE 

0780 

RtF  99  LA5T  5O8 

16*3152 

0 4063  0 

TC 

BANKCALL 

“0781 

“REF  9 LAST  490 

16,3153 

2600  0”C 

"CSDR 

Tmuzero 

0782 

REF  100  LAST  509 

16,3154 

0 4063  0 

TC 

BANKCALL 

0783 

REF  2a  LAST  508 

16,3155 

26716  0 

CADR 

IMUSTALL 

0784 

"REF  8 LAST  509 

16,3156 

1 2766-0” 

TCF 

ENDTST03 

0785 

REF  59  LAST  509 

16,3157 

0 1546  1 

TC 

QPLACE 

I 


1 , 

y 


3 


0786”  REF  2 LAST  502  16,3160  4 3346  1 Z"ER0MA1N”CS”  4+6BITS 

”0787  T5T3T61 — O”0OT76  1 EXTEND 

0788  16,3162  03  012  1 WAND 12 


.) 


0789  REF  r9  LAST  504  r6,3163  3 7653  0 CAF BTT5 

0790  “I®-, 3 164  0 0006  1 EXTEND 

0791  16,3165  05”012  1 WOR  12 

J O792  REF  278  LAST  497  — T6,3l66  0 0002  0 — |*C~  Q 


1 


— CO 

— 

_ <0 




>3 
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473423a  YUL  SYSTEM  FqR  BLK2 i REVlSlp ,\|  12  pF  PRqGRaM  aUPqRA  BY  DaP  GRqUP 


L i mu  Performance  tests  3_  . user's  own  page  no.  11 


0793  16.3167  0 0006  1 RROPRDLY  EXTEkiD 


0794 

REF 

9 LAS1  491 

16,3170 

23*545  1 

QXCK 

qplac 

0795 

REF 

13  LAST  509 

16,3171 

25*550  0 

I NCR 

RUN 

TJ796  rEF  1 16.3172  3^T352  0 CA>  V06n40x 

7)797  REE  5 LAST  508  16.3173  1 3200  1 TCF  OPRTRDLY  *4 


0798 

16,3174 

0 0006 

1 

OpRTRDLy  EXTEND 

15799 

REF 

nr  LAST  510 

16,3175 

23*545 

1 

3XCH 

QPLAC 

0800 

REF 

14  LAST  510 

1 6 * 3 1 7 6 

25 1 550 

0 

I NCR 

RUN 

W01 

~7!Ef 

1 

T6,3177 

3 3351 

0 

cAf 

V06N20X 

0802 

REF 

47  LAST  509 

16,3200 

0 5332 

0 

TC 

NvSBWAI T 

0803 

REF 

I 

16,3201 

3 3354 

0 

CAF 

V33N00X 

15804 

REF 

*6  LAST  510  “ 

16,3202 

0 5332 

0 

7C 

tivsbwfit 

0805 

REF 

15  LAST  510 

16,3203 

3 1550 

0 

CA 

RUN 

0806 

REF 

1 

1 6 , 320 A 

t 3343 

1 

MASK 

6L0W 

0807 

REF 

49  LAST  S10 

T6 ,3205 

0 5332~ 

75 

TC 

NVSBWAI T 

01808 

REF 

16  LAST  509 

16,3206 

0 5274 

0 

TC 

FLASHON 

0809 

REF 

36  LA5T  509 

16,3207 

0 5140 

1 

TC 

ENDIDLE 

0810 

HREF 

9 CAST  509 

T6,32T0 

1 2766 

0 

TCF  ENDTST03 

0811 

16,3211 

1 3213 

0 

TCF 

+ 2 

0812 

REF 

6 LAbT  510 

16,327  2 

1 3177 

1 

TCF 

OPRTRDLY  +3 

0813 

REF 

5 LAST  509 

16,3213 

0 5300 

7 

TC 

FLASHOFF 

0814 

REF 

11  LAST  510 

16,3214 

0 1545 

I 

1C  QPLAC 

0815 

16*3215 

0 0006 

r 

FINEZERO  EXTEND 

0816 

ref 

12  LA5T  510 

1 6 , 32  1 6 

23*545 

1 

QXCH 

QPLAC 

0817 

REF  101  LAST  509 

16,3217 

0 4063 

0 

TC 

BANKCALL 

0818 

KtF 

J.U  LAb  I 509 

16,3220 

26000 

0 

CADR 

IMUZERO 

0 819 

REF 

LA5 1 50a 

16,3221 

3 7656 

0 

CAF 

TWO 

0820 

REp 

6 LAST  462 

1 6 , 3 222 

55*512 

1 

TS 

EROpTN 

CTS21 

REF~ 

19  LAST  504  ' 

16,3223 

3 7 655  0 

'CAF 

FTJUR 

0822 

REF 

15  LAST  497 

16 .3224 

55*544 

1 

TS 

POSITON 

0823 

16,3225 

0 0004 

a 

INHINT 

0824 

REF 

41  LAST  484 

1 fa  , 322 6 

4 7646 

0 

cs 

BIT  IT) 

0825 

REF 

25  LA5l  459 

16,3227 

7 0061 

1 

MASK 

STATE 

0826 

RtF 

42  LAST  510 

16,3230 

6 7646 

1 

AD 

BIT  10 

0827 

REF 

26  LAST  510 

16,3231 

54  061 

1 

TS  ' 

STATE 

0828 

16,3232 

0 0003 

1 

RELINT 

473423A  VJL  SYSTEM  FOR  BLK27  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  511 

L I MU  PERFORMANCE  TESTS  3 U5Er*S  OWN  PAGE  NO*  12 

0829  REF  102  LAST  510  16*3233  0 4063  0 TC  BANKCALL 

“0830  REF  2 LAST  444  16*3234  30760  0~  CADR  LEMLAB 

0831  REF  15"L AST  4 9 2 16*3235  0 5317  1 5AMODRTN  TC GRABWAIT  

0832  REF  2 LASl^IW  16,3236  “3“3351  0 CAF  V06N20X 

0833  REF  SO  LAST  510 16,3237  0 5332  0 TC7'"'"  NVSBWAIT ' 


0834  REF  2 LAST  501  16*3240  03160  0 TC  ZEROMAIN 

"0835  REF  2 LAST  509~~  “1673241  0 3132  1 TC  CH30DSPY~ 

0836  REF  3 LAST“ 501  16,3242  0 3l$0  0 TC  ZEROMODE 

W37  REF  13  LAST~5T0“  16*3243  0 1545  1 TC  QPLAC 


0838 

REF 

190 

LAST 

504 

16,3244 

3 7665 

0 

COARZERO  CAF 

ZERO 

0839 

REF 

28 

last 

508 

16,3245 

54  400 

1 

TS 

THETAD 

0840  REF 

“ 29 

LAS  1 

511 

16,3246 

54  401 

IT 

rs 

THETAD  +1 

0841 

REF 

30 

LAST 

511 

16,3247 

54  402 

0 

TS 

THETAD  +2 

0842  16,3250  0 0006  1 EXTEND 

0843  REF  60  LAST  509  16,3251  23*5461  T3XCH  QfflKCF- 


0844 

ret 

103  LAST 

511 

16,3252 

0 4Q63~0 

TC  ' 

bankcall 

0845 

REF 

7 LA5  1 

508 

16,3253 

26055  0 

CADR 

IMUCOARS 

0846 

REF 

104  LAST 

511 

16,3254 

0 4063  0 

TC 

BANKCALL 

0847 

REF 

~29  LA5T 

509 

16,3255 

26716  9 

XAUR 

IMUSTALL 

0848 

REF 

10  LAST 

510 

16,3256 

1 2766  0 

TCF 

ENDTST03 

,1 


0849  REF  51  LAST  511  16,3257  015 46  1 TC 


QPLACE 


473423A  YJL  SYSTEM  FOR  BLK2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

I v(U 

PERFORMANCE  TESTS  3 

USEr«S  OWN  PAGE  NO,  13 

0850 

16,3260 

0 0006  1 

FNZEROFN  EXTEND 

0851 

_ re r 

14  LAST  511  16,3261 

23*545  1 

OXCH 

QPLAC 

0852 

rEf 

1 16,3262 

0 3122  0 

TC 

FiNEALGN 

0853 

REF 

24  LAST  506  16,3263 

30  032  0 

CAE 

CDUX 

08  5 A 

REF- 

- 3 LAST  506  16,3264 

55  * 575"  0 

TS 

CDUREADF 

O855 

REF 

7 CAST  490  T6-,3265 

30  033  X~ 

CAE 

CDUY 

0856 

“ R'EF 

2 lAS'T 506  16,3266 

55*576  0 

TS 

CDUREADI 

0857 

REF  12  LAST  490  16,3267 

30  034  0 

CAE 

CDUZ 

“0858 

REF 

3XASr506  16,3270 

55*577  T 

TS 

CDULIMIT 

0859 

REF 

4 LAST  511  16,3271 

0 3150  0 

TC 

zeromode 

0860 

REF 

1 

16,3272 

3 3345  0 

CAF 

3SEC 

0861 

REF 

73  LAST  503 

16,3273 

0 4536  0 

TC 

WAITLIST 

1)862 

16,3274 

03300  1 

2CADR 

FZF 1 

C0662 

REF 

1 

16,3275 

34005  0 

0863 

REF 

1 

16,3276 

3 3356  1 

CAF 

FZF2CADR 

0864 

REF 

~T3  LAST  502 

16,3277 

TT4416  0 

TO 

JOBSLEEP 

fl 

0a65 

“REF 

2 

LAST 

512 

16*3300 

3 

3356 

1 FZF1 

CAF 

FZF2CADR 

0866 

“W 

“Tl 

TA5T 

503 

16 ,3301 

0 

4422 

1 

TC 

JOBWAKE 

0867 

REF 

63 

LAST 

503 

16,3302 

0 

4602 

1 

TC 

TASKOVER 

“0868 

REF~ 

4 CAST  TTZ 

16,3303 “ 

31  * 575  1 FZF2 

CAE  CDUREADF 

0869 

16,3304 

0 0006  1 

EXTEND 

25  CAST  512 

1 6 t 3 JOb  20  032  1 

“MSU  CDUX 

087T 

"REF* 

46TTA5T  482 

1 6 1 3306 

54  333  0 

TS  DSPTEM1 

CAST 

512 

T6 ,3307 

31*576  1 

CAE 

CDUREADI 

‘“0873  - 

16,3310 

0 0006  1 

EXTEND 

0874 

“REF 

“ 8 

last 

512 

16,3311 

20  033  0 

MSu 

CDUY 

0875 

REF 

47 

LAST 

512 

1 6 , 5i 1 £ 

54  334  1 

TS 

DSPTEM1  +1 

0876 

RtF 

4 

LAST 

512 

16,3313 

31*577  0 

CAE 

CDULIMIT 

0377 

16*3314 

0 0006  1 

EXTEND 

0878 

-rff 

13' 

CAS  1 

5T2 

T16 ,35T5 

20  034  1 

vf5u 

CDUZ 

0879 

REF 

48 

LAS  1 

512 

16,3316 

54  335  0 

TS 

DSPTEM1  +2 

0880 

RET 

l 

16,33 17 

5-  3350"  I FZFD5P  -- 

“CAF” 

V05N30X 

0881 

RcF 

51 

LAST 

511 

16,3320 

0 5332  0 

TC 

NVSBWAIT 

0882 

REF 

17 

LA5T 

510 

16,3321 

0 5274  0 

TC 

FLASHON 

■0883 

RTF 

37 

LAST- 

5T0 

16,3522 

0 5140  1 

TC 

ENDIDLE 

0884 

REF 

ll 

LAST 

511 

16,3323 

1 2766  0 

TCF 

ENDTST03 

0885 

16,3324 

1 3326  1 

TCF 

+ 2 

0886 

REF 

r 

16,3325 

1 3317  0 

TCX 

FZFDSP 

U8B  ( 

Ktp 

16 

LAST 

510 

16  f 332° 

25*550  0 

INCR 

RUN 

"08  88 

“ REF 

15 

LAST 

5T2~ 

"■  16,3527 

0 1545  I 

TC 

"QPLAC 
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L I MU  PERFORMANCE 

TESTS  3 

USER'S  OWN  PAGE  NO.  14 

0889 

16,3330 

00133  0 

1ANG 

OCT 

00133 

0890 

16*3331 

06000  1 

33.75ANG 

“5CT~ 

06000 

0891" 

16,3332 

10000  0 

45ANG 

OCT 

10000 

0892 

16,3333 

14477  0 

71ANG 

OCT 

14477 

0893 

16,3334 

20000  0 

90ANG 

OCT 

20000 

0894 

16,3335 

30000  1 

135ANG 

OCT 

30000 

0895 

16,3336 

01616  1 

10ANG 

OCT 

01616 

0896 

16,3337 

34344  0 

160SNC 

“OCT 

34344 

0897 

16,3340 

40000  0 

180ANG 

OCT 

40000 

0898 

16,3341 

50000  1 

225ANG 

OCT 

50000 

0899 

16,3342 

36162  1 

170ANG 

OCT 

36162 

0900 

16,3343 

00077  1 

6LOW 

OCT 

77 

0901 

16,3344 

00030  1 

0CT30 

OCT 

30 

0902 

16,3345 

00454  1 

3SEC 

DEC 

300 

0903 

16,3346 

00050  1 

4+6BITS 

OCT 

00050 

O9O4 

16,3347 

00110  1 

V01N10X 

OCT 

00110 

0905 

16,3350 

00530  1 

V05N30X 

OCT 

00530 

0906 

16,3351 

00620  0 

V06R20X 

OCT 

00620 

0907 

16,3352 

00640  0 

V06N40X 

OCT 

00640 

0908 

16,3553 

00666  1 

V06N66X 

OCT 

00666 

0909 

16,3354 

03300  1 

V33N00K 

OCT 

03300 

0910  REF  1 

16*3355 

34666  0 

ECE2CADR 

CADR 

ECE2 

0911  RTF  1 

16*3356 

35303  T 

F2F2cAdR 

CA‘D“R 

FZF2 

0912  RcF  9 LA5T  498 

16,3357 

02500  0 

OGCECADR 

ECADR 

OGC 

0913 

16,3360 

00043  10 

DEG/SEC 

2DEC 

576000  B-28 

C°913 

16,3361 

05000  1 

0914 


16*3362  “TNT5TMUS3  EQUALS 


CD 

& 

•=3' 
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473423A  YUL  SYSTEM  FOr  BLK2S  REViSiOm  12  OF  PrOGrAM  AUrOrA  BY  DAP  GrOUP 


L 

OpjiMJM  PReLaUNCH 

ALIGNMENT  calibration 

USER'S  O^N  PAGE  NO. 

1 

Roooooi 

T-ilS  PROGRAM-  USES 

a VERTICAL. 50JTH. EAST  COORDINATE  SYSTEM  FOR  PIPAS 

0001 

21.2000  BANK  21 

0003 

“RIF  45  LAST  500 

E5 EBANKs  XSM 

r0004 

“G“5Ch^ irsW L I F I ED  ESTIMATION  PrOGrAM 

FOr  ALIGNMENT  CALIBRATION. 

THE 

R0005 

prograttis- completely  restart  profed.  data  stored  in  bank.4. 

001C  “ 

REF 

3 LAST  478 

2 1 i 2000  0 4614  0 

ESTIMS  TC 

PHASCHNG 

0011 

21.2001  00101  1 

OCT 

00101 

0012 

21,2002  0 0004  0 

RSTGTSl  lNHlNl 

COMES  HERE  PHASEl  RESTART 

0015 

’REF 

8 LAST  37C 

21,2003  3 0025  0 

~CA 

TIME1 

’ 0016 

REF 

1 

21,2004  55*745  1 

TS 

GTSWTLST 

0017 

REF 

191  LA5r  511 

21,2005  3 7665  0 

CAF 

ZERO 

ZERO  THE  PIPAS 

0018  ' 

REF’ 

15  LAST  486 

21,2006  54  037  1 

TS 

PIPAX 

0019 

REF 

5 LAST  480 

21,2007  54  040  1 

TS 

PIPAY 

0020 

REF 

6 LAST  480 

21,2010  54  041  0 

TS 

PIPAZ 

CT0201 

TREF 

10  L’AST“353 

21,2011  54  404  T) 

TS 

DELVX  +1 

00202 

REF 

4 LAST  212 

21,2012  54  406  1 

"TS 

DtLVY  +1 

00203 

REF 

3 LAST  212 

21,2013  54  410  0 

TS 

DELVZ  +1 

’0021 

21,2014  0“ 0003  1 

"RELINT 

0022 

REF 

1 

21,2015  0 2753  1 

TC 

SETUPER 

0023 

REF 

1 

21,2016  3 3360  1 

CA 

77DECML 

“0024  " 

HREF” 

6 Last  493 

’ 21,2017  55*776  1 

TS 

ZER0NDX 

0025 

REF 

1 

21,2020  3 3361  0 

CA 

ALXXXZ 

- 0026 

REF 

105  LA5T" 511 

21,2021  0 4063  0 

T C 

BANKCALL 

0027 

TREF 

’ 4 LAST  493 

21,2022  37236  1 

CADR 

ZEROING 

0028 

REF 

50’  LAST  506 

’ 21,2023  0 6000  1 

TC 

INTPRET 

0029 

21,2024  77775  1 

VLOAD 

"0030 

’REF 

” r 

21,2025  03353  1 

TNTVA’L  +2 

0031 

REF 

I 

21,2026  01601  1 

STORE 

ALXlS 

0032 

21,2027  77776  1 

exit 

0033 

RtF 

3 LAST  476 

21,2030  11*742  0 

CCS 

GEOCOMPS 

GEOCOMPS  IN  NON  ZERO 

IF 

COMPASS 

0034 

21,2031  0 2033  0 

TC 

♦ 2 

’0035’ 

REF" 

IT 

21,2032  0 2667  1 

"TC 

’5EEEPIE  +1 

NUM 

0036 

REF 

9 LAST  496 

21,2033  3 152T  0 

CA 

LENGTHOT 

TIMES  FIVE  IS  THE 

OF  SEC  ERECTING 

0037 

REF 

1 

21,2034  55*746  1 

TS 

ERECTIME 

UU38 

REF 

5 LAST  459 

21,2035  0 4667  1 

TC 

NEhMODEX 

0039 

21,2036  00005  1 

ocr 

05 

"003’91 

RtF  1U6LA5T  5T4 

21,2037  0 4063  0 

TC 

BANKCALL 

003911 

Rtr 

I 

21,2040  16345  1 

CADR 

GCOMPZER 

ZERO  COMPENSATION 

OQ4O 

REF 

1 

21,2041  0 2740  0 

TC 

ANNNNNN  ’ 
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l optimum  Prelaunch  alignment  calibration ' user*s~" own  page  no,  2 


0086 

21,2042 

0 0004  0 

ALLOOP 

TNfllNT 

TASK  EVERY  .5  OR  1 SEC  (COMPASS-DRIFT) 

75087  - 

rE T 

9 

W ST4 

21,2043 

3 0025  0 

CA 

TIME1 

0088 

"REF 

2 

LAST  514 

21,2044 

55*745  1 

TS  GTSWTLST 

STORE  TIME  TO  SET  UP  NEXT  WAITLIST 

0089 

-REF 

— T 

21,2045 

3 1664  1 

ALL00P3 

CA 

ALTIM 

15090 

REF 

1 

21,2046 

55*716  1 

TS 

GEOSAVED 

13091  ~ 

REF 

4 

LAST-  51'4— 

21,2047 

0 4614  0 

TC 

PHASCHNG 

0092 

21,2050 

00201  1 

OCT 

00201 

009  3 

21,2051 

0 2053  0 

TC 

+ 2 

0094 

21,2052 

0 0004  0 

ALLOOP 1 

INHINT 

RESTARTS  COME  IN  HERE 

0095 

REF 

2 LAST  515 

21,2053 

3 1716  0 

CA 

GEOSAVED 

0096 

REF 

2 

LAST  515 

21  ,2054 

55*664  0 

TS 

ALTIM 

0097 

REF 

331 

LAST-469 

21,2055 

10  000  0 

CCS 

A 

0098 

REF  332 

LAST  515 

— 2 1,2056 

-3  0000  1 

CA 

A 

SHOULD  NEVER  HIT  THIS  LOCATION 

0099 

REF 

1 

21,2057 

55*665  1 

TS 

ALTIMS 

0100 

REF 

333 

LAST  515 

21,2060 

4 0000  0 

CS 

A 

0101 

7TEF 

3 

LASTS  15  - 

- 21,2061 

55*664  0 

TS  - 

ALTIM 

01011 

REF 

16 

LAST  514 

21,2062 

3 0037  0 

CA 

PIPAX 

01012 

REF 

11 

LAST  514 

21,2063 

54  403  1 

TS 

DELVX 

01013 

-ref 

6 

LAST-51 4 

21,2064 

3 0040  0 

TA- 

PI  PAY 

01014 

REF 

5 

LAST  514 

21,2065 

54  405  1 

TS 

DELVY 

01015 

REF 

7 

LAST  514 

21,2066 

3 0041  I 

CA 

PIPAZ 

01016 

REF 

4 

LAST-514 

21,2067 

54  407  0 

— TS- 

DELVZ 

010161 

REF 

192 

LAST  514 

71,2070 

3 7665  0 

CAF 

ZERO 

010162 

REF 

17 

LAST  515 

21 ,2071 

54  037  1 

TS 

PIPAX 

— 010 16  3 

REF 

T 

LAST-515  - 

- 21,2072 

-S4  040- I 

TS- 

PI  RAY 

010164 

REF 

— er 

LAST  515 

21,2073 

54  041  0 

TS 

PIPAZ 

01017 

REF 

5 

LAST  515 

21,2074 

0 4614  0 

TC 

PHASCHNG 

01018 

- 21,2075 

00701  1 

OCT 

00701 

010181 

21,2076 

0 0003  1 

RELINT 

0113 

REF 

5" 

LAST  279  ' 

21,2077 

3 7642  0 

5PEC5T5 

CAF 

PRI020 

0116 

REF~ 

T 

LAST  445 

21,2100 

0 4374  (T 

TC 

FINDVAC 

0117 

21,2101 

02104  0 

2CADR 

ALFLT 

START  THE  JOB 

C0117 

REF 

-1 

21,2102 

42005  1 

0118 

-REF~ 

64 

LAST"  512 

21  <2103. 

0 4602  1 

TC 

TA5K0VER 
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L 

OPTIMUM  PRELAUNCH  ALIGNMENT  < 

calibration 

USEr  * S OWN  PAGE  NO.  3 

0119 

REF 

1 21,2104 

0 3047  1 ALFLT 

TO 

storedta 

STORE  DATA  IN  CASE  OF  RESTART  IN  JOB 

“ 01 2 0 

REF" 

6 LAST-  515  2 1 ,2 IT) 5 

0 4614  0 

TC 

PHASCHNG 

THIS  IS  TFTE  JOB  DONE  EVERY  ITERATION 

0121 

21,2106 

00601  0 

OCT 

00601 

01211 

REF 

4 LAST  514  21,2107 

11*742  0 

CCb 

GEOCOMPS 

““01212 

21,2110 

0 2112  1 

TC 

+ 2 

01213 

KEF 

1 21,2111 

0 2116  0 

TC 

NORMLOP 

"01214" 

REF 

107  LAST  514  21,2112 

0 4063  0 

T C 

BANKCALL 

COMPENSATION  IF  IN  COMPASS 

““ 0T215 

REF" 

2 TSBT  211  21,2113 

16000  ”0 

“CA"0"R 

1 /PI  PA 

0122 

REF" 

2 LAST  516  21,2114 

0 2116  0 

TC 

NORMLOP 

” Ql23 

Ref 

— r~ 

21,2115 

0 3070  0 ALFLT 1 

TC  LOADSTDT 

comes  here  on  restart 

0124 

REF 

51  LASl  514 

21,2116 

0 6000  1 NORMLOP 

TC  INTPRET 

0125 

21,2117 

77745  1 

DLOAD 

C 1 26 

~ "REF" 

2 LAST  514 

21,2120 

03351  0 

INTVAL 

0127 

REF 

16  LAST  491 

21,2121 

00051  0 

5T0RE  Si 

STEP  REGISTERS  MAY  HAVE  BEEN  WIPED 

OUT 

0128 

21,2122 

53135  0 

SLOAD  BZE 

OT29  ” 

KEF" 

5 LAST  5 16  “ 

21 ,2123 

01743  0 

GEOCOMPS 

0130 

KEF 

1 

21,2124 

42127  0 

ALCGKK 

01301 

21,2125 

77650  1 

GOTO 

"01302 

REF 

r 

2172126 

42144  "0 

AXFLT2 

0131 

21,2127 

50135  0 ALCGKK 

SLOAD  BMN 

0132 

REF 

2 LAST  515 

21,2130 

01666  0 

ALTIMS 

0T3"3 

“KEF 

2 LASl  5 1 6 

21 ,2l3l 

42144  CT 

ALFLT 2 

0134 

21,2132 

72174  0 ALKCG 

AX  T f 2 LX  A f l 

L0AD5  SLOPES  AND  TIME  CONSTANTS  AT 

RQST 

0135 

21 t2133 

00014  1 

12D 

0136 

REF 

2"  LAST" 514 

2TT21.34 

"01600  CT 

ALX  IS 

0137 

El  ,2135 

62143  0 ALKCG2 

DLOAD**  INCR , 1 

0138 

REF 

1 

21 , 2 1 ib 

03343  0 

ALFDK  +144D.1 

“OT2T9 

21 ,2137 

77775  1 

KE C -2 

0140 

REF 

1 

21,2140 

05701  1 

STURE  ALDK  +10D,2 

0141 

21 ,2141 

66104  1 

T I X , 2 5XA , 1 

"0142 

REF 

T 

21 ,2142 

42135  0 

ALKCG2  “ 

Ui.43  R Er 

3 LAST  516 

21,2143 

01600  0 

ALX1S 

0144 

21,2144 

61375  1 ALFLT2 

vLOAD  vxm 

0145 

REf 

12  LAST  515 

21 ,2145 

00404  1 

delvx 

0146 

REF 

4 LAST  497 

2l ,2146 

01750  1 

GEOMTRX 

0147 

21,7147 

77772  0 

VSL1  "”  “ 

0149 

21,2150 

57545”  T 

DLOAD  DCOMP 

01 50 

Kef  572  LAS  1 509 

21,2151 

0014F  (T 

MPAC  +3 

0151 

KtF 

r 

21,2152 

076  5T  1 

STODL  DFTPAY 

OI52 

REF 

573  LA5l  516 

21,2153 

00146  1 

MPAC  *5 

01 53 

REF 

1 

21,2154 

01663  0 

STORE  DPIPAZ 

0154 

21»2l55 

76001  1 

SETPD  AXT , l 

MtAoUKEmENT  I INC.UKPUK  A 1 i UIN  KUUlifNtot 

0155 

21,2156 

00001  0 

0 

0156 

21  ,"2157 

”00010  C 

BIT"” 
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0157 

21,2160 

53135  0 

SLOAD  B2E 

0158 

REF 

6 LAST  516 

21,2161 

01743  0 

GEOCOMPS 

01581 

REF  “ 

r 

21,2162 

42165  0 

DELMLP 

01582 

21,2163 

77650  1 

GOTO 

0159 

REF 

1 

21,2164 

42466  0 

ALWAYSG  DO  A QUICK  COMPASS 

0160 

21,2165 

41343  0 

DELMLP  DLOAD*  DMP 

0161 

REF 

2 LAST  516 

41,2166 

01667  1 

DPIPAY  +80*1 

13162 

REF 

21,2167 

03364  0 

PIPASC 

0163 

21,2170 

42661  0 

SLR  DAD* 

0164 

21,2171 

01212  1 

9D 

0165 

REF 

1 

21,2172 

01715  0 

DELM  +80,1 

0166 

21 ,2173 

64623  1 

DSU#  PDDL* 

0167 

REF 

3 LAST  376 

21,2174 

01635  0 

INTY  +80,1 

0168 

REF 

4 LAST  376 

21,2175 

01655  0 

VLAUN  +8D , 1 

0169 

21,2176 

41223  1 

DSU*  DMP 

0170 

REF 

2 LAST  24 

21,2177 

01627  0 

VLAUNS  +80,1 

0171' 

REF 

1 

21,2200 

03366  1 

VELSC 

0172 

21,2201 

77732  1 

SL2R 

0173 

21,2202 

45415  0 

DAD  STADR 

0174 

REF 

2 LAST  517 

21,2203 

74062  0 

STO'RE  DELM  + 8D  * 1 

0175 

RtF 

3 LAST  517 

21,2204 

17717  0 

STODL#  DELM  +10D,1 

0176 

REF 

5 LAST  517 

21,2205 

01655  0 

VLAUN  +8D , 1 

0177 

REF 

3 LAST  517 

2 1 ,2206 

ii62r  i 

STODL  VLAQNS  +6D,1 

0178 

REF 

3 LAST  516 

21,2207 

03347  1 

INTVAL  -2 

0179 

REF 

4 LAST  517 

21,2210 

03635  1 

STORE  INTY  +8D , 1 

0180 

21,2211 

77100  CT 

m,l  AXT  ,2 

0 1 8 1 

REF 

2 LAST  517 

21,2212 

42165  0 

DELMLP 

0182 

21,2213 

00004  0 

A 

0183 

21,2214 

56743  1 

ALTLF  " DLOAD*  DMPR* 

0184 

REF 

1 

21,2215 

76170  0 

ALK  +4,2 

0185 

REF 

2 LAST  516 

2 i ,2216 

76104  0 

ALDK  +4,2 

orgy 

"REF 

2 LAST  517 

21 ,2217 

05607'  or 

STORE  ALK  +4,2 

0187 

21,2220 

77104  1 

TIX,2  AXT , 2 

0188 

REF 

1 

21,2221 

42214  0 

ALILP 

0189 

21,2222 

OOOTO  ~0 

' SD 

0190 

21,2223 

66140  1 

ALKLP  LXC , 1 SXA , 1 

V 191 

REF 

1 

21,2224 

01601  1 

CMPX1 

0192 

REF" 

E LAST  SIT 

2 1 , 22  2 5 

"31601  T 

— CMP XI 

21,2226 

56743  1 

DLOAD*  DMPR* 

o i 9*t 

Ktr 

3 LASl  517 

21  ,2227 

01604  1 

ALK  +1*1 

0195 

Kth 

4 LA5T"5T7 

21 ,2270 

76062  1 

DELM  +8D.2 

vivo 

21  ,2231 

77613  0 

DAD* 

0197 

Kcr 

5 LrtSl  517 

21,2232 

76142  1 

INTY  +8D ,2 

0 1 9T5 

KLI- 

6 LAST  T17 

21,2233 

21635  X 

STOOL*  TNTY  +8D,2 

0 199 

KCr 

h LAS  1 517 

21 ,2234 

76160  1 

ALK  +12D ,2 

21,2235 

77613  0 

DAD* 

3 LAST  517 

21 ,2236 

76074  0 

ALDK  +12D,2  ' 

Kcr 

5 LASl  517 

21 ,2237 

05617  1 

STORE  ALK  +12D,2 

0^U3 

2 1 ,2240 

42673  0 

DMPR*  DAD* 

Kcr : 

5 LAST  517 

2 1 ,2241 

76062  1 

DELFT'  +8D  ,2  “ 
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optimum  prelaunch  alignment  calibration 

USER'S  OWN  PAGE  NO,  5 

0205 

REF 

7 LAST  517 

21,2242 

76132  0 

INTY  +160,2 

0206 

REF 

8 LAST  518 

21,2243 

21645  0 

STODL*  INTY  +16D*2 

0207 

REF 

1 

21,2244 

03371  1 

ALSK  +1,1 

0208 

21,2245 

76403  1 

DMP*  SL1R 

0209 

REF 

6 LAST"  517 

21,2246 

76062  1 

DELM  +8D  ,2 

0210 

21,2247 

77613  0 

DAD* 

0211 

~REF 

6 LAST  517 

21,2250 

76122  1 

VLAUN  +SD,2 

0212 

REF 

7 LAsnre 

21,2251 

05655  1 

STORE  VLAUN  +8D  ,2 

0213 

21,2252 

76104  0 

TIX ,2  AXT , 1 

0214 

REF 

1 

21,2253 

42223  1 

alklp 

0215 

21,2254 

00010  0 

8D 

0216 

21,2255 

64743  0 LOOSE 

DLOAD*  PDDL* 

0217 

ref 

2 LAST  24 

21,2256 

01657  1 

ACCWD  +8D , 1 

0218 

REF 

8"  LAST  51 8 

21,2257 

01655  0 

VLAUN  +8D , 1 

0219 

21,2260 

55523  0 

PDDL*  VDEF 

0220 

HREF 

" 1“ 

21,2261 

01665  0 

POSNV  +8D , 1 

0221 

21,2262 

76521  0 

MXV  VSL1 

0222 

REF 

4 LAST  476 

21,2263 

01721  I 

TRANSM1 

0223 

21,2264 

77745  1 

DLOAD 

0224  REF 

574  LAOT" 516 

21,2265 

00141  0 

""MPAC 

0225 

REF 

2 LAST  518 

21,2266 

11665  I 

STODL  POSNV  +8D , 1 

0226 

REF 

575  LA5T' 518 

2 1 ,2267 

00144  0 

MPAC  +3 

0227 

Rch 

9 TTA57  5T8 

" 21,2270 

11655  1 

STODL  VLAUN  +8D,1 

0228 

"REF 

576  LAS)  518 

21,2271 

00146  1 

MPAC  +5 

0229 

REF 

3 LA5T  518 

21,2272 

03657  0 

STORE  ACCWD  +8D*1 

0230 

21,2273 

77700  0 

"TTX  * 1 

0231 

REF 

1 

21,2274 

42255  0 

LOOSE 

0232 

21*2275 

76174  1 

AXT, 2 AXT , l 

EVALUATE  SINES  AND  COSINES 

OT233 

21 ,2276 

00006  1 

6 

0234 

21,2277 

00002  0 

2 

0235 

21,2300 

57343  1 BOOP 

DLOAD*  DMPR 

02T6 

RtF 

2 LAST  376 

21,2301 

"01637  1 

ANGX  +2,1 

0237 

REF 

1 

21,2302' 

03374  I 

GEORGEJ 

0238 

21,2303 

77722  0 

SR2R 

0Z39 

21,2304  " 

73406  1 

"PU5H  ~snr"~ 

0240 

21 ,2305" 

56172  0 

SL1R  XAD , 1 

0241 

REF 

10  LAST  429 

21,2306 

00046  0 

XI 

0242 

21,2307" 

12021  1 

STODL  16D,~2" 

0243 

21,2310 

77746  1 

COS 

0244 

21,2311 

04027  0 

STORE  22D  ,2 

COSINES 

0245 

21,2312 

71304  ~0~ 

TIX, 2 DLOAD 

0246 

REF 

1 

21 ,2313 

42300  1 - 

BOOP 
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L 

OPTIMUM 

PRELAUNCH 

alignment  CALIBRATION 

USER'S  OWN  PAGE  NO.  6 

0247 

21,2314 

00017  1 

14D 

0248 

21,2315 

43312  0 

SL2 

DAD 

0249 

“REF 

9 

LAST  518 

21,2316 

01625  1 

INTY 

0250 

REF 

TO 

LAST  5l9 

21,2317 

07625  1 

STODL 

INTY 

02  51 

21,2320 

00015  0 

12D 

0252 

21,2321 

56405  0 

DMP 

SL3R 

0253 

21,2322 

00025  0 

20D 

0254 

21,2323 

77615  0 

DAD 

0255 

REF 

1 

21,2324 

01631  1 

INTZ 

0256 

REF 

2 

LAST  519 

21,2325 

07631  1 

STODL 

INTZ 

0257 

21,2326 

00021  1 

16D 

0258 

21,2327 

57275  0 

DMPR 

DMPR 

0259 

21,2330 

00023  0 

18D 

0260 

21,2331 

00017  1 

14D 

0261 

21,2332 

77712  0 

SL2 

0262 

21,2333 

57325  1 

PDDL 

DMPR 

0263 

21,2334 

00013  0 

10D 

0264 

21,2335 

00015  0 

12D 

0265 

21,2336 

77615  0 

DAD 

0266 

21,2337 

77675  0 

DMPR 

0267 

REF 

2 

LAST  476 

21,2340 

01573  1 

WANGI 

0268 

21,2341 

57325  1 

PDDL 

DMPR 

0269 

21,2342 

00023 

18D 

0270 

21,2343 

00025  0 

20D 

0271 

21,2344 

66405  0 

DMP 

SL2R 

0272 

REF 

2 

LAST  476 

21,2345 

T3T571  0 

wango 

0273 

21,2346 

77621  r 

8DSU 

0274 

REF 

3 

LAST  478 

21,2347 

01637  1 

DRIFTO 

02  75 

2172350 

45425  0 

DSU  “ 

STADR 

0276 

REF 

1 

21,2351 

70156  1 

STODL 

WPLATO 

0277 

21,2352 

00021  1 

16D 

0278 

“2T.2353 

41275  1 

DMPR 

DMP 

0279 

21,2354 

00025  0 

20D 

0280 

REF 

3 

LAST  519 

21,2355 

01573  1 

WANGI 

0281 

21,2356 

777T2  I 

SL2R 

0282 

21,2357 

57325  1 

PDDL 

DMPR 

0283 

REF 

3 

LAST  519 

21,2360 

01571  0 

WANGO 

0224 

21,2361 

00017  1 

14D 

0285 

21,2362 

77615  0 

DAD 

0286 

REF 

3 

LAST  476 

21, 2363 

01641  0 

DRIFTI 

0287 

21 ,2364 

77625  0“ 

D5U  “ 

0288 

REF 

21,2365 

57325  1 

PDDL 

DMPR 

0269 

2 

LAST  24 

2 1 , 2 3 66 

01575  1 

wangt 

0290 

REF 

4 

LAS  1 519 

21,2367 

0T573  1 

TtfANGT 

0291 

2 1 , 23  ro 

45415  0 

DAD 

STADR 

0292 

REF 

1 

21 ,2371 

70062  1 

STODL 

WPLATI 

0293 

21 ,2372 

00023  a 

1 8TD~~ 

0294 

21,2373 

76405  1 

DMP 

SL1R 

0295 

21,2374 

00013  0 

10D 

0296 

21 ,2375 

57325  F“ 

“ FDDL 

“DMPR 
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L 

OPTIMUM  PRELAUNCH  ALIGNMENT 

:alibration 

USER’S  OWN  PAGE  NO.  7 

0217 

21.2376 

00015  0 

1 2D  . 

0298 

21,2377 

00021  1 

16D 

0299 

21,2400 

76405  1 

OMP 

5L1R 

“0300 

21,2401 

00017  1 

14D 

0301 

21,2402 

77621  1 

3DSU 

0302 

21,2403 

77675  0 

DMPR 

0303 

REF 

5 LAST  519 

21,2404 

01573  1 

WANGI 

0304 

21,2405 

57325  1 

PDDL 

DMPR 

0305 

21,2406 

00015  0 

12D 

0306 

21,2407 

00025  0 

20D 

0307 

21,2410 

76405  1 

DMP 

SL1R 

0308 

REF 

4 LAST  519 

21,2411 

01571  0 

WANGO 

0309 

21,2412 

77621  1 

3DSU 

“ ‘0  310 

REF 

5 LAST  494 

21,2413 

01577  0 

DRIFTT 

0311 

21,2414 

77615  0 

DAD 

WPLATT  NOW  IN  MPAC 

0312 

21,2415 

77606  1 

PUSH 

PUSH  IT  DOWN-X  IT  BY  SANG  +2 

0313 

21,2416 

74475  1 

DMPR 

SR  1R 

0314 

21,2417 

00015  0 

12D 

0315 

21,2420 

57325  1 

PDDL 

DMPR 

“0J16 

“REF  “ 

2 LAST  519 

21,2421 

01621  O' 

WPLATO 

0317 

21,2422 

00023  0 

18D 

0318 

21,2423 

77615  0 

DAD 

0319 

21,2424 

77671  1 

— DDV 

0320 

21,2425 

00025  0 

20D 

0321 

21,2426 

57206  1 

PUSH 

DMPR 

“0322“ 

REF 

1 

21,2427 

03376  “0“ 

GEORGEK 

0323 

21,2430 

43261  0 " 

SRR 

DAD 

0324 

21,2431 

01616  1 

13D 

0315 

“REF 

3 LAST  513 

2 1 ,2432 

0T635  0 

ANGX 

0326 

REF“ 

4 LAST  520 

21,2433 

07635  0 

5T0DL 

ANGX 

0327 

2 1 *2434 

43275  0 

DMPR  DAD 

032  8 

21,2435 

00017  1 

14D 

0329 

TREF 

2 LAST  319 

21,2436 

01715  0 

WPLATI 

0330 

21,2437 

54275  0 

DMPR 

SRR 

0331 

REF 

2 LAST  520 

“ 21,2440 

03376  0 

GEORGEK 

0332 

21,2441 

01616  1 

13D 

0333 

21,2442 

77615  0 

DAD 

0334 

REF 

2 LA5T  376 

21,2443 

01633  0“ 

ANGY 

0335 

REF 

3 LAST  520 

21,2444 

07633  0 

STODL 

ANGY 

0336 

21,2445 

00023  0 

laD 

0337 

21 ,2446 

T6405  1 

“DMP 

SL1R 

MULTIPLY  X WPLATT  -SL1-  PUSH  AND  RELOAD 

0338 

21,2447 

57325  1 

PDDL 

DMPR 

0339 

21,2450 

00015  0 

12D 

0340 

REF 

3““LA5T  520 

21,2451 

01621  0 

'“WPLATO 

0341 

21,2452 

77621  1 

BDSU 

0342 

21,2453 

54275  0 

DMPR] 

SRR 

0343 

REF 

3 LAST  520 

21  ,2454 

03376  0 ““ 

GEORGEK 

0344 

21  ,2455 

01616  1 

13D 

0345 

2 1 ,2456 

77615  0 

DAD 

'0346 

REF 

4 LA3I  376 

21 ,2457 

01627  0 

“ANGZ“ 
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L 

OPTIMUM 

PRELAUNCH  ALIGNMENT 

CALIBRATION 

USER'S  own  PAGE  NO. 

8 

0347 

REF 

3 

LAST  520 

21,2460 

01627  0 

STORE 

angz 

0348 

21,2461 

77404  1 

BOVB 

EXIT 

0349 

REF 

1 

21,2462 

42716  1 

SOMEERRR 

0350 

REF  “ 

10 

LAST  514 

21,2463 

11*527  1 

CCS 

LENGTHOT 

03501 

REF 

2 

LAST  514 

21,2464 

0 2666  0 

rc 

SLEEPIE 

03502 

REF~ 

r 

21,2465 

0 2631  1 

TC 

SETUPER1 

0351 

21,2466 

44743  1 

ALWAYSG 

DLOAD*  DSU* 

compass  and  _ereCt 

0352  REF 

3 

LAST 

517 

21,2467 

01667  1 

DPIPAY  +8D,1 

0353 

REF 

1 

21,2470 

01655  0 

FlLDELV  + 8D » 1 

0354 

21,2471 

42675  0 

DMPR 

DAD* 

0355 

REF  ~ 

1 

21,2472 

03400  0 

GE0C0NS1 

0356 

REF 

2 

LAST 

521 

21,2473 

01655  0 

FlLDELV  + 8D  * 1 

0357 

REF 

3 

LAST 

521 

21,2474 

03655  1 

STORE 

FlLDELV  +SD , 1 

0358 

21,2475 

77613  0 

DAD" 

0359 

REF 

1 

21,2476 

01657  1 

INTVEC  +8D,1 

0360 

REF 

2 

LAS  1 

521 

21,2477 

03657  0 

5T0RE 

InTVEC  +8D , 1 

0361 

21,2500 

42675  0 

DMPR 

DAD* 

0362 

REF 

1 

21,2501 

03402  1 

GE0C0NS2 

0363 

REF 

4 

LAST 

521 

21,2502 

01655  0 

FlLDELV  +8D , 1 

0364 

21,2503 

41475  1 

DMPR 

PUSH 

0365 

REF 

2 

LAST 

521 

21,2504 

03400  0 

GE0C0NS1 

0366 

21,2505 

67300  0 

TIX , 1 

SLOAD 

0367 

REF 

2 

LAST 

517 

2l  ,2506 

42466  0 

ALWAYS^ 

0368 

REF 

2 

LAST 

514 

21,2507 

01747  1 

ERECTIME 

0369 

21,2510 

71254  1 

BZE 

DLOAD 

0370  REF 

IT 

21,2511 

42522  1 

compgs 

compass 

0371 

REF 

1 

21,2512 

01627  0 

THETAN  +2 

0372 

21,2513 

45425  0 

D5U 

STADR 

0373 

REF 

2 

LAST 

521 

2T , 251 4 

70150  1 

STODL 

THETA  iT  +2 

0374 

21,2515 

77621  1 

3DSU 

0375 

REF 

3 

LAST 

521 

21 ,2516 

01631  1 

THETAN  +4 

0376 

HREF 

4 

LA5T  521 

21,2517 

01631  1 

THETAN  +4 

0377 

21,2520 

77650  1 

GOTO 

0378 

REF 

1 

21,2521 

42544  1 

ADDINDRF 

03  1 9 

21,2522 

43345  1 

COMFGS~ 

ADLOAIT 

UAD 

COMPASS 

0380 

REF 

5 

LMb  T 

521 

21,2523 

01625  1 

THETAN 

0381 

REF 

5 

LAST 

521 

21  ,2524 

01645  1 

FlLDELV 

0382 

REF 

6 

1LAT5T 

521 

21,2525  076251 

STUDU 

THETAN 

0383 

REF 

6 

LAST 

521 

21,2526 

01645  1 

FlLDELV 

0384 

21  ,2527 

44275  1 

DMPR 

BDSU 

0385 

REF 

1 

21,2530 

03404  1 

GE0C0NS3 

0386 

REF 

7 

LA5T 

521 

21,2531 

01631  1 

THETAN  +4 

U387 

KtF 

8 

LAST 

521 

21 ,2  532 

07631  1 

STODL 

THETAN"  +4 

vjbo  Ktr 

7“ 

LAST 

521 

21  ,2533 

01651  1 

FlLDELV  +4 

21,2534 

44275  1 

DMPR 

BDSU 

O39O 

REF 

2 

LAST 

521 

21.2535 

03404  1 

GE0C0NS3 

O39I 

REF 

9 

LAST 

521 

~2T,253F 

01627  0 

THETAN  +2  ” 
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L 

OPT t MUM 

prelaunch 

alignment  c 

ALiBrATiON 

USER'S  OwN  PAGE  NO,  9 

0392 

21,2537 

41325 

0 

PDDL 

DMP 

0393 

REF 

3 

LAST  521 

21,2540 

01653 

0 

INTVEC  +4 

0394 

REF 

1 

21,2541 

03406 

0 

GE0C0NS4 

D395~ 

21,2542 

45421 

1 

3DSU 

STADR 

0396 

REF 

10 

LAST  521 

21,2543 

76150 

1 

STORE 

THETAN  +2 

0397 

21,2544 

64375 

1 ADDINDRF  VLOAD 

MXV 

0398 

REF 

11 

LAST  522 

21,2545 

01625 

1 

THETAN 

~ 0^99 

H7EF 

5 

LAST  ! 516 

21 ,2546 

01750 

1 

GEOMTRX 

0400 

2i,2547 

53372 

1 

VSL1 

VAD 

0401 

REF 

1 

21,2550 

01617 

0 

THETAX 

0402 

“ REF 

2 

LAST  522 

21,2551 

01617 

0 

STORE 

THETAX 

0403 

21,2552 

77776 

1 

exit 

0404 

ref 

11 

LAST  521 

21,2553 

11*527 

1 ENDGTSAL 

CCS 

LENGTHOT 

IS  5 SEC  OVER-THE  TIME  TO  TOr£ 

3 PLATFOrM 

0405 

REF 

3 

LAST  521 

21,2554 

0 2666 

0 

TC 

SLEEPIE 

NO-SET  UP  NEXT  WAITLIST  CALL  f 

r0R  .5  SEC 

U406 

REF 

14 

LAST  486 

21,2555 

10  357 

1 

CCS 

LGYRO 

YES  BUT  ARE  GYROS  BUSY 

040? 

REF 

2 

LAST  514 

21,2556 

1 2742 

0 

TCF 

ANNNNNN  +2 

BUSY-GET  THEM  ,5  SECONDS  FROM 

NOW 

0410 

REF 

7 LAST  516 

21,2557 

0 4614  0 

TC 

PHASCHNG 

0411 

21,2560 

0040  n 

OCT 

00401 

0415 

RcF 

52  LAST  516 

21,2561 

0 6000  1 

TC 

INTPRET 

ADD  COMPASS  COMMANDS  INTO  ERATE 

0416 

21,2562 

53375  0 

VLOAD 

VAD 

0417 

REF 

3 LAST  522 

21,2563 

01617  0 

THETAX 

0418 

REF 

6 LASl  459 

21,2564 

01772  1 

ERCOMP 

10419“ 

REF 

7 LAST  522 

21,2565 

01772  1 

store 

ERCOMP" 

0420 

21,2566 

77776  1 

EXIT 

0421 

REF 

108  LAST  516 

21,2567 

0 4063  0 

TC 

BANKCALL 

0422  “ 

REF 

7TA5"T  4 83 

2 1 ,‘2570 

30422  C 

CADR 

EARTHR 

‘ TORQUE  IT  ALL  TFT 

0423 

21 ,2571 

0 0004 

0 

RESTEST1 

INhINT 

CHECK  ON  ORIENTATION  CHANGE 

0424 

RtF 

1 

21,2572 

3 1717 

1 

CA 

premtrxc 

0430 

21,2573 

~0  0006 

r 

EXTENT! 

0431 

RcF 

1 

21,2574 

6 2727 

T 

6ZMF 

NOCHORLD 

+1  -CHANGE,  0 OR  -1  NO  LOAD  OR 

LOADING 

0432 

RcF 

2 LAST 

496 

21,2575 

0 3107 

1 

TC 

LOADXSM 

IF  THERE  WAS  A CHANGE  LOAD  IT 

INTO  X jim 

UA32J.  KCE 

8 LAST 

52C 

21,2576 

0 4614  0 

TCT  ‘ 

PHASCHNG 

UA322 

21,2577 

01001 

T 

OCT 

01001 

04323 

REF 

193  LAST 

515 

21,2600 

3 7665 

0 

RESTEST3 

CA 

ZERO 

RESET  CHANGE  INDEX  TO  ZERO 

0434 

REF 

2 LAS  i 

522~ 

2l  ,2601 

55*717 

u 

TS 

PREMTRXC 

0435 

21*2602 

0 0003 

1 

relint 
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0436  '' 

REF 

53 

LAST  522 

21,2603 

0 6000  1 

TC 

INTPRET 

HERE  TO  CHANGE  ORIENTATOON 

0437 

21,2604 

77770  1 

AXT , 1 

DESIRED  IN  XSM, PRESENT  IN  GEOMTRX 

0438 

21,2605 

00022  1 

18D 

0439 

21,2606 

77731  1 

SSP 

' 0440 

REF 

17 

LAST  516 

21,2607 

00051  0 

SI 

0441 

21,2610 

00006  1 

6 

0442 

21,2611 

50373  0 

LOADM  yLOAD* 

DOT 

0443 

REF 

46 

LAST-  514 

21,2612 

01423  0 

XSM  +180,1 

0444 

REF 

6 

LAST"  522 

21,2613 

01764  0 

GEOMTRX  + 12D 

0445 

21,2614 

50313  0 

PDVL* 

DOT 

0446 

REF 

47 

LAST  523 

21,2615 

01423  0 

XSM  +18D,1 

0447 

REF 

7 

LAST  523 

21,2616 

01756  1 

GEOMTRX  +6D 

0448 

21,2617 

50313  0 

PDVL* 

DOT 

0449 

REF 

48 

LAST  523 

21,2620 

01423  0 

XSM  +18D,1 

0450 

REF 

8 

LAST  523 

21,2621 

01750  1 

GEOMTRX 

0451 

21,2622 

53466  0 

VDEF 

UNIT 

17 

LAST  490 

21,2623 

03445  1 

STORE 

XDC  + 1 8D  , 1 

0453 

21,2624 

47100  0 

T I X , 1 

CALL 

0454 

REF 

1 

21,2625 

42611  1 

LOADM 

0455 

REF 

3 

LAST  490 

2T1  ,2626 

32367  1 

CALCGTA 

0456 

21,2627 

77776  1 

EXIT 

0457 

REF 

1 

21,2630 

0 2645  1 

TC 

TORO  INCH 

NECESSARY  TORQUE  NOW  IN  OGC 

0458  REF 

54 

last  523 

21,2631 

0 6000  1 

SETUPLRT  TC  INTpRET 

0459 

21,2632 

65345  0 

DLOAD  PDDL 

ANGLES  FROM  DRIFT  TEST  ONLY 

0460  REF 

4 

LAST  521 

21,2633 

01627  0" 

ANGZ 

046T  "RET 

4 

LASTS  20 

21,2634 

" 01633  "0 

"AInGY 

0462 

21 ,2635 

55525  0 

PDDL  ' VDEF 

0463  REF 

5 

LAST  520 

21  ,2636 

01635  0 

ANGX 

0464 

2T72637 

74276  1 " 

VCOMP  VXSC 

0465  REF 

2 

LAbT  518 

21,2640 

03374  1 

" GEORGEU 

0466 

21,2641 

74521  1 

" MXV  VSR1 

"0467  RET 

V 

LAST  523 

21,2642 

01750  “I 

GEOMTRX 

0468  REF 

10 

LAST  513 

2l  ,2643 

01501  r 

STORE  OGC 

0469 

21 ,2644 

f 7776  1 

exit 

0470 

-ref 

9 

LArT522 

21 ,2640 

0 4614  0 

~ TOruTNCh  TC 

PhAsCHNG 

0471 

2 1 ,2  646 

00501  0 

OCT 

00501 

0472 

REF 

1 

2 1 ,2647 

3 3362  0 

CA 

AINGYRO 

0473 

REF 

109 

LA5T  522 

21  ,2650 

0 4063  0~ 

TC 

BANKCALL 

0474 

RcF 

5 

LAST  490 

2 1 ,2651 

26317  0 

CADR 

IMUPULSE 

0475 

REF 

110 

LAST  523 

2 1 , 2652 

0 4063  0 

TC 

BANKCALL 

°^76 

LAST  5"!  1 

21 ,2653 

26716  0 

"CADR  “ 

TMU STALL 

0477 

REF 

1 

21 ,2654 

0 2721  1 

TC 

S0MERR2 

BAD  GYRO  TORQUE-END  OF  TEST 
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0476 

' REF 

yXAST 

478 

21,2655 

11*574  1 

GE0STRT4 

CCS 

TORQNDX 

only  POSITIVE  IF  IN  VERTICAL  DRIFT  TEST 

0479 

REF~ 

21.2656 

0 2664  1 

TC 

geobavr 

VERT  DRIFT  TEST  OVER 

0480 

- w 

2 LAST 

514 

21 ,2657 

0 2753  1 

“TC 

SETuPER 

SET  UP  ERATE  f°R  PlPTEST  OR  cOMPASS 

0481 

REF 

7 LAST 

517 

21,2660 

11*742  0 

CCS 

GEOCOMPS 

048i2 

REF 

1 

21,2661 

0 2725  0 

TC 

tqorestm 

0483 

REF 

111  LAST 

523 

21,2662 

0 4063  TJ 

TC 

bankcall 

GO  TO  IMU2  FOR  A PIPA  TEST  AND  DISPLAY 

0484 

REF 

1 

2 1 , 2b63 

36075  0 

CADR 

TORQUE 

O485 

R!EF 

112  LAST 

524 

21 .2664 

0 4063  0 

GEOBAVK 

TC 

BANKCALL 

0486  REF 

I 

2 i , 266b 

36223  1 

CADR 

valmis 

display  vertical  drift 
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1304861  SET  U P A l T LIST "SEC T 1 0 N 


0487 

RTF" 

12  C ATT 

522 

”Zl,2666 

“55T527  1 

SLEEP  IE 

TS 

LENGTHOT 

TEST  NOT  OVER-DECREMENT  LENGTHOT 

0488 

“REF” 

TO"LAST 

523 

21,2667 

0 4614  0 

TC 

PHASCHNG 

CHANGE  PhASE 

0489 

21,2670 

00301  0 

OCT 

00301 

6 LAST  524 

21,2671 

11*574  1 

CCS 

TORQNDX 

ARE  WE  DOING  VERTDRIFT 

0491 

“REF 

r 

21,2672 

0 2674  0 

TC 

EARTTPRQ 

YES, DO  HOR  ERATE  TORQ  THEN  SLEEP 

0492 

“ REF 

T 

21,2673 

0 2676  1 

TC 

WTLISTNT 

GO  TO  SET  UP  NEXT  WAITLIST 

0493 

524 

“21  ,2674 

0 4063  “0 

BATTKCALL 

IN  VERTDRIFT, ADD  HOR  ERATE  AND  SLEEP 

0494 

REF 

8 LAST 

522 

21,2675 

30422  0 

CADR 

EARTHR 

0495 

21,2676 

0 0004  0 

WTLISTNT 

INHINT 

10496 

REF 

10  LAST 

515 

21,2677 

4 “0025  1 

cs 

TI’MEl 

0497 

REF 

3 LAST 

515 

21,2700 

6 1745  0 

AD 

GTSWTLST 

0498 

21,2701 

0 0006  1 

extend 

0499 

21,2702 

6 2704  0 

SZMF 

+ 2 

0500 

REF 

4 LAST 

182 

21,2703 

6 7641  0 

AD 

NEGMAX 

0501 

REF 

2 LAST 

475 

21,2704 

6 1744  1 

AD 

1SECXT 

1 SEC  FOR  CALIBRATION, ,5  SEC  IN  COMPASS 

0502 

21,2705 

0 0006  1 

EXTEND 

0503 

REF 

1 

21,2706 

6 2714  1 

3ZMF 

rightgts 

0504 

REF 

74  LAST 

512 

21,2707 

0 4536  0 

WTGTSMPL 

1 

WAITLIST 

“0505 

21,2710 

02042  0 

2CADR 

ALLOOP 

C0505 

REF 

1 

21,2711 

42005  1 

0506 

21,2712 

0 0003  1 

RELINT 

0507 

REF” 

5“S  LA“ST“ 

462 

21,2713 

0 4440  0 

TC 

ENDOF JOB 

0508 

" REF 

75  LAST 

510 

21,2714 

3 7656  0 

K I GHT  G 1 5 

CAF 

TWO 

0509 

REF 

1 

21,2715 

0 2707  0 

TC 

WTGTSMPL 

30  last  4Si  211271 6 0 5413  1 soMeerrr  nr 


alarm 


0514 

0515  -REF  114  LAST  525 

“05X6  REF — 25  LAST  “504” 


21,2717 

01600  0 

OCT 

1600 

21,2720 

0 2723  0 

TC 

+ 3 

2 T, “2721 

0 5413  1 SUMERR 

ALARTF 

21,2722 

01601  1 

OCT 

1601 

21,2723 

0 4063  0 

TC 

BANKCALL 

2TT27274 

30745  X 

CAOR 

ENDTEST 

473423A  YJL  SYSTEM  FOR  BLK2 ; REVISION  12  OF  PROGRAM  AURORA.  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  526 

L OPTIMUM  P RELAUmCH  ALIGNMENT  CALIBRATION 


USER'S  0 W t\l  PAGE  mO,  13 


0517  REF  115  LAST  525  ~2l  ,2725  0 4063  0 TQORESTM"TC  BANKCALL 

0518  REF  3 LAST  477  ~ 21,2726  37612  0~  CADR  LQADGTSM  LOAD  NEW  X5M  MATRIX  INTO  GEOMTRX 

0520  21*2727  0 0003  1 NQCHORLD'RELINT  AFTER'  CHANGE  IN  ORTEN"  OR  NO  CHANGE 

0521  REF  55  L«ST  523'  21,2730  0 6000  1 TC  INTPRET 

0522  21,2731  77775  1 VLOAD 

0523  REF  I 21,2732  03343  G SCHZEROS 

0524 REF 4 LAST  522  21,2733  01617  0 STORE  THETAX 

0525  REF  12  LAST  522  21,2734  01625  1 STORE  THfcTAN 

0526  21,2735  77776  1 EXIT 

0527 REF  3 LAST  '521  2TV2726  ll»746  1 CCS  ERECTIME 

“ 0528 REF 4-  LAST  526 21*2737  55^746  1 TS  ERECTIME  COUNTS  DO'wN  FOR  ERECTION 


0529  REF  2 LAST  472  21,2740  3 7662  1 ANNNNNN  CAF  NINE 

0530  REE  13  LAST  525  21,2741  55'527  1 TS  LEN6TH0T 


" 0531 

'REF 

5 LAST  526 

21,2742 

11*746  1 

CCS 

ERECTIME 

~0~532~ 

' REF' 

4 LAST  522 

21*2743 

0 2667  T 

TC 

SLEEP  IE  +1 

05321 

REF 

1 

21,2744 

0 4702  0 

TC 

ChECKMM 

IN  COMPASS  CHECK  FOR  VERIFICATION 

05322 

00003  1 

OCT 

03 

05323 

21,2746 

0 2750  1 

T <r 

+ 2 

NOT  VERIFYING 

05324 

REF 

5 LAST  526 

21,2747 

0 2667  1 

TC 

SLEEPIE  +1 

YES 

0533 

RcF 

6 LAST  514 

21,2750 

0 4667  1 

T C 

NEWMODEX 

“0534 

21,2751 

00002  0 

“OCT 

02 

0535 

"REF 

6 LAST" 526 

21,2752 

0 2667  1 

TC 

SLtEPIE  +1 

COMPASS  IS  02  -ERECTION  05 

“ 0536 

21,2753 

0 0006  1 

5ETUPER  EXTEND 

SUBROUTINE  CALLED  IN  3 PLACES 

0537  ' 

"REF' 

~ 5 LAST  453 

21 ,2754 

23*547  C 

OXCH 

UPLACES 

0538 

RcF 

56  LAST  526 

21*2755 

0 6000  1 

TC 

INTPRET 

0539 

21,2756 

77634  0 

call 

0540 

"RET 

3 LAST  474 

21,2757 

30405  C 

ERTHRVSE' 

0541 

21,2760 

77776  1 

exit 

0542 

REF 

116  LAST' 526 

21,2761 

0 4063  0 

TC 

BANKCALL 

0543 

REF  3 EASI  474 

' 21,2762  ' 

30727  C 

CADR  OGCZERO 

0544 

Rtr 

4 LA5T  5^6 

21,2763 

0 1547  0 

TC 

QPLACE5 

4)3423A 

YJL 

SYSTEM  FOR  BLK2 ! REVISION  12  OF  PROGRAM  AURORA  BY 

DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  527 

L 

OPTIMUM 

PRELAUNCH  ALIGNMENT  CALIBRATION 

USER'S  OWN  PAGE  NO,  14 

0546 

REF 

2 

LAST  151  21,2764  51'074  0 

OPTMSTRT  INDEX 

PHASE  1 

0647 

21,2765  0” 2765  1 

TC 

+ 0 

0546 

REF 

1 

21,2766  ”0  2776  G 

TC 

GTSGTS1 

0549 

REF 

1 

21,2767  0 3003  1 

TC 

GTSGT52 

~0550 

REF 

1 

21,2770  0 3010  0 

TC 

GTSGTS3 

0551 

REF” 

1 

21,2771  0 3015  0 

TC 

GTSGTS4 

7552 

REF 

” T 

21,2772  0 3022  1 

TC 

GTSGTS5 

0553 

REF” 

1 

21,2773  0 3027  1 

TC 

GTSGTS6 

05531 

REF 

T 

21,2774  0 3034  0 

TC 

GTSGTS7 

055311 

REF 

1 

21*2775  0 3040  0 

TC 

GTSGTS10 

0754  REF  6 LAST  515 


3 7642  0 GTSGTSl  CAF 


0555 

REF 

8 

LAST  515 

21,2777 

0 4374  0 

TC 

FINDvAC 

0556 

21,3000 

02002  1 

2CADR 

RSTGTS1 

C0556 

REF 

1 

21,3001 

42005  1 

05  57 

REF 

7 

LAST  236 

21,3002 

0 4076  1 

”TC 

SWRETURN 

0558 

REF 

133 

LAST  504 

21,3003 

3 7657  1 GTSGTS2 

CAF 

ONE 

0559 

REF 

) 5 

LAST  525 

21 ,30(04 

0”  4536  0 

TC 

WAITLIST 

0560 

21,3005 

02052  1 

2CADR 

ALL00P1 

C0560 

REF 

1 

21,3006 

42005  1 

0561 

REF” 

8 

LAST  527 

21,3007 

0 4076  1 

TC  ” 

SWRETURN 

0562 

REF 

7 

LAST  527 

21 9 3U 1 0 

3 7642  0 GTSG ( S3 

CAF 

PR  1 020 

0563 

REF 

9 

LAST  527 

21,3011 

0 4374  0 

TC 

FINDVAC 

0564 

21,3012 

02676  1 

2CADR 

WTLISTNT 

C0564 

REF 

2 

LAST  525 

21,3013 

42005  1 

0565 

REF 

9 

LAST  527 

21,3014 

0 4076  1 

TC 

SWRETURN 

0566 

REF 

8 

LAST  527 

2X”,30T5 

3 7642  C GTSGTS4 

CAT 

PRT020 

0567 

REF 

10 

LAST  527  ” 

21,3016 

0 4374  0 

TC 

FINDVAC 

0566 

21,3017 

02571  0— 

2CADR 

RESTEST1 

C0566 

REF 

1 

2173020 

42005  I 

0570  REF 

0571  REF” 

0572 
C0572  REF  1 


9 LAST  527 
”IT  LAST  527” 


”21,3022 
' 21,3027 

21.3024 

21.3025 


4076 

7642 


GT5GTS5 


TC 

CAF 


SwRETURN 
PRI020 


"7”  43 74  0 
02655  0 
42005  T 


TC 

2CADR 


FINDVAC 

GE0STRT4 


0573 

” ”REF” 

11  LAST 

527 

”21,3026 

”0  4076 

i ” 

TC”  ” 

””5WRETUR7F 

0574 

REF 

10  LAST 

527 

21,3027 

3 7642 

0 GTSGTS6 

CAF 

PR  1 020 

0575 

REF 

12  LAST 

527 

2 1 f j 0 5 0 

0 4374 

0 

TC 

FINDVAC 

0576 

21,3031 

”021 15 

0 

2CADR 

ALFLT1  ” 

0577  REF  12  LAST  527 21,3033  0 4076  1 


TC 


SWRETURN 


05771 

05772 


05773 
C0577O  REF” 
05775  REF 


REF  134  LAST  527 
REF  76  LAST  527 


21.3034  “3-7657  1 

21.3035  0 4536  0 

71 ,3036 02077  0~ 

21,3037  42005  1 

21 .3040  3 7642  0 

21 .3041  0 4374” 0 


GTSGTS7 


CAF 
TC  ” 


ONE 

WAITLIST 


7CADR  SPECSTS” 


05776  REF 


T 1 LAST  527” 
T3  LAST— 527” 


GTSGTS10  CAF 


PRI020 


TC” 


FINDVAC” 


I 


47342 3A  YJL  SYSTEM  FqR  BL<2?  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L _QP T i MUM  PRELAUNCH  ALIGNMENT  CALIBRATION 


user's  own  page  no#  is 


05777 

21,3042 

02600  0 

2CADR 

RESTE5T  3 

C05777 

REF  1 

21,3043 

42005  1 

05778 

REF  13  LAST  527  ' 

21,3044 

0 4076  1 

TC 

S^RETURN 

473423A  YJL  SYSTEM  FOR  BLK2;  REVISION  12  OF  PROGRAM  AURORA.  BY  DAP  GROUP' 


NOV  10*  1966  (MAIN)  PAGE  529 


L OPTIMUM  PRELAUNCH  ALIGNMENT  CALIBRATION  USEr*S  OWN  PAGE  NO*  16 

0578  21*3045  02000  0 GEOBND  OCT  02000  BANlT  4 -THIS  IS~THE  STORE  DT A SECTION 

u579  21*3046  02400  1 GE0BND1  OCT  02400  ~ BANK  NUMBER  5 


0581 

"0582 

“0583 

0584 

0585 


0586 

0587 

0588 

0589 

0590 

0591 


1 

REF  173  LAST  506 
REF  2 LAST  514 
REF  577  LAST  518 
REF  578  LAST  529 
“REF 


“ 0592 

0593 

0594 
05  9 5 

0596 

0597 
0598" 
0599 


TTAST516 
2?  VAST  471 

23  LAST  434 
LAST  529 

24  LAST  529 
28  LAST  529 


REF 
REF 

REF" 

REF 

"REF  49  LAST  “5~23“ 
REF  580  LAST  529 


“2173047 

21,3050 

“2173051 

21,3052 

“2173053 

21.3054 

21.3055 


3 3045  0 
54^301  1 
3 3360  1 
54  140  0 
50  140  1 
1600  0 
r 


STOrEDTA  cap 
T5 
CAF“ 


GEOBND 


TS 

INDEX 


3 

22  003 


“21 ,3056 
21,3057 
21,3060 


14“ 

5 0“  14  0 T 
55' 407  1 
22  003  1 


"CA“ 
“LXCH 
EBANK = 
TMDEX" 
TS 

LXCH 


_L 

77DECML 

MPAC 

MPAC 


REF  279  Last  509 
REF  561  LAST  529 
"REF  2 LAST  529 
R EF  T7¥  LA"ST“5"29 
REF  2 LAST  516 


21.3061 

21.3062 
“21,3063 

21.3064 

21.3065 
21*3066 
21,3067 


E5 

TOHL40  0 
1 3064  1 
0 0002  0 
54  140  0 
3 3045  0 
54  GOT "1“ 
1 3053  0 


EBANK: 

CCS 

TCF 

TV 

TS 

CAF 

TS 

“ tcf 


ALX15 

EBANK 

JETSTEP_ 

MPAC_ 

JETSTEP 

EBANK 


XSM 
MPAC 
+ 2 
0 

MPAC 

GEOBND 


STOREDTA  +4 


0600 

"0601 

0602 

0603 

“0604 

0605 

0606 
06  07" 
0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 
06T6 


REF 


REF  562 
REF  3 
REF  29 


LAST  529 
LA5T"  529“ 
LAST  529 
LAST  529 


REF  175" 
REF"  25 
REF  583 


LA"ST"529 
LA5T  529 
LAST  529 


“REF 26- 

REF  30 
REF  50 


LAST529 
LAST  529 
LAST  529 


21*3070 

21.3071 

21.3072 

21.3073 

21.3074 


21.3075 

21.3076 

21.3077 


3 3380  1 
54  140  0 
3 3045  0 
56  003  1 


LOADSTDT  CAF 
TS 
CA 
XCH 


77DECML 

MPAC 

GEOBND 

EBANK 


54  001  1 " 
E4 

50  140  1 


-R"EF“5"84“LAST  529 


REF  5 
REF  585 


LAST  529 
LAST  529 


"21,3100 

21.3101 

21.3102 


31407  0 
22  003  1 
E5 


"TS  C 
EBANK = JETSTEP 
INDEX  MPAC 


“CA  JETSTEP 
LXCH  EBANK 
EBANK=  XSM 


50""r4O  I 
55*600  1 
10  140  0 


21 ,3 103’ 

21.3104 

21.3105 

21 .3106 


“1  “3 10  5"  T 
0 0002-0 
54  140  0 
1 3072  0“ 


TNDEX  MPAC 
TS  ALX15 
CCS  " "MPAC 


"TCF  +2““ 

TC Q 

TS MPAC 

TCF  LOADSTDT  +2 


REF  280  LAST  529 
REF  586  LAST  529 
-REF  2“LAST  "816“ 


1 
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L OPTIMUM  PReLAUNCH  ALIGNMENT  calibration 


USER  IS  OWN  PAGE  NO,  17 


0617 

21,3107 

0 0006  1 

LOADXSM 

EXTEND 

0618 

REF" 

5 LAST 

526 

"21,3110 

23*547  0 

— OXCH 

QPLACES 

0619 

REF 

1 

21,3111 

3 3410  1 

caf 

17DECML 

0620 

REF 

587  LAST 

529 

21,3112 

54  140  0 

T 5 

MPAc 

062  1 

REF 

334  LAST 

515 

21,3113 

50  000  1 

INDEX 

A 

0622 

" REF 

2" LAST 

24 

21,3114 

3 1720  0 

CA 

PRELMTRX 

0623 

REF  568  LAST 

530 

21,3115 

50  140  1 

INDEX 

MPAC 

0624 

REF 

” 51  LAST 

529 

21 ,3116 

55 '400  0 

TS 

XSM 

0>625 

" REF 

589  LAST 

530 

21,3117 

10  140  0 

CCS 

MPAC 

0626 

ref 

3 LAST 

522 

21 ,3120 

1 3112  1 

1CF 

LOADXSM  +3 

~0627 

"REF 

6 LAST 

530 

21,3121 

0 1547  0 

TC 

QPLACES 

0628 

21,3122 

77743  1 

ALFDK 

DEC 

-28 

SLOPES  AND  TIME  CONSTANTS  FOR  FIRST  30SC 

0629 

21,3123 

77776  1 

DEC 

-1 

0630 

21,3124 

35143  I 

"ZDtC 

.91230333 

TIME  CONST ANTS-PIPA "OUTPUTS 

C0630 

21,3125 

10237  0 

0631 

21,3126 

31766  1 

2DEC 

.81193187 

TIME  CONSTANT-ERECTION  ANGLES 

C0631 

21,3127 

26106  1 

0632 

21,3130 

77772  0 

2DEC 

-.00035882 

SLOPE-AZIMUTH  ANGLE 

" C0632 

21,3131 

43677  0 

U633 

21,3132 

77777~0~ 

2DEC 

-.00000029 

SLOFE-VERTICAL  DRIFT 

C0633 

21,3133 

77661  0 

0634 

21,3134 

00002  0 

2DEC 

.00013262 

SLOPE-NORTH  SOUTH  DRIFT 

C0634 

21,3135 

05420  I 

0635 

21,3136 

77705  0 

" DEC 

-58  31-90  SEC 

0636 

21,3137 

77776  1 

DEC 

-1 

0637 

21,3140 

37560  0 

2DEC 

.99122133 

C0637 

21,3141" 

05346  0 

c 

O' 

UJ 

CD 

21,3142 

37522  0 

2DEC 

.98940595 

CU638 

21,3143 

15525  1 

0639 

21,3144 

77763  0 

2D  EC 

-.00079010 

C0639 

21,3145 

41604  0 

0640 

21 1 3 1 46 

77777  0 

2DEC 

-.00000265 

C0640 

2T43147 

76470  "0“ 

0641 

21 ,3l50 

00007  0 

2DEC 

.00043154 

C0641 

21,3151 

02201  0 

0642 

21,3152 

77767  1 

DEC 

-8 

9l-10Q~5EC 

0643~ 

2l  ,3153 

77776  1 

DEC 

-T” 

0644 

21,3154 

37773  0 

2DEC 

.99971021 

C0&44 

21,3155 

10042  0 

0645 

21 ,3156 

37747  1 

2DEC 

.99852047 

C0645 

21,3157 

30232  1 

0646 

21,3160 

00006  1 

2DEC 

.00042697 

CC646 

21 , 3 1 6 1 

37666  XT 

0647 

C0647 

21 . 3 1 62 

21.3163 

77777  0 
76703  r 

2DEC 

-.00000213 

0648  21  ,3164 00001  “0 

C064"B 2tT3T65  36147  0 


2DEC 


000 11864 


473423A 

yjl  system  FOR  BLN 2 •'  REVISION 

12  OF  PROGRAM 

aurora  BY 

DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  531 

' * 1 S ~ 

L 

OPTIMUM  PRELAUNCH  ALIGNMENT  CALIBRATION 

USER'S  OWN  PAGE  NO.  18 

0649 

c 1 »3166 

77635  1 

DEC 

-98 

101-200  SEC 

0650 

2T,3167 

77776  1 

DEC 

-1 

0651 

21,3170 

37666  0 

2DEC 

,99550063 

C0651 

21,3171 

11022  1 

0652 

21,3172 

37532  1 

2DEC 

,98992124 

C0652 

21,3173 

33647  1 

0653 

21 ,3l7A 

00007  0 

2DEC 

,00043452 

C065  3 

21,3175 

03641  1 

0654 

21,3176 

77777  0 

2DEC 

-.00000401 

C0654 

21,3177 

75713  0 

0655 

21,3200 

77774  0 

2DEC 

-.00021980 

C0655 

21,3201 

54605  0 

0656 

cl  9 3202 

77407  1 

DEC 

-248 

201-450  SEC 

0657 

21,3203 

77776  1 

DEC 

-1 

0658 

21  % 3204 

37712  1 

2 DEC 

.99673264 

C0658 

21,3205 

16755  1 

0659 

21, 3206 

37630  0 

2DEC 

.99365467 

C0659 

21,3207 

01160  1 

0660 

21,3210 

00000  1 

2DEC 

.00003767 

C0660 

21 ,3211 

23600  0 

066 1 

21,3212 

77777  0 

2DEC 

-.00002317 

C066T 

21,3213 

63663  1 

066  2. 

21,3214 

77777  0 

2DEC 

-.00003305 

C0662 

21,3215 

56527  1 

0663 

21,3216 

77255  0 

DEC 

-338 

451-790  SEC 

0664 

21,3217 

77776  1 

dec 

-1 

0665 

21,3220 

37763  1 

2DEC 

.9992436 2 

C0665 

21 ,3221 

23341  75 

0666 

21,3222 

37755  1 

2DEC 

.99888274 

C0666 

21,3223 

26170  0 

0667 

21,322^ 

770000  1 

2DEC 

.00000064 

C.U66  f 

2 1 , 322  5 

00254  1 

0668 

21  ,3226 

77777  0 

2DEC 

-.00004012 

C066B 

2 1 , ( 

52755  I 

vOOV 

21 ,3230 

77777  0 

2DEC 

-.00000195 

21 ,3231 

7b  / 0 

OO  (U 

CL  f 3 C 3 C 

f (IH  f V 

DtC 

-40a 

791-1200  SEC 

cl  $ 3c  3 3 

77776  1 

DEC 

t.  i.  ^ 3C3*i 

3?7?2  1 

2DEC 

.99963845 

cl  9 3c  30 

02343  1 

U 0(3 

Cl  i 3C 3o 

37761  0 

EDEOT 

•999T3162 

r j 

cl  %3c31 

30560  1 

vO(H 

21,3240 

00000  1 

2DEC 

.00000090 

C0674 

21 ,3241 

00362  CT 

— 
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L 

opt i mum  prelaunch  alignment  calibration 

USER'S  own  page  NO.  19 

0675 

21,3242 

00000  1 

2DEC 

,00002927 

CQ675 

21,3243 

17261  1 

0676 

21,3244 

77777  0 

2DEC 

-.00000026 

C0676 

21,3245 

77671  1 

0677 

21,3246 

77015  0 

DEC 

-498 

1201-1700  SEC 

0678 

21,3247 

77776  1 

DEC 

-1 

0679 

21,3250 

37765  1 

2DEC 

,99934865 

C0679 

21,3251 

12403  0 

0680 

21,3252 

37752  0 

2DEC 

,99868793 

C0680 

21,3253 

20062  1 

0681 

21,3254 

00000  1 

2DEC 

,00000055 

C0681 

21,3255 

00224  0 

0662 

21,3256 

OOOOO  1 

2DEC 

,00001183 

C0682 

21,3257 

06150  0 

0683 

21,3260 

77777  0 

2DEC 

-.00000005 

C0683 

21,3261 

77762  1 

0684 

21,3262 

77161  1 

DEC 

-398 

1701-2100  SEC 

0685 

21,3263 

77776  1 

dec 

-1 

0686 

2 1 1 3264 

37767  ^5 

2UEC 

,99947099 

C0686 

21,3265 

12513  0 

0687 

21 f 3266 

37756  1 

2DEC 

.99894799 

C0687 

21,3267 

30343  0 

068  8 

21,3270 

OOOOO  1 

2DEC 

.00000018 

C0688 

21,3271 

00060  1 

0689 

21,3272 

OOOOO  i 

2TDEC 

.00000300 

C0689 

21,3273 

01445  0 

0690 

21 ,3274 

77777  0 

2DEC 

-.00000001 

—umv 

Or,  32  7 5 

77774-  0 

0691 

^ 1 « 3276 

76651  1 

DEC 

-598 

2101-2700  SEC 

0692 

21,3277 

77776  1 

DEC 

-r 

0693 

21 ,3300 

37771  1 

2DEC 

.99957801 

C0693 

21,3301 

02603  H 

0694 

21,3302 

37762  0 

2DEC 

.99916095 

C0694 

21,3303  10061  1 

06  95 

21 ,3504 

00000  1 

2UtC 

•QD0000Q7 

C0695 

21,3305 

00023  0 

0696“ 

21,3306 

OOOOO 

2DEC 

.00000096 

C0&96 

21,3307 

00402  1 

0697 

21,3310 

OOOOO  1 

2DEC 

.00000000 

00697 

21,3311 

OOOOO  1 

oe>98 

i 1 3 3 1 2 

76505  0 

DEC 

-698 

2700-3400  5EC 

0690 

21,3313- 

77776“  1 

DEC 

~— T 
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L OPTIMUM 

PReLAUNCH 

alignment  calibration 

USER'S  OWN  PAGE  NO.  20 

0700 

21,3314 

37772  1 

2DEC 

.99966814 

C0700 

21,3315 

22005  1 

0701 

21,3316 

37765  1 

2DEC 

.99933952 

C0701 

21,3317 

05560  1 

' 0702 

21,3320 

OOOOO  1 

2DEC 

,00000002 

C0702 

21,3321 

00005  1 

0703 

21,3322 

00000  1 

2DEC 

.00000028 

CO  703 

21,3323 

00113  1 

0704 

21.3324 

OOOOO  1 

2DEC 

,00000000 

C0704 

21,3325 

00000  1 

0705 

21,3326 

76651  1 

DEC 

-598 

3401-4000  SEC 

0706 

21,3327 

77776  1 

DEC 

-1 

0707 

21,3330 

37773  0 

2DEC 

.99972716 

C0707 

21,3331 

20750  1 

11708 

21,3332 

37767  0 

2DEC 

.99945654 

C0708 

21,3333 

03044  1 

0709 

21,3334 

OOOOO  1 

2DEC 

.00000001 

CC709 

21,3335 

00003  1 

0710 

21,3336 

OOOOO  1 

2DEC 

,00000010 

C0710 

21,3337 

00033  1 

0711 

21,3340 

OOOOO  1 

2DEC 

.00000000 

C0711 

21,3341 

OOOOO  1 

0712 

21 ,3342 

OOOOO  1 

SCHZEROS  2DEC 

.00000000 

C0712 

21,3343 

OOOOO  1 

0713 

21,3344 

OOOOO  1 

2UECT ~ 

.00000000 

C0713 

21,3345 

OOOOO  1 

0714 

2 1 ,3346 

OOOOO  1 

2DEC 

.00000000 

COT  14 

2T  ,3347 

OOOOO-  1 

0715 

21,3350 

00004  0 

INTVAL  OCT 

4 

0716 

21,3351 

00002  0 

ocr 

2 

0717 

21  ,33  52 

0022c r i 

■ "OETT 

144 

0718 

21,3353 

77776  1 

DEC 

-1 

0719 

21,3354 

35730  0 

SOUPLY  2DEC 

,93505870 

INITIAL  GAINS  FOR  PIP  OUTPUTS 

C0719 

' 2T,  335S 

00035  ~ V 

0720 

21,3356 

10317  0 

2DEC 

.26266423 

INITIAL  GAINS/4  FOR  ERECTION  ANGLES 

C0720 

21,3357 

17550  1 

21,3360 

00115  1 

77DECML  DEC 

77 

U722  RtF  6 

LAST-  529 

21,3361 

01577^0 

ALXXXZ  3ENADR 

ATX1S  -I 

^ ( ci  Kcr*  1 1 

— 0724 — 

last  523 

21,3362 

02500  0 

aingyro  ecadr 

OGC 

21,3363 

04133  T 

PIPASC  2DEC 

.13055869 

7 C.H 

- 072«- 

21 ,3364 

02265  1 

21,3365 

57223  0 

VELSC  2 DEC 

-.52223476 

512/980,402 

21 % 3 366 

66451  1 

r07?7 

21  ,3367 

05427  0 

ALS< 2DEC 

.17329931 

_ 5SWAY  VEL  OArTTTX  980.402/4096 
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L 

OPTIMUM  PRELAUNCH  ALIMENT  CALIBRATION 

USER'S  O^n 

PAGE 

|\|0.  21 

0728 

21,3371  77567  0 2DEC  -.00835370 

SSWAY  ACCEL 

GAIN 

X 980,402/4096 

C0728 

21,3372  44202  1 

“0731 

21,3373 

24276  1 

GEORGEJ  2DEC 

.63661977 

CO73I 

21,3374 

14066  1 

0732 

21,3375 

23073  1 

GEORGEK  2DEC 

.59737013 

C0732 

21,3376 

11773  1 

0733 

21,3377 

03146  1 

GEOCONSl  2DEC 

.1 

C0733 

21,3400 

14632  0 

0734 

21,3401 

00121  0 

GE0C0NS2  2D  EC 

in 

o 

o 

• 

C0734 

21,3402 

35341  1 

0735 

21,3403 

00631  0 

GE0C0N53  2DEC 

.025 

C0735 

21,3404 

23146  0 

0736 

21,3405 

00000  1 

GE0C0N54  2DEC 

.00003 

C0736 

21,3406 

17565  1 

07362 

21,3407 

06200  0 

1/PIPAGT  OCT 

06200 

0737 

21,3410 

00021  1 

17DECML  DEC 

17 

0738 

21,3411 

00023  0 

19DECML  DEC 

19 

0739 

21,3412 

00062  0 

1/2SECX  DEC 

50 

0740  REF  135  LAsT  527 

21,3413 

3 7657  1 GTSCPSS 

CA 

ONE 

_ 0741  REF  8 LA5T  524 

21,3414 

55*742  0 

TS 

GEOCOMPS 

THIS  IS  THE 

LtAD 

IN  FOR  COMPASS 

‘ 0743  REF  7 LAST  526 

21 ,3415 

0 4667  I 

TC 

newmodex 

074417 

21,3416 

00001  0 

OCT 

01 

074518  REF  1 

21,3417 

3 3407  1 

CA 

1/PIPAGT 

“074619  REF  7 LAST  217 

21,3420 

55 • 1 10  1 

TS 

" 1/PIPADT 

' "07472  REp  194  LAST  522 

21,3421 

3 7665  0 

CA 

ZERO 

074821  REF  3 LAST  522 

21,3422 

55*717  0 

TS 

premtrxc 

074922~Rc.F  r 

”2173423 

3 3412  0 

”CAF 

T/2SECX 

075023  REF  3 LAST  525 

21,3424 

55*744  0 

T5 

1SECXT 

0781  REF  117  LAST  526 

21,3425 

0 4063  0 

TC 

BANKCALL 

0782 REf 1 

21,3426 

36005  1 

cadr  GEOIMUTT 

nr 

IMU 

pEkf  tests  2 

0783  ~ 2 1 * 3427  ENDPREL1  EQUALS 
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L ' ©DIGITAL  AUTOPILOT  ERASABLE  ___ _ _ USER'S  OWN  PAGE  NO. 1 

0001  ” E6.1400  SETLOC  3000 


R0002 

AXIS 

TRANSFORMATION 

matrix  - 

PILOT  TO 

5IMBAL 

axes; 

0003 

E6  t I'+OO 

E6.1400 

MR  12 

erase 

scaled 

AT 

2 

THESE  FOUR  P-G  MATRIX  ELE- 

000  A 

£6.1401 

E6.1401 

MR22 

ERASE 

SCALED 

AT 

1 

MENTS  ARE  IN  THIS  ORDER  TO 

0005 

E6.1402 

E6.1402 

MR13 

ERASE 

SCALED 

AT 

2 

COMPUTE  RATE  HOLD  DELCDUS 

”0006 

E6.1403 

E6.1403 

MR23 

ERASE 

SCALED 

AT 

1 

WITH  AN  INDEXED  LOOP 

R0008 

AXTS 

TRANSFORMATION” 

”MATRIX  - 

3'I^BAL  TO 

PILOT 

axes: 

0009 

E6.1404 

E6.1404 

MU 

ERASE 

scaled  at  1 

0010 

£6.1405 

E6.1405 

M2 1 

"Erase 

SCALED  AT  1 

00105 

E6.1406 

E6.1406 

M3 1 

ERASE 

0011 

REF 

1 

E6.1401 

M22 

EQUALS  MR22 

SCALED  AT  1 

0012 

REF 

1 

E6.1403 

M32 

EQUAL5  MR  2 3 

SCALED  AT  1 

R0013 

ANGLE 

MEASUREMENTS, 

0014 

E6.1407 

E6.1410 

EDOT 

ERASE  +1 

ERROR  IN  ANGULAR  RATE: 

0015 

ref 

r 

E6.1410 

EDOT (R) 

equals  edot  +1 

SCALED  DOWN  TO  Pi/16  rADiAnS/SECOnD 

0016 

E6.1411 

E6.1412 

E 

erase  +1 

ANGLE  ERROR  SCALED  AT  PI  RADIANS 

0017 

REF 

1 

£6*1412 

EDOT (2) 

EQUALS  E +1 

ERROR  RATE  SQUARED  SCALED  AT  PI(2)/16 

0018 

REF 

2 LA51  535 

E6  * 141 1 

EQ 

EQUALS  E 

THIS  PAIR  OF  NAMES  IS  UStD  TO  REFER  TO 

0019 

REF” 

”T 

£6.1412 

EDOT (2) Q 

EQLWLS  EDOT ( 2 ) 

THE  ABOVE  ERASABLES  AS  Q-AXIS  DATA 

0020 

E6.1413 

E6.1414 

ER 

ERASE  tl 

THIS  PAIR  OF  NAMES  REFERS  TO  LOCATIONS 

0021 

REF 

1 

£6.1414 

EDOT ( 2 ) R 

EQUALS  ER  +1 

FOR  THE  R-AXIS  DATA?  INTERCHANGES  WITH  Q 

0022 


£6  * l A]_5  E6 


1^x5  DB 


ERASE 


ANGLE  DEADBAND  SCALED  at  pi  RADIAN5 


C>023 

E6.1416  E6.1422 

0MEG7SP 

ertase 

+ 4 

BODY.AXrs  ROT.  RATES  SCALED  AT  PI/4  AND 

0024 

REF 

I 

66.1417 

OMEGAQ 

equals 

OMEGAP 

+ 1 

BODY-AXIS  ACCELERATIONS  SCALED  AT  PI/8 

0025 

REF 

2 

LAST 

535 

E6.1420 

ALPHAQ 

EQUALS 

OMEGAP 

+ 2 

(IN  DESCENT)  OR  PI/2  (IN  A5CENT ) 

”tr02”6  “ 

R”EF 

3”” 

”L”ATT 

535 

£6.1421 

”13MEG7TR 

EQCTAL5 

QTMECAP” 

~+3 

THESE  W ,A  PAIRS  ARE  NEEDED , ” ALPHAP  HA5  ”” 

0027 

REF 

4 

LAST 

535 

66.1422 

ALPHAR 

EQUALS 

OMEGAP 

+4 

NO  USE  IN  THE  DIGITAL  AUTOPILOT 

0028 

0029  “RfF 1 — 

0030  REF  2 LAST  535 


0031  REF  r 

0032  RIFI  X. 


0033 

003  A REF 1 

0035 REF Z LAST  535 


0036 

”0037” 

0038 

0039 


””REF 

REF 

REF 


~Y~ 

2 LAST  535 
3- LAST  535 


"E6'TA23” 


E6.1426 


Eq  . 1431 


E6*1A25  ED OTP  ERASE  +2 

E6 » 1 A2A  EDOTQ  EQUAlS  EDOTp  +1 

E6 ♦ 1425  EDOTR  EQUALS  EDOTP  +2 


E6 

E6 


1 A2A 
1 A25 


QRATEDIF  EQUALS  EDOTQ 
RRATEDIF  EQUALS  EdOTR 


E6.1A30 

E6.1427 

E6.1A30 


E6 


1 A3A 


omegapd  erase  ””+2 

0ME6AQD  EQUALS  OMEGAPD  +1 
OMEGARD  ™EQtmcS  OMEGAPO  + 2 — 


OLDXFORP  ERASE  +3 


E6 

c6 

E6 


TA32” 

1 A33  OLDYFORQ  EQUALS  OLDXFORP  *2 
1 A3A  OlDZfORG  EQUALS  OlDXFORP  +3 


ERRORS  IN  ANGULAR  RATE: 

EDOT  = 3MLGA  - OMEGA (DESIRED) 
SCALED  at  PI/A  RADIANS/SECOND 


ALTERNATIVE  NAMES; 

delete  when  no.  of  references  = o 


DESIRED  VEHICLE  RATES  DETERMINED  BY  THE 
"OUTER  LOOP"  USED  TO  CALCULATE  EDOT 
“SCALED  AT  PT/4”  RADIANS/SECOND 


stored  cdu  readings  for  p and  q,r  rate 

DERIVATIONS : SCALETTA7  PI  RADIANS  (2*S) 
(THERE  MUST  BE  TWO  REGISTERS  FOR  CDUY 
SINCE  P AND  Q.R  ARE  NOT  IN  PHASE) 
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L 

SDiGtTAL  autopilot 

erasable 

USER'S  OWN  PAGE  NO. 

2 

RQ040 

RHC  INPUTS  SCALED 

AT  Pl/4  RAO/SEC. 

0041 

E6 , 1435  E6 1 1435  PCOM 

ERASE 

0042 

E6.1436  £6,1436  RCOM 

ERASE 

0043 

E6 « 1437  E6  * 1437  YCOM 

ERASE 

RQ044  RHC  COUivTER  REGISTERS. 


0045  0043  P-RHCCTR  EQUALS  43 
W46  0042  Q-RHCCTR  EQUALS  42 
■0047  0044  R-RHCCTR  EQUALS  44 


R0048  OTHER  VARIABLES* 


0049 

Eb * 1440 

£6 , 1440 

TPSIG  ERASE 

0050 

£6,1441 

E6 , 144 1 

PRATECOM  ERASE 

0051 

E6.1442 

E6 , 1442 

edotgent  ERASE 

0052 

Eb • 1443 

£6,1443 

RATEDIF  ERASE 

0053  ' 

E6  » 1444 

E6 , 1444 

1/2JTSP  ERASE 

~0CT54 

tb  , 1445 

E6, 1445 

1/2JTSG  ERASE 

0055 

E6  , 1446 

E6 , 1446 

1/2JT5R  ERASE 

0056 

E6*1447 

£6,1447 

1/2JETSU  ERASE 

0057 

Eo i 1450 

£6 , 1450 

1/ZUET5V  ERASE 

0058 

Eb » 1451 

E6,1451  FPQR  ERASE 

0059 

Eb, 1452 

E6 , 1452 

MINRA  ERASE 

0060 

E6.1453 

£6,1453 

TTINRASQ  ERASE 

0061 

E6 ,1454 

E6 ,1454 

HDAP  ERASE 

0062 

£6,1455 

E6 , 1455 

U ERASE 

“0063 

Eb.1456 

E67T456 

DENCM  ERASE  ~ ' 

0064 

£6,1457 

E6 , 1457  RATIO  ERASE 

33065 

£6,1460 

E6  * 1^60 

TJSR  ERASE 

“0066 

£6,1461 

£6,1461 

IXX  ERASE  “ 

0067 

£6,1462 

E6 , 1462 

IYY  ERASE 

0068 

Eb , 1463 

E6 , 

IZZ  ERASE 

W69 

Eb , 1464 

E6 , 1464 

4JETT0RKTTRASE 

0070 

£6,1465 

£6,1465 

JETT0RK4  ERASE 

0071 

Eb , 1466 

E6 , 1466 

COSMG  ERA5E 

0X>72 

REF  23TA5T  371 

0066 

DELTA  P " EQUAL5TTEMP2 

0073 

£6,1467 

£6,1467 

FPQRM1N  ERASE 

0074 

£6,1470 

E6 , 1470 

NJET  ERASE 

0375 

“ £6,1471 

E6  * 1 4 7 1 

1/NJETACTERASE 

0076 

E6,1472 

E6,1472 

PRATEDIF  ERASE  ' ' “ ~ " 

0077 

£6,1473 

£6,1473 

LASTPER  ERASE  THESE  6 REG  USED  FOR  ATT  ERR  DISPLAY 

0078 

E 6 , 1 47  4 

E6 , 1474 

LAS7QER  ERASE 

0079 

E6 ,1475 

E6 , 1475 

LA5TRER  ERASE 

0080 

£6,1476 

E6 , 1476 

PERROR  ERASE 

0081 

£6,1477 

£6,1477 

TERROR ERATE 

0082 

E6 ,1500 

E6 , 1500 

RERROR  ERASE 

R0083  JET  STATE  CHANGE  VARIABLE^-  TIME  (TOFJTCHG) *JET  BITS  WRITTEN  NOW 
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L _ ©DIGITAL  AUTOPILOT  ERASABLE  __  ~ _ _ _ USER'S  OWN  PAGE  NO.  3 

RoOBA  (JTSONNOW) , ANITJET  BITS  WRITTEN  at  T6  RUPT  (JTSATCHG).  ~ 


0085 

E6*i501 

E6, 1 5 0 1 

JTSONNOW 

erase 

0086 

E6 « 1502 

E6 , 1502 

JTSATCHg 

ERASE 

0087 

E 6 , 1 5 0 3 

E6.1503 

ADDT6JTS 

ERASE 

0088 

E6,l504 

E6 , 1504 

ADDTLT6 

ERASE 

0089 

E6»l505 

E6 , 1505 

TOFJTCHG 

ERA5E 

0090 

E6  * 1 506 

E6 ♦ 1506 

-RATEDB 

ERASE 

0091 

E6,1507 

E6 , 1507 

-2JETLIM 

ERASE 

R0092 

RCS 

failure  monitor 

erasable 

- PROGRAM 

ON  T4RUPT 

4 TIMES/SECOND 

R0093 

*** 

r A I LSW  CAPABILITY  FOR  CHECKOUT  ONLY 

*** 

0094 

E6  * 15 10 

E6 , 1 5 10 

FAILSW 

ERASE 

if  positive  no  rcsmonit,  otherwise  o 

0095 

E6*1511 

£6,1511 

LASTFAIL 

ERASE 

LAST  FAILURE  CHANNEL  RECORD,  -0  INITIAL 

0096 

E6  * 15 12 

E6, 1512 

CH5MASK 

ERASE 

MASKS  FOR  TURNING  ON  P/Q,R  JETS 

0097 

E6,1513 

E6 , 1513 

CH6MASK 

ERASE 

IN  OUTPUT  CHANNELS  5 AND  6 

0098 

REF 

52  L.A5T430 

0065 

FAILCTR 

equals 

I TEMP  1 

BIT  POSITION  COUNTER  (INTERNAL) 

OO99 

REF 

21  LAST  536 

0066 

FAILTEMP 

EQUALS 

ITEMP2 

TEMPORARY  RECORD  OF  FAILED  BITS 

R0100 

Q»R 

AXIS  ERASABLE^ 

0101 

REF 

22  LAST  537 

0066 

DELq 

EQUALS 

ITEMP2 

0102 

“KEF 

12  LAST- 253 

0070 

del tar 

EQUALS 

ITEMP3 

0103 

E6,1514 

E6 , 1514 

TJETADR 

ERASE 

0104 

E6»1515 

E6 , 1515 

URGENCYQ 

ERASE 

oros 

F 6 » 1 5 1 6 

£6,1516 

URGE NEy R ERASE 

0106 

£6,1517 

E6.1517 

A+B  ERASE 

0107 

E6  * 1 520 

E6,1520 

A-B 

ERASE 

0TO8 

£6,1521 

~ E6 , 1521 

_ TERRA “ 

ERASE 

0109 

E6.1522 

E6 , 1522 

TERMB  ERASE 

0110 

£6,1523 

E6 , 1523 

POLRELOC 

ERASE 

0TI1 

E 6, 1524 

E 6, 152  4 

LOOPCTR 

“ERASE 

0112 

£6 , 1 5Z5 

E6 ,1525 

P0LTE5T 

ERASE 
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l ©digital  autopilot  erasable  user »s  own  page  no.  4 

PqiT3  trim  gimbal  control t^aw~eRasa8L£S{ 


RquA  THE  FOLLOWING  ASSIGNMENTS  OPHTOPtReGS  "SNITITeMPS  HAS  BEEN  MADE  IN~AN  EFFORT  TO  OPTIMIZE  U"5e~PF~eRASAB L e S : 


0116 

REF 

26 

LAST  430 

0074 

K2THETA 

EQUALS 

RUPTREGl 

D.P. 

K (2)  THETA  AND  ''NEGU5UM" 

QT 17 

REF 

27 

LAS  I 

430 

0075 

etheta 

EQUALS 

RUPTREG2 

S.P. 

ERROR  ANGLE  SCALED  AT  PI/64  RADIANS 

“ Oils 

REF 

9 

LAS  1 

276 

0076 

A2CNTRAL 

EQUALS 

RUPTREG3 

D.P. 

ALPHA (2 ) SCALED  AT  PI(2)/64  R/5(2) 

“0119 

REF 

10 

“LAST" 

538 

0076 

SF1 

“EQUALS 

RUPTREG3 

S.P. 

VARIABLE  SCALE  FACTORS  WHICH  ARE  “ 

0120 

REF 

18 

LAS  1 

366 

0077 

SF2 

EQUALS 

RUPTREG4 

S » H » 

- REALLY  SINGLE  BITS  (OR  ZERO) 

0121 

REF 

53 

LAS  1 

537 

0065 

OMEGA  ,Ki 

EQUALS 

I 1 EMP1 

D.P . 

GMEGA#K  SUPERCEDES  K AND  K(2) 

0122 

HREF 

54 

LAST" 

538 

0065 

KCENT KAL  EQUALS  1TEMP1 

S.P, 

10  FROM  KQ  OR  KR  FIRST  AT  P1/2T8J 

0123 

REF 

23 

LA5  1 

537 

0066 

K2CNTKAL 

EQUALS 

ITEMP2 

S.P. 

K ( 2 ) FROM  Q OR  R 1ST  AT  PI(2)/2(l6) 

0124 

REF 

13 

LA5  1 

537 

0070 

WCENTRAL 

EQUALS 

ITEMP3 

^ • R • 

OMEGA  SCALED  AT  PI/4  RADIANS/SECOND 

ill  2 5 

REF 

IT 

LAST 

252 

0071 

ACENTRAL 

EQUALS  ITEMP4 

$ • P • 

ALPHA  SCALED  AT  PI /S  "RAD/SEC < 21 

0126 

REF 

2 

LAST 

10 

0072 

DEL 

EQUALS 

ITEMP5 

S.P. 

SGN (FUNCTION) 

0T27 

REF 

1 

0073 

QRCNTR 

EQUALS 

ITEMP6 

S.P. 

COUNTER!  Q * Y = 0 * R,Z  = 2 

R0128  THE  ABOVe  QUWlTpE 5 ARe  ONLY'  NeeDeD^  ON  A VeRY  TpFSK ARY15A5TS~AND“HffV e E“eeN  PROVEN  ~fO~  B“e  NON-CONFLICTING. 


0130 

£6*1526 

£6*1526 

L,PVT-CG 

ERASE 

TRIM  GIMBAL  PIVOT  TO  CG“"DTST  AT  8 FEET 

0131 

E6  * 1527 

E6  * 1 527 

MULTFLAG 

ERASE 

INDICATOR  FOR  SPDPMULT  ROUTINE 

0132 

to  * 1530 

£6*1531 

FUNCTION 

ERASE 

+ 1 

D.P.  WORD  FOR  DRIvE  FUNCTIONS 

0133 

E6  * 1 532 

£6,1534 

NEGUQ 

ERASE 

+ 2 

NEGATIVE  OF  Q-AXIS  GIMBAL  DRIVE 

0134 

ref 

1 

E6 » 1 533 

thrstcmd 

EQUALS 

NEGUQ 

+i 

THRUsi  COMMAND  AT  16384  LBS  (SEPARATOR) 

0135 

REF 

2 LAST 

538 

E6 , 1534 

NEGUR 

equals 

NEGUQ 

+ 2 

NEGATIVE  OF  R-AXlS  GIMBAL  DRIVE 

0136 

1 6 * 1 5 3 5 

E6  * 1540 

KG 

ERASE 

+ 3 

.3ACCDQTQ  SCALED  AT  PI/2(8> 

013T 

REF 

1 

E6  * 1 536 

KQ2 

EQUALS  KQ  +1 

<02  = KQ*KQ 

OT38 

REF 

2 EAST 

538 

£6,1537 

“KR 

EQUALS 

KQ  +2 

, 3ACCD0TR  SCALED  AT  PI/2 (8) 

0139 

ReF 

3 LAS  i 

538 

E6  * 1540 

KR2 

EQUALS 

KQ  +3 

KR2  = KR*KR 

ouo 

L6*l54l  86*1844  ACCDOTQ  ERASE  +3 

Q-JERK  SCALED  AT 

PI/2 (7)  UNSIGNED 

0141 

RsF 

1 

E6  * 1542  QACCDOT  EQUALS  ACCDOTQ  *1 

Q-JERK  SCALED  AT 

pI/2(7)  SIGNED 

0142 

REF 

2 LAST  538 

E6  * 1 543  ACCDOTR  EQUALS  ACCDOTQ  ♦ 2 

R-JERK  SCALED  AT 

P I / 2 C 7 ) UNSIGNED 

0l43~ 

REF 

3 LASl  538 

c6 * 1544  RACCDOT  EQUALS  ACCDOTQ  *3 

R-JERK  SCALED  AT 

PI/Z77)  SIGNED 

Ol1*1* 

KEr 

1 

E6*i477  QDIFF  EQUALS  QeRROR 

ATTITUDE  ERPOKS! 

T7T4E  REF  I E6* 1500  RnTFF EQUALS  R ERROR  SCALED  AT"pI  RADIANS 


“0146  £6*1545  £6*1545  TIMEOFFQ  ERASED — TIMES  TO- GO  UNTIL  TRIM  GIMBAL  TURN-OFF* 

0T47 E6 *T546 E5*1546 — TIMEOFFR  ERA5E ZERO  MEANS  NU“ACTTON , SCALED  AS  WAITLIST 
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L 60 1 GIT  AL  AUTOPILOT  ERASABLE  -------- USER  • S OWN  PAGE  NO. 5 


P0148  KALMAN" FILTER  ERASABlES.  

0149  E6.1547  £6,1547  STORCDUY  ERASE  I THIS  S.P.  PAIR  IS  USED  TO  SAVE  CDUY,Z 

~ 0150  E6NT550  £6.1550  5T0RCDUZ  ERASE " ~~  FOR  THE  GT5  RUPT  ' 


~0l5l  REF  ITTAST  538  0076  COtT  EQUALS  RUPTREG3  RUPTREG3 ,4  USED  AS  D.P.  WORD  FOR  CDU 

A0152  " VALUE  WITHIN  FILTER  IS  COMP  AT  2pl  RAD 


0153  REF  55  LAST  538  0065  CDUDOT  EQUALS  rfEMPl  ITEMP1.2  USED  AS  D.P.  WORD  FOR  CDUDOT 

AO  154  ~ VALUe~WTTHTN  FILTER  SCALED  AT  PI/4 


0155  REF  14-  LAST  538  0070  CDU2D0T  EQUALS  I TEMP 3 I TEMPS 1 4 USED  AS  D.P.  WORD  FOR  CDU2D0T 

A0156  ; ; VALUE  WITHIN  FILTER  SCALED  ATPI/8 


0157 

£6,1551 

E6.1551 

DT 

ERASE 

TIME 

ELAPSED  SCALED 

AT  1/8!  NOMINAL=50MS 

0158 

E6 , 1552 

£6,1552 

DAPTIME 

erase 

USED 

TO  RECORD  LAST 

TIME  FROM  CHANNEL  4 

0159 


E6.1553  E6.1553  STEERADR  ERASE 


DTCALC  SWITCH  IN  FILTER  INITIALIZATION 


or 60 

E6  * 1 554 

£6,1555  DPDIFF 

'ERASE 

+ 1 

D.P.  WEIGHTING  VECTOR  FACTOR  AT  PI 

0161 

E6 , 1 556 

E6.1556  WPOINTER 

tRASE 

POINTER  TO  WEIGHTING  VECTOR  TABLE 

0162 

E6.1557 

£6,1561  WU 

ERASE 

+ 2 

THETA  WEIGHT 

0163 

REF  r 

E6 , 1560  W1 

EQUALS 

wo  +1 

OMEGA  WEIGHT 

0164 

REF  1 

£6,1561  W2 

EQUALS 

W1  +1 

ALPHA  WEIGHT 

0165 

E 611562 

£6  * 1563 

+T 

Y-AXIS 

D.P, 

FILTERED  THETA  AT  2PI 

0166 

E6 , 1 564 

E6 , 1 565 

CDUZFlL 

ERASE 

+ 1 

Z-AXIS 

D»P» 

FILTERED  THETA  AT  2PI 

0167 

E6 , 1 566 

E6.1567 

dcduyfil 

ERA5E 

+ 1 

Y-AXIS 

D.P. 

FILTERED  OMEGA  AT  PI/4 

0168 

£6,1570 

£6,1571  DCDUZFIL 

ERASE 

■+T 

Z-AXIS 

D.PV 

F I LTERED "OMEGA  AT  PI/4 

.0169 

E6 , 1572 

£6,1573 

D2CDUYFL 

ERA5E 

+ 1 

Y-AXIS 

D.P. 

FILTERED  ALPHA  AT  PI/8 

0170 

£6,1574 

E6 , 1575 

D2CDUZFL 

ERASE 

41 

Z-AX I S 

D.P, 

FILTERED  ALPHA  AT  PI/6 

01 7T 

£6,1576 

E6,r576 

Y-AXIS 

S.P. 

JERK  AT' P 1/2 (7) 

0172 

£6,1577 

£6,1577 

CDU3D0T 

ERA5E 

LOOP  REGISTER  (SPACER) 

0173 

E6 , 1600 

E6 , 1600 

Z3D0T 

ERASE 

Z-AXIS 

S.P. 

JERK  AT  PI/2 (7) 

Oi7*r~  E6.1601  ‘ ESttlOg;  PF1LTADR  ERASE +1~  2CADR  FOR  FILTER  RUPT  3o  MS  AFTER  P-AXI5 

017S  £6,1603  E6.1612  PFRPTLST  ERASE T 7 POST  FILTER  RUpT  LIST 

017502  E6 , 16 1 3 ~ ” E'6 , 161 3 ' PJUMPADR  ERASE — 

017504  £6,1614  £6,1614  QJUMPADR  ERASE 

R0176  TORQUE  VECTOR  RECONSTRUCTION  VARIABLES, 


0177  * delete  _ . _ _ 

0178  — E6,1615  E6 « 1617  JETRATE  ERASE +2 WEIGHTED  RATES  DuE  TO  JETS  AppLIED  IN 

— 0T79 REF 1 E'6, 1616 — JETRATEQ  EQUALS  JETRATE  VI THE"  LAST"  CONTROL'  5A74PLE  PERIOD  OF  LOO  “MS 

0180  REF  2-  LAST  539  E6.1617  UETRATER  EQUALS  JETRATE  +2 SCALED  AT  PI/4  RADIANS/SECOND 


0T8T 

0182  - REr 


E 6,1 620 E6»l621  NO.QJETS  ERASE  +1 

£6*1621  -NO.RJETS-  EQUALS'  NO.QJETS  +1 


Q AND  R JETS  THAT  ARE  GIVEN' 

by  the  jet  select  logic 


016202 


C6.1622  £6,1622  100M5PTQ  ERASE 
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L ^DIGITAL  AUTOPILOT  ERASABLE 


user»s  own  page  no, 6 


01820A 

E6 , 1 623 

E6 , 1623 

QR.1ST0Q 

ERASE 

O'!  8206 

Eb , 1624 

E6.1624 

NO.PJETS 

ERASE 

" 0183 

E6 , 1 6 2 5 

E6 , 1 626 

TP 

ERASE 

+ 1 

TIME  CALCULATED  BY  TJETLAW  FOR  P,  QR 

0164  REF 

1 

£6,1626 

tuk 

EQUALS 

TP  +1 

SCALED  AS  TIME6*  THEN  TQR  RESCALED  TO  1 

0185 

to • 1627 

E6*l633 

1JACC 

ERASE 

+ 4 

ACCELERATIONS  DUE  TO  1 JET  T0RQUIN6 

01 86  REF 

T “ 

£6 , I63O 

UACCQ 

EQUALS 

lJAcc  +1 

scaled  at  pi/4  radians/second 

W7  ~ REF 

2 LAST  540" 

E6  » 1 63 1 

1JACCR 

EQUALS 

1JACC  +2 

0188  REF 

3 LAST  540 

E6 , 1632 

1JACCU 

EQUALS 

1JACC  +3 

FOR  U,v-AXES  THE  SCALE  FACTOR  IS  DIFF? 

0189  RtF 

4 LAST  540 

£6,1633 

1JACCV 

EQUALS 

1JACC  +4 

SCALED  AT  PI/2  RADIANS/SECOND  (FOR  ASC) 

R0190  ASCENT  VARIABLES: 

0191 

E6 , 1634 

£6,1637 

AOSQ 

ERASE 

+ 3 

ASCENT  OFFSET  ACCELERATIONS 

0192  REF 

1 

£6,1635 

AOSR  - 

EqUALS 

AOSQ  +1 

ESTIMATED  EVERY  2 SECONDS  BY  A05TASK 

0193  REF 

2 LAST  540 

E6 , 1 636 

A05U 

EQUALS 

AOSQ  +2 

U , V-ACCS  ARE  FORMED  BY  VECTOR  ADDITION 

0194  "REF 

3 LAST  540 

£6,1637 

AOSV 

EQUALS 

AOSQ  +3 

SCALED  AT  PI/2  RaDI ANS/SECOND/ "2,1 

0195 

" REF 

15  LAST  53R 

0070 

ABVLAOSQ  EQUALS  ITEMP3 

ASCENT 

OFFSET  ACCELERATIONS  (ABVAL) 

' 0196" 

"RTF 

i 

W71 

A3VLA05R  equals  ABVLAOSQ  +1 

scaled 

AT  Pi/2  RADI ANS/SEcCND (2) 

0197 

REF 

2 LAST  540 

0072 

ABVLA05U  EQUALS  ABVLAOSQ  +2 

0198 

REF 

3 LAST  540 

0073 

ABVLAOSV  EQUALS  ABVLAOSQ  +3 

0199 

E6* 1640 

E6* 1641 

SUMRATEQ  ERASE  +1 

SUM  OF 

UN-WtIGHTED  JETRATE  TERMS 

0200 

REF 

2 LAST  187 

£6 , 1641 

SUMRATER  EQUALS  SUMRATEQ  +1 

Scaled 

AT  PI/4  RAdIANS/SECONq 

0201 

E6 » 1642 

£6 , 1643 

AOSQTERM  ERASE  +1 

< * 1-,Q5K ) AOS 

0202 

REF 

2 LA5T  188 

£6,1643 

AOSRTtRM  EQUALS  AOSQTERM  +1 

5CALED 

AT  PI/4  RADIANS/SECOND 

0203 

E6» 1644  “ £6*1645 

OLDWFORQ 

ERASE  " 

+ 1 

OMEGA  VALUE  2 SECONDS  AGO 

0204  REP  2 LAST  187 

E6 ,1645 

oldwforr 

EQUALS 

OLDWFORQ  +1 

SCALED  AT  PI/4  RAdIANs/SECONd 

0205 

E6 , 1 646  E6 , 1647 

DBMINIMP 

ERASE 

+1 

MINIMUM  IMPULSE  DEADBANDS  (EQUAL  IN  DESC 

0206  REF  3 LAST  187 

E6 , 1647 

MIN1MPDB 

EQUALS 

DBMINIMP  tl 

AT  ,3  DEG,  0,-DB  RESPECTIVELY  FOR  AbC) 

AT'2  07 

SCALED  AT  PI  RADIANS 

0208 

0209 REF 1 — 

— 02TO REF 2 LAST  540 

~ “0211 REF 3 LAST  540 

0212 REF 4~~LA5T  540 

0213  E6,i655 E6ii656  WFORP  ERASE +1 W = K/ (NOMINAL  DT> 

0214  REF  I P6TI656 — WFORQR EQUALS  WFORp  "+I SCALED  AT  16" 


02 1 5 E6 ,1657  E6,1660  (l-K)QR  ERASE +1 1-K  SCALED  AT  l 

0216  REF  I E6,1660  (1-K) /8  EQUALS  (l-K)QR  +1  L-K  SCALED  AT  8 


0217  E6 , 166 1 E6  u 664  i/NJTSQ'  ERASE +3 l/NJETACC  FOR  EACH  AXIS 

0218  REF  1 E6,1662 — 17NJTSR — EQUALS"' 1TNJT5U~^1 FOR“DE  SCENT  "TUTS"" IS  ALWAyS”l/2jT5' 


£6,1650"  E6 ,1654  ,5ACCMNE  ERASE  +4  TI72T  ( 1/ACCMIN)  WHICH  IS  THE  INVERSE  OF^ 

£6 *1652  |5ACCMNR  EQUALS  ^ACCMNE  + 2 DESCENT  AND  A VARIABLE  FOR  ASCENT  DAP) 

£6,1653  « 5ACCMNU  EQUALS  .5ACCMNE  +3  SCALED  AT  2 ( + 8) /PI 

— E6T,1 654  .5ACCMNV  EQUALS'  , 5ACCMNE'  +4 IN"  UN  ITS  0F"SE'C0NDS'(2)  /RADIAN 


473423A  YJL  SYSTEM  FOR  BLK2 i REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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PAGE  541 


L @DIGITAL  AUTOPILOT  ERASABLE  ~~  USER’S  OWN  PAGE  NO.  7 

0219  REF  2 LAST  540  E6*1663  1/NJTSU  EQUALS  1/NJTSQ  ♦ 2”  FOR  ASCENT  ■ WITH!  HIGH.  OFFSET!  > 1/4JTS 

~UTZV  REF  3 LAST  54T  “ E6»1664  1/NJTSV  EQUALS  1/NJTSQ  +3  SCALED  AT  2 ( 8) /PI  S£C(2)/RAD 


0221  E6,1665  E6i1670  OMANDACC  ERASE  +3  ASCENT  FLAGS 

0222  REF  I E6t 1666  , RMANDACC  EQUALS  QmANPACC  +1  Oi  INPICATE5~N0  OVER-RIDE  OF  2 JETS 

0223  "Rffr  t LAST  541  " 1671667  OMANDACC  EQUALS  OMANDACC  +2  1!  INDICATES  USE  4 INSTEAD  OF  2 JETS 

~ 0224  REF"  3 LAST  541  E61I67O  VMANDACC  EQUALS  QMANDACC  +3  (ALWAYS  ZERO  FOR  DESCENT) 

0225  E5u67l  E6»l57i  KCOeFCTR  ERA'S!"  COUNTER  FOR  ASCENT  DAP 


Rq226  T-iE  SAVt  RATE  INDex  AND  THe  THREE  DeLCDUS  ARe  LOCATED  HeRe  TEMPORARILY,  AWAITING  MORE  LOGICAL  PLACeMeNT  WH£N  THe 
R0228  DAP  I S ' A S 5emB L'E D“ TN'TO  SUNBURST 


0229  E6.1672  E6.1672  DLCDUIDX  ZRASE  SAVE  RATE  INDEX,  = 1,  15" 

" 0230  E6TT673  E6TT673  DELXDUX  ERASE- 

0231  E6.1674  E6»1674  DEL'CDUY  ERASE'  DELCDUS  ARE  SCALED  AT  PI,  LIKE  THE  CDUS 

0232  E6,IS7S  ES7T6T5  DEL'CDUZ  ERASE 
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L @P-AX 1 5 REACTION" CONTROL  sYsTEMi  AUTOPiLOT 


USER'S  OWN  PAGE  NO. 1 


0001"  23 .2000  BANK  2 3 


0002 

REF 

3 LAST  159 

E6 

EBANK= 

DT 

“0003 

the 

following  section  drives 

THE  ATTITUDE  ERROR  NEEDLES 

IN  THE  "EIGHT-BALL”  DISPLAY. 

0005 

REF 

13  LAST  280 

23.2000 

22  765  0 

tlGHTBAL  LXCH 

DAPbOOLS 

ATTITUDE  tRRORS  DISPLAYED  EyERY 

0006 

REF  26  LAST  468 

23,2001 

3 7651  1 

CAF 

BIT7 

OTHER  DAP  CYCLE  (.2  SECS) 

0007 

“23,2002 

0 0006  1 

extend 

CHANGE  STATE  OF  FLAG 

U008 

REF 

176  LAST  529 

23,2003 

06  001  0 

RXOR 

L 

0009 

REF 

14  LAST  542 

43  *2U04 

54  765  1 

T S 

DAPBOOLS 

FLAG  WORD  RESTORE 

""ooro  “ 

"'RtF 

E^TLAST  542  " 

23,2005 

7 7651  0 

MASK 

BIT7 

0011 

23,2006 

0 0006  1 

EXTEND 

ZERO  AS  NEW  STATE  MEANS 

0012 

REF 

1 

23,2007 

i 2146  1 

BZF 

PAXFILT 

NO  DISPLAY  THIS  CYCLE 

0013 

"REF 

76  LAST  525 

23*2010 

3 7656  0 

ATERDSPY  CAF 

TWO  ( j> 

INIT.  INDEX  WORD 

0014 

REF 

56  LAST  539 

23,2011 

54  065  0 

TS 

I TEMPI/-  , a 

0015 

REF’ 

335  LAST  530 

23,2012 

5 O'  000  r 

I ND'EX 

A 

0016 

"REF 

1" 

23,2013 

11 '476  1 

CCS 

PERROR 

LOOK  AT  CURRENT  ATT  ERROR 

"0017 

REF 

1 

23*2014 

1 2037  0 

TCF 

ERLIMCHK 

HAVE  E VALUE  GET  MAGNITUDE 

0018 

ref 

T 

23,2015 

I 2017  1 

TCF 

ZERR 

ZERO  VALUE 

0019 

REF 

2 LAST  542 

23,2016 

1 2037  0 

TCF 

ERLIMCHK 

GET  MAGNITUDE 

0020 

REF 

57  LAST  542 

23,2017 

50  065  1 

ZERR  INDEX 

I TEMPI 

"0021 

2 LAST" 542 

23,2020  4 1476  1 

"C5" 

TERROR 

002  2 

REF 

58  LAST  542 

23,2021 

50  065  1 

INDEX 

ITEMP1 

' 002  3 

REF 

1 

23,2022 

57'473  0 

XCH 

LASTPER 

SAVE  CURRENT  E,  LOAD  LAST  E (NEG) 

010240 

KcF 

5V  LASf  542 

23*2023 

5 IT  065  T 

INDEX- 

-tt-emri 

0025 

REF 

3 LAST  542 

23,2024 

6 1476  0 

AD 

P&RRTJR"  A 

GET  DlFF  E(N-2)  - E (N) 

0026 

23,2025 

0 0006  1 

EXTEND 

0027 

KtF 

23"  LAS  1 '437 

"2S,'2026 

7 7643  TT 

MP“ 

BTT13  ' 

SHIFT  RIGHT  2 

0028 

REF 

60" LAST  542 

23,2027 

50  065  1 

INDEX 

ITEMP1 

0029 

RtF 

4 LA5T  273 

23,2030 

54  050  0 

TS 

CDUXCMD 

STORE  CMD  E VALUE 

OOTO 

KEF 

61  LAS  1 542 

23,2031 

10  065  0 

CCS 

r TEMPI 

0031 

ref 

1 

23*2032 

1 2011  1 

TCF 

ATERDSPY  +1 

GET  NEXT  E 

/ ^ ~ XfVxv3 

U032 

RtF 

1 

23*2033 

3 3405  0 

' CA  ’ 

OCT7OOOO  ^ 

ICDU  uRIVt  BITS  13 *14*15 

0033 

23,2034 

0 0006  1 

extend 

■ . 

0034 

23,2035 

05  014  1 

WOR 

DRIVE  AWAY 

003  5 

"REF 

"2"  LAS  I 54'2 

23,2036 

1 2146  1 

\TCF 

PAXFTLT' 

ATT  ERRCTR  "DISPLAY  DOME  FOR  THIS  CYCLE 

. . _ _ ~ _ . _ . ^ S x ^ ^ - - 

UU36 

Ktr 

58  LAST  467 

23,2037 

6 7657  1 

ERLIMCHK (AD 

BITT\ 

HAVE  MAG  UF  E*  BEE  IF  GKtAltK  1 HAIM 

0037 

2T*  Z040T 

' 4'  0000  0" 

[com 

5 DEGREES 

0038 

REF 

1 

23,2041 

6 5040  0 

\d 

5DEGsJ 

0039 

23,2042 

0 0006  1 

EXTEtifr- 

0 

0040 

REF 

1 

23,2043 

' E 2045  1 

— 3ZHF-’-  ' 

bigater  ^ • 

ERROR"  GREATER  THAR  5 DEGS,  DSPY  5 DEGS 

00^1 

REF 

2 LAST  542 

2 3 , 2044 

1 2017  1 

fCF 

ZERR/ 

E LESS  THAN  5 DEGS,  NORMAL  PRGCED 

X ~\ 

UU^2 

KtF 

62  LAST  542 

"23*2045 

5OO65T 

B I GAT  ER  INDEX 

I TEMPT'" 

0043 

REp 

4 LAST  542 

23 ,2046 

11*476  1 

..pERROR 

get  sign  of  big  error 

0044 

REF 

2 LAS  1 542 

23,2047 

3 5040  0 

CA 

5DEGS 

0045 

2 5 , 20  50" 

1 2052  0 

"TCF 

+ 2 

CANT  BE  ZERO  HERE' 
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eP-Axis  reaction 

CONTROL  sVSTEYli  AUTOPILOT 

USER'S 

OwN  page 

NO.  2 

00A6 

REF 

3 LAST  542 

23,2051  4 5040  1 

CS 

5DEGS 

“"0047 

REF 

63  LAST  542 

23,2052  SO  065  1 

INDEX 

I TEMPI 

0048 

REF 

5 LAST  542 

23,2053  55*476  1 

TS 

PERROR 

SET  BIG 

error  to 

5DEGS 

00^9 

REF 

3 LAST  542 

23,2054  1 2017  1 

TCF 

ZERR 

R0050 

end 

OF  ATTITUDE 

ERROR  NEEDLE  DRIVER.  (SHOULD 

GO  IN-LINE 

. SOMETIME.) 

R0051 

R0053 


THE  FOLLOW i ■ G T5RUPT  EnTrY  BEol  \|S  THE  PROGRAM  WHiCH  CONTROLS  THE  P-AXlS  ACTiOn  OF  THE  LEM  USInG  THE  RCS  JETS. 
T m NOMINAL  "TI ME  BETWEEN ' THE^P^xI^RUPTS^I 5TWT5“Tr7VLiTN0N- IDLING  "MODE'S  OFTHETTaF," 


0055 

0056 


REF 

RTF- 


LAST  156 


23.2055 

23.2056 


3 3072  1 
54  030  0 


PAXIS 


CAF 

“TS 


MS30P 


TIMES 


RESET  TIMER  IMMEDIATELY i DT  = 30  MS 


REF  9 LAST  371 


0057 

0058 

0059  REF  9 LAST  286 


23,2057 

23,2060 


22  016  0 
0 0006  1 


23,2061  22  012  1 


lxch  bankrupt 

EXTEND-" 

3XCH  QRUPT 


INTERRUPT  LEAD  IN  (CONTINUED) 


R0060  CHECK  TO  SETTFTTAFTrS  STILL  IN  USE! 


0061 

0062- 

0063 

0064 

0065 

0066 


REF  3 LAST  467 


REF 


1 


23.2062 

23.2063 
“"23,2064 

23,2065 

23,3066 


0 0006  i 


00  031  O' 
4 0000  0 
7 7700  0 

o“ooo6  r 


EXTEND 


23,2067  1 3124 


TREAD  SI 
COM 

MA5K  BIT  13-14 
"EXTEND 


3ZF 


GOIDLE 


IF  BOTH  BITS  i3  AND  i4  OF  CHANNEL  3i  ARE 
EoUAL  TO  1,  THEN  THE  SCS  MODE  SWITCH7  IS 
IN  THE  OFF  POSITION.  ACTUALLY,  THE  TEST 
IS  MADE  ON  BOTH  THE  ATTITUDE  HOLD  AND 
"AUTOMAT! C MODE  “BITS  ."" 


RCQ67  WHILE "DAP  IS  ON,  S ET'UP  eUHe^  A K ALMAN“FTLTER  RUP T OR  A DUMMY  FILTER  RUPT '6 Y SETTING ' UP “T SADR  FROM  ERASABLE." 


0069 

0070 
0071 


'REF" 

REF 


"I 

3 LAST  153 


23,2070  0 0006  1 


23.2071  3 1602  T 

23.2072  52  346  1 


EXTEND 

"DCA 

DXCH"“ 


■PFTLTADR" 

T5ADR 


T5ADR  IS  SET  TO  EITHER  FILTER  OR 
"DUMMYFTL  TN"A'"BLTND“MANNER  5INCE 
PFILTADR  IS  5ET  UP  ELSEWHERE 


R0073  DERIVE  DELTA^p. 


"AHDTIUNTKO' L LAW. 


LAST  5T2 

""23,2073 

30  032  C FILT/P. 

OO75 

REF 

177 

LAST  542 

23  1 2Q74 

54  001  1 

TS  L 

0076 

43 ,2075 

0 0006  1 

EXTEND 

0077 

REF 

4 

LAST  535 

23 ,2076 

21*431  1 

V'SU  OLDXFORP 

5CALED  AT  PI 

OO78 

REF 

5 

LAST  543 

23,2077 

23*431  0 

LXCH  OLDXFORP 

0079 

43 ,2100 

0 0006  1 

EXTEND 

00  £0 

REF 

28 

LAS!  S42 

2 8,4 lu 1 

7 7651  0 " 

MP  BTT7 

0081 

REF 

1 

23,2102 

22  066  1 

LXCH  DELTAP 

SCALE  AT  PI /2 (6) 

0082 

REF 

9 

LAST  512 

43 , 2 103 

3 0033  1 

CA  CDUY 

0083 

REF 

178 

LAST  5^3 

23,2104 

54  001  1 

"TS  L _ 

0084 

23,2105 

0 0006  1 

EXTEND 

0085 

REF 

1 

23,2106 

21 ' 432  1 

MSU  OLDYFORP 

SCALED  AT  PI 

"0086 

REF 

2 

LAS!  543 

23,2107 

23*432  "Or- 

“LXCH  OLDYFORP 
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0087 

23,2110 

0 0006  1 

EXTEND 

0088 

REF 

T9~LAST  543 

23,2111 

7 7651  0 

MP 

B IT  7 

INTO  L SCALED  AT  P 1/2(6) 

0089 

REF 

4 LAST  181 

23,2112 

3 1404  0 

CA 

Mil 

Mil  SCALED  AT  l 

0090 

23,2113 

0 0006  1 

EXTEND 

009i 

REF 

179  LAST  543 

23,2114 

7 0001  1 

MP 

L 

INTO  A SCALED  AT  P I / 2 < 6 ) . 

0092  REF 

2 LAST  543 

23,2115 

6 0066  1 

AD 

DELTAP 

0093 

23,2116 

0 0006  1 

EXTEND 

2 LAST  540  " 

~2  3 , 2 1 1 7 

T 1655  1 

MP 

WFORP 

SCALED  AT  2 (4) =16,  RESULT  IN' A AT  PI /4. 

0095 

REF 

" 5 LAST  535 

23,2120 

57*416  0 

XCH 

OMEGAP 

W*DELTAP  IN  OMEGAP  LOC,  OLD  OMEGAP  IN  A, 

0096 

23*2121 

0 0006  1 

EXTEND  

0097 

RcF 

1 ' 

23*2122 

7 3066  0 

MP 

C ONE=K-^ 

scaled  at  1. 

0098 

REF 

3 LAST  539 

23,2123 

6 1615  1 

AD 

JLITrate 

RATE  DUE  TO  JETS  TORQUING. 

" 0099 

REF- 

6 LAST  544 

23,2124 

27*416  1 

ADS 

OMEGAP 

PRATE=  WFORP*DELTAP+ALPHA*LAST-PRATEfTPF 

0100 

"REF  “ 

2 LAST  33 

23*2125 

0 4177  1 

TC 

T6J0BCHK 

T6J0BCHK  IS  IN  FIXED-FIXED 

F010Q02  *»"*»*  kALCMANU-DAP  AND  "RATE-HOLD»-PAP  I NT ERFACE  ***** 


"7*010004  THE  FOLLOWING  SECTION  IS  EXECUTED  EVERY  ioo  MS  do  TIMES  A SECOND)  WITHIN  THe  P-AXIS  ReACtION  CONTROL  SYSTEM 
ROTCriTganarJTOPTLOT  ( WHENEVER  THE"~DAP  I5.“IN  OPERATION), 

0 Tool  HREF  77  LAST  542  23*2126  3:  7656  0 CAF  TWO  SET  UP  LOOP  TO  DO  Z*YtX  CDU  AXES': 

010012  REF  1 " 23,2127  54  073  1 RALCLOOp  TS  QRCNTR  ~~  ' "“ ' 


010014  REF  " 2 LAST 

544 

23,2130 

50  073 

”0 

"TNDEX 

QRCNTR 

KALCMANU  AND  RATE-HOLD  USE  THIS  SECTION 

CT0016  REF  2 LAST" 

280 

23,2131 

30  774 

0 

CAE 

CDUXD 

TO  PERFORM  THEIR  INDEPENDENT  FUNCTIONS! 

T310OT8 

23,2132 

0 0006 

1 

"EXTENT)" 

DOTH  PROCEDURES  SET  UP  THE  DELCUD*S 

01002  REF  3 LAST 

544 

23*2133 

5 0073 

0 

INDEX 

UKCNT  k 

TO  HAVE  THE  NEGATIVE  VALUE  OF  THE 

010022  REF  1 

23*2134 

21*673 

0 

MSU 

delcdux 

desired  cdu  change  for  each  100  MS  csp 

010024  Rcr  336  LAS f 542 

23  *"2T35 

10  000  0 

CCS 

A 

during  IHl  Maneuver  (Or  modE),  each  is 

0 i UUt 6 Her  136  LM6 l 

534 

23  9 2 1 36 

6 7657 

1 

AD 

ONE 

STORED  AT  PI  RADIANS  IN  2*S  COMPLEMENT, 

010028 

23*2137 

1 2141 

0 

TCF 

+ 2 

SINCE  THE  MODULAR  SUBTRACT  YIELDS  THE 

“01  OUT 

23*2140 

4 OOTO 

"0" 

COM 

TIEW  C~DOD  VALUE  IN  1*5  COMPLEMENT ♦ THE 

010032  REF  4 LAST 

544 

23,2141 

50  073 

0 

INDEX 

QRCNTR 

CCS  SECTION  IS  NEEDED  FOR  1»5  TO  2*5 

010034  REF  3 LAST 

544 

23  ,2142 

54  774 

1 

T 5 

CDUXD 

CONVERSION  OF  DESIRED  CDU  ANGLES, 

U1UU36  Her  5 LAS  1 

544 

2 3 « 2143 

10  073 

1 

CCS 

QRCNTR 

(THIS  MAKE5  THE  LOOP  DU  ALL  1 HKLL  AAtS 

010038  REF  1 

23,2144 

1 2127 

0 

TCF 

kalcloop 

IN  ThE  order  Z,  Y*  X,) 

0101  REF 

r 

23*2145 

1 2000  1 

TCF 

eigrtbal 

uj.1u.u3  Ktr 

r 

23  t2l46 

0 1613  1 

PAxFILT 

TC 

P jUMPADR 

"010106  REF 

V 

23,2147" 

3 3361  CT 

SKIPPAXS 

CA 

"VT5FZ7VDR 

010108  ReF 

2 

LAS  1 

544 

23,2150 

55*613  0 

T S 

P JUMPADR 

01Q109  RlP- 

195 

LAST 

534 

23*2151 

3 7665  0 

CA 

ZERO 

Olon  REF 

4 

last 

"544 

23*2152 

55 » 615  0 " 

TS 

JET RATE 

010111  ReF 

2 

LAST 

540 

23 , 2 1 5 3 

3 1625  1 

CA 

TP 

010112  RtF 

1 

23*2154 

6 3071  1 

AD 

NEGCSP1 

010114  REF 

3 37" 

LAST" 

544 

23,2155“ 

to  00 a 0 

“CCS  - 

“A 
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010116  REF  1 

23,2156 

0 2167  0 

TC 

PTORQUE 

-010118  REF  15  LAST 

287 

23,2157 

1 4606  1 

TCP 

RESUME 

01012  REF  2 LAST 

545 

23,2160 

0 2167  0 

TC 

PTORQUE 

010122  REF  5 LAST 

544 

23,2161 

4 1615  0 

CS 

JETRATE 

~ 010123  REF  " 7 LAST 

544 

23,2162 

27*416  1 

ADS 

OMEGAP 

010124  REF  196  LAST  544 

23,2163 

3 7665  0 

CA 

ZERO 

010125  REF  6 LAST 

545 

2 d 1 d i 6^ 

55*615  0 

T5 

UETRATE 

-010126'  REF  16  LASr  545 

23,2165 

1 4606  1 

TCF 

RESUME 

010128 

23,2166 

20000  0 

01013  REF  137  LAST 

544 

23,2167 

6 7657  1 

PTORQUE  AD 

ONE 

010132 

23,2170 

0 0006  1 

EXTEND 

010134  REF  20  LA5T 

509 

23,2171 

7 7653  1 

MP 

BIT5 

010136  REF  160  LA5T 

544 

23,2172 

3 0001  0 

CA 

L 

—010138 

23,2173 

0 0006  1 

EXTEND 

01014  REF  1 

23,2174 

7 3074  0 

MP 

16/25 

010142  RcF  3 LAST 

544 

23,2175 

55*625  0 

TS 

TP 

010144  REF-  T EAST 

544 

23,2176 

3 1655  0 

WFORP 

010146  REF  1 

23,2177 

6 2166  1 

AD 

<i-K>/se? 

010148 

23,2200 

0 0006  1 

Extend 

01015  REF  4 LAST 

545 

2 3 9 2 20 1 

7 162  FIT 

MP 

TP 

010152 

23,2202 

0 0006  1 

EXTEND 

010154  RcF  29  LASl 

487 

23,2203 

7 7654  0 

IMP 

BIT4 

010156  REF  5 LAST  540 

23 ,2204 

3 1 627™ or 

CA 

1 JA  CC 

010158 

23,2205 

0 0006  1 

EXTEND 

01016  REF  181  LAST 

545 

23,2206 

7 0001  1 

MP 

L 

010162 

- 23,2207 

-Q  0006  I 

EXTEND 

01U164  REF  i 

23,2210 

7 1624  1 

- MP 

NO.PJETS 

01ui66  KtF  7 LAST 

545 

23,2211 

23*615  1 

LXCH 

JcTRATE 

010168  RcF  281  LAST 

529 

2 3, 2TI 2 

0 0002  XT 

1 C 

"GT 

0102  REf  13  LAST 

500 

23,2213 

3 7647  0 

CHKVISFZ  cAf 

BIT9 

visibility  phase  bit 

0103  REF  15  LAST 

542 

23,2214 

7 0765  1 

" MASK 

DAPBOOLS 

0104 

23*2215 

0 0006  i 

EXTEND* 

0105 

23,2216 

1 2220  1 

3ZF 

*2 

0106  REF  1 

2 i , d.t  x 7 

1 2617  1 

TCF 

PURGENCY 

attitude  steer  during  visibility  phase 

0107  REF 

0108  REF 
W “ 

0110  REF 


43 -LAST  510 
16  LAST  545 


T 


23*2220  3 7646  1 

23,2221  7 0765  1 

T3TZ2E2  0 000  6^1 
23,2223  1 2305  1 


CAF  BIT10  BIT10=1  FOR  RHC  MINIMUM  IMPULSE  MODE 

MASK  DAPBOOLS 
EXTEND 

BZF  - DETENTCK  BRANCH  FOR  RATE  COMMAND 


0111  REF 2 LAST — 28 

0112 

0113 REF 1 

Dtl4 -REF T“ 

~0tl5 REF 1 

Oils  -REF  5 LAST  545 
Oil?  REF  17  LAST  468 

OILS 


23 

23 

23 

23 

23 

23 

23 

23 


2224 

2225 

2226 

2227 

2230 

2231 

2232 

2233 


30  773  1 
0 0006  IT 
12260  0^ 

4 3102  0 
55*505 

55*625  -0 
3 7655  0- 

-trootfs-r- 


CAE  DELAY'CTR 

EXTEND 

3ZF  BITSGONE 


CS  - --TUMI NT 6 

TS  - TOFJTCHG 


TS TP 

CA  BIT3 

EXTEND 


SET  BY  RUPT10  TO  TWO 
CHECK  FOR  ALL  SWITCHES  OPEN 


FOR  RATE  DERIVATION 
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0119 

0120  ‘ 

0121  REF 


23 


23 

23 


2234 


2235 


2236 


02  031  1 
0 0006  1 
1 2251  1 


RAND  31 
EXTEND 

BZF  +MINIMP 


DT22  REF  30  LAST  545 

0123 

0124 

0125 

0126  REF  I 


23 
2 3 


23 

23 

23 


2237  3 7654  1 

2240  0 0006  1 


2241  02  031  r 

2242  0 0006  1 

2243  1 2253  0 


CA  BIT4 

^extend 
RAND  31 
EXTEND^ 

BZF  -Ml N IMP 


0127  REF  3 LAST  545  23*2244  rO~T7TT!  CCS  DELAYCTR  DELAYCTR  ALWAYS  PNZ  HERE 

0128  REF  4 LAST  546  ~ 23,2245  54  77XTJ  " TS  DELAYCTR— 

”0129  ' 23,2246  0 0006  1 EXTEND 

OT3O  REF  I 23,2247  1 2277  0 BZF  PLETRUPT 

— 0131  REF  I 23 ,2250  1 2612  1 TCF  JETSOFF 


0132  REF  39  LAST  542  23,2251  3 7657  1 +WTNTPTP  CAF  BIT1 

0133  23,2252  1 2254T.  TCF  +2 

0134  REF  40  LAST  546  23,2253  4 7657  0 -MTNTMP  CS  BIT! 


~ui35 

~REF_ 

1 

' 23,2254 

55*440  1 +2 

TS 

TPSIG 

0136 

REF 

197  LAST  545 

23,2255 

3 7665  0 

CAF 

ZERO 

0137 

REF 

* 5 LA5T  546 

23 ,2256 

54  773  0 

TS 

DELAYCTR 

01 33 

REF 

_ r 

23*2257 

1 2462  1 

TCF 

" 2 POETS 

“CT39r- 

23,2260 

0 0006  1 

BIT5G0NE~  EXTEND^ 

ARE  SWITCHES  ALL  OPEN 

tjtact 

23,2261 

00  031  C 

—READ  31 

0141 

23,2262 

4 0000  0 

COM 

0142 

REF 

1 

23,2263 

7 3103  1 

MASK  DAPL0W6 

0143 

23,2264 

0 0006  1 

extend 

0144 

2 3 , 2265 

1 2267  1 

BZF  *2 

0145 

REF 

2 LAST  *546 

23,2266 

1 2612  1 

TCF  JETSOFF 

—0146” 

REF 

31  LAST  546 

23,2267 

T 7654  X 

CAF 

BIT4 

BIT4  OF 

DAPBOOLS  ZERO  IF  PREVIOUS 

0147 

REF 

17  LA5T  545 

23 ,2270 

7 0765  1 

MASK 

dapbools 

reading 

OF  3 1 FOUND  ALL  SWITCHES  OPEN 

0148 

23,2271 

0*  0006  1 

EXTEND 

0149 

REF 

2 LA5T  546 

23,2272 

1 2277  0 

BZF 

PLETRUPT 

OI5O 

REF 

32  LAST  546 

23 , Z2T3 

4 7654  0 

CS 

BIT  4 

0151 

REf 

18  LAST  546 

23,2274 

7 0765  1 

MASK 

DAPBOOLS 

0152 

REF 

19  LAST  546 

23,2275 

54  765  1 

TS 

DAPBOOLS 

0153 

REF^ 

3 LAST  546 

23,2276 

1 2612  1 

tct  * 

Jt 1 50FF 

U154 

R tr 

33  LA5 1 546 

23,2277 

3 7654  1 

PLETRUPT 

CAF 

BIT4 

*0155 

* REF~ 

20  * CAST  * 546* 

23,2300 

26  765  1 

TDS 

dapbools 

0156 

REF 

20  LAST  424 

2 3,2301 

3 7644  0 

CAF 

BIT12 

0157 

23,2302 

0 0006  1 

EXTEND 

0152  * 

2 J, 2303 

05  013  0 

WOR 

13 

0159 

REF 

4 LAST  546 

23 ,2304 

1 26i2  1 

TCF 

JETSOFF 

0160 

KEF 

32  LAST  377 

23,2305 

3 7641  0 

DETENTCK 

CA 

B1T15 

01 6 i 

* 23,2306 

0*0006  1 

EXTEND 
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0162 

"T7TS3" 

0164 

R0163 


23 


"REF 


23 

23 


0166 

"RTF" 

'Ari.  AST 

546 

23,2312 

" 3 

7657  1 

CAF 

“Birr- 

Tn"  detent  .cHECk""THE""RATE  "command  lit 

0167 

REF- 

21  LA5I 

546 

23,2313 

1 

0765  1 

MASK 

DAPBOOLS 

BITl  OF  DAPBOOLS  IS  RATE  COMMAND  BIT 

0168 

23,2314 

0 

0006  1 

EXTEND 

01*69" 

REF 

2 Last  545 

"23,2315 

1 

2617  I 

BZF 

PURGENCY 

BRANCH  IF  NOT  IN  RATE  COMMAND 

RO  170  

0 1 7 1 

REF 

24  LAST 

542 

23,2316 

3* 

7643  T 

CAF 

BIT13 

CHECK  ATTITUDE  HOLD  BIT 

2307 


23TO 

2311 


02  031 

<y  0006 

T 2346 


RAND  31 


EXTEND 

BZF  RHCMOVED 


CHECK  OUT-OF-DETENT  BIT .INVERTED. 


BRANCH  IF  OUT  OF  DETENT 


0173 

0174 
0n5~ 


"REF" 


23 

23 

23 


2317 
2320  02  031  1 

232T  0 0006  1 
2322  I- 2417  0 


RAND"  3l 
EXTEND 
"BZF  JOEY 


BRANCH  IF  IN  ATTITUDE  HOLD 


RO 176 


0177 

REF 

8 LAST  545 

23,2323 

11*416 

r 

CCS 

OMEGAP  HERE  IF  IN  X-AXIS  OVER-RIDE 

0178 

23,2324 

1 2330 

1 

~tcf 

♦4 

0179 

REF 

1 

23,2325 

1 2334 

0 

TCF 

RATEDONE 

0180 

23,2326 

1 2330 

1 

TCF 

+ 2 

0161 

REF 

2 “LABI  547 

23,2327 

1 2334 

0 

TCF 

RATEDONE 

0182 

REF 

1 

23,2330 

6 1506 

0 

AD 

-ratedb 

0183 

23,2331 

0 0006 

1 

extend 

0184 

REF 

3"  LAST  547 

2.3 « 2 332 

6 2334 

1 

BZMF  " 

RATEDONE 

0185 

REF 

2 LAST  547 

23,2333 

1 2417 

0 

TCF 

JOEY 

0186 

REF 

42  LA5I  547 

23,2334 

4 7657 

0 

RAT  ED  ONE  CTS 

BITl 

0187 

REF 

22  LAST  547 

2i , 35 

7 0765 

1 

mask 

DAPBOOLS 

0188 

REF 

23  LAST  547 

23,2336 

54  765 

1 

T5 

DAPBOOLS 

R0189  READ  CDUS  INTO"  CDU  DESIRED  RES1STER5 


“"OT9O  REF  27  EAS1  543  23,2337 "~  3““003Z_0  CB  CUUx 

0191  REF  4 LA5T  544  23,2340  54  774  1 T5 CDUXD 

0192  REF  10  LAST  543  23,2341  3 0033  I CA  CDUY 

WT3  REF  I 23,2342  54  775  0 TB  CDUYD 

01 94  REF  14  LAST  512 ‘ ~ 23 ,2343  3 0034  0 CA CDUZ 

0195  REF  2 LAST  280 23,2344  54'  776  0 TS  CDUZD — 


Ql 96  REF  5 LAST  5-46  23«2345  1 26UTT""  TCF JETSOFF 

0T97 REF — 43'  LAST  547 23,2346 — 3 7657  1 — RHCMOVED  CAF BTTI CHECKING  THE  RATE  COMMAND  'BTT 

0198  REF  24  LAST  547 23,2347  7 0765  1 MASK DAPBOOLS 

0199  23,2350 — 0"Cr006~l EXTEND 

— 02C0 REF 1 23,2351 1 2371  1 BZF JU5T0UT — 


R0201  READ, ZERO,  AND  ENABLE  COUNTERS” — 

R0Z02 SY5TE7  FTAs  BEET)-  TIT  RATE  COMMA ND  FOR  AT  ' LEAST  THE  TI1ME""0F  A CAP  CHARGE 


0203  REF  1 23,2352  30  043  0 CAE  P-RHCCTR  1 BIT  IN  P-RHCCTR  WORTH  0.6256  DEG/SEC 

0204  23,2353  0 0006  1 EXTEND 
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0205 

REF 

14  LAST  545 

23,2354 

7 7647  1 

ViP 

BIT9 

0206 

RTF 

182  EAST  545 

23,2355 

3 0001  0" 

CA 

L 

0207 

23,2356 

0 0006  1 

extend 

0208 

~ REF 

r 

23,2357 

7 3073  1 

IMP 

0.88975 

020 9 

REF 

i 

23,2360 

55*441  0 

T5 

PRATECOM 

COMMANDED  RATE  SCALED  AT  PI/4 

0210 

REF 

198  LAST  546 

c. 3 1 2 36 1 

3 7665  0 

CAF 

ZERO 

ZERO  COUNTERS 

0211 

“ REF 

2 LAST  547 

23,2362 

54  7J43  1 

TS 

p-rhcctr 

0212 

REF 

l 

23,2363 

54  042  0 

TS 

Q-RHCCTR 

0213 

REF 

1 

23 ,2364 

54  044  0 

TS 

R-RHCCTR 

0214 

REF 

1 

23,2365 

3 3111  “ CT 

CA 

BITsa  ,9 

ENABaLE  COUNTERS",  START  READING 

0215 

23,2366 

0 0006  1 

EXTEND 

0216 

23,2367 

05  013  0 

wOR 

13 

0217 

REF 

1 

23,2370 

1 2421  0 

rep 

OBEYRATE 

R02 1 o 

‘ 0219 

REF 

25  LAST  547 

23,2371 

24  765  0 JUSTOUT 

INCR" 

DAPBOOLS 

ALWAYS  SETS  BIT1  ON  RATE  COMMAND 

BIT 

0220 

REF 

27  LAST  469 

23,2372 

3 7656  0 

CAF 

B1T2 

0221 

23,2373 

0 0006  1 

EXTEND 

0222 

23,2374 

02  030  0 

RAND 

30 

0223 

23,2375 

0 0006  1 

EXTEND 

0224 

23,2376 

1 2403  0 

BZF 

+ 5 

BRANCH  FOR  ASCENT  CONSTANTS 

0225 

REF 

1 

23*2377 

3 3076  0 

CAF 

-D2JTLIM 

-1.4  DEG/SEC  SCALED  AT  PI/4 

0226 

REF 

1 

23,2400 

55*507  0 

TS 

-2 JETLlM 

0227 

REF 

1 

23,2401 

3 3075  0 

CAF 

-DRATEDB 

-0.4  DEG/SEC  SCALED  AT  PI/4 

OZZF 

' 23,2402" 

1 2 WE  0" 

TCF 

+ 4 

0229 

REF 

1 

23,2403 

3 3077  1 +5 

CAF 

-A2JTLIM 

-2.0  DEG/SEC  SCALED  AT  PI/4 

023TT 

REF 

2 LA5 1 548 

23,2404 

55*507  0 

T5 

-2 JETLIM 

O23I 

REF 

1 

23*2405 

3 3100  0 

CAF 

-ARATEDB 

-1.0  DEG/SEC  SCALED  AT  PI/4 

0232 

REF 

2 LAST  547 

23,2406 

55*506  1 +4 

T5 

-RATEDB 

0233 

REF 

199  LAST  548 

23,2407 

3 7665  0 

CAF  “ 

ZERO 

ZERO  COUNTERS 

0234 

REF 

3 LAST  548 

23 ,2410 

54  043  1 

TS 

P-RHCCTR 

0205^ 

REF 

2 LAs  1 546 

23,2411 

' 59  042  C 

TS 

Q-RHCCTR~  ~ 

0236 

REF 

2 LAST  548 

23,2412 

54  044  0 

TS 

R-RHCCTR 

0237 

REF 

2 LAST  546 

23,2413 

3 3111  0 

CA 

BITS8  *9 

0230 

23,2414 

0 0X106  T 

EXTFNB 

0239 

23,2415 

05  013  0 

ROR 

13 

0240 

R0241 

REF 

6 LAST  547 

23,2416 

1 2612  1 

TCF 

JETSOFF 

~ 02 42 

REF 

20o'trAST  548 

23,2417 

3 7665  0 JOEY 

caf' 

ZERO 

0243 

REF 

2 LAST  548 

23,2420 

55*44lW 

TS 

PRATECOM 

RATE  ERROR 

R0244 

IN  1 Ft  I 5 5EC  T I ON  P 

IS  COMPUTED  AND  T- 

JET  IS  CALCULATED 

0245  KEF 

9 LAST  547 

23,2421 

4 1416  1 OBEYRATE "CS 

CSMEGAP 

KfcF 

3 LAST  548 

23 ,2422 

6 1441  1 

AD 

PRATECOM 

u2^7 

REF 

2 LAST  546 

23,2423 

55*440  1 

TS 

TPSIG 

SIGN  5T0RAGE  TO  TELL  DIRECTION  OF 

ROT  . 

0248 

REF 

33g~  LAST  544 

23, 2424 

Id  ODD  0 “QBFYRAPE  CC5“  “ 

A " 

GET  A13YAL  OF  “RATE  P-ERROR 
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user's  own  page  no,  s 

0249 

23*2425 

1 2431  1 

TCF 

♦4 

0250 

REF  7 

TAST" 548 

23*2426 

1 2612  1 

TCF 

JETSOFF 

Q25TT 

23,2427 

1 2431  1 

TCF 

+ 2 

0252 

REF  8 

LAST  549 

23,2430 

1 2612  1 

TCF 

JETSOFF 

“ 0253 

REF  44 

LAST  547 

23,2431 

6 7657  1 

AD 

BIT1 

0254 

REF  I 

23,2432 

55*472  0 

T5 

PRATEDI F 

ABVAL  OF  RATE  ERROR  SCALED  AT  PI/4 

0255 

REF  3 

LAST  544 

23,2433 

0 4177  1 

TC 

T6J0BCHK 

T6J0BCHK  IS  IN  FlXED-FiXED 

0256 

REF  3 

LA5T  548 

23,2434 

3 1506  0 

CA 

-RATEDB 

LAST  549 

23,2435 

6 1472  1 

AD 

PRATEDIF 

0258 

23,2436 

0 0006  1 

EXTEND 

0259 

REF  9 

LAST  549 

23,2437 

6 2612  0 

SZMF 

JETSOFF 

RATE  ERROR  INSIDE  DEADBAND 

0260  REF 

3 

LAST 

549 

23  * 244^ 

4 1472 

0 

CS 

PRATEDIF 

0261 

23,2441 

0 0006 

1 

EXTEND 

0262  REF 

3 

LAST 

548 

23,2442 

61  * 507 

1 

SU 

-2JETLIM 

0263 

23,2443 

0 0006 

1 

EXTEND 

0264  REF 

1 

23,2444 

6 2537 

1 

BZMF 

RCM4JETS 

0265 

REF  4 LAST  549 

23*2445 

3 1472 

1 

CA 

PRATEDIF 

2 JETS  ENOUGH. COMPUTE  TJET 

02  66 

23  * 2446 

0 0006 

1 

EXTEND 

0267 

REF  1 

23*2447 

7 1444 

0 

MP 

1/2JTSP 

1/2JTACC  SCALED  AT  2EXP(8)/PT 

0268 

23,2450 

0 0006 

1 

EXTEND 

0269 

REF  34  LAST  546 

23,2451 

7 7654 

0 

MP 

BIT4 

0270 

REF  133  LAST  548 

23,2452 

3 OOOl 

0 

TTA 

L 

0271 

23,2453 

0 0006 

1 

EXTEND 

0272 

RcF  1 

23 ,2454 

7 3101 

0 

MP 

25/32 

A CONTAINS  TJET  SCALED  AT  2EXP (4) ( 16/25) 

0273 

REF  6 LA5T  "545 

23,2455 

55*  626 

TJ 

~T5~ 

TP 

R0274  

R0275~ 

CHEC<  RATE  COMMAND 

ON'TTME  AqATRST  MINIMUM  IMPULSE 

0276 

Ktr 

2 LA5  I 

545 

23,2456  55*505  1 

T5 

TOFJTCHG 

0277 

REF 

2 LAST 

545 

23,2457  6 3102  1 

AD 

-T  JMINT  6 

0278 

“23,2460  0 0006  T- 

EXTEND 

AS  TP.  TEST  JET  "TIME."  IS  IT  "GREATER  OR 

0279 

R0280 

REF 

10  LA5l 

549 

23 ,2461  6 26l2  0 

d^hF 

JET50FF 

LESS  THAN  A MINIMUM  IMPULSE 

R0281 

2 -JET 

JET  SELECT"  LOGIC 

R0282 

read 

CHaNNeO 

6 IU  3c.il  WriA  1 1 he  cUKKEinT 

STATE  OF  THE  P , 

JETS  IS  AND 

R0283 

THE  JET  TIME  FOR  THE  PROPER 

AMOUNT  OF  TIME 

• 

0284 

2 J ,2462  0 0UU6  1 

2PJETS  EXTE7T 

"WHAT  TS  THE  CURRENT  STATE  OF  THE  P JETS," 

0285 

23  *2463  00  006  i 

READ 

6 

02  86 

23*24-64  0 0006  I 

tx l END 

0287 

REF 

1 

23,2465  1 2471  0 

64F 

PJETSNOT 

0288 

REF 

1 

23 ,2466  3 3067  0 

C A 

MCOMPT 

- COMPUTATION  TIME  FOR  THE  PAXIS 

0289 

REF 

3 LAST 

549 

23,2467  27*505  1 

ADS 

I OF  JTCHG 

ALTER  JET  OFF  TIME  PER  STATE  OF  CH  6, 

0290 

REF 

1 

23*2470  1 2500  1 

TCF 

ThSTSIGftT 

U29  1 

REf 

1 

23,2471  3 3070  0 

PjETSNOT  CA 

14-TJMlN 

TOTAL  DELAY  FOR  A MIN  IMP  TO  FULL  ON. 

0292 

R0293 

REF 

4 LAST 

549 

23,2472  27*505  1 

ADS 

1 OF  JTCHG 

ALTER  JET  OFF  TIME  PER  STATE  OF  CH  6. 
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sp-axis  reaction  control  SYSTEM  autoPicot 

user's  own  pace  no*  9 

RQ294 

set 

jp  tHe“alteRnating  p select  bit  in 

DAPBOOCS, 

0295 

RTF  21  LAST  545“ 

“23,2473  3 7653  0 

ACTFSECT  CA 

BIT  5 

CORPCLMENT  BIT5  OF  DAPBOOCS 

“ 0296 

REF 

26  LAST  548 

23,2474  22  765  0 

CXCH 

DAPBOOCS 

0297 

23,2475  0 0006  1 

EXTEND 

0298 

REF 

T84  LAST“549 

23,2476  06  001  CT 

RXOR 

C 

0299 

REF 

27  LAST  550 

23,2477  54  765  1 

T5 

DAPBOOCS 

' 0300 

REF 

3 LAST  546 

23,2500  1 1 • 440  1 

TESTSIGN  CC5 

TPSIG 

0101 

REF 

22  CAST  550“ 

23,2501  3 7653  TT 

CA 

BIT5 

0302 

23,2502  1 2504  0 

tcf 

+ 2 

0303 

REF 

1 

23,2503  1 2521  1 

TCF 

NEGTP 

0304 

REF 

28  LAST  550 

23,2504  7 0765  1 

MASK 

DAPBOOCS 

IN  THE  DAP  BOOCS  WORD, 

0305 

23,2505  0 0006  1 

EXTEND 

““0106 

REF 

“T 

23,2506  1 2514  1 

BZF 

ACTPOSI 

0307 

REF 

1 

23,2507  3 7664  1 

ACTP0S2  CA 

P0SPJET1 

0308 

REF 

2 LAST  33 

23,2510  0 4222  1 

TC  WKITEJTS  +2 

“0309 

REF 

T5  CAST  548 

23,2511  3 764!  0 

CA 

BIT9 

NOW.  ZERO  AT  CHG. (WRITE  C0W8  IN  CH.6) . 

0310 

REF 

1 “ 

23,2512  55  ’ 502  0 

TS 

JTSATCHG 

STATE  OF  P AXIS  JETS  AFTER  THE 

T 6 RUPT, 

“0311 

REF 

1 

23*2513  1 2676  0 

r cf 

P+2JET 

OTTZ 

TEF 

1 

23,2514  3 3110  1 

ACTPOSI  “CA 

POSPJETO 

0313 

REF 

3 CAST  550 

23,2515  0 4222  1 

TC 

WRITEJTS  +2 

0314 

REF 

16  CAST  550 

23,2516  3 764  i U 

CA 

BI  T9 

NOW.  ZtKU  A!  LHG. (WHITE  CUW8 

IN  CH.6) , 

0315 

Rtl- 

2 CA5T  550 

23,2517  55^502  C 

TS 

JTSATCHG 

JT50NN0W  CONTAINS  BITS  WRITTEN  INTO  Ch  6 

0316 

REF 

2 EAST  550 

23,2520  1 2676  0 

TCF 

P+2 JET 

K031  ( , 

R0318 

TEST 

DAPBU0L5^TD“ 

DETERMINE  WHICH  JET  PAIR  TO  USE  FOR  P 

AXIS  ROTATION. 

0319 

REF 

23  CAST  550 

23,2521  3 7653  0 

NEGTP  CA 

BIT5 

0320 

REF 

29  CAST  550 

23,2522  7 0765  1 

MASK 

DAPBOOCS 

IN  THE  DAP  BOOCS  WORD, 

D32  r 

23,2523  T5  0006  1 

TXTEND 

0322 

REF 

1 

23,2524  1 2532  0 

BZF 

ACTNEG1 

0323 

REF 

1 

23,2525  3 3107  1 

ACTNEG2  CA 

NEGPJET1 

0324 

REF“ 

4“  CAST  5 SO 

23,252  6 0 42  2 2 1 

TT 

WRITEJTS  +2 

0325 

REF 

17  CASl  550 

23,2527  3 7647  0 

CA 

BIT9 

NOW,  ZERO  AT  LHG,lWKl|t  CUW8 

IN  CH.6) , 

0326 

REF 

3 CAST  550 

23,2530  55*502  0 

TS 

JTSATCHG 

STATE  OF  P AXIS  JETS  AFTER  TFIE 

T 6 RUPT • 

Si 

"i 

REF 

r 

23,2531  1 2700  0 

TCF 

P-2JET 

UJ28 

ref 

i 

23,2532  3 3106  0 

AcTNEGl  CA 

negpjeto 

0329 

RcF 

5 CAST  550 

23,2533  0 4222  1 

TC 

WRITEJTS  +2 

0330 

REF 

“13  CA5T  550 

23,2534  3 7647  0 

TA  “ 

BIT9 

NOW.  ZERO  AT  CHG»(WRIIE  COWB 

IN  CH.6), 

0331 

REF 

4 CAST  550 

23,2535  55*502  0 

TS 

JTSATCHG 

STATE  OF  P AXIS  JETS  AFTER  THE 

T 6 RUP i • 

0332 

REF 

2 cast  550 

23*2536  1 2700  0 

TCF 

P-2JET 

0333 

“REF 

5 LAST  549“ 

23,2537“  3 1472  1 RCM4JET5  CA 

“PRATED! F ~ 

0334 

23,2540  0 0006  1 

EXTEND 

0335 

REF 

2 CAST  549 

23,2541  7 1444  0 

— IMP — 

1/2JTSP 

U336 

23,2542  0 0006  1 

EXTEND 

0337 

REF 

TE  CAST  545 

23,2543  7 7655  1 

IMP 

BIT3 

0338 

REF 

165  CAST  550 

23,2544  3 0001  0 

CA 

C 

U 68  V 

“ 23,2545  0 0006  1 

EXTEND 

A NOW  CONTAINS  TJET  SCACED  AT 

0340 

REF 

2 CAST  549 

23,2546  7 3101  0 

MP  ‘ 

25/32 

2EXP (4) (16 

0341 

REF 

7“"tAST  549 

23,2547  55*625  0 

TS 

TP 

/25)  . 
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R0342 
K0343 

0344  REF  5 LAST  549 


23 


LOGIC  FOR  4; 
2550  55*505  1 4PJETS  TS 


JETS 

TOFJTCHG 


TOFJTCHG  WILL  BE  MODIFIED  AND  WILL  = T6. 


0345 

"""REF 

4 LA5T 

550 

23,2551 

4 1440 

1 

cs 

TPSIG 

" 0346 

23,2552 

0 0006 

1 

EXTEND 

0347 

REF 

I 

23,2553 

6 2573 

1 

3ZMF 

P0S4P 

0348 

23,2554 

0 0006 

1 

EXTEND 

0349 

23,2555 

00  006 

1 

READ 

6 

0350 

23,2556 

0 0006 

1 

EXTEND 

0351 

23,2557 

1 2563 

1 

BZF 

+ 4 

0352 

R"EF 

2 LAST 

549 

23,2560 

3 3067 

0 

CA 

MCOMPT 

0353 

REF 

6 LAST 

551 

23,2561 

27*505 

1 

ADS 

TOFJTCHG 

ALTER 

JET  OFF  TIME  PER  STATE  OF 

CH  6. 

0354 

23,2562 

1 2565 

1 

TCF 

+ 3 

0355 

REF  ' 

2 LAST 

549 

2:3,2563 

3 30"7"0 

0 

+ 4 

CAF 

14-TjMTN 

0356 

REF 

7 LAS1 

551 

23,2564 

27*505 

1 

ADS 

TOFJTCHG 

ALTER 

JET  OFF  TIME  PER  STATE  OF 

CH  6. 

0357 

REF 

1 

23*2565 

3 3105 

0 

CA 

4NEGPJET 

03  58 

RtF 

6 LAST  550 

23 ,2566 

TC 

WR1TEJTS  +2 

0359 

RtF 

19  LAST 

550 

23,2567 

3 7647 

0 

CA 

BITg 

THE  LOW  8 BITS  ONLY  GET  WRITTEN 

INTO  CH. 

0360 

REF 

5 LAST 

550 

23,2570 

55*502 

0 

TS 

JTSATCHG 

STATE 

OF  P AXIS  JETS  AFTER  THE 

T 6 RUPT. 

0361 

“REF 

23*2571 

4 7655 

1 

C5 

FOUR 

0362 

REf 

1 

23,2572 

1 2701 

1 

Tcf 

RATE 

0363 

23,2573 

0 0006 

1 

P0S4P 

EXTEND 

0364 

0365 


2574 

2575 


OITWT 
0 0006  1 


READ 
EXTEND" 


23 


0366 

23,2576 

1 2602  0 

BZF 

+ 4 

0367 

REF 

3 LAST  551 

23,2577 

3 3067  0 

CA  " 

MCOMPT 

0368 

REF 

8 LAST  551 

23  t id! 6 0 0 

27*505  1 

ADS 

TOFJTCHG 

ALTER  JET  OFF  TIME  PER  STATE  OF  CH  6. 

0369 

23,2601 

1 2604  0 

TCF 

+ 3 

3HLAST  551 

23*2  6 "0  2 

3 3070  "0 

+ 4 CA 

14-TJMlN 

"TOTAL  DELAY  FOR  A "MIN  IMP  TO  "FULL  ON. 

0371 

RcF 

9 LAST  551 

23 ,2603 

27  * 505  1 

ADS 

TOFJTCHG 

ALTER  JET  OFF  TIME  PER  STATE  OF  CH  6. 

0372 

REF 

1 

23,2604 

3 3104  1 

CA 

4P0SPJET 

0373" 

REF 

7 LAST  551 

23,2605 

CT42Z2  1 

TC 

WRTTEJTS+2 

0374 

REF 

20  LAST  551 

2 3 ♦ 2606 

3 7647  0 

CA 

BIT9 

NOW,  ZERO  AT  CHG, (WRITE  LOW 8 IN  CH.6), 

0375 

REF 

6 LAST  551 

23 , 2607 

55*502  0 

TS 

JTSATCHG 

STATE  OF  P AXIS  JETS  AFTER  THE  T6  RUPT. 

0376 

rEi- 

21  LAST  551" 

23  *261U 

" 3"  7655  0 

— CA — 

TOUR 

U377 

Rtp 

2 LAST  551 

23,2611 

1 2701  1 

TCF 

RATE 

U378 

RcF 

201  LAST  548 

23,2612 

3 7665  0 

JETSOFF  CAF 

ZERO 

0379 

REF 

8 LAST  545 

23,2613 

55*615  0“ 

TS 

"JETRATE 

v 3oU 

Rcr 

10  LASI  5 5 1 

23 ,2614 

55  * 5O5  1 

TS 

TOFJTCHG 

REF 

8 LAoI  551 

23,2615 

0 4222  1 

TC 

WR1TEJTS  +2 

RcF 

17  LAST  545 

23 ,26 1 6 

1 4606  1 

TCF 

"RESUME 

ruiMV-liUn  V»MU^JLR  [ X UIN 

_ 

Ru  386 

HUIC  — l*IJ,3  = 1 lUtNIlLALLT 

IMPLIES  NULL  MULTIPLICATION 

r. ) 

0387 

REF 

11  LAST- 547 

23,2617  3 0033  1 

PURGENCY  CA  CDUY 

P-ERROR  CALCULATION 

^500 

23,2620  0 U0U6~1 

EXTEND 

c Lrto  1 6*t7 

23 ,262 1 20  775  0 

MSU  CDUYD 

~ CDtn/ALUE  - ANGLE  DESIRED  (Y-AXIS) 

0361 

-RET- 

R “I.  A.^T 

23  f 2622  0 0006  1 

73 1 — 1 Al~ U. — 1 

EXTEND 
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0392 

REF 

3 LAST  535 

23,2624 

57*411  1 

XCH  E 

SAVE  FIRST  TERM  (OF  TwO) 

03’ 9 3 

“REF 

"28  LAST  547 

23,2625 

3 0032  0 

“CA  CWX 

THIRD  COMPONENT 

0394 

23,2626 

0 0006  1 

EXTEND 

0395 

REF 

5 LAST  547 

23,2627 

20  774  1 

TTSU  CDUXD 

CDU  VALUE  - ANGLE  DESIRED  (X-AXIS) 

R0396 

EXTEND 

R0397 

MP  Ml  3 

0398 

REF" 

4 LAST  552 

23,2630 

27*411  0 

ADS  E 

SAVE  SUM  OF  TERMS,  NO  OVERFLOW  fcVR 

03g9 

REF 

6 LAST  543 

23,2631 

55*476  1 

TS  PER 

SAVE  P ERR  FOR  DISPLAY 

0400 

REF 

3 LAST  550 

23,2632 

31*444  1 

'cAE  I^jisp  \ 

SET-UP  FOR  URGENCY  SUBROUTINE 

0401 

‘ REF 

“ 1 

23,2633 

55*471  13 

TS  1/NjETAC 

' ** 

0402 

REF 

4 LAST  549 

23,2634 

0 4177  1 

TC  T6J0BCHK 

CHECK  T 6 CLOCK  HERE,  BEFORE  URGROUTN 

0403 

REF 

3 LAST  535 

23,2635 

4 1426  1 

CS  QMEGAPD 

0404 

REF 

10  LAST  546 

23,2636 

6 1416  0 

AD  QMEGAP 

0405 

“REF’ 

3 LAST  535 

23,2637 

55*423  X 

TS  EDOTP 

0406 

REF 

3 LAST  197 

23 '2640 

0 4156  1 

TC  IBNKCALL 

***  SUBROUTINE  CALL  *****  (TAKES  24  MCT5) 

0407 

REF 

■ r 

23,2641 

51525  1 

CAqR  urgroutn 

(RETURN  TAKES  10  MCTS) 

04071 

23,2642 

0 0006  1 

EXTEND 

IF  URGENCY  = 0,  FIRE  NO  JETS 

04072 

REF 

11  LAST  549 

23,2643 

1 2612  1 

3ZF  JETSOFF 

(FOR  EFFICIENCY  ONLY) 

0*08  REF  339  LAST  548 

23 1 20HH 

10  000  0 

CCS  A 

URGENCY  FUNCTION  IS  IN  A,  GET  ABVAL 

0409 

REF 

1 

23,2645 

6 3112  0 

AD  UpM 

0410 

23 ,2646 

1 2650  1 

TCF  +2 

x>\ CIC  &R.AN  MO  0A&.  PUi * 

U.SCT-lttTw JHsO  *viLV» 

0411 

REF 

2 LAST  552 

23 ,2647 

6 3112  0 

AD  UPM 

0412 

23 ,2650 

0 0006  1 

EXTEND 

04X3“ 

REF 

r 

23,2651 

6 2661  1 ““ 

3ZMF  2JETSP 

»,  Wow  t>o  WC  !5fTfC^lMr 

0414 

REF 

32  ‘LAST  500 

23,2652 

5 7637  1 

CA  POSMAX 

0415 

FEF 

1 

23,2653 

55  * 470  1 

TS  N JET ~ 

INDICATE  4 JETS  tM<t(£dX\ON)  . 

O4TF 

REF 

4 LAS  1 552 

23  * 2654 

3 1444  1 

CA  1/2JTSP  / 

- - «- 

0417 

23,2655 

0 0006  1 

“EXTEND  / 

...27 

HOwTtoWt  use  TFS  5X 

0418 

REF 

36 

LAS  1 

436 

23,2656 

7 7642  1 

MP 

B1TX4  1 

USE  1/4JE1SP 

04T9 

REF 

I 

LAS  1 

552 

23,2657 

55*471  0 

TS 

1/NJETAC f 

0420 

REF 

1 

HE — 

23*2660 

1 2663  1 

TCF 

t-jetlawt 

— s, 

0421 

REF 

33 

LAST 

552 

23,2661 

4 7637’  0“ 

2JET5P 

C5 

POS.MAx  “ 

— 

— 

0422 

REF 

2 

LAST 

552 

23,2662 

55*470  1 

TS  ’ 

NJET 

INDICATE  2 JET5 

0423 

REF 

5 

LAST 

552 

23 ,2663 

0 4177  1 

T-JETLAW  TC 

T 6 JOBCHK 

CHECK  T 6 CLOCK 

RUPT 

BEFORE  SUBROUTINE 

0424 

“ REF 

1 

23  1 2664 

3 31140 

CAF 

JETLWADR 

TJETLAW  CALLING  SEQUENCE 

0425 

REF 

2 LASt  149 

23,2665 

0 4X62  0 

TC’ 

iswcall 

0426 

REF 

12  LAS1  552 

23,2666 

1 2612  1 

“TCF 

JETSOFF 

0427 

REF 

8 LAST  550 

23 ,2667 

55*625  0 

T S 

TP 

Uh28 

REF 

3 LAS  1 552 

23,2670 

11*470  1 

xcs 

NJET 

0429 

REF 

9 LAST  552 

23,2671 

3 1625  1 

CA 

TP 

0430 

REF 

1 

23,2672 

X 2550  1 

TCF 

4PJETS 

0431 

REF 

10  LAST  552 

23,2673 

3 1625  T" 

XA 

“TP  ’ 
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0432 

0433 


REF 

"RTF" 


11  LAST  351 
2 LAST  546 


"23*2674 

23,2675 


55*505  1 
1 2462  1 


TS 

TCF 


TQFJTCHG 

2PJETS 


R0434  TOROJE  VECTOR  RECONSTRUCTION  FDR  THE  P-AXIS 


0435 

" REF 

78  LAST" 

544 

23,2676 

3 7656  0 

P+2 JET 

CA 

TWO 

0436 

REF 

3 LAST 

551 

23,2677 

1 2701  1 

TCF 

RATE 

0437 

REF" 

79  EAST 

553 

23,2700 

4 7656  1 

P-2JET 

03 

TWO 

0438 

REF 

2 LAST 

545 

23,2701 

55’624  1 

RATE 

T5 

NO.PJETS 

t-SJOlig  NO.  OF  P JET 5 r()R  II,' aF  1 

0439 

REF 

"X 

23,2702 

3 1622  0 

CA 

100MSPTQ 

\ TORQUE  FROM  A 100  MS  JET  PULSE  SET  BY 

"0440 

"23,2703 

0 0006  1 

EXTEND 

j aos  task;  every  2 seconds. 

0441 

REF 

6 LAST 

545 

23,2704 

7 1627  1 

MP 

1JACC 

0442 

23,2705 

0 0006  1 

EXTEND 

0443 

REF 

3 LAST 

553 

23,2706 

7 1624  1 

MP 

NO.PJETS 

0444 

REF 

9 LAST 

551 

23,2707 

23*615  1 

LXCH 

JETRATE 

store  jet  rate  for  omegap  computation. 

0445 

REF 

12  LA5T 

553 

23,2710 

4 1505  1 

cs 

TOFJTCHG 

0446 

REF 

1 

23,2711 

6 3065  1 

Ad 

+1.5CSP 

Use  150  MS.  TO  TEST  FOR  A PAXIS  SKIP. 

0447 

23,2712 

0 0006  1 

extend 

0448 

REF 

18  LAST 

551 

23,2713 

6 4606  0 

BZMF 

RESUME 

TP  GRtATER  THAN  150MS  THEN  DO  NORMAL  P 

• 

0449 

REF' 

1 

23,2714 

3 3113  1 

CA 

PSICIPADR 

SET  UP  A P AXIS  SKIP. 

0450 

REF 

3 LAST 

544 

23,2715 

55*613  0 

TS 

PJUMPADR 

0451 

REF 

3 LAST 

33 

23,2716 

10  031  1 

JTLST 

CCS 

T1ME6 

TEST  CURRENT  STATE  OF  T6» 

'13452 

REF 

r 

23  ,2  f 1 1 

1 2742  0 

TCF 

T60NN0W 

IF  T 6 IS  + THEN  CLOCK  IS  ON. 

0453 

REF 

1 

23,2720 

1 2724  0 

TCF 

T 60F  FNOW 

IF  T 6 IS  + ZERO  THEN  T6  MUST  BE  OFF 

0454 

REF 

2 LAST 

553 

23,2721 

1 2742  0 

TCF 

T60NN0W 

SINCE  ALL  DINC  S LEAD  TO  MINUS  ZERO 

• 

045? 

REF  1 

23,2722 

"CT  4203  "I 

TC 

T 6 JOB 

WE  are  inxhe  unique  STATE  WHICH  SAYS 

0456 

RtF 

1 

23,2723 

1 2716  1 

TCF 

JTLST 

A T 6 INTERRUPT  IS  WAITING. DO  T6  JOB. 

0457 

*REF 

13  LAST 

553 

23,2724 

3 1505  0 

T60FFN0W 

CA 

TOFJTCHG 

0458 

REF 

4 L A 57 

?53 

23,2725 

"54  031  1 

“T5" 

TIME  6 

"¥E  ARE"  HERE  IF T6  CLOCK  IS  OFF. 

0459 

REF 

33  LAST 

546 

23,2726 

3 7641  0 

LA 

Bins 

0460 

23,2727 

0 0006  1 

EXTEND 

TURN  CLOCK  PULSt  FOR  T6  ON  AND  LOAD  T6 

• 

0461 

23,2730 

0?  013  2 

""WOR 

T3 

0462 

REF 

7 LA5T 

551 

23,2731 

3 1502  1 

CA 

JTSATCHG 

0463 

REF 

5 LAST 

33 

23,2732 

54  770  0 

TS 

T6NEXTJT 

0464 

KEF  2U2  LAST  551 

23  « 2 7 3 3 

3 7665~0"" 

C A 

ZERO 

0465 

Rtf 

1 

23,2734 

57'504  1 

XCH 

ADDTLT6 

SET  UP  NEXT  T 6 INTERRUPT  AFTER  THE 

0466 

REF 

3 LAS! 

33 

23,2735 

54  766  1 

TS 

T6NEXT 

CURRENT  ONE  IS  COMPLETE.  ADDTLT 6 MAY 

04661 

0467 

REF 

203  LAS1 

553 

2 3 9 2 [3  b 

3 7665  0 

CA 

ZERO 

BE  ZERO  IN  WHICH  CASE  NO  MORE  T6. 

0468 

REF 

1 

23,2737 

57*503  0 

XCH 

ADDT6JTS 

0469 

REF 

6 EAST 

553 

23 ,2740 

54  771  1 

T5 

T 6NEXTJT  +r 

0470 

R Ep 

19  LAST 

553 

23,2  f41 

1 4606  1 

T60NN0W 

TCP 

RESUME 

0471 

REF 

4 LAST 

553 

23,2742 

10  766  1 

CCS 

T6NEXT 

HERE  IF  T6  IS  NOW  ON,  SEE  IF  T 6 NEXT  IS 

0472 

REF 

1 

23^2743 

1 3023  1 

TCF 

T6NXT=+ 

ZERO  OR  NOT.  " 

0473 

REF 

14  LAST 

553 

23 ,2744 

4 1505  1 

CS 

TOFJTCHG 

T6NEXT  IS  NEVER  NEGATIVE. 

0474 

Ktr 

D LAo  1 

23 ,2745 

6 0031  0 

AD 

TIME6 

A CONTAINS  16  - TJE1 . 

0475 

REF 

23 ,2746 

10  000  0 

"CCS 

A 

TEST  SIGN  OF  A (SAVING  THE  DIFFERENCED 

. 

0476 

REF 

lhoi 

23,2747 

6 7657  1 

AD 

ONE 

0477 

REF 

l 

23 ,2750 

1 2765  0 

TCF 

JTSFIRST 

TJET  IS  LESS  THAN  T6. 

04T8 

23 , 2751 

1 2752  X 

NOOP" 

"IF  DIFFERENCE  TS- NEGATIVE  "OR  ZERO 
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0479 

REF 

139  LAST  553 

23,2752 

6 7657  1 

AD 

OiNE 

WE  ADD  1 50  ZERO  CAN  NEVER  BE  IN  LIST. 

0480 

“RTF" 

5 LAST553 

23,2753 

54  766  1 

TTS 

TbNEXT 

0481 

REF 

8 LAST  553 

23,2754 

3 1502  1 

CA 

JTSATCHG 

04a2 

"REF" 

7 LAST  553 

23,2755 

54  771  1 

TS 

T6NEXTJT  +1 

BEGIN  SETTING  UP  JETS  IN  THE  JET  LIST, 

~04g3~ 

REF 

ZG4  LAST  553 

23,2756 

3 7665  0 

CA 

ZERO 

0484 

RET 

2 LASTS 5 3 

23,2757 

57*504  1 

XCH 

ADDTLT6 

0485 

" REF" 

6 LAST  554 

23,2760 

54  767  0 

TS 

T6NEXT  +1 

0486 

REf 

EOT  iTST  554 

23,2761 

3 7665  0 

CA 

ZERO 

0487 

" "REF 

2 LAST  553 

23,2762 

57*503  0 

XCH 

ADDT6JTS 

0488 

REF 

8 LAST  554 

23,2763 

54  772  1 

TS 

T6NEXTJT  +2 

0489 

REF  TO  LAST  553 

23,2764 

"1  4606  I 

TCF 

RESUME 

0490 

REF 

7 LAST  554 

23,2765 

54  766  1 

JTSFIRST  TS 

T6NEXT 

HERE  IF  TJET  IS  LESS  THAN  T6. 

0491 

"REF" 

15  LAST  553 

23,2766 

3 1505  0 

CA 

T OF  JT CHG 

0492  REF 

6 LAST  553 

23,2767 

54  031  1 

TS 

TIME  6 

SWITCH  T6  AND  TJET) 

0493 

RtF 

9 LAST 554 

23,2770 

3 1502  1 

CA 

JTSATCHG 

0494 

- "REF 

9 LA5T554 

23,2771 

56  770  1 

XCH 

T6NEXTJT 

BEGIN  SWITCHING  JET  WORDS  IN  JET  LIST, 

0495 

REF 

"10  LAST 554 

23,2772 

54  771  1 

T 5 

T6NEXTJT  +1 

0496 

REF 

3 LA5T554 

23,2773 

4 1504  0 

CS 

AuDTLT  6 

0497 

23,2774 

0 0006  1 

EXTEND 

0498 

REF 

2T  LAST  554 

23,2775 

1 4606  1 

32  F 

RESUME 

SEE  IF  AN  ADDITIONAL  (QR)  JET  TIME  IS 

0499 

REF 

8 LAST  554 

23,2776 

6 0766  0 

AD 

T6NEXT 

REQUIRED, 

04991 

# 

DELETt  THROUGH  04993 

“0500 

REF  341  LAST  553 

23,2777 

10  000  0“ 

“CCS  " 

A " 

IF  AN  ADDITIONAL  T6  15  NEEDEN.  COMPARE: 

0501 

RtF 

140  LAST  554 

23,3000 

6 7657  1 

AD 

ONE 

IT  WITH  THE  CONTENTS  OF  T 6NEXT , 

0502 

23,3001 

1 3012  0 

TCF 

+ 11 

0503 

23*3002 

1 3003  0 

“NOOP 

0504 

REF 

141  LA5T  554 

23,3003 

b 7657  1 

AD 

ONE 

0505 

REF 

9 LAST  554 

23,3004 

54  767  0 

TS 

T6NEXT  +1 

0506 

REF 

206  LAST  554 

23,3005 

3 7665  0 

CAT  - 

ZERO  - 

0507 

REF 

4 CAST  554 

23,3006 

55*504  0 

TS 

ADDTLT  6 

O5O8 

■ REF 

3 LAST  534 

23,3007 

57*503  0 

XCH 

ADDT6JTS 

"0309 

REF 

IT  LAST 534 

48,3010 

54  772  1 

TS  - 

T6NEXTJT  +2 

0510 

REF 

22  LAST  554 

23,3011 

1 4606  1 

TCF  " 

RESUME 

10  LAST  554 

23,3012 

54  767  0 

+ 11  TS 

T6NEXT  +1 

05T2"" 

' RET 

207  LAST  534 

23,3013- 

3 7665  0 

"CA 

"“ZERO  " 

0513 

REF 

5 LAST  554 

23,3014 

57* 504  1 

XCH 

ADDTLT  6 

O5I4 

REF 

11  LAST  534 

23*3015 

54  766  1 

TS 

T6NEXT 

0515 

ref 

208  LAST  554 

23*3016 

3 7665  0 

' CA 

ZERO 

0516 

REF 

4 LAST  554 

23,3017 

57*503  0 

XCH 

ADDT6JTS 

0517 

REF 

12  LAST  554 

23 , 3020 

56  771  0 

XCH 

T6NEXTJT  +1 

0518 

"REF 

13  LAST  554 

23,3021 

"54  1JT  1 

TS 

T6NEXTJT  +2 

0519 

REF 

23  LAST  354 

23*3022 

1 4606  1 

TCF 

RESUME 

0520 

REF 

16  LAST  354 

23,3023 

4 1505  1 

T6NXT=+  CS 

TOFJTCHG 

0521 

REF 

- 7 LAST  354 

23,3024 

6 0031  T 

AO 

TTWE6 

0522 

REF 

12  LAST  554 

2 3 * 3 0 2 5 

6 0766  0 

AD 

T6NEXT 

0523 

REF 

342  LAST  554 

23 , 3026 

10  000  0 

CCS 

A 

0524 

REF 

142  LAST  554 

23,3027 

6 7657  I 

AO“ 

CNE 

0525 

23,3030 

1 3037  1 

TCF 

+ 7 

0526 

23.3031 

1 3032  i 

NOOP 

0327 

~REF 

143"  LAST  534 

23,3032 

6 7657  1 

AD 

ONE 
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0528 

REF  13  LAST  554 

23,3033 

54-  767  0 

TS 

T6NEXT  +1 

0529 

“REF  10  LAST  554 

25,3034 

3 1502  1 

CA 

JTSATCHG 

REF  14  LAST  554 

23,3035 

54  772  1 

TS 

T6NEXTJT  +2 

0531 

■ REF  24  LAST  554 

23,3036 

1 4606  1 

T CF 

RESUME 

REF  186  LAST  550 

23,3037 

54  001  1 +7 

TS 

L 

0533 

REF  1 7 LAST  554 

23,3040 

4 1505  1 

C5 

TOFJTCHG 

" 0534 

RcF~  8 LAST  554 

23,3041 

6 0031  0 

AD 

TIME6 

0535 

REF  343  LAST  554 

25 ,3042 

53  000  IT 

CCS 

A 

0536 

REF  144  LAST  554 

23,3043 

6 7657  1 

AD 

ONE 

0537 

REF  1 

23,3044 

1 3054  1 

TCF 

JTSB4T6 

13538 

23,3045 

1 3046  1 

TO  OP 

0539 

REF  145  LAST  555 

23,3046 

6 7657  1 

AD 

ONE 

0540 

REF  14  LAST  555 

23,3047 

54  766  1 

TS 

T6NEXT 

- 0541 

REF  187  LAST 555 

"23,3050 

3 0001  0 

CA 

L 

0542 

RtF  15  LAST  555 

23,3051 

54  767  0 

T5 

T6NEXT  +1 

0543 

REF  11  LAST  555 

23,3052 

3 1502  1 

CA 

JTSATCHG 

0544 

25,3053 

1 3062  1 

TCF 

+ 7 

0545 

REF  16  LAST  555 

23,3054 

56  766  0 JTSB4T6 

XCH 

T6NEXT 

0546 

REF  1?  LA5T  555 

23 ,3055 

54  767  0 

TS 

T6NEXT  +1 

0547 

RTF  TS  LASTS  5 5 

23,5056 

3 1505  0 

CA 

TOFJTCHG 

0548 

RtF  9 LAST  555 

23,3057 

54  031  1 

TS 

TIME6 

0549 

RcF  12  LAST  555 

23,3060 

3 1502  1 

CA 

JTSATCHG 

0550 

RcT  15  LAST  555 

23 , 306 1 

56  770  1 

" XCH 

T6TTEXTJT 

0551 

REF  16  LAST  555 

23 , 3062 

56  771  0 +7 

XCH 

T6NEXTJT  +1 

0552 

REF  17  LAST  555 

23*3063 

56  772  0 

XLH 

T6NEXTJT  +2 

0553 

REF  2 5 LAST  555 

23*3064 

T 4606  1' 

TCF 

RESUME 

} R0741  t-jet  law  fixed  constants 


‘ 


1 


0742  ~ 

03,3065 

00360  I 

+I.5C5P 

UEC 

+0.01465 

0743 

23 ,3066 

20000  0 

ONE-K 

DEC 

0.50000 

0745 

23,3067 

77767  1 

MCOMPT 

DEC 

-0.00049 

-5  MS.  SCALED  AS  T6 

(P-AXIS 

COMP  TIME). 

0746 

23,3070 

U0U13  0 

14-TJMTTT 

DEC 

nr 

0747 

23,3071 

77537  0 

NEGCSP1 

DEC 

-.00977 

0748 

23,3072 

37775  0 

MS30P 

OCTAL 

37775 

0749 

23,3073 

0 • o o 9 

0 * 689  7 5 

0750 

23,3074 

24366  1 

16/25 

DEC 

0,64000 

0751 

23 ,3075 

77555  1 

-DRATEDB 

OCTAL 

77555 

-0.4  DEG/SEC  SCALED 

AT  PI/4 

RADIANS/SEC 

0752 

23 ,30  76 

77001  0“ 

-P5SJTLTFT 

OCTAL 

77001 

-1.4  UtG/sEC  SCALtD 

AT  PI/4 

0753 

23,3077 

76447  1 

-A2JTLIM 

OCTAL 

76447 

-2,0  DEG/SEC  5CALED 

AT  PI/4 

0754 

2.3  * 3 1 uu 

77223  1 

-ARATEDB 

OCTAL 

77223 

-1.0  DEG/StC  SCALtD 

AT  PI/4 

0755 

23  *3101 

31000-  (T 

25/32 

DEC 

.7BI25 

0756 

23,3102 

77763  0 

-TJMINT6 

DEC 

-.00073 

0757 

23*3103 

00077  1 

DAPL0W6 

OCT 

00077 

' ~ 0756 

23,3104 

00125  1 

4PUSPJt  1 JtlAL 

125 

0759 

23,3105 

00252  1 

4NEGP JtT 

JLTAL 

252 

0760 

23,3106 

00012  1 

NEGP JETO 

OCTAL 

12 

" 0761 

23,3107 

00240  1 

NEGPJETl 

TICTAL 

"ZAO 

0762 

23,3110 

00120  1 

POSPJETO 

9CT  AL 

120 

0763  REF  12  LAST  484 

7664 

POSPJETl 

EQUALS 

FIVE 

0764 

23 ,31 n 

00600  1 

BTTS8 *9 

'OCTAL 

"crosuo" 
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“07651  RTF  1 23*3113  02147  1 PSKIPAPR  GENADR  SKIPPAX5 

“0766  REF  I 23,3114  52000  0 JETLWADR  CADR  TJETLAW 


0767“ 

“ REF 

TO- 

last  543 

23,3115 

22  016 

0 sETIdLE 

LXCh 

BANKRUPT 

FIRST  T5RUPT  AFTER  FRLSh  START  COMEs 

0768 

REF 

1 

23,3116 

3 3357 

0 

CAT 

IDLERADR 

HERE,  DAP  idler  is  started  in  i second. 

0769 

“REF 

4 

LAST  543 

23,3117 

54  345 

1 

TS 

T5ADR 

“0770 

REF 

1 

23*3120 

3 3123 

1 

CAF 

1SECRUPT 

"0771  ” 

REF 

3 

LAST” 543 

23,3121 

54  030 

0 

TS 

TIME5 

0772 

REF 

3 

EAST  372 

23,3122 

1 4610 

0 

1 Ch 

NOQRSM 

0773 

23*3123 

37634 

1 1SECRUPT  OCTAL 

37634 

1 SECOND  SCALED  AS  TIME 5 (100  PULSES) 

0774 

23,3124 

0 0006 

1 GOIDLE 

extend 

COME  HERE  TO  SHUT  DOWN  DAP 

0775 

REF 

1 

23,3125 

3 3360 

1 

“DCA 

GOIDLADR 

0776 

REF 

5 

LAST  556 

23,3126 

52  346 

1 

DXCH 

T5ADR 

SET  UP  RUPT  TO  GO  IDLE  AT  DAPIDLER 

0777 

REF  200  LAST  554 

23,3127  3 7665  0 

CAF 

ZERO 

CLEAR  ALL  JETS 

0778 

23,3130  0 0006  1 

EXTEND 

0779 

23,3131  01  005  0 

WRITE 

5 

0780 

23,3132  0 0006  T 

EXTEND 

0781 

23,3133  01  006  0 

WRITE 

6 

0782 

REF  1 

23,3134  4 3140  0 

CS 

BGIM23 

5T0P  THE  TRIM  GIMBAL  DRIVES 

0783  23,3135  00006  1 EXTEND- 

0784  23,3136  03  012  1 /VAND  12 


0785  REF  26  LAST  555  23,3137  1 4606  1 TCF  RESUME 

0786  23,3140  07400  1 B5IHZ3  OCTAL — 07400“' 
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SDAp i DLEr  program 


_U5_Ek_»S_0WN  page  no, 


Roooi 

RO003 

R0005 

R0006 


the  dapidleR  program  is  start ed  by  fresh  start  and  restart.  the  dapioLfR  program  is  ddnp  m ttmps 

PER  SECOND  JNrrr  TRrMASTRONAJT  DESIRE'S  THF  DaP  TO  WAkTW7~SN5~THE  ' WAND  'CPUS  Aftl  READY  FOR USeBY  feTDAp! 

TNjE  "NeClSSARY  ' INITIALTZAT  ION  -0F  THe  DAP  ISDONE  by  THe  DAP  IDLER  PROGRAM. ust-  THE  UAH  * 

ADDITIONAL  WORK  MUST  Be  DONE  3N  DAP  IDLER  IN  THE  FUTURE. 


0007 

ref 

IT 

Last 

556 

23,3141 

22  016 

U 

DAP iDLEr  LXCh  BANKRUPT 

0 008 

23,3142 

0 0006 

1 

EXTEND" 

0009 

RcF 

10 

LAST 

543 

23,3143 

22  012 

1 

qxch  qrupt 

UU1U 

RcF 

37 

LAST 

503 

23,3144 

3 7652 

TT~ 

XTAF  BIT6 

001 1 

RtF 

58 

LAST 

364 

23 ,3145 

7 0367 

1 

MASK  IMODES30 

"00 12 

~REF" 

344 

LAST 

555 

23,3146 

10  000 

XT" 

ccs  tr~ 

0013 

REF 

1 

23,3147 

1 3354 

I 

TCF  MOREIDLE 

0014 

RcF 

35 

LAST 

549 

23,3150 

3 7654 

1 

CAF  BIT4 

0015 

REF 

24 

LAb  1 

550 

23 , 3 1 5 1 

6 7653 

0 

AD  BITS 

0016 

23,3152 

0 0006 

1 

"EXTEND 

TTO'l 7 
0018 

"""REF 

345 

LAST- 

557 

23,3153 

23,3)54 

0 2 0T2 
1 0 000 

V 

0^ 

ISA RD  12 

ccs a — 

TT019- 

REF 

T 

LAST 

557 

23,3155 

1 3354 

T" 

TCF  - MOREIDLE 

0020 

REF 

44 

TAST 

545 

23 , 3 1 

"1 

0021 

23,3157 

0 0006 

I 

d i | 1 0 
EXTEND-- 

0022 

nno. 

DCET 

-23,3l6Cr 

02  030- 

T 

TTAND"  30  " 

INTERRUPT  LEAD  IN  (CONTiNUEDT 


BIT10  OF  30  IS  PNGCS  CONTROL  OF  S/C 


0024  -REF  3 LAST  557 


23,3162  1 3354  1 


CCS 

TCF 


~BTT5-Tr  30  PARE  INVERTED 


MOREIDLE 


"002  5 ~ 
0026 


REF-  “25— LAST- 547 


23.3163 

23.3164 


7643  1 
0006  1 


0027 

23,3165  02  031 

1 

0028 

23,3166  0 0006 

I 

0029 

RcF 

1 

23,3167 

1 3175 

T3 

VU3U 

KCr 

3 < 

LA5T 

552 

23*3170 

3 7642 

0 — 

0031 

23,3171 

0 0006 

I — 

—0032 

23,3172 

02  031 

I 

0033 

REF 

347 

Las  T 

557 

23,3173 

10  000 

0 

0034 

REF 

4 

Las  f 

557 

23,3174 

1 3354 

T — 

CAF  BIT13 

EXTEND-- 

RAND  31 

EXTEND-- 

BZF  5TARTDAP 


PATTTTUDE  HOLD  BIT.  INVERTED. 


CA  BTTT4 

extend 


-RAND 31 

CCS A 

TCF'  MOREIDLE 


0035 

0036 


REF  210LAST  556 
REF  10  LAST  555 


23,3175 


- 0037 

' RcF 

1 

23 « 3177 

0038 

0039 

RcF 

REF 

1 

2 LAST-542 

23,3200 

23*3201 

004t3 

REf 

1 

23,3202 

0041 

RcF 

1 

23,3203 

UU^2 
- 0043 

REF 

REF 

7 LAST  552 
2 LAST  538 

23.3204 

23 .3205 

3 7665  0 
54  031  1 


55 ' 546 
55*473 
55  *474 


STARTDAp  CAT  ZERO 

TS TIME6 

TS 


55*475  1 
55*476  1 


TTMEOFFO 
TS  TTMEOFFR 

TS  LASTPER 

lastqer-  " 


TS 


TS  LASTRER 

TS  PERROR 

"TS  QERROR 


initialize  temps  for  att  error  display 
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0044 

REF 

2 LAST  538 

23,3206 

55 • 500  1 

TS 

RERROR 

0045 

REF 

18  LAST  555 

23.3207 

54  766  1 

T$ 

”T6nexT 

”0046 

REF 

19  LAST  558 

23,3210 

54  767  0 

TS 

T6NExT  +1 

0047 

REF 

6 LAST  546 

23,3211 

54  773  0 

TS 

DELAYCTR 

~oo4ir 

REF 

10  LAST  553 

2T  ,3212 

55 • 6 1 5 0 

“TS 

JETRATE 

0049 

REF 

1 

23,3213 

55'6l6  0 

TS 

JETRATEQ 

OO5O 

REF' 

1 

23,3214 

55'6l7  1 

TS 

JETRATER 

00501 

ref" 

~3~  l^sT”  540 

23,3215 

55*642  1 

“TS 

AOSQTERM 

OO5O2 

REF 

2 LAST  188 

23,3216 

55*643  0 

TS 

AOSRTERM 

0051 

REF 

1 

23,3217 

55*512  1 

TS 

CH5MASK 

OO52 

REF 

1 ” 

23,3220 

55*513  0 

“TS 

CH6MASK 

OO53 

REF 

3 LAST  544 

23,3221 

54  066  0 

T5 

DELTAP 

“ 0054 

~ R EF 

11  LAST  552 

23,3222 

55*416  1 

TS 

OmEGAP 

”0055 

REF” 

2 LAST  187 

23,3223 

55*417  0 

T S 

Qr.EGAQ 

0056 

REF 

2 LAST'  187 

23,3224 

55*421  0 

TS 

OMEGAR 

OO57 

REF 

4 LAST  552 

23,3225 

55 ' 426  1 

T5 

OMEGAPD 

0058 

REF 

” T 

23 , 3226 

55*427  0 

TS 

OmEgaqd 

0059 

REF 

1 

23,3227 

55*430  0 

TS 

OMEGARD 

0060 

REF 

1 

23,3230 

55*626  0 

TS 

TQR 

0061 

REF 

2 LAST  539 

23,3231 

55*620  G 

^T5” 

NO.OJETS 

0062 

ref 

1 

23,3232 

55*621  1 

TS 

NO.RJETS^- 

0065 

REF 

1 

23,3233 

3 3375  0 

CAF 

0,62170 

0066 

REF 

1 

23,3234 

55*464  1 

TS” 

4JETT0RK 

0067 

REF 

T. 

23,3235 

3 3377  1 

CAF 

.68387 

2200  FT  LBS.  SCALED  AT  2(10)  X PI, 

0068 

REF 

1 

23,3236 

55*465  0 

TS 

JETT0RK4 

QR  AXIS  JET  TORQUE  FOR  4 JETS. 

0069 

REF 

29  LAST  552 

23.3237 

3 0032^0" 

CAT 

CDUX 

0070 

REF 

6 LAST  543 

23,3240 

55*431  1 

TS 

oldxforp 

0071 

REF 

6 LAST  552 

23,3241 

54  774  1 

TS 

CDUXD 

OO72 

REF 

12  LAST  551 

23,3242 

3 0033  1 

C7T “ 

XDUY 

0073 

REF 

3 LAST  543 

23,3243 

55*432  1 

TS 

OLDYFORP 

0074 

ReF 

1 

23,3244 

55*433  0” 

T5 

OLDYFORQ 

U075 

REF 

3 LAST” 351 

23  ♦ 3243 

54  775  C “ 

TS  ” 

CDUYD 

0076 

REF  15  LAST  547 

23,3246 

3 0034  0 

' CA 

CDUZ 

0077 

REF 

1 

23,3247 

55*434  1 

TS 

oldzforq 

0078 

kEF 

3 LS5T  547 

23,3250 

54  776  13' 

T5 

TUUZD 

0079 

REF 

38  LAST“557 

23,3251 

3 7652  1 

CAF 

BIT6 

ENABLE  CDU  ERR  CNTR  FOR  ATT  ERROR  DISPLA 

00  80  “ 

23,3252 

0 0006  1 

EXTEND 

0081 

2T.3253 

” 05  2012  I- 

TOR 

T2~ 

UUS1U2  Ktr 

2 LA5T  544 

£3 9 304 

3 3361  0 

CA 

V I 5FZADR 

wU8  1 Uh 

kEF 

4 LAST  553 

- 23,3255 

55*613  TT 

“ TS 

p JUMP  ADR' 

0082 

#REF 

1 ~ 

23,3256 

3 3410  1 

— CA — 

.075DEC 

INITIALIZE  100  MS  JET  PULSE  TORqUE  TERMS 

0083 

*REF 

2 LAST-553 

23,3257 

581622  1 

T5 

100MSPTQ 

TO  VALUES  WHEN  K = 1/2, 

CO  5 3 1 

«REF 

1 

- 23 ,3260 

55*673  7T 

TS 

T3R.T5TOQ 

A03TASK  MUST  VARY  THESE  A5  K VARIES. 

RC0832 

****** 

JON  AuDELSTON 

TAKh  NOT 

OF  THE  ABOVE 

COMMENT  - DICK  GRAN. 
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0125 

REF 

1 

23,3261 

3 3400  0 

CA 

10AT16 

— 

0126  ~ 

REF 

A LAST  5A5 

23,3262 

55*655  1 

TS 

WFORP 

0127 

“REF 

1 

23,3263 

3 3401  1 , 

*u  4 U'Af  L 

0128 

_'REF 

r 

Z3,326A 

55*656  1 / 

TS 

WFORORr" 

0129 

"W 

146  LAST  555 

25,3265  ~ 

3 7657  1 

CAF 

ONE 

0130 

RET 

77  LAST  527 

23*3266 

0 4536  0 

TC 

'WAITLIST 

0T31 

23,3267 

03525  0 

2CADR 

IXXTASK 

C01 3 1 

REF 

2 LAST  188 

23,3270 

52006  0 

0132 
13133 
0134 
■— C0134 
' 0133' 

01351 

01352 
CC 1 352 


REF  78  LAST  559 

REF  “ 2 LAST  188 
REF  146  LAST'  559' 
REF  79  LAST  559 

' REF  2 LAST  188 


23.3272 

23.3273 

23.3274 

23.3275 

23.3276 

23.3277 
23,3300 


0 4536  0 
035361 
52006  0 
3 7657  1 
0 4536  0 
03547  1 
52006  0 


TC 

2CA0R 


waitlist 

IYYTASK 


!?6 „ 

TC  WArlTLt  ST^ 


TS ~ 
TC 

2CADR 


OlsTE 

waitlist 

IZZTA5K 


cAr 

TC 

l VCH4Al«r*V 


R0137  ROTATION  OF  THE  GIMBAL  ENGINE,  THE  EQUATION  IMPLEMENTED  TN  BOTH  THE 

1 1 \ | 

r 

RC138  Y-X  PLANE  AND  THE  Z-X  PLANE  IS  — DT ALPHA) /DT  = T L/I  * D( DELTA) /DT 

ROUO 

R0141 

R0142 

R0143 


ENGINE  THRUST  COMMAND 


7 

L = PTVOT  TO  CG  DISTANCE^  OF  THE  GTMBAT ' ENgTNE" 

1 = INERTIA 

DELTA  = GIMBAL  ENGINE  ANGLE  MEASURED  FROM  THE  X AXI5, 


0144 

0145 

0146 


REF  r 


REF 


23.3301 

23.3302 

23.3303 


3 3403  0 
0 0006  1 
7 1526  CT 


CAF 

EXTEND 

~MP 


DELTADOT 


0,2  DEG/SEC  SCALED  AT  PI/64 


L,PVT-CG 


GIMBAL  PIVOT  TO  C , G , DISTANCE  ,SCAUET8, 


0147 

23,3304 

0 0006 

1 

EXTEND 

0148 

REF 

1 

23,3305 

7 1533 

1 

MP  THRSTCMD 

COMMANDED  THRUST  5CALED  AT  2(14)  =16384, 

DT49  " 

REF 

64 

LAST  543 

23,3306 

52  066 

~0 

DXCH  i TEMPI 

0150 

23,3307 

0 0006 

1 

EXTEND 

0151 

REF 

65 

LAST  559 

23,3310 

3 0066 

1 

DCA  I TEMPI 

0 T52T 

23,3311 

0 0006  1 

“EXTEND" 

0153 

Rc.F  1 

2 3 « 33 1 2 

11*463  0 

DV 

IZZ 

AT  2(18) 

OI54 

REF  1 

23,3313 

55*543  0 

TS 

ACCDOTR 

AT  PI/2(7) 

0155 

REF  66  LAST  357 

23*3314 

52  066  0 

"DXCfl 

I TEMPI 

0156 

23,3315 

0 0006  1 

EXTEND 

0157 

R E h 1 

23,3316 

11*462  1 

DV 

IYY 

AT  2(18) 

0 1 58 

REF  4 HAST  538 

2 3 , 33  1 7 

55  r54l  1 

TS 

ACCDOTQ 

AT  PI/2 (7) 

0 J.59 

23,3320 

0 0006  1 

EXTEND 

, 3ACCD0T Q AT  PI/2(8) 

0161 
0162 
T0I53  ' ' 

0164  REF 


REF  A LAST  538 


23.3322 

23.3323 

23.3324 

23.3325 


55*535  1 
0 0006  1 
7 0000  0 
55*536  1 


EXTEND 
SQUARE 
TS 


KQ  “ 


KQ2 ' 


KQ(2) 


:ae 


— 1 


■0T65  REF  2 LAST  559 


2 3 , 3326  31 *543  1 


ACCDOTR 


3ACCD0TR  AT  PI /2 (8) 
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0166 

23.3327 

0 0006  1 

EXTEND 

0167  " 

RtF 

2 LAST  559 

“23,3330 

7 3404  0 

MP  DGBF 

0168 

REF 

1 

23.3331 

55*537  0 

TS  KR 

0169  “ 

23.3332 

0 0006  1 

extend 

0170 

23.3333 

7 0000  0 

5QUARE 

0171 

REF 

T" 

23,3334 

55 ' 540  0 

TS  KR2 

0179 

REF 

1 

23,3335 

3 3406  0 

CAF 

•5ACCMIN 

01 80 

REF 

1 

23,3336 

55*651  0 

TS 

• 5ACCMNQ 

INITIALIZE  FOR  DESCENT 

0181 

~ REF 

1 

23,3337 

55  *652  0 

TS 

• 5ACCMNR 

0182 

REF 

1 

23,3340 

55*653  1 

TS 

•5ACCMNU 

0183 

REF 

1 

23,3341 

55*654  0 

TS 

.5ACCMNV 

0184 

REF 

5 

LAST  540 

23,3342 

55 ' 650  1 

TS 

.5ACCMNE 

(QUIRK  FIX) 

0185 

ref 

1 

23,3343 

3 3407  1 

CAF 

DBMnMP 

SET  UP 'DESCENT  MINIMUM  IMPULSE  DEADBANDS 

0166 

' REF 

4 

LAST  540 

23.3344 

55*646  0 

TS 

dbminimp 

(DUPLICATES  MONITOR  FUNCTION) 

" 0187 

“ REF 

3 

LAST  187 

23,3345 

55*647  1 

T5 

MINIMPDB 

0188 

23,3346 

0 0006  1 

extend 

SET  UP  P-AXIS  TO  GO  TO  DUMMYFIL 

0189 

REF 

1 

23,3347 

3 3372  1 

DCA 

DF2CADR 

0190 

REF 

2 

LAST 

543 

23,3350 

53*602  0 

DXCH 

PFILTADR 

0191 

23,3351 

0 0006  1 

EXTEND 

REF 

1 

23,3352 

3 3370  0 

DCA 

paxadidl 

U19T 

REF 

6 

LAST 

“556 

23,3353 

52  346  T 

DXCH 

" T5  ADR 

0194 

REF 

1 

23,3354 

3 3373  0 

MDREIDLE  CAF 

MS100 

0195 

REF 

<+ 

last 

556 

23,3355 

54'  030  0 

TS 

TIME5 

0196 

REF 

2 / 

last 

556 

1 4606  1 

~TCF 

RESUME 

0197 

23.3357 

03141  0 

IDLERADR  2CADR 

DaPIDLER 

CO  197 

REF 

2 

Last 

159 

23,3360 

46006  0 

“0198 

REF 

2 

LAS  1 

556 

23,3357 

GUTDLADR'  EQUALS 

IDLERADR 

~ 019802 

REF“ 

r 

23,3361 

02213 

0 ~ 

VISPZADR 

GENADR 

CHKVISFZ 

0199 

REF 

1 

23,3362 

3 3402 

1 

WCHANGER 

CA 

0,31250  ^ 

CHANGE  wFORP  AND  wFQRQR 

“02UO 

Kef 

b 

TEA  ST  559 

23,3363 

55*655“ 

1 

TS 

wforp  / 

TTO  REFLECT  100  MS  INTERVAL 

0201 

REF 

2 

EAST  559 

23,3364 

55*656 

1 

TS 

WFORQR/^ 

WHICH  CAUSES  SMUOtHINS  IN  RA)E 

FILTER , 

0202 

REF 

65 

LAST  515 

2 3 , 33  85 

1 4602 

0 

TCF 

TAS:<0VER 

BETWEEN  1ST  QR  AND  2ND  P AFTER 

5TARTDAP 

QZ03 

23,3366 

26501 

r 

. 707P 

DEC 

.70711 

“ squaretrootof  1/2 

0204' 

23,3367 

02055 

0 

“ PAXADIDL 

2CADR 

paxis 

C0204 

RtF 

1 

23,3370 

46006 

0 

0205 

23,3371 

02544 

0 

DF2CADR 

2CADR 

DUMMyFIL 

C0205 

REF 

1 

23,3372 

54006 

cr 

020fc 

23 ,3373 

37766 

1 

MS  IOO 

OCTAL 

37766 

0207 

23,3374 

00033 

IT 

0,00167 

DEC 

0,00167 

0208 

23,3375 

23712 

1 

0,62170 

DEC 

0,62170 

0209 

23,3376 

00022 

180M5 

OCTAL 

00022 

18  BITS 

02T2 

23,3377 

25705 

1 

.68387 

“DEC 

0768387 
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0213 

23,3400 

24000  1 

10AT16 

DEC 

0,62500 

0214  ~ 

23,3401 

15146  0 

6.6ATT6~ 

DEC 

0,4125 

*#*  IS  THIS  NEEDED 

0215  ' 

23,3402 

12000  1 

0,31250 

DEC 

0,31250 

0216 

23,3403 

02215  0 

DELTADOT 

DEC 

0.07111 

0.2  DEG/SEC  SCALED  AT  PI/64 

0217 

23,3404 

23146  0 

DGBF 

dec 

0,6 

0218 

23,3405 

70000  0 

0CT70000 

OCT 

70000 

CZ19 

23, 3406 

11643  0 

•5ACCRIN 

d£C 

0.30680 

0220 

23,3407 

00033  1 

DBMNMP 

DEC 

0.00167 

.3  DEGREES  SCALED  AT  Pi  RADIANS 

0221  * 

23,3410 

02315  1 

.075DEC 

DEC 

0.07500 

= TU-K  + KT  / (2CSP)  ) WHEN  T = ,1*K  = .5 

0222 

23,3411 

EN0DAP23 

EQUALS 

473423A  yjL  SYSTEM  pOR  §LK2?  REVISION  12  Op  PROGRAM  AURORA  BY  DAP  GROuP 

NOV  10,  1966  (MAIN)  PAGE  562 

l ®q,r-axes  reaction  control  system  autopilot 


USER'S  OWN  PAGE  NO. 1 


0001  . _ 1 24,2000  SANK  24 

0002  REF 4 LAST  542  E6  EBAN<=  DT 


■R0003  TRE  FOLLOWING  T5RUPT  ENTRY  BfjSTSB  THe  PROGRAM  WHICH  CONTROLS  tHe  Q.R-AXIS  ACTION  OF  tHe  LeM  USING  THe  RCS  JETS. 

roood  the  nominal  time  between  the~  d,r-axis~rupts  is  100  ms  (unless  THeT  trim  gikbal  control  system  is  used,  i n wtticft 

RC007  CASE  THIS  PROGRAM  IS  IDLeT. 


0008  24,2000  02555  0 NULLFILT  2CA0R  FILDUMMY 

C0008  REF  1 24,2001  54006  0 

" "0009  REF  1 7 24,2002  3 2705  1 QRAXIS  CAF  MS30QR  RESET  TIME  IMMEDIATELY?  DT  = 30  MS 

0010  REF  5 LAST  560  2"4l 2003  54-  030  0 TS  TIMES 


Mil  REF  3T2  LAST  557  24,2004  22  016  0 LXCH  BANKRUPT  INTERRUPT  LEAD  IN  (CONTINUED) 

0012  — 24,2005  0 0006  1 " EXTEND 

COTE  REF  Tl  LAST  557  24,2006  22  012  1 QXCH  QRUPT 


Rooi4  Set  up~a  dummt'kalman  filter  TsRUPt,  Tthis  may~be  Reset  to  the  kalman^filteR  initialization  pass,  if  the  trim 

R0016  GTMBAL  CONTROL  SYSTEM  SH0ULP~g^U5ElTrr~ 


0017  24,2007  0 0006  1 EXTEND 

0018  REF  1 24*2010  3 2001  1 OCA  NULLFILT 

0019  REF  7 LAST  560  24,2011  52  346  1 PXCH  ~ TSADR 


R0020  CALCULATE  LEM  BODY  RATES  FOR  Q AND  R AXES; 

■R0021  THIS  COMPUTATION  IS  VALID"  FOR'  BOTH"  A'SCeNT  “AND  DESCENT  SINCE  THE  OFFSET  ACCELeRATI ON  TERM  IS  INCLUDED  ALWAYS, 
RO023  " OUT  7HA5~“VAI.UE  ZERO  IN~De5CeNT*  AND  SINCE  THE  WEIGHTING  FACTORS  ARE  IN  ERA5ABLE  AND  DISTINCT. 


ROQ25 

first »~construet~“Y"  antt  z xdu“ 

INCREMENTS: 

U026 

RtF  13  LA5T  558 

24,2012 

30  033 

l 

CAE  CDUY 

2 ' S COMPLEMENT  MEASUREMENT  bCALED  A|  Hi 

002? 

REF  TS8  OAST  555 

24,2013 

54  001 

I 

TS  L 

(5AVE  FOR  UPDATING  OF  OLDYFORQ) 

0028 

24,2014 

0 0006 

1 

EXTEND 

form  increment  in  cduy  for  last  100  MS 

0029 

REF  2 LAST  558 

24,2015 

2 1 ’ 433 

0 

vlSU  OLDYFORQ 

(100  MS  OLD  CDUY  SAVED  FROM  LAST  PASS) 

0TT3O 

REF  O LAST  562 

24,2016 

2 3 ' 433 

T 

EXCFT  OLDYFORQ 

UPOATt  OLDYFORQ  WITH  NEW  CDUY  VALUE 

0031 

24,2017 

0 0006 

1 

EXTEND 

RESCALE  DLLlA  CDUY  FROM  PI  RAdIANs  10 

0032 

REF  30  LAST  544 

24,2020 

7 7651 

O 

MP  BIT7 

P I / 2 ( 6 ) RADIANS  BY  MULTIPLYING  BY  64 

0033 

RtF"  6TTAST  559 

24,2021 

22  065 

1 

LXCH  I TEMPI 

SAVE  l'S  COMPLEMENT  VALUE  TEMPORARILY 

0034 

REF  16  LAST  558 

24,2022 

30  034 

0 

CAE  CDUZ 

2 ' S COMPLEMENT  MEASUREMENT  SCALED  AT  PI 

0035 

REF  189  LA5T  562 

24,2023 

54  001 

1 

TS  L 

(SAVE  FOR  UPDATING  OF  OLDZFORQ) 

0036" 

24T2024 

HD  0006 

EXTEND"  - 

FORM"  INCREMENT  WTDU2  FOR  LA5T  100  MS 

0037 

REF  2 LAST  5SS 

24,2025 

21  * 434 

1 

MSU  OLDZFORQ 

(100  MS  OLD  CDUZ  SAVED  FROM  LAST  PASS) 

OO38 

REF  3 LAST  562 

24*2026 

23' 434 

0 

LXCh  OLDZFuRQ 

UPDATE  OLDZFORQ  WITH  NEW  CDUZ  VALUE 

0039 

24,2027 

0 0006 

1 

" EXTEND"  - 

RESCALE  DELTA  "CDUZ"  FROM  PI  RADIANS  TO 

0040 

RtF  31  LA5T  562 

24,2030 

7 7651 

0 

MP  BIT7 

PI/2  (6)  RADIANS  BY  MULTIPLYING  BY  64 

^ 0041 

REF  24  LAST  538 

24,2q31 

22  066 

1 

LXCH  ITEMP2 

SAVE  l'S  COMPLEMENT  VALUE  TEMPORARILY 
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l eG^R.AXES  reaction  control  system  autopilot  user»s  own  page  no,  2 

P0042  " "SECOND  TTRANSpORM  CPU"  I^EMNTS"  TO  BODY-ANGlE  INCREMENTS; 


0043 

REF 

2 

LAST  181 

24.2032 

31*406 

1 

CAE 

M3 1 

MATRIX*VECTOr (WITH  X COMPONENT  ZERO) 

0044 

24.2033 

0 0006 

1 

EXTEND 

0045 

REF 

68 

LAST "562 

24.2034 

7 0065 

IT 

MP 

I TEMP  1 

M3 1 * I TEMPI  s M3 1 * DELTA  CDUY 

0046 

REF 

16 

LAST  540 

24,2035 

54  070 

1 

TS 

ITEMP3 

0047 

REF 

4 

LAST  182 

24.2036 

31*403 

1 

CAE 

M32 

M32  * ITEMP2  = M32  # DELTA  CDUZ 

0048 

24,2037 

0 0006 

1 

extend 

0049 

REF 

25 

LAST  562 

24 ,2040 

7 0066 

0 

MP 

ITEMP2 

DELTAR  = M3 1*  (DEL  CDUY)  ♦ M32MDEL  CDUZ) 

0050 

REF 

17 

LAST  563 

24,2041 

26  070 

1 

ADS 

I TEMP 3 

R.BODY-ANGLE  INCREMENT  SCALED  AT  PI/2(6) 

OO5I 

REF 

2 

LAST  182 

^4*2042 

31*405 

1 

CAE 

M2 1 

MATRIX*VECTOR(WITH  X COMPONENT  ZERO) 

0052 

24 .2043 

0 0006 

1 

EXTEND 

CLOBBERS  ITEMP2=dEL  CDUZ,  FOR  EFFICIENCY 

0053 

REF 

69 

LAST  563 

24 ,2044 

7 0065 

0 

MP 

I TEMPI 

M2 1 * I TEMP  1 = M21  # DELTA  CDUY 

0054 

REF 

26 

LAST  563 

24,2045 

56  066 

1 

XCH 

ITEMP2 

M22  * ITEMP2  = M22  * DELTA  CDUZ 

0055 

24,2046 

0 0006 

1 

EXTEND 

0056 

REF 

5 LAS  1 182 

24,2047 

7 1401 

1 

MP 

M22 

DELTAQ  = M2l#  (DEL  CDUY)  + M22MDEL  CDUZ) 

0057 

REF 

27 

LAST  563 

24,2050 

26  066 

"0 

ADS 

ITEMP2 

Q-BODY-ANGLE  INCREMENT  SCALED  AT  PI/2  (6) 

R0058 

FINALLY 

* derive  q and  r body 

ANGULAR 

rates: 

0059 

24,2051 

0 0006  1 

EXTEND 

WFORQR  IS  K/ (NOMINAL  DT)  SCALED  AT  16 

0060 

REF 

24 ,2052 

7 I656""T~ 

HP 

WFORQR 

FORM  WEIGHTED  VALUE  OF  MEASURED  DATA 

0061 

REF 

3 

LAST 

558 

24,2053 

57*417  1 

XCH 

OMEGAQ 

SAVE  AND  BEGIN  TO  WEIGHT  VALUE  OF  OLD  W 

0062 

24,2054 

0 0006  1 

EXTEND 

(1-K)  IS  SCALED  AT  1 FOR  EFFICIENT  CALC 

~00{j3 

REF 

2 

LA5T  540 

24,2055 

7 1657  0 

HP 

(l-OQR 

(X  CHANGES  EVERY  2 SECS  IN  ASCENT) 

0064 

REF 

2 

L«S  1 

558 

24 ,2056 

6 1616  1 

Ad 

Jt 1 RA 1 EQ 

WEIGHTED  TERM  DUE  TO  JET  ACCELERATION 

0065 

REF 

4 

LAST 

558 

24,2057 

6 1642  0 

AD 

AOSQTERM 

TERM  DUE  TO  ASCENT  OFFSET  ACCELERATION 

0066 

RtF 

4 

LAST  563 

" 24,2060" 

27*417  0 

~RD5 

OMEGAQ 

TOTAL '■RATE-  ESTIMATE  SCALED  AT  Pl/4 

U067 

REF 

18 

LA5T 

563 

24,2061 

30  070  0 

CAE 

I TEMP 3 

GET  DELTAR 

0068 

24,2062 

cr  0006  1 

“EXTEND" 

"WFORQR  IS  K/ (NOMINAL  DT)  SCALED  AT  16 

0069 

REF 

4 

LAS1 

563 

24,2063 

7 1656  1 

HP  " 

WFORQR 

FORM  WEIGHTED  VALUE  OF  MEASURED  DATA 

OO7O 

REF 

3 

LA5T 

558 

24,2064 

57*421  1 

XCH 

OMEGAR 

SAVE  AND  BEGIN  TO  WEIGHT  VALUE  OF  OLD  W 

0071 

24,2065 " 

"0  0 00  6 I 

EXTEND" 

(I-K)  15  SCALED  AT  1 FOR  EFFICIENT  CALC 

0072 

ref 

3 

last 

563 

24 ,2066 

7 1657  0 

HP 

(l-K)QR 

<k  changes  every  2 secs  in  Ascent ) 

0073 

REF 

2 

LAST 

558 

24,2067 

6 1617  0 

AD 

JETRATER 

WEIGHTED  TERM  DUE  TO  JET  ACCELERATION 

0074 

"REF 

3 

LAS  T 

558 

" 2 4 , 207  0 

6 1643  1" 

'AD 

A0SRTERM  " 

TERM  DUE  TO  ASCENT  0FF5ET  ACCELERATION 

OO75 

REF 

4 

LAST 

563 

2 4,2071 

27*421  0 

ADS 

OMEGAR 

TOTAL  RATE  ESTIMATE  SCALED  AT  PI/4 

007502  RtF 

r 

24,2072 

0 1614  0 

TC 

QJUMPADR 

007504 

RtF 

1 

24,2073 

3 2164  0 

SKIPQRAX  CA 

NQRMQADR 

007508 

REF 

~ 2 

LAS  1 

563 

24,2074 

55*614  1 

TS 

QJUMPADR 

" 00751  “ 

REF  211 

LA5 1 557 

24,2075 

3 7665  0 

TAT 

"ZERO 

007512 

REF 

3 

LAST 

563 

24 ,2076 

55*616  0 

TS 

JETRATEQ 

OO75 1 4 

REF 

3 

LAST 

563 

24 ,2077 

55*617  1 

T 5 

JETRATER 

007516 

REF" 

"""Z"  LAST 

558 

24,2100 

3 1626  1 

^CA 

TOR 

OO75I8 

S:F 

1 

24,2101 

6 2721  1 

AD 

NEGCSP2 

OO752 

REF 

348 

Last 

557 

24,2102 

10  000  0 

CC5 

A 

007522 

REF 

— r 

24,2103 

0 2113  "0"  " 

“ TC  " 

QRTDRQUE 
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l sq*r-axes  reaction  control  system  autopilot 

USER’S  OWN  PAGE  NO.  3 

OO7524  REF  28  LAST  560 

24,2104  1 4606  1 

TCF 

RESUME 

007526  REF  2 LAST  563 

24 » 2T05  0 2113  0 

TC 

QRTORQUE 

007528  RcF  4 LAST  563 

24,2106  4 1616  0 

cs 

UETRATEQ 

00753  REF  5 LAST  563 

24,2107  27*417  0 

ADS 

OMEGAQ 

007532  REF  4 

LAST 

563 

24,2110 

4 1617  1 

CS 

JETRATER 

OO7534  REF  5 

LAST 

563 

24,2111 

27*421  0 

ADS 

OMEGAR 

” 007536  REF  29 

LAST 

564 

24,2112 

1 4606  1 

T CF 

resume 

007538  REF  "149 

LAST 

559 

24,2113 

6 7657  1 

QRTORQUE  AD 

ONE 

OO754 

24,2114 

0 0006  1 

EXTEND 

007542  REF  25 

LAST 

557 

24,2115 

7 7653  1 

MP 

8IT5 

007544  REF  190 

LAST 

562 

24,2116 

3 0001 "0"" 

~CA 

L 

007546 

24,2117 

0 0006  1 

EXTEND 

007546  REF  1 

24,2120 

7 2722  0 

MP 

16/25QR 

OO755  REF  3 LAST  563 

24,2121 

55*626  0 

TS 

TqR 

007552 

24,2122 

0 0006  1 

EXTEND 

007554  REf  3 LAST  558 

24,2123 

7 1620  0 

MP 

NO.QJETS 

007556  REF  191  LAST  564 

24,2124 

30  001  0 

CAE 

L 

007558 

24,2125 

0 0006  1 

EXTEND 

00756  REF  1 

24,2126 

7 1630  1 

MP 

1JACCQ 

007562  REf  5 LAST  564 

24,2127 

55*616  0 

TS" 

jetrateq 

007564  REF  3 LAST  540 

24,2130 

27*640  0 

ADS 

sumrateq 

007566  REF  4 LAST  564 

24,2131 

31*626  1 

CAE 

tur 

007568 

"2472132 

0 0006  1 

EXTEND 

00757  REf  2 LAST  558 

24,2133 

7 1621  1 

MP 

NO.RjETS 

007572  REF  192  LAST  564 

24,2134 

30  001  0 

CAE 

L 

“ 007574 

24,2135 

0 0006  1 

""EXTEND"" 

007576  REf  1 

24,2136 

7 16310 

MP 

1JACCR 

007578  REF  5 LAST  564 

24,2137 

55*617  1 

TS 

JETRATER 

00758  RTF  2 LA51  117 

27,2140 

27*641  T 

" A D S" 

SUMRATER 

007582  REF  " 5 LAST  563 

24,2141 

31*656  0 

" "CAE 

WFORQR 

007584 

24,2142 

0 0006  1 

EXTEND 

007586  RtF  5 LAST  564 

2472143 

7 1626  0 " 

MP 

TQR  " 

007588  REF  1 

24,2144 

6 1660  0 

AD  " 

(1-0/8 

"00759 

24,2145  0 0006  1 

EXTEND 

007593  REF  36  LAST  557  2"4',"ZT4"6  7”"7E5V"0  MP BTT4 — 

00759V "REF  70  "LAST  563  24,2147  22""065  1 LXCH  ITEMP1 

BSC  i — racr  ctt.  — 9%.  c n 5 1 , a 1 t r r»c-  irrmircn 


- C07596  REF  6 LAST  564 

—24,2150 

31*616  1" 

"CAE  JETRATEQ 

CTO  75  9 8 

24,2151 

0 0006  1 

EXTEND 

0076  REF  71  LAST  564 

24,2152 

7 0065  0 

MP  I TEMPI 

007602  REF  7 LAST  564 

24,2153 

55*616  0 

TS  JETRATEQ 

007604  "REF  6 LAST  564 

24,2154 

31*617  X 

" CAE  JETRATER 

007606 

24,2155 

0 0006  1 

EXTEND 

OO76O8  REF  72  LAST  564 

24,2156 

7 0065  0 

MP  I TEMPI 

00761  'REF"  7 LAST  564 

24,2X57 

55*617  T" 

TS  """JETRATER 

007612  REF  212  LAST  563 

24,2160 

'3' 7665  0 

CA  ZERO 

"007614  REF  4 LAST  564 

24,2161 

55*620  0 

TS  NO.QJETS 

OCT  616 

"RcF 

" 3 ' 

XAS1— 5"6"a-"  " 

' 24 ,2162 

551621 

"X 

""  'TS  NO.RJETS 

"007618 

REF 

262 

LAST  545 

2^,2163 

0 0002 

"0~ 

TC  Q"" 

00762 

REF 

1 

24,2164 

02165 

X 

NORMQADR  GENADR  NORMALQ 

00763 

REF 

26 

LAST  557  " 

24,2165 

3 7643 

1 

NORMALQ  CAF  6IT13 

checking  attitude  hold  bit 
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L 

@Q»R- 

Axes 

reaction 

CONTROL  SYSTEM  AUTOPILOT 

USER'S  OWN  PAGE  NO.  4 

0077 

24,2166 

0 0006  1 

EXTEND 

0078 

24,2167 

02  031  1 

RAND 

31 

BITS  INVERTED 

0079 

24,2170 

0 0006  1 

EXTEND 

0080 

REF 

1 

24,2171 

1 2205  0 

3ZF 

CHKBIT10 

0061 

REF 

38 

LAST  557 

24,2172 

3 7642  0 

CAF 

BIT14 

ATT  HOLD  BIT  NOT  PRESENT.  CHECK  FOR  AUTO 

0082 

24,2173 

0 0006  1 

EXTEND 

0083 

24,2174 

02  031  1 

RAND 

31 

0084 

24,2175 

0 0006  1 

EXTEND 

0085 

“ REF 

1 

24,2176 

1 2743  1 

BZF 

ATTSTEER 

AUTOMATIC  STEERING,  CHECK  FOR  RATE  HOLD 

0086 

24,2177 

0 0006  1 

EXTEND 

IF  MODE  SELECT  SW  OFF  DO  DAPIDLER  NEXT 

0087 

REF 

T 

24,2200 

3 2204  0 

OCA 

IDLEADRO 

0088 

REF 

8 

LAST  562 

24,2201 

52  346  1 

DXCH 

T5ADR 

0089 

REF 

30 

LAST  564 

24,2202 

1 4606  1 

TCF 

RESUME 

0090 

24,2203 

03141  0 

IDLEADRO  2CADR 

DAPIDLER 

CG090 

REF 

3 

LAST  560 

24,22o4 

46006  0 

0091 

REF 

45 

LAST  557 

24,2205 

3 7646  1 

CHKB1T10  CAF 

BIT10 

B I T 1 0 = 1 FOR  MIN  IMP  USE  OF  RHC 

0092 

REF 

30 

LAST  550 

24,2206 

7 0765  1 

MASK 

DAPBOOLS 

0093 

24,2207 

0 0006  1 

EXTEND 

0094 

REF  1 

24,2210 

1 2250  o 

szr 

CHEKSTIK 

IN  ATT-HOLD/RATE-COMMAND  IF  BIT10=0 

0095 

REF 

7 

LASI  558 

24,2211 

30  773  1 

CAE 

DELAYCTR 

SET  TO  2 BY  RUPT  10 

0096 

24,2212 

0 0006  1 

EXTEND 

0097 

REF 

1 

24,2213 

1 2504  0 

3ZF 

xtrans 

1! 

OO98 

REF 

1 

24,2214 

3 2713  0 

CA 

mintadr 

0099  REF  l 24,2215“T5T5WT~  JS  ~ TJEtADR 


"0TUT5  R"EF  45  LAS  I 549  24,2216  3 7657  1 CA  B I T 1 

Dior  24,2217  0 0006  1 EXTEND 

0102  24,2220  02  031  1 RAND  3IT^ 

TTTOI”  24,2221  TT00CT6“T  EXTEND 

0104  REF  1 24,2222  1 3453  1 BZF  2JETS+Q 


0105 

~ REF~ 

28  LAST 

546 

24,2223 

3 7656  0 ” 

~TA  BTT2 

0106 

24,2224 

0 0006  1 

EXTEND 

0107 

24,2<:25 

02  031  1 

RAND  31 

CTOT 

24  vzzzr 

otkkjs  r 

EXTEND 

0109 

REF 

1 

24,2227 

1 3271  1 

3ZF  2UETS-Q 

UX10 

RcF 

26  LAST 

564 

Ti,2i30 

3 7653  0 

CAT  BTT5 

0111 

24,2231 

0 0006  1 

EXTEND 

0112 

24,2232 

02  031  1 

RAND  31 

0113 

24,2233 

0 0006  I 

EXTENT? 

0114 

REF 

1 

24 ,2234 

1 3433  1 

8ZF  2UETS+R 

0115 

IREF 

39  LA5T 

556 

24 ♦ 2235 

3 <652”  I 

LA  BIT6 

0116 

24,2236 

0 0006  1 

extend 

0117 

24,2237 

02  031  1 

rand  31 

0118 

24 ,2240 

0 0006  1 

extend 
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L ~ @Q.R-AaES  REACTION  CONTROL  SYSTEM.  AUTOPILOT 


USER  IS  OWN  PAGE  NO.  " 5 


0119 

REF 

1 

24,2241 

1 3224 

1 

3ZF 

2JETS-R 

0120 

ref 

2 

LAST  565 

24,2242 

1 2504 

0 

' tcf 

XTRANS 

0121 

REF 

1 

24,2243 

3 2702 

0 

mintjet  caf 

+T6TJMIN 

0122 

" REF 

6 

LAST  564 

24,2244 

55'626 

0 

ts 

TQR 

" 0123 

" REF 

213 

LAST  564 

24,2245 

3 7665 

0 

CA 

ZERO 

OX  2 4 

REF 

8 

LAsT  565 

24,2246 

54  773 

0 

~ Ts" 

delayctr 

~ 0125 

REF 

1 

24,2247 

1 2554 

0 

TCF 

TORQUEV 

0X26 

REF 

34 

LAST  553 

24,2250 

3 7641 

0 

CHEKSTIK  CAF 

BIT  15 

OUT-OF-DETENT  BIT 

0127 

24,2251 

0 0006 

1 

EXTEND 

0128 

24,2252 

02  031 

1 

RAND 

31 

BITS  INVERTED 

0129 

24*2253 

0 

0006 

1 

EXTEND 

0130 

ref 

I 

24,2254 

1 

2317 

1 

3ZF 

Rhcactiv 

BRANCH  If  out  of  DETENT 

0131 

" RTF 

46 

LAST 

565 

24*2255 

3 

7657 

1 

TA 

BTTl 

OUR  RATE  COMMAND  BIT 

0132 

REF 

31 

LAST 

565 

24,2256 

7 

0765 

1 

MASK 

DAPBOOLS 

0133 

24,2257  0 0006  1 

EXTEND 

0134 

REF  2 LAST  565 

60  6 £7 43  0 

3ZMF  ATTsTEER 

AUTOMATIC  STEERING*  CHECK  FOR  RATE  hOLD 

R0135 

WE  were  in  rate  command  and  rates  must  be  made  smaller 

R0136 

ARE  RATES  SMALL  ENOUGH  NOW 

0137 

REF  12  LASI  558 

24,2261  3 1416  0 

CA  OMEGAP 

0138 

24,2262  0 0006  1 

— Extend- 

0139 

24,2263  7 0000  0 

square 

0140 

REF  73  LAST  564 

24,2264  52  066  0 

DXCH  ITEMP1 

0141 

REF  6 LAST  564 

24*2265  3 1417  1 

CA  OMEGAQ 

0142 

24,2266  0 0006  1 

extend 

“0X43 

24,2267  7 0000  0 “ 

SqUARE  “ 

0144 

REF  ?4  LAST  566 

24,2270  20  066  0 

DAS  I TEMP 1 

0145 

REF  6 LAST  564 

24,2271  3 1421  1 

_ CA  OMEGAR 

0146 

24,2272  0 0006  1 

EXTEND 

0147 

2a ,2273  7 0000  0 

SQUARE 

0148 

REF  75  LAST  566 

24,2274  20  066  C 

DAS  " I TEMPI 

KQ1AV 

WE  NOW  HAVE  SQUARED  MAGNITUDE  OF  RATE  VECTOR  IN  ITEMP1 

0 1 50 

Ktr  1 

24,2275  4 2707  1 

C5  1 6/32400" 

1 DEg/SEC  SCALED  AT  FI.PI/ 16 

0151 

REF  76  LAST  566 

24,2276  6 0065  1 

AD  ITEMP1 

0152 

24,2277  0 0006  1 

EXTEND 

0153 

REF  1 

"24,2300  6 2306  O 

3ZMF  RATESMAL 

RG154 


THE  RATE  IS  MOT  SMALU  ENOUGH  YET< 


01.55 

REF 

7 

LAST 

566 

24,2301 

3 1417~r“ 

CA 

omegaq 

0156 

ref 

1 

24,2302 

55*424  "0 — 

TS 

qratedif 

0X57 

"REF 

/ 

LA~5T 

566 

24 , 2303~ 

3 1421  1 

CA 

"OMEGAR 
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USER* S OWN  PAGE  nO«  6 


0158 

REF 

1 

24,2304 

55*425 

1 

TS 

RRATEDIF 

0159 

REF 

1 

24,2305 

1 2352 

0 

TCF 

OBEYQRRC 

0160 

REF 

47  LAST  566 

24,2306 

4 7657 

0 

RATESMAL  CS 

B I T 1 

0161 

REF 

32  LAST  566 

24,2307 

7 0765 

1 

MASK 

DAPBOOLS 

RATE  COMMAND  BIT  SET  TO  ZERO 

0162 

REF  33  LAST  567 

24,2310 

54  765 

1 

TS 

DAPBOOLS 

0163 

REF 

30  LAST  558 

24,2311 

30  032 

0 

CAE 

CDUX 

0164 

REF 

7 LAST  558 

24,2312 

54  774 

1 

TS 

CDUXD 

0165 

”REF 

14  LAST  562 

24,2313 

30  033 

1 

CAE 

CDUY 

0166 

REF 

4 LAST  5 58 

24,2314 

54  775 

0 

TS 

CDUYD 

0167 

REF 

17  LAST  562 

24,2315 

30  034 

0 

CAE 

CDUZ 

0168 

REF 

4 LAST  558 

24,2316 

54  776 

0 

TS 

CDUZD 

0169 

REF 

48  LAST  567 

24,2317 

3 7657 

1 

RHCACTIV  CAF 

B I T 1 

0170 

REp 

34  LAST  567 

24,2320 

7 0765 

1 

mask 

DAPBOOLS 

0171 

24,2321 

0 0006 

1 

extend 

0172 

REF 

3 LAST  566 

24,2322 

1 2504 

0 

SZF 

xtrans 

LET  P AXIS  SET  THE  RATE  COMMAND  BIT 

RO 173 

COMPUTE  RATE  ERRORS 

"Oil  74 

REF 

3 LAST  548 

24,2323 

30  04 2 

1 

”CAE 

Q-RHCCTR 

0175 

24,2324 

0 0006 

1 

EXTEND 

0176 

REF 

21  LAST  551 

24,2325 

7 7647 

1 

TP 

BIT9 

0177 

REF 

I ' 

24,2326 

3 2 714 

1 

CA 

-.88975 

0178 

24,2327 

0 0006 

1 

extend 

0179 

ref 

193  LAST  564 

24,2330 

7 0001 

1 

mp 

L 

-Q  RATE  COMMAND  SCALED  AT  PI/4 

”0180 

REF 

8 LAST  566 

24,2331 

6 1417 

1 

AD 

OMESAq 

0181 

REF 

2 LAST  566 

24,2332 

55*424 

0 

TS 

QRATEDIF 

0 182 

RtF 

8 

LAST 

548 

24,2333 

30  044  1 

CAE 

R-RHCCTR 

OI83 

24,2334 

0 0006  1 

EXTEND 

0184 

REF 

22 

LAST 

567 

24,2335 

7 7647  1 

MP 

BIT9 

0185 

tte:f~ 

2 

LAST 

567 

”24,2336 

3 27I4TI 

"" CA” 

-.88975 

0186 

24,2337 

0 0006  1 

EXTEND 

0167 

REF 

194 

LAST 

567 

24,2340 

7 0001  1 

"TP 

L 

-R  RATE  COMMAND  SCALED  AT  Pl/4, 

0188 

REF 

8 

LAST 

566 

24,2341 

6 1421  1 

AD 

OMEGAR 

0189 

REF 

2 

LAST 

567 

24,2342 

55*425  1 

T5 

RRATEDIF 

RO  1 90 

TART  COUNTERS 

0191 

REF 

214 

LAST 

566 

44,234 3 

3 7665  0 

CAF 

ZERO 

0192 

REF 

A 

LAST 

548 

24,2344 

54  043  1 

TS 

P-RHCCTR 

0193 

”R£F 

zr 

LTST 

567 

24 ,2345 

54  042  0 

TS 

Q-RHCCTR 

0194 

REF 

4 

LAST 

567 

24 ,2346 

54  044  0 

TS 

R-RHCCTR 

0195 

REF 

1 

24,2347 

3 2710  0 

CAF 

BIT8.9 

0196 

24,2350 

Cr  0006  1 

EXTEND 

0197 

24,2351 

05  013  0 

WOR 

13 

0l9B  REF  T - 24,2352  3 2734  0 OBEYQRRC  CA RT  JET  ADR 

0199  REF  2 LAST  565  24,2353  55*514  1 TS TJETADR 


0200  rEF  3 LAsT  567  24,2354  11 '424  0 CCS QrSTTDTF 
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0201 

REF 

i 

24,2355  1 2416  1 

TCF 

POSqEROR 

0202 

REF 

i 

24,2356  1 2360  1 

TCF 

NOQJETS 

0203 

REF 

l 

24,2357  1 2365  1 

TCF 

NEGQEROR 

0204 

REF 

3 last  567 

24,2360  11*425  1 NOQJETS 

CCS 

rratedif 

CHECK  sign  Of  rate  ERROR  AND  GET  ABVAL 

0205 

REF 

l 

24,2361  1 2445  1 

TCF 

r+,chkdb 

0206 

REF 

4 LAST  567 

24,2362  1 2504  0 

TCF 

xtrans 

0207 

REF 

1 

24,2363  1 2456  0 

TCF 

R-,CHkDB 

0208 

REF 

5 LA5T  568 

24,2364  1 2504  0 

TCF 

XTRANS 

~0209  RIF  4"  LAST  549 

0210 

0211  REF  2 LAST  568 


24 


24 

24 


2365 


2366 

2367 


6 1 5 0 6 0 
0 0006  1 
6 2360  0 


NEGQERCR  AD  “ -RATEDB 

extend^ 

bzmf  noqjets 


0212 

REF 

4 LAS  1 568 

24,2370  Tr*425  1 

~TCS~" 

RRATEDIF 

- — 

0213 

RcF 

1 

24*2371  1 2402  1 

TCF 

R+Q-CHKR 

"0214 

REF 

1 

24,2372  1 2374  1 

TCP 

Q-NORJTS 

0215 

REF 

1 

24,2373  1 2407  1 

TCF 

R-Q-CHKR 

0216 

REF 

4 LAST  567 

24,2374  4 1424  0 

Q-NORJTS  CS 

QRATEDIF 

0217 

REF 

1 

24,2375  55*443  1 

TS 

RATEDIF 

0218 

REF 

4 LAST  549 

24*2376  6 I5O7  1 

AD 

-2JETLIM 

"0119 

24,2377  0 0006  1 

extend 

0220 

RcF 

2 LAST  565 

24,2400  6 3453  0 

bzmf 

2 JET  S+Q 

0221 

REF 

1 

24,2401  1 3447  1 

TCF 

4JETS+Q 

0222  REF"  5 LAST "56,8 


0223 


"0224" 

0226 


2 LAST  568 
"1 
“I 


24 

24 

24 

24 

24 


0240"  REF 


24 


2402 

2403 


6 1506 "0" 
0 0006  1 


2404 

2405 

2406 


6 2374  0 

0 3656  1 

1 3360  0 


R+Q-CHKR  AO  -RATEDB 
EZTEND" 


"BZMF  Q-TT0RJT5 
TC  EDOTVGEN 
TCF  "2-V.RATE 


0227 

"RIF~ 

6 LAST  568 

24,2407  6 1506  0 "R-Q-CHKR 

"AD"  -RATEDB 

0228 

24,2410  0 0006  1 

EXTEND 

0229 

REF 

3 LA5I  568 

24*2411  6 2374  0 

"BZMF  Q-NORJTS 

0230 

REp 

1 

24,2412  0 3652  0 

TC  EDOTUGEN 

0231 

24,2413  0 0006  1 

EXTEND 

023? 

REF 

5 LA5I  568 

24,2414  61T425  0 

SU  "RRATEDIF 

0233 

REF 

1 

24*2415  1 3405  1 

TCF  2+U.RATE 

U234 

Kr.r 

( LAST  S68 

24,2416  6 1506  0 POSQEROR 

AD"  -RATEDB 

0235 

24*2417  0 0006  1 

EXTEND 

0236" 

R&F 

3 LAST  568 

2*t,242u  6 236U  0 

BZMF  NOQJETS 

V2  J7 

K&r 

0 LA8I  568 

24,2421  11*425  1 

CCS  RRATEDIF 

0238 

— — 

REF 

— rmr 

1 

24,2422  1 2433  0 

TCF  R+Q+CHKR 

2424  1 2440  1 


TCF 


R-Q+CHKR 


0241  "REF-  5 LAST  568  24*2425  3 1424  1 Q + N0R"JT5  CA 


GRATED  IF 
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0242 

REF 

2 LAST  568 

24,2426 

55*443 

1 

TS 

RATEDIF 

0243 

REF 

5 LAST  568 

24,2427 

6 1507 

1 

AD 

-2 JETLIM 

0244 

24,2430 

0 0006 

1 

EXTEND 

0245 

REF 

2 LAST  565 

24,2431 

6 3271 

0 

BZMF 

2JETS-0 

' 0246 

REF" 

1 

24,2432 

1 3265 

1 

TCF 

4JETS-Q 

02a7 

REF 

8 LAST  560 

24,2433 

6 1506 

0 R+Q+CHKR 

AD 

-RATEDB 

0248 

24,2434 

0 0006 

1 

extend 

0249 

REF 

2 LAST  568 

24,2435 

6 2425 

0 

8ZMF 

Q+NORjTS 

0250 

RtF 

2 LAST  568 

24,2436 

0 3652 

0 

TC 

EDOTUGEN 

02  51 

REF 

‘ 1 ' 

24,2437 

1 3245 

0 

tcf 

2-U.RATE 

02  52 

REF 

9 

LAST  569 

24,2440 

6 

1506  0 R-Q+CHKR 

AD 

-RATEDB 

0253 

2a ,2441 

0 

0006  1 

EXTEND 

0254 

REF 

"3 

LAST  569 

24,2442 

6 

2425  0 

BZMF 

Q+NORJTS 

0255 

RtF 

2 

LAST  568 

24,2443 

0 

3656  1 

TC 

edotvgen 

0256 

'REF 

1 

24,2444 

1 

3312  0 

TCF 

2+V.RATE 

0257 

ref 

10  LAST  569 

24,2445 

6 1506 

0 

r+*chkdb  ad 

-RATEDB 

0258 

24,2446 

0 0006 

1 

Extend 

0259 

REF 

6 LAST  568 

24,2447 

6 2504 

1 

BZMF 

XTRANS 

0260 

REF 

7 LAST  568 

24,2450 

3 1425 

0 

CA 

RRATEDIF 

0261 

REF 

3 LAST  569 

24,2451 

55*443 

1 

TS 

RATEDIF 

0262 

REF 

6 LA5T  569 

24,2452 

6 1507 

1 

AD 

-2 JETLIM 

0263 

24,2453 

0 0006 

1 

EXTEND 

0764 

REF 

2 LA5 1 566 

24 ,2454 

6 3224 

~0 

"BZMF" 

2JETS-R 

0265 

REF 

1 

24,2455 

1 3220 

0 

TCF 

4JETS-R 

0266 

0267 

0268 


REF  11  LAST  569 
REF  7 LAST  569 


24 

24 

24 


2456 

2457 
2460 


6 1506  0 
0 0006  1 
6 2504  T 


R-iCHKDB  AD  -RATEDB 
EXTEND 

~ BZ1MF" " XTRANS 


0269 

REF 

8 

LASl 

569 

24,2461 

4 1425  1 

""CS 

"RRATEDIF 

0270 

REF 

4 

LAST 

569 

24,2462 

55*443  1 

TS 

RATEDIF 

0271 

REF 

7 

LAST 

569 

24,2463 

6 1507  1 

AD 

-2JETLIM 

0272 

24,2464 

0 0006  1 

"EXTEND 

0273 

REF 

2 

LAS  f 

565 

24,2465 

6 3433  0 

BZMF 

2JETS+R 

0274 

REF 

1 

24,2466 

1 3427  1 

TCF 

4JETS+R 

0275  REF  5 LAST  569  24*2467  11*443  1 RTJETIME  CCS  RATEDIF  SCALED  AT  PI/4  RADIANS/SECOND 

0276  REF  150  LAST  564  24,2470  6 7657  1 A[)  ONE 


07 7T 

24,2471 

1 2473 

1 

TCF +7 

0278 

REF 

1 5 1 LAS  1 5 69 

24,2472 

6 7657 

1 

AD  ONE 

ABS(RATEDIF) 

0279 

24 ,2473 

0 0006 

1 

EXTtND 

0280 

REF 

3 LAST  552 

24,7474 

7 1471 

0 " 

MP  1/NJETAC 

SCALECT  AT  2(8) /PI  SECOND ( 2 ) /RADI ANS 

0281 

24,2475 

0 0006 

1 

EXTEND 

0282 

REF 

37  LAST  564 

24 ,2476 

7 7654 

0 

" MP  BIT4 

SCALED  AT  2(3)  SECONDS 

0283 

Kcr  195  LASl  567 

2a ,2477 

30  ocrr 

"O' 

""CAE  C^" 

0284 

24,2500 

0 0006 

1 

EXTEND 

0285 

REF 

1 

24,2501 

7 2703 

0 

MP  25/32, QR 

TJETNOW  PROPERLY  SCALED  IN  A 

0286 

REF 

7 LAST  566 

Z4,Z5QZ  55*626 

0 

TS  TOR" 

AT  2(4)16/25  5EC0ND5 
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0287  REF  2 "LAST  566  24,2503  1 2554  0 TCF  TORQUEV 


Rq288  TRANSLATION  WItHqUt  ROTATION  IS  ACCOMPLISHED  IN  XtRANS  SeCtIQN 


0289 

REF 

215' LAST  567 

24,2504 

3 7665  0 

XTRANS 

CA  ZERO 

0290 

REF 

6 LAST  554 

24r,2505 

55*504  0 

Ts  AdDTlT  6 

0291 

REF 

5 LAST  554 

24,2506 

55*503  1 

TS  ADDT6JTS 

0292 

" REF 

40  LAST  565 

24,2507 

3 7652  1 

CA  BIT6 

02<?3 

REF 

35  LAST~567 

24,2510 

7 0765  1 

"MASK  DAPBOOLS 

CHECKING  THE  ULLAGE  BIT 

0294 

24,2511 

0 0006  1 

EXTEND 

0295 

* 

24,2512 

1 2516  CT 

32  F +4 

0296 

REf 

1 

24,2513 

3 2723  0 

CA  AlL+XJTS 

ULLAGE  JET5 

0297 

REF 

2 LAST  33 

24,2514 

0 4225  0 

WRITEON 

TC  WRITEQR 

0298 

REF 

31  LAST  565 

24,2515 

1 4606  1 

TCF  RESUME 

0301 

*REF 

32  LAST  562 

24,2516 

3 7651  1 

+ 4 

CAF  BIT7 

0302 

24,2517 

0 0006  1 

EXTEND 

0303 

24,2520 

02  031  1 

RAND  31 

0304 

24,2521 

0 0006  1 

EXTEND 

0305 

REf 

1 

24,2522 

1 2532  0 

3ZF  +XT  RANS 

0306 

REF 

24  LA5T  479 

24,2523 

3 7650  0 

CA  BITS 

-X  TRANS  BIT. INVERTED 

0307 

24,2524 

0 0006  1 

extend 

0308 

24*2525 

02  031  1 

""RAND  31 

0309 

24,2526 

0 0006  1 

EXTEND 

0310 

REF 

1 

24,2527 

1 2543  0 

3ZF  -XTRANS 

0311 

REF  216  LAST  570 

24,2530 

3 7665  0 

NOTOR Q QET  cA~  ZERO 

0312 

REF 

1 

24,2531 

1 2514  1 

TCF  WRITEON 

0315 

REF 

1 

24,2532 

3 2724  1 

+XTRANS 

CAF  2,io-our~ 

CHECK  FOR  FAILURE  OF  2 OR 

10 

0316 

24,2533 

0 0006  1 

"EXTEND  ‘ 

0317 

24,2534 

06  032  0 

RXOR  32 

0318 

24,2535 

0 0006  1 

EXTEND 

0319 

24,2536 

1 2541  T 

3ZF  +3 

2 AND  10  GOOD 

0320 

REF 

1 

24,2537 

3 2726  0 

CA  +X  ,B 

SINCE  2 OR  10  FAILED,  USE 

6 AND 

14  OF  B 

0321 

REF 

2 LAST  570 

24 ,2540 

1 2514  1 

TCF  WRITEON 

0320 

NEF 

1 

24 ,2541 

3 2725  0 

V3~  ~ 

CA  +X*  A 

2 AND  10  SYSTEM” A 

0323 

REF 

3 LAST  57O 

24,2542 

1 2514  1 

TCF  WRITEON 

0324 

REF 

1 

24,2543 

3 2727  1 

-XTRANS 

CAF  1,9-OUT 

CHECK  FOR  FAILURE  OF  1 OR 

9 

0325 

^4,2544 

XT  0006  1 

EXTEND " 

0326 

24,2545 

06  032  0 

RXOR~  32 

0327 

24,2546 

0 0006  1 

EXTEND 

0323 

24,2547 

1 2552  0- 

~3ZF  +3 

1 AND  9 GOOD 

0329 

REF 

1 

24,2550 

3 2730  1 

CA  -X , A 

SINCE  1 OR  9 FAILED,  USE  5 

AND 

1 3 OP  A 

0 3 30 

REF 

4 LAST  57O 

24,2551 

1 2514  1 

TCF  WRITEON 

0331 

"REF^ 

1 

24,2552 

3 2731  0 

" +3 

CA -X  ,B 

1 AND  9 SY5TEW~B 

0332 

REF 

5 LAST  570 

24,2553 

1 2514  1 

TCF  WRITEON 
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P0333 

DO  NECLS5ARY 

PARTS 

OF  Q 

r-axes  torque  Vector  reconstruction  here  and  now.  for  other  parts 

WAIT  UNTIL 

THE  NeXT 

R 0 3 3 5 “ 

P-AXlS  RCS  DAP  T5RUPT. 

0336 

REF 

8 

LAST 

569 

24 

2554 

4 1626  0 TORQUEV 

CS 

TQR  CALCULATED  Q,R  UET 

1 IME  (AS  IN  TIME6) 

0337 

REF 

2 

LAST 

566 

24 

2555 

6 2702  0 

AD 

+T6TUMIN 

0336 

24 

2556 

0 0006  1 

EXTEND 

CORRECT  BRANCH. 

0339 

REF 

1 

24 

2557 

6 2567  1 

8ZMF 

TQRGTTMI  BRANCH  FOR  TQR  = OR 

GREATER  THAN  MINIMP, 

0340 

REF  217 

LAST 

570 

24 

2560 

3 7665  0 

CA 

ZERO 

0341 

REF 

19 

LAS  1 

555 

24 

2561 

55*505  1 

TS 

TOFUTCHG  SINCE  TQR  LESS  THAN 

A MINIMUM 

IMPULSE* 

0342 

REF 

8 

LAST 

564 

24 

2562 

55'6l6  0 

TS 

UETRATEQ  ZERO  ALL  OF  THESE 

REGISTERS 

AND  GO  TO 

0343 

REF 

6 

LAST 

564 

24 

2563 

55*617  1 

TS 

UETRATER  UET  LIST. 

0344 

REF 

13 

LAST 

555 

24 

2564 

3 1502  1 

CA 

UTSATCHG 

0345 

REF 

3 

LAS  1 

570 

24 

2565 

0 4225  0 

TC 

WRITEQR 

0346 

REF 

32 

LAST 

570 

24 

2 566 

1 4606  1 

"TCp 

resume 

034602 

REF 

9 

LAST 

571 

24 

2567 

3 1626  1 TQRGTTM1 

CA 

TQR 

034603 

REF 

20 

LAST 

571 

24 

2570 

55*505  1 

TS 

TOFUTCHG 

034604 

REF 

1 

24 

2571 

6 2701~0 

AT 

-1.5CSP 

034606 

24 

2572 

0 0006  1 

Extend 

034608 

REF 

1 

24 

2573 

6 2630  0 

BZMF 

DOQRSKIP 

03461 

REF 

2 

LAST 

564 

24 

2574 

3 1630  0 

TA 

lUACCQ 

034612 

24 

2575 

0 0006  1 

EXTEND 

034614 

REF 

5 

LAST 

564 

24 

2576 

7 1620  0 

MP 

NO.QUETS 

034615 

REF 

196 

LAST 

569 

24 

2577 

3 ooor  O' 

CA 

L 

0 34616 

REF 

77 

LAST 

566 

24 

2600 

54  065  0 

TS 

itempi 

034618 

24 

2601 

0 0006  1 " 

EX  1 END  l / 

03462 

REF 

2 

LAST 

558 

24 

26q2 

7 1623  0 ~ 

MP 

QR.1ST0Q j 

034622 

REF 

9 

LAST 

571 

24 

2603 

55*616  0 

1 5 

034624 

REF 

78 

LAST 

571 

24 

2604 

3 0065  1 

CA 

itempi 

034626 

24 

2605 

0 0006  1 

TXTEND 

034628 

REF 

1 

24 

2606 

7 2627  1 

MP 

o.iati 

03463 

REF 

4 

LAST 

564 

24 

2607 

27*640  0 

ADS 

sumrateq 

0347 

REF 

2 

XA5F 

564  - 

24 

2610 

3 1631  1 

XA 

lUACCR 

0348 

24 

2611 

0 0006  1 

extend 

0349 

REF 

4 

LAST 

564 

24 

2612 

7 1621  1 

IMP 

NQ.RuETS 

X350 

0351 

REF  197  LAST 
off  7<a^ 

571 
"RTI — 

24 

24 

2613“ 

2614 

3 oocrro 

54  0 6 5~0 

XA 

Tfr t 

L 

TTCMOT 

0352 

— 

24 

2615 

6 0006  1 

EXTEND 

X353 

FEF 

3~ 

LAST 

571 

2A 

2616 

7 1623  0 

FP 

wW  , 

0354 

REF 

9 

LAST 

571 

24 

2617 

55 ' 6l7  1 

r a 

^TTrater  • 

0355 

REF 

60 

LAST 

571 

24 

2620 

3 0065  1 

CA 

ITEMPI 

0356 

24 

2621 

0 0006  1 ' - 

EXTEND' 

0 357 

REF 

2 

LAS  1 

571 

24 

2622 

7 2627  1 

MP 

O.IATI 

0358 

REF 

3 

LAST 

564 

24 

2623 

27*641  1 

ADS 

5UMRATER 

03581 

REF 

1 

24 

2624 

3 1501  1 

XA 

JTSONNOW 

0359 

REF 

6 

LAST 

570 

24 

2625 

1 2514  1 

TCF 

WRITEON 

0360 

REF 

1 

24 

2626 

02073  1 SKIPQRAD 

GENADR 

SKIPQRAX 

036002 

24 

2627 

03146  1 — O'ilATl 

“DEC  ' 

+0,10000 

036004 

REF 

r 

24 

2630 

3 2626  1 DOQRSKIP 

CA 

SKIPQRAD 

u3600e 

REF 

— 3 - 

LAST 

563 

24 

2631 

55*614  1 

TS 

QUUMPADR 

R03FI — 

CHANGE  JET  ON"AND 

OFF  BITS'  TO 

ACCOUNT  FOR  THE  PR ESENT  5TA7F  OFTHE 

4 mm  Y'JL  SYSTEM  FOR  BLK 2 : REVI SION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L;  @Q-iR-AxES  REACTION  CONTROL  SySTEMl  AUTOPILOT  uSERtS  OwN  pAgE  NO« U 


RQ362  _ channeCTW-changeS  account  FqRPURe  rotation  only-  Not  TRANSLATION. 


' 0363  " 

ref 

2 LAst  571 

24*2632 

3 1501  1 

CA 

JTSONNOW 

= JETS  WHTCH  ARE  TO  GO  ON  NOw. 

0364 

24,2633 

0 0006  1 

extend 

0365 

24,2634 

02  005  0 

RAND 

5 

MASK  THE  CHANNEL  WITH  THE  DESIRED  STATE. 

0366 

24,2635 

0 0006  1 

extend 

0367 

" REF 

r 

24 ,2636 

1 2663  1 

3ZF 

NOQRON 

A IS  ZERO  IF  NO  JETS  TO  GO  ON  ARE  ON, 

0366 

REF 

35  LAST  566 

24,2637 

6 7651  0 

AD 

B I T 1 5 

MAKE  DIFFERENCE  CORRESPOND  TO  A QR  JET. 

"0369 

24,2640 

0 0006  1 

EXTEND 

0370 

REF 

3 LAST  572 

24,2641 

61  • 5301  1 

5U 

JTSONNOW 

RESULT  IS  COMPLEMENT  OF  JET  BITS  WHICH 

0371 

REF 

198  LAST  571 

24,2642 

55  001  1 

TS 

L 

ARE  TO  BE  ON  FOR  6.5MS  MORE  THAN  CALC. 

0372 

24,2643 

0 0006  1 

EXTEND 

0373 

REF 

1 

24,2644 

1 2670  0 

3ZF 

JT5ARE0N 

A=0*THUS  ALL  JETS  TO  GO  ON  ARE  NOW  ON, 

0374 

REF 

14  LAST  571 

24,2645 

31*502  1 

TRSLTMN2  CAE 

JTSATCHG 

0375 

" REF 

34  LAST  552 

24,2646 

7 7637  0 

MASK 

POSMAX 

REMOVE  BITL5  FROM  JTSATCHG. 

0376 

24,2647 

0 0006  1 

EXTEND 

0377 

REF 

1 

24,2650 

1 2655  0 

3ZF 

NOTRANS 

IF  JTSATCHG  = 0 THEN  NO  TRANSLATION  NOW, 

0382 

REF 

1 

24,2651 

3 2712  1 

CA 

14-TQRMN 

0383 

REF 

21  LAST  571 

24,2652 

27  * 505  1 

ADS 

TOFJTCHG 

INSURE  T GREATER  THAN  14  MS. 

"0384 

I 

24,2653 

1 2675  1 

TCF 

TOJTLST 

0368 

REF  199  LAST  572 

24,2654 

5 0001  i 

NOTRATCS  CS 

L 

0389 

REF 

36  LA5T  572 

24,2655 

6 7651  0 

AD 

BIT15 

MAKE  JET  BITS  CORRESPOND  TO  OR  AXIS, 

0390 

REF 

15  LAST  572 

24,2656 

57*502  1 

XCH 

JTSATCHG 

JTSONNOW  - L = JETS  ON  AT  TOFJTCHG. 

0391 

"RET 

6 LA5T  570 

24*2657 

551 503  “T~ 

TS"" 

ADDT6JT5 

JTS  ON  AT  TOFJTCHG  +ONDELAY. 

0392 

REF 

2 LAST  572 

24,2660 

3 2712  1 

CA 

15-TqRmN 

0393 

REF 

" 7 LAST  570 

24,2661 

55*505  0 

TS 

ADDTLT6 

0393 

REF 

2 LAST  572 

24,2662 

1 2675  1 

TCF  TOJTLST 

0395 

REF 

3 LAST  572 

24,2663 

3 2712  1 

NuQRQN  CA 

14-TQRMN 

0396 

REF 

22  LAST  572 

24  , a664 

27*505  1 

ADS 

TOFJTCHG 

0397 

REF" 

1 8 LAB  1 67  1 

24 ♦ 2665 

3 7665  0 

"CA 

ZERO 

0398 

REF 

a LAST  572 

24,2666 

55*505  0 

TS 

ADDT  LT  6 

0399 

REF 

3 LAST  572 

24,2667 

1 2675  1 

TCF 

TOJTLST 

0408 

""RtF 

I 

24,2670 

3 2711  I 

MCOMPTQR 

0409 

REF 

23  LAS T 5 72 

24,2671 

27*505  1 

ADS 

TOFJTCHG 

0410 

REF 

219  LAST  572 

24*2672 

3 7665  0 

CA 

ZERO 

0411 

REf 

9 LA5T  572 

24T2673 

55*505  0 

TS 

A"dDTlT6 

0412 

REF 

4 LAST  572 

24,2675 

3 1501  1 

TOJTLST  CA 

JTSONNOW 

04121 

REF 

4 LAST  571 

24,2675 

0 5225  0 

TC 

WRITEQR 

04122 

24,2676 

0 0006  1 

"EXTEND" 

04123 

REF 

1 

24,2677 

3 2733  1 

DCA 

JTLSTADR 

04124 

24,2700 

52  006  0 

dtcb 

041Z& 

* 

24,2701 

77517"TT 

-1.5CSP — DEC 

-0,01465 

0413 

24,2702 

00014  1 

+T6TJMIN  DEC 

♦,00073 

0414 

24,2703 

3 1000  0 

25/32, OR  DEC 

0,78125 

0415 

24,2704 

37776  0 

M5Z0QR  OCTAL" 

37776 

0416 

24,2705 

37775  0 

MS30QR  OCTAL 

37775 

0417 

24,2706 

37773  0 

MS50QR  OCTAL 

37773 

0413 

24 , 2707 

" 000 10  0- 

16/32400  DEC 

0,00049 

0419 

24,2710 

00600  1 

BIT8,9  OCTAL 

00600 

0420 

24,2711 

77765  0 

MCOMPTQR  OCTAL 

77765 

-10  MS  COMPUTATION  TIME 

0421 

24,2712 

00013  0 

14-TQRMTTTEC 

11 

473423A 

YJL  SYSTEM  FOR  BLK2!  REVISIOM 

12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  573 

i r 

S0,R-AXE5  REACTION  CONTROL  SYSTEM,  AUTOPILOT 

USER'S  own  PAGE  NO.  12 

0422 

REF  1 24.2713 

02243  0 

jmjntadr  genadr  mintjet 

~ 042  3 

24.2714 

43415  0 

-.88975  DEC 

-.88975 

0424 

24,2715 

20000  0 

< 1 — K > ,QR  DEC 

0,50000 

K = 1/2 

0425 

24,2716 

02000  0 

<l-KQ)/8  DEC 

0.06250 

0426 

24.2717 

77557  0 

-90MS  DEC 

-.00879 

0427 

24,2720 

00220  1 

+90mS  DEC 

0.00879 

0428 

24,2721 

77537  0 

NEGCSP2  DEC 

-.00977 

0429 

24,2722 

24366  1 

16/25QR  DEC 

0,64000 

0430 

24,2723 

40252  0 

ALL+XJTS  OCTAL 

40252 

0431 

24.2724 

00201  1 

2,10-OUT  OCTAL 

00201 

0432 

24,2725 

40042  0 

+ X , A OCTAL 

40042 

0433 

24,2726 

40210  0 

+X ,B  OCTAL 

40210 

0434 

24,2727 

00104  1 

1, 9-OUT  OCTAL 

00104 

"0435 

" 24,2730 

40104  0 

-X , A OCTAL 

40104 

0436 

24,2731 

40021  0 

-X ,B  OCTAL 

40021 

0437 

24,2732 

02716  0 

JTLSTADR  2CADR 

JTLST 

C0437 

REF  2 LAST  553  24,2733 

46006  0 

0438 

REF  I " 24,2734 

02467  0 

RTJETADR  GENADR 

RTJETIME 

473423A  vjl  SYSTEM  FOR  BLK2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAp  GROUP 

NOV  10*  1966  (MAIN)  PAGE  574 

l @qiR-»Axes  reaction  control  system  autopilot  user»s  own  page  no,  13 

P0439  a »R- AXES  "ATTITUDE  STEERING  CALCULATIONS : 

R0440  (EXECUTE^  WHEN  LGC  IS  IN  AUTOMATIC  SCSMqDe  OR  IF  SCSMoDe  IS  ATTITUDE  HoLD  AND-  jHe  ROTATIONAL  HAND  CONTROLLER  1 5 

RQAA2  NeTTHER^OUT  OF  DETENT"N0R  is  the  RATE  COWWAWtrsn  SET  in  DAPBOOLS")  ' 


R04A3  IMMEDIATELY  AFTER  CALCULATING'  THfe  ATTITUDE  ERRORS*  THg  FOLLOWING  TESTS  ARe  MADE  TO  DeTeRMIN'e  WHETHER  THE "D'e'SC'eNT 
Rq"445  ENGINE  TRIM  GTMBAL  SHOULD  ~Be~  35eD  TO  CONTROL  "TFTE~LeM  ATTITUDE  RAtHeR  than  the  rcs~jetsi 


““ f?Q447  1)  IS  THE  TRIM  GlMBAui  FUNCTIONALLY  OPERATIVE? 

R0448"  2)  ARE  the  Q*R-AXeS  RCS  JETS  OFF? 

RQ449  3)  ARE  BOTH  TRIM  G!M3AL~DRIVES  OFF? 

RQ4SQ  4)  IS  THE  LEM  RATE  LESS-  THAITT5~DWgEC-^BOUT~BOTTr  AXES? 


“0451 

REF 

1 

24,2735 

3 2742 

1 

GOTCGTS  CAP 

INITFILT 

ERRORS  NOW 

controllable  by 

TRIM  GIMBAL 

"0452 

"REF 

9 

LAST 

565 

24*2736 

54  345 

1 

TS 

T5ADR 

SET  T5RUPT 

TO  60  TO  FILTER 

INITIALIZING 

" "0453 

REF 

33 

last 

571 

24,2737 

1 4606 

1 

TCF 

RESUME 

PROGRAM 

0454  24*2740  07400  I BGIM24  OCTAL  07400 

0455  REF  I 24*2741  03644  1 DESCADR  oENADR  TJET-LAW  RETURN  ADDRESS  FOR  JET  SELECT  LOGIC 

U456  REF  r 24*2742  U2UUO“0  INITFILT  GENADR  FILTINTT  ADDRESS  OF  "FITTER  INITIA LTzATT ON  "RUPT 


R0457  ^ATTSTEtR"  15  THe  NOMINAL  ENTRY  POINT  F0RRE4CTI0N  CONTROL  SYSTEM  ATTITUDE  STEERING* 
R0459  BEGIN  ATTSTLERBY  XReCKT NT  IF  RATTHOLD^  M^DETCURReNTTY^LTSeD  ONLY  AT  5IVB" 

RU460  -LEM  5EFARATION-206  MISSION  PHASE  6)  IS  REQUESTED  (BI T 14  OF  DAPBOOlS  ON) 

R0461  IF  BIT  14  IS  OFF , BRANCH  TO  QERRUALC  DIRECTLY  AND  BEGIN  AUTOMATIC 

R0462  STEERING,  IF  BIT  14  IS  ON*  TEST  BIT  "3  "OF  DAPB0ULBXU5EE"  IF  THE  DESIRED 

RQ463  RATE  HAS  Been  5AVED  YET,  IF  IT  IS  ON*  THIS  IS  NOT  THE  TTR5T  PASS"  AND 

R0464  THE  RATt  HAS  BEEN  SAVED,  GO  DIRECTLY  TO  QERRCALC  FOR  AUTOMATIC  STEERING 

R0465  IF  "TH E "E T T”  IS" “OFF * THE  RATE  "MU5r  BE  "SAVED.  TRANSFER  TO  5AVERATETBAW7Z5T 

RC466  AND  RETURN  AFTER  FIRST  PASS  TO'  RESUME  AND  DAPIDLER. 


R0467  TT  ORDER  TO  "05E  RATE  HOLD,  THe  MISSION  PFOGRARMERUTOSt^SeT^BTT  14  OF 
RQ468  DAPBOOLS  "ON  AND  SET  "BIT  3 OF  DAPBOOLS  TO  ZERO,  UPON  "RETURNING  FROM  THE 

R0469  FIRST-PASS  AT  LEAST  THROUGH  RATE'  HOLD*  THE  MISSION  PROGRAMMER  MUST  RESET 
R"0"47"0  BIT'  3 TO  ITS  PREVIOUS' VALUE  IFl  THIS  "ISHTOTTV  BECAUSE  SAVERATE  "SETS  BTT3 

RC471  TO^i  FOR  ALL  pASSES  AFTER  THE  FIRST  "IN  ORDER  NOT  TO  SAVE  THE  RATE  AgAIN, " 


RU47Z  nrADDIHON  TO"  NON-RATE  HOLD  MODE'AND  NON-FIRST  PA  SENATE  HOLD  MODE 
R0473  EXIT 5 TO  QERRCALC*  THE  FIRST  PA5S  EX I T 5 TO  RESUME*  IE.  OUT  OF  INTERRUPT 
R0474~  AND  BACK  TO  DAPIDLER'  TO  AWAIT  THE  NEXT  CALL  TO  DAP. 


R0475  RATE -HOLD  PRODUCES  ThE  FOLLOWING'  OUTPUT  IM  ERASABLE  — 


RU476"  CDUD"  - SCALED"  AT  + 7-P I ♦ DESIRED  GIMBAL  ANGLE 


RQ477  DELCDLT-  SCALED  AT  +/-PI*  INCREMENT  TO  CDUD  EVERY  100  MS* 


R0478  OMEGAPD*  QD*  RD  - SCALED  AT+/-PI/4*  BODY  AXIS  RATES 


RQ 479  ATT." THESE  ARE  USeD  BY  AUTOMATIC  STEERING  MODE"  EQUATIONS 


473423A  YUL  SVSTEM  FOR  BLK2»  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP  NOV  10,  1966  (MAIN)  PAGE  375 

L @Q>R~-AXE3  ReACtI ^"CONTROL" 5Y5T E '1  AUTOPILOT  USER'S  OWN  PAGE  NO.  14 

R0460  R AT E""HOLD  REQUIRES  OMEGAP,  Q,  R EVERY  ,25  SEC,  AND  ALSO  ReOUTRES  Tl LOT- 

— R048I  TQ-GI MBAL  AXIS  MATR I X'  “ELEMENTS' » 'MR 1 2 , 22,  13,  23  TO  BE  LOCATED  IN  THAT 

R0482  ORDER, 

R04B3  FINALLY,  RATE  HOLD  LEAVES  DEBRII5  IN  — ~ 

HQ464  "“DLCDLIDX  - LOOP  INDEX-  USED  IN  COMPUTING  DELCDUS,  = It  Q 

R0485  nXWFTT^STORES  TTWPOR7^RY~PMDUCTS  AND  “5QW5^~ LEFT  WITH  PELCDUY  IN~TST~ 


0486  ReF  36  LAST  5 TO  24,2743  4 0765  1 ATTSTEER  CS  DAPBOOLS  DO|S  BIT14  OF  DAPBOOLS  R^UtST  RATE  HOLD 


0487 

REF  39  uAST  565 

24,2744 

7 7642 

1 

MASK 

BIT14  ' 

(SIVB-LEM  SEPARATION) 

0488 

REF  349  LAST  563 

24,2745 

10  000 

0 

CCS 

A 

0489 

REF  1 

24,2746 

1 3025 

1 

TCF 

QERRCALC 

NO,  GO  DIRECTLY  TO  AUTOMATIC  STEERING 

R0490 

CHECK  DAPBOOLS^  BIT3t  TO  SEE 

IF  DESIRED  RATE  HAS  BEEN 

saved  yet 

04gl 

REF  37  LAST  575 

24,2747 

30  765 

0 

CAE 

DAPBOOLS 

DOES  BIT3  SHOW  THAT  THE  DESIRED  RATE  HA5 

0492 

REF  19  LAsT'550 

24,2750 

7 7655 

1 

MASK 

BIT3 

BEEN  sAVED(NOT  FIRST  PAss)»  IF  NOT,  GO 

0493 

REF  350  LAST  575 

24,2751 

10  000 

0 

CCS 

A 

SAVE  DESIRED  RATES  IN  THE  OMEGADS 

0494 

REF  I 

24,2752 

1 2771 

“0 

TCF- 

NEXDLCDU  -1 

YE5,  COMPUTt  THE  DELCDUS. 

R0495  SAVeRATl  IS  ENTERED  ONLY  DURING  THE  FIRST  PASS  THROUGH  RATE  HOLD.  IT 

R0496  SAVES  THE  C'JRRtNT'CDUS  FIRST  IN  CDU05  AND  THEN  5AVE5“  THE ' BODY  RATES, 

R0497  OMEGAP,  Q,  TIN  OMEGAPD,  QD,  RD,  NEXT,  WE  SET  BIT  3 OF  DAPBOOLS  TO  1. 


0498 

24,2753 

0 0006 

T“ 

SAvERATE  extend 

comet 

HERE  FIRST  TIME  INTO  RATE  HOLD  IN 

0499 

REF 

15  LAST  567 

24,2754 

3 0034 

0 

DCA 

CDUY 

0500 

REF 

5 LAST  567 

24,2755 

52  776 

0 

DXCH 

CDUYD 

ORDER 

TO  SET  UP  RATE5 , CDUS,  AND  DELCDUS 

0501 

REF 

SI  LAST  567 

24,2756 

30  032 

or 

CAE' 

“CDUX" 

0502 

REF 

8 LAST  567 

24,2757 

54  774 

1 

TS 

CDUXD 

FIRST 

, CDUDS  = CDUS  AT  SIVB  SEPARATION 

TJ503 

24*2760  0^0006  T 

EXTEND 

NEXT,  SAVE  CURRENT  SIVB  SEPARATION  RATES 

O5OA 

REF 

13 

LAST 

5b6 

« £ T6 1 

3 1417  1 

DCA  OmEgAp 

0505 

REF 

5 

last 

558 

24 , 2762 

53*427  0 

DXCH  OMEGAPD 

OMEGAP  AND  UMEGAK , IN  OMEGAPD  Ai\|p 

U5U6 

REF 

9 

LAs! 

567 

2A,ZT63  31* 42 1 1 

““CAE  0MEG7TR"  “ 

O5O7 

REF 

2 

LAST 

558 

2764 

5 5 A3U  0 

TS  OMEGARD 

OMEGARD.  LEM  HELD  TO  RATE5  FOR  13  SECS. 

D508  RFF  20-T.A5T  575  24,2765  3 7655  “0 CKF BTT3 RESET  B IT  3 = 1 SO  THATRATES  NOT  5AVED-- 

0509  REf  38  LAST  575  24,2766'  26  756“ I AUS DAPBOOLS  AGAIN  IN  RATE  HOLD  PASSES 

0510  REF  34  LAST  574  24,2767  V 4606  1 TCF  RESUME  RETURN  TO  IDLE  AFTER  SAVING  RATE 


0511 

~ R05T2 

R0513 

R05T4 


24*2770  00632  0 100MSCAL  DEC 


.025 


100  MS.  SCALED  AT  4 SEC,  RATE  HOLD  DELT 


TO  COMPUTE' THF-DELCDUS-r  y-ATTO  2,  WE  SET  UP  A LOOP  AND-~S0L\7ETTHE  EQUATION 


CtDELaUY+DLCDUlDX) =(0MEGAQ0,C(MR12+DLCDUIDX) +0MEGARu.C(MR13+DLCDUIDX) ) 
• ( 100MS) 


473423A  YJL  SYSTEM  FOR  BU<2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOy  10,  1966  (MAIN)  PAGE  576 


t @q,r-axes  reaction  control  system,  autopilot  user*s  own  page  no,  is 

R0515  DjRlMG  THIS  COMPUTATION,  I TEMPI  TS“uSED  TO  'STORE  THE  PARTIAL  SUMS  AND 

R0516  PRODUCTS.  D'£LCIKJY“r5“RE  SCALED'  TO  1 AS  MR12  AND  MK13  ARE  SCALED  AT  2. 

R0517  AFTET"CCNV"eRTING  TO  TW05  COMPLEMENT*  We'SET  DELCDUX  TO  ZeRO~TO  ~AVOTD  ANY 

RC518 ROLL"  DURING" "RATE  HOLD  MGqE.  VOTE  ThATDELCdUS  ARE  COMPUTED  IN  ThE  NEGA- 

■R05T9  TTVrTO”ALLOW  2S  COMP.  MOD,  SUBTRACT  LATER  ON  (CDU^(-DELCDU) > 


0520 

REF 

152 

LAST  569 

24*2771 

3 7657 

1 

CAF 

ONE 

SET  UP  LOOP  INDEX  TO  COMPUTE  DELCDUS. 

‘ “052T  " 

REF” 

1 

“24*2772 

55*672 

1 

NEXDLTDO  TS 

DLCDUIDX 

DLCDUIDX  = C ( A ) 

" 0522 

RtF 

2 

LaST  558 

24*2773 

4 1427 

0 

CS 

QMEGaQD 

DLCDUIDX  = 1 DLCDUIDX  = 0 

”0523 

24.2774 

0 0006 

1 

EXTEND 

ITEMP1=-0MEGAQD,MR22 

"0524 

RcF" 

2 

LAST  576 

24,2775 

5 1672 

0 

INDEX 

DLCDUIDX 

" 0525 

“ REF 

3 

LAST  182 

24,2776 

7 1400 

0 

TIP 

MR  12 

MR22  SCALED  AT  1 MR12  SCALED  AT  2 

0526 

“REF 

81 

LAST  57 T 

24,2777 

54  065 

"TO" 

TS  ITEMPI 

ITEMPT=-0MEGAQD .MR 1 2 

0527 

REF 

3 

LAST  575 

24*3000 

4 1430 

0 

CS 

OMEGARD 

C (A) slTEMPl  -OMEGARD. MR23 

0528 

24,3001 

0 0006 

1 

EXTEND 

0529 

RtF 

3 

LA5T  576 

24,3002 

5 1672 

0 

INDEX 

DLCDUIDX 

C (A) =1  TEMPI  -OMEGARD. MR13 

0530 

REF 

2 

LAST"  182 

24 ,3003 

7 1402 

1 

MP 

MR13 

MR23  SCALED  AT  I MR13  SCALED  AT  2 

"0531 

RcF 

6~2 

LA'ST  576 

24,3004 

6 0065 

1 

AD" 

ITEMPI 

0532 

24,3005 

0 0006 

1 

EXTEND 

DELT  = 100  MS.  SCALED  AT  4 SEC, 

0533 

” REF 

1 

24,3006 

7 2770 

1 

vip 

100MSCAL 

0534 

REF" 

bi 

LAST576 

24 ,3007 

54  065  0 

T5 

ITEMPI 

ITEMPI  = C (A)  . DELT 

0535 

REF  4 LAST  576 

24,3010 

11*672  1 

CCS 

DLCDUIDX 

CHECK  INDEX  FOR  RESCALING 

0536 

"24,30"1"1 

13014  0 

TCF 

+ 3 

DELCDUZ  SCALED  AT  PI/4,  RESCALE  UN NEEDED 

REF  84  LA5T  576 

24*3012 

30  065  1 

CAE 

ITEMPI 

DELCDUY  SCALED  AT  PI/2*  RESCALE  BY 

0538 

REF  65  LAS!  576 

2*, , iO  i,  i 

26  065  0 

ADS 

ITEMpl 

ADDING  TO  ITSELF 

0539 

REF"  86  LA5T  576 

24,3014 

10  065  0 

“CCS 

ITEMPI 

CONVERT  DELCDUS  TO  TWOS  COMPLEMENT  (SAME 

0540 

RcF  153  LAS1  576 

24,3015 

6 7657  1 

AD 

ONE 

A5  CDUS) , add  ONE  FO  KtSlOkE  PKE-CLS  a 

0 541 

RET  T" 

24  f 30 1 6 

1 3020'  I 

TCF 

5T0DLCDU 

STOKE  DIRECI  IF  POSiliVE  ZERO 

0542 

24,3017 

4 0000  0 

COM  ' 

COMPLEMENT  IF  NEGATIVE,  CCS  INCREMENTS 

0543 

RtF  5 LA5F  576 

24,3020 

51*672  0 

STODLCDU  INDEX 

DLCDUIDX 

IF  NEGATIVE  ZEKU,  SlUKE  PUSlTlVE  ZERO 

0544 

REF  1 

24,3021 

55*674  1 

T5 

DELCDUY 

“STORE  FINAL  DELCDUZ"  OFF  DELCDUY 

0545 

REF 

6 LAST  576 

24,3022  11*672  1 

CCS 

DLCDUIDX 

TE5T  INDEX  DLCDUIDX, 

EITHER  I OR  0 

0546" 

REF 

"2  LAST  575 

24,3023  I 2772  0 ' 

TCF 

NEXDLCDU 

IF  1,  DO  DELCDUY 

0547 

RcF 

2 L^sT  544 

24,3024  55*673  0 

TS 

delcdux 

delC[>uz,y  done,  0 TO 

DELCdUX-NQ  ROLL 

"0548  REF  16  LAST  57 5" 

0549 

0550  REF  - 6 LAST  575 

"0551 REF  67  LAST  576“ 

0552 

0553  REF  3“LAST  563“ 

“0554  REF  2 LAST  535 

0555  REF  18  LAST  567 

0556 

0557  REF 5 LA5T  567 


24,3025 

30  033  I 

Q ERR CALC" CAE 

"CDUT 

24,3026 

0 0006  1 

EXTEND 

24,3027 

20  775  0 

MSU 

CDUYD 

24,3030 

54'  065  0 

TS 

ITENP1 

24,3031 

0 0006  1 

extend 

24 , 3032 

7 1405  0 

MP 

M21 

24,3033 

57*  A13  0" 

XCH  “ 

“ER 

24,3034 

30  034  0 

CAE 

CDUZ 

24,3035 

0 0006  1 

EXTEND 

24,3036 

“20  776  0 

MStT 

■CDUZD" 

Q-ERROR  CALCULATION 


CDU  ANGLE  - ANGLE  DESIRED  (Y-AXIS) 
SAVE  FOR"  RERRCALC" ” 


(CDUY-CDUYD) *M2l  SCALED  AT  PI  RADIANS 
SAVE  FIRST  TERR"  (OF  TWO)  IN  Opp.AXTS  REG" 
SECOND  TERM  CALCULATION! 


CDU  A N GLE  “ -VW3LE' D ESTRED  fZ^XT57“  “ 


473423A  YUL  SYSTEM  FOR  BL<2:  REVISION)  12:  OFi  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966 (MAIN)  PAGE  577 


L 

@0  ,R- 

axes  reaction 

CONTROL  SYSTEM:  AUTOPILOT 
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0558 

' REF 

28  LAST 

563 

24,3037  54  066  0 

TS 

ITEMP2 

SAVE  FOR  RERRCALC 

0559 

24,3040  0"  0006  1 

EXTEND 

"0560 

“REF 

6 LAS  1 

563 

24,3041  7 1401  1 

NP 

M22 

(CDUz-CDUzD)*M22  SCALED  AT  PI  RADIANS 

0561 

REF 

3 LAST 

576 

24,3042  27*413  1 

ADS 

ER 

SAVE  SUM  OF  TERMS,  NO  OVERFLOW  EVER 

" 0562 

REF“ 

3 LAST 

557 

24,3043  55*477  0 

TS 

QERROR 

SAVE  QERROR  FOR  EIGHT-BALL  DISPLAY 

0563 

REF 

58  LA5T 

576 

£<*♦3044  30  065  1 RERRCALC 

CAE 

ITEMP1 

R-ERROR  CALCULATION: 

0564 

24,3045  0 0006  1 

EXTEND 

cdu  angle  -angle  desired  < y-ax i s ) 

0565 

REF 

3 LAST 

563 

24,3046  7 1406  0 

MP 

M3 1 

(CDUY-CDUYD) *M3 l SCALED  AT  Pi  RADIANS 

0566 

REF 

5 LAS  1 

552 

24,3047  57*411  1 

XCH 

E 

SAVE  FIRST  TERM  (OF  TWO)  IN  Opp.AxIS  REg 

" 0567 

REF 

29  LAST 

577 

24,3050  30  066  1 

CAE 

ITEMP2 

SECOND  TERM  CALCULATION: 

0568 

24,3051  0 0006  1 

EXTEND 

CDU  ANGLE  -ANGLE  DESIRED  (Z-AXlS) 

0569 

REF 

5 LAST 

563 

24,3052  7 1403  0 

MP 

M32 

(CDUZ-CDUZD) #M32  SCALED  AT  PI  RADIANS 

0570 

""  REF 

6 LAST 

577 

24,3053  27*411  0 

ADS 

E 

SAVE  SUM  OF  TERMS,  NO  OVERFLOW  EVER 

0571 

ref 

3 LAST 

558 

24,3054  55*500  1 

TS 

RERROR 

SAVE  R-ERROR  FOR  EIGHT-BALL  DISPLAY 

R0572 

TEST 

U ) : IE 

THE 

TRIM  GIMBAL  FUNCTIONALLY  OPERATIVE? 

0573 

REF 

29  LAST 

565 

24,3055  3 7656  0 

CAF 

BIT2 

TEST  TO  SEE  IF  LEM  AND  DAP  MODES  ALLOW 

0574 

REF 

3 9 “L  AS  T 

575 

24,3056  7 0765  1 

RA5< 

dapbools 

USE  OF  TRIM  GIMBAL  CONTROL  SYSTEM! 

0575 

REF 

351  LA5T 

575 

24,3057  10  000  0 

CCS 

A 

BIT2  = 0 MEANS  THAT  TRIM  GIMBAL  CONTROL 

0576 

RtF 

1 

24,3060  1 3122  1 

TCF 

STILLRCS 

IS  POSSIBLE,  SO  TEST  OTHER  TG  CONDITIONS 

R0577  TEST  (2) : ARE  THE  G,R-AXES  RCS  JETS  OFF? 

0578  24,3061  0 0006  T EXTEND  BUT,  IF  JETS  ArE  OFF  AND  TrIM  GIMBAL  MAY 

0579  24,3062  OU  "00’5“1  READ  5 POSSIBLT  BEMUSED ! BEING"  TN  THE  "JET  COAST 

05 80  REF  352  LAST  577  24,3063  10  000  0 CCS  A REGION  OF  THE  PHASE  PLANE  IS  A NECESSARY 

0581  REF  2 LAST  577  24,3064  1 3122  1 TCF  STILLRCS  BUT  INSUFFICIENT  REASON  FOR  GTS  USE 


R0582  TEST (3) i “ARE  BOTH  TRIM  GIMBAL  DRIVE5  OFF? 


0583  " 

""  ’ 24  ,’3055 

0 0006  1 

' "EXTEND"” 

BITS  9-i2  OF  CHANNEL  i2  ARE  THE  SIGNALS 

0584 

24 , 3066 

00  012  1 

READ  12 

WHICH  DRIVE  THE  TRIM  o,IMbAL  ENqINE: 

0585 

REF 

1 

24,3067 

7 2740  1 

’’MASK  BGIM24 

IF  NONE  OF  THESE  BITS  ARE  ON,  THEN  BOTH 

0566 

REF 

353 

LAST 

577 

24,3070 

10  000  0 

CCS  A 

"WAITLI5T  "TASK5  TO  TURN  OFF  THE’ DRIVES 

0587 

REF 

3 

LAST 

577 

24,3071 

1 3122  1 

TCF  STILLRCS 

HAVE  BEEN  DONE  AND  GTS  CONTROL  CAN  OCCUR 

R0588  fEST  (4) : "15“ THE  LEM  RATE  LESS  THAN"  ,5“ DF57 SECT  ABOUT  BOTH  AXES? — 


0589  REF  Ag  LAST  567  24,3072  3 7657  1 ’“CA"“  BlTl 

0590  REF  6 "LAST  544  244  3073 54  073  1 — LOOPTOP TS ORCNTR — 

0591  24,3074  6 0000  1 DOUBLE 

0592  REF  354  LAST  577  24,3075  50  000"]T“  INDEX  A 

0593  REF  9 LAST  567  “ 24 ,3076  11*417  0 CCS OMEGAQ TS"  ERROR- RATE“5WAEL  “ENOUGH'  FOR  GTS. 

059^  REF  1 24,3077  6 3120  1 AD -RATLM+1 -.5  DEG/SEC  SCALED  AT  PI/4  + 1 BIT 

0595  24,3100  1 3102  0’  TCF  “^TZ““ 

“0596  ‘ ~ REF  r LAST  577 24,3101 — 6’  3120  1 AD -RATLM+1 

0597  24,3102  0 0006  1 EXTEND 

0598  24,3103  6 3105  0 3ZMF  +2  IS  RATE  LESS, EQUAL  ,5  DEG/SEC, 

“0599  REF  4 LAST  577 24,3104 — r’3122’7 TCF STILLRCS NO". SO  USE  RCS. 
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0600 

ret 

7 LAST 

577 

24,3105 

50  073  0 

INDEX 

qrcntr 

YES.  TRY  THE  ERROR  MAGNITUDE. 

0601 

" REF 

1 

24,3106 

11*477  0 

TCS 

QDIFF 

IS  ERROR  SMALL  ENOUGH  FOR  GTS, 

0&02 

REF 

1 

24*3107 

6 3121  0 

AD 

-XBND+1 

-1.4  DEG  SCALED  AT  PI  ♦ 1 BIT 

0603 

24,3110 

1 3112  1 

tcf 

+ 2 

0604 

REF 

2 LAST 

578 

24,3111 

6 3121  IT 

AD 

-XBND+1 

0605 

24,3112 

0 0006  1 

EXTEND 

0606 

24,3113 

6 3115  1 

3ZMF 

1 2 

is  error  less,equal  i,4  deg. 

06  0 7 

REF 

5 LAST" 

577 

24,3114 

1 3122  1 

“TCF 

STILLRCS 

NO.  USE  RCS  CONTROL. 

0608 

REF 

8 last- 

578 

24,3115 

10  073  1 

CCS 

qrcntr 

THIS  AX 1 5 IS  FINE.  ARE  BOTH  DONE. 

0609 

REF 

1 

24,3116 

1 3073  1 

TCF 

LOOPTOP 

NOW  TRY  THE  Q AXIS. 

0610 

‘“REF 

I 

24,3117 

1 2735  0 

TCF 

GOTOGTS 

TRANSFER  TO  TRIM  GlMBAL  CONTROL 

_ 0611 

24,3120 

77512  1 

-RATLM+ 1 OCT 

77512 

-.5  DEG/SEC  SCALED  AT  PI/4  t 1 BIT 

0612 

24,3121 

77601  0 

-•XbND+1  OCT 

77601 

-1.4  DEG  SCALED  AT  PI,  + 1 BIT. 

R0613 

,rST  IL  L 

ENTRY  point 

TO  RC5  ATTITUDE  STEERING 

WHENEVER  it 

IS  FOUND  THAT  THE  TRIM  GlMBAL  CONTROL 

R0615 

SYSTEM 

SHOULD 

not  be  used: 

0616 

REF 

1 

24,3122 

3 2741  1 

STILLRCS  CAF 

descadr 

SET  JET  SELECT  LOGIC  RETURN  ADDRESS  TO 

0617  REF  3 LA5T  567  “24,3123  $5*514'  1 TS  TUETADR  THE  Q, R-AXIS  TJETLAW  CALCULATION 


“U6T8  REF  6 LAST  552  24,3124  0“4177  1 TC  T6 JOBCHK  CHECK  T6  CLOCK  RUPT  BEFORE  SUBROUTINE 


0619 

REF  1 

24,3125 

31*662  1 

RURGENCY  CAE 

1/NJTSR 

SET-UP  URGENCY  SUBROUTINE 

0620 

REF  4 LAST” 569 

24,3126 

55*471  0 

TS 

1/NjETAC. 

0621 

REF  4 LA5f  576 

24,3127 

4 1430  0 

cs 

OMEGARDw^ 

EDOTR  = OMEGAR  - OMEGARD 

0622 

REF  TO  LAST  575 

24,3130 

6 1421  1 

AD 

OMEGAR 

0623 

REF 

2 LA5T 

~535 

“ 24 , 3T31 

55' 425 

1 

TS“ 

EDOTR 

SCALED  AT  PI/4  RADIANS 

0624 

REF 

2 LAST 

552 

24*3132 

0 3525 

0 

TC 

URGROUTN 

*****  SUBROUTINE  CALL  ****** 

0625 

REF 

1 

24,3133 

55*516 

0 

TS 

URGENCYR 

URGENCY  LEFT  IN  A SCALED  AT  2(4)  SECS 

0626 

REF 

7 LAST  577 

24,3134 

53*412 

0 

DXCH 

E 

MOVE  R-AXIS  VARIABLES  TO  R-AXIS  ERASABLE 

0627 

REF 

4 LAST  577 

24,3135 

53*414 

0 

DXCH 

ER 

FROM  Q-XIa  (COMMON)  ERASABLE 

0628 

REF 

8 UAST~578 

24,3136 

55 *411 

0 

TS 

E 

0629 

REF 

2 LA5T  535 

24,3137 

31*407 

0 

CAE 

EDOT 

(LOOK  AT  REORG  FOR  hFFiC:  JDA  7/17/66) 

0630 

REF 

1 

24,3140 

55*410 

1 

TS 

EDOT(R) 

^ 

U63l 

Kch 

4 LAS  [ 541 

2^**3141 

31*561 

i 

QURGENCY 

CAE 

1/NJTSQ 

i SET-UP  URGENCY  SUBROUTINE 

0632 

REF 

5 LAST  578 

2 4,3142 

55*471 

0 

IS 1/NJETAC 

T76  3 3 

REF 

3 LAs  I 5 lb 

24,3143 

4 1427 

0 

C5 

TMETjAUU 

/ - EDOTQ  = OMEGAQ  “ OIMEGAUD 

0634 

REF 

10  LAST  577 

24,3144 

6 1417 

1 

AD 

OMEgAQ 

0635 

REF 

2 LASl  535 

24,3145 

55*424 

0 

fort* 

TS 

FDOTn 

SCALED  AT  PI/4  RADIANS 

0636 

3 LA5T  578 

<-4,3 146  0 3525  TT 

— s# 

DRSROUTN 

\ 

*****  SUBROUTINE  LALL  *** 

0637 

REF 

1 

C4,3147 

55*515 

0 

1 TS 

URGENCYQ 

URGENCY  LEFT  IN  A SCALED  AT  2(4)  SECS 

0638 

24,3150 

0 0006 

T 

EXTEND- 

0639 

REF 

1 

24,3151 

1 3321 

0 

bzf 

BURGZERO 

TEST  FOR  BOTH  URGENCILS  ZERO 

06^0 

24,3152 

0 0006 

IT 

EXTEND 

0641 

REF 

t 

24,3153 

7 3336 

0 

MP 

-TAN22.5 

0642 

RfcF 

2 LAST  578 

24,3154 

6 1516 

1 

AD 

URGENCYR 

064T 

24,3155 

0 0006 

r 

EXTEND 
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0644  ref  r 24.3156  7 3334  1 MP  COS22.5 

~i REF  l~  24.3157  55*521  1 T5  TERMA  UR. COS (22.5) -UQ. SIN (22.5) 


0646  rEF  r LAST  578  24,3160  4 1516  0 CS  UrGEnCYR 

0647  24,3161  0 0006  1 EXTEND 

I 0648  REF  E LAST  578  24,3152  7 3336  0 MP  -TAN22.5 

0649  REF  2:  LAST  578  24,5153  6~T515  1 AD  URGENCYQ 

0650  24,3164  0 0006  1 EXTEND 

» 0651  REF  2 LAST  579  24,3165  7 3334  1 MP  C0S22.5 

P65E  REF  T 24,3166  55*522  1 T5  TERMB  ~ UR.SIN  (22.5) +UQ.C0S  (22,5) 


) 0653  REF  2T  LAST  579  24,3167  6 1521  0 A+B/A-B  SD~“  TERMA 

0654  REF  1 24,3170  5ST5T7  1 TS  A + B 

0655  RET  2~LA5T  579  29,3171  4'  15 ZZ~i  A-B70NLY  CS  TERMB 

0656  REF  3 LAST  579  24,3172  6 1521  0 AD  TERMA 

0657  REF  1 24,3173  55*520  0 TS  A-B 


R0658  AXIS  AND  MODE  SELECTION 


0659 

REF 

3 LAST  579 

24.3174 

31*522  0 

CAE 

TERMB 

B URGENCY  TEST 

0660 

24,3175 

0 0006  1 

extend 

0661 

REF 

1 

24,3176 

6 3337  0 

BZMF 

NEGBURG 

0662  REF  4 LAST  379  24*3177  31*521  0 POSBURG  CAE  TERMA  ^XURGENCY  TEST 

0663  24,3200  0 0006  1 EXTEND 

“0664  REF  I 24,3201  6 3254  1 BZMF  NEGAP05B 


0665  REF  2 LAST  579  24,3202  31*520  1 P0SAP05B  CAE  A-B 

0666  24,3203  0 0006  1 EXTEND 

0667  REF  1 24,3204  6 3232  1 BZMF  MINUSU  NEGATIVE  U-AXIS  5ELECTED 


0668 

24,3205 

0 0006  1 

2/4JET-R  EXTEND 

0669 

REF 

5 LAST  578 

24,3206 

3 1414  1 

DCA 

ER 

U670 

REF 

9 LAST  578 

24,3207 

53*412  0 

DXCH 

E 

2 1_A5T~5T8  “ 

24,3210 

31*410  TT 

CAE~ 

EDOT(R) 

0672 

REF 

3 LAST  578 

24,3211 

55*407  1 

T5 

EDOT 

0673 

REF 

d.  LAS  1 560 

24,3212 

31*652  1 

CAE 

, 5ACCMNR 

0674 

REF 

6 Las  1 560 

24,3213 

55*650  1 

~rs‘ 

.5ACCMNE 

0675 

REF 

1 

24,3214 

3 3524  1 

CAF 

URM 

2/4  JET  UKGtNLY  TtSI 

-R  AXIS 

0 6 7 6 

REF 

4 LAST  579 

24,3215 

6 1516  1 

AD 

URGENCYR 

G677  24,3216 — 0~0005“I EXTEND 

0678  REF  3 LAST  569  24,3217  6 3224  0 BZMF  2JETS-R 


0679  REF  I 24,3220  — 3H 446  0 4JET5-R — CAE 1/2JTSR R0VET./NUETAC  UNMODIFIED 

0680  REF  6 LAST  578  24,3221  55'47l  0 TS  l/NUETAC 

0661  REF  11  LAST  5OS  24,3222  4 7663  1 CS  SEVEN 

0682  REF  1 26,3223 — 1 3460  1 TCF POLTYPE GO  FIND  BEST  POLICY — 


0683  REF  1 24,3224  11*666  T 2JETS-R  CCS  RMANDACC  ASCENT  4-JET  OVER-RIDE  TEST 

G584  REF 2~t4AST~569 24,3225 — 1~3220  0 TCF 4JETS-R — 
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0685 

KEF 

2 

last 

579 

24,3226  3 1 » 446  0 

CAE 

1/2 JTSR 

0686 

REF 

7 

last 

579 

— 74,3227  55 ' 471  0 

TS 

i/njetac 

0687 

REf 

17 

last  503  " 

24,3230  4 6162  0 

cs 

Six 

0688 

REF 

2 

LAST 

579 

24,3231  1 3460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0689 

REF 

2 

“LAST 

560 

24,3232  31*653  0 MINUSU 

CAE 

.5ACCMNU 

0690 

REF 

7 

LAST 

579 

24,3233  55'650  1 

TS 

.5ACCMNE 

‘ 0691 

REF 

3 

LAST" 

579 

24,3234  3 1 ’"5 1 5 I 

CAE 

URGENCY© 

2 JET  OPT/MAND  TEST:  -U  AXIS 

" 0692 

REF 

5 

LA5T 

579 

24,3235  6 1 5 1 6 1 

AD 

URGENCYR 

0693 

REF 

355 

LAST 

577 

24,3236  10  000  0 

CCS 

A 

0694 

REF 

1 

24,3237  6 3524  1 

"A“D 

NEGURGUM 

0695 

24,3240  1 3242  1 

TCF 

♦ 2 

0696 

“REF- 

2 

LAST 

580 

24,3241  6 3524  1 

AD 

NEGURGUM 

0697 

24,3242  0 0006  1 

EXTEND 

0698 

REF 

1 

24,3243  6 3247  0 

SZMF 

2 JETS-U 

0699 

ref 

1 

24,3244 

0 3474 

0 

2 JET  SM-U 

TC 

UXFOrM 

0700 

REF 

13  LAST  555 

24,3245 

4 7664 

0 

2-U.RATE  C5  FIVE 

0701 

REF 

3 LAST  580 

24,3246 

1 3460 

1 

TCF 

POLTYPE 

GO  FIND  BEST 

POLICY 

0702 

RcF 

l 

24,3247 

11*667 

0 

2 JETS-U 

CCS 

UMANDACC 

ASCENT  2-JET 

MANDATORY  OVER-RIDE  TEST 

‘ 0703 

RcF 

1 

24*3250 

1 3244 

1 

TCF 

2JETSM-U 

0704 

““RTF" 

2 LAST  580 

24,3251 

0 3 47 A 

0 

TC 

UXFORM 

0705 

"REF“ 

22  LAST  55l 

24,3252 

4 7655 

1 

CS 

FOUR 

0706 

“RTF 

4 LAST  560 

24 , 32  5 i 

1 3460 

r 

TCF 

POLTYPE 

go  find  best 

POLICY 

0707 

REF 

2 LAST  579 

24,3254 

31*517 

0 

NEGAP05B 

CAE 

A + B 

0708 

24,3255 

0 0006 

1 

EXTEND 

“0709 

REF 

1“ 

24,3256 

6 3277 

0‘ 

“5ZMF  “ 

PLUSV 

uno 

Kth 

2 LA5 1 56U 

24*3257 

31*“5l 

1 

2/4JET-Q 

CAE 

• 5ACCMNQ 

071 1 

8 LAST  580 

24,3260 

55*650  1 

TS 

• 5ACCMNE 

0712 

"REF 

1 

24,3261 

3 3524 

1 

CAF 

UQM 

204  JET  URGENCY  TE5TI  -0  AXIS 

0713 

REF 

4 LAST  580 

24  1 32 62 

6 1 5 1 5 

1 

AD 

URGENCYQ 

0714 

24,3263 

0 0006 

r 

EXTEND 

0715  REF 3 LAST  569 


24 


3264  6 3273  1 


8ZMF 


2JET5-Q  + 2 


(FIRST  TWO  INSTRUCTIONS  UNNECESSARY) 


0716 

REF 

1 

24,3265 

31 '445  0 

4JETS-Q  CAE" 

1/2JTSQ" 

MOVE  1/NJETAC  UNMODIFIED 

O7 1 7 

REF 

8 LAST  58O 

24,3266 

55 ' 47 1 0 

TS 

1/NJETAC 

0718 

REF 

24  LAST  480 

24 , 3267 

4 6165  1 

cs 

THREE 

0719 

RtF 

5 LAST  580 

24,3270 

r 3460  r 

TCF 

POLTYPE 

GO  FIND  BE5T  POLICY 

U72U 

Rtf 

4 LA5T  541 

44,3471 

11*665  1 

2Jt[S-U  CL5 

QMANDACC 

ASCENT  4-JET  OVER-KIDL  ItST 

0721 

REF 

2 L A ST  "569 

24,3272 

1 3265  1 

TCF 

4 JET  s-Q 

0722 

REF 

2 LAST  58© 

24,3273 

31*445  0 

CAE 

1/2JT5Q 

0723 

REF 

9 LAST  580 

24,3274 

55*471  0 

TS 

1/NJETAC 

©724 

REF 

“80  LAST  553 

24 ,3275 

4 7656  T 

CS 

TWO 

0725 

ref 

6 LAST  580 

24,3276 

1 3460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0776 REF 2 LAST  560" 


24,3277 


‘CAE- 


i 5ACCMNV 
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L (gQ,R-AXEs  REACTION  CONTROL  SYSTEM*  AUTOPILOT 


USER'S  OWN' PAGE  NO.  20 


0727 

REF" 

9 LAST 

580 

24,3300 

55*650 

1 

TS 

. 5ACCMNE 

072  8 

REF" 

5“L£ST 

580 

24,3301 

4 1515 

0 

CS 

URGENCYQ 

2 JET  OPT/MAND  TEST:  +V  AXIS 

0729 

REF 

6 LAST 

580 

24,3302 

6 1516 

1 

AD 

URGENCYR 

0730 

TtEF 

356  LAST 

580 

24,3303 

10  000 

0 

CCS 

A 

0731 

“REF 

1 

24,3304 

6 3524 

1 

AD 

NEGURGVM 

0732 

24,3305 

1 3307 

1 

Tcf 

*2 

0733 

REF 

" 2 LAsr 

581 

24,3306 

6 3524 

1 

ad 

NEGURGVM 

“0734 

24,3307 

0 0006 

1 

EXTEND 

0735 

REF 

I 

24*3310 

6 3314 

1 

3ZMF 

2 JETS+V 

"0736 

REF  1 

24,3311 

0 

3466 

0 

2JETSM+V  TC 

VXFORM 

0737 

REf  154 

LAST 

576 

24,3312 

4 

7657 

0 

2+V.RATE  CS 

ONE 

0738 

REF  7 

LAST 

530 

24*3313 

1 

3460 

1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0739  REF'  1 24.331A 

0740  REF  l~  24,3315 

0741  REF  2 LAST  581  24,3316 

0742  REF  220  LAST  572  24,3317 

0743  REF  8 LAST  581  24,3320 


11*670  0 2JETS+V  CCS  VMANDACC 

1 3311  0 _ TCF"  2JETSM+V 

0 3466  0_  TC  VXFORM 

3 7665  C CAF  ZERO 

1 3460  1 TCF  POLTYPE 


ASCENT  2-JET  MANDATORY  OVER-RIDE  TEST 


GO  FIND  BEST  POLICY 


0744 

REF 

7 LAST  581 

24,3321 

31*516  1 

BURGZERO  CAE 

URGENCYR 

TEST  FOR  5EC0ND  URGENCY  ALSO  ZERO 

0745 

24,3322 

0 0006  1 

EXTEND 

0746 

REF“ 

8 LAST" 569 

24,3323 

1 2504  0 

"SZF 

"XTRANS 

NO  ROTATION"  NEEDED  NOW 

0747 

24*3324 

0 0006  1 

EXTEND 

TIME  SAVING  A *B  CALCULATION 

“0748 

REF 

T 

24,3325 

7 3335  0 

MP  SI"N"2"2.5 

0749 

REF 

4 

LAST 

579 

24,3326 

55*522  1 

TS  TERMB 

UR, SIN (22,5) 

0750 

REF 

8 

LAST 

581 

24,3327 

31*516  1 

CAE  URGENCYR 

O75I 

24*3330 

0 0006  1 

extend 

0752 

ref 

3 

last 

579 

24,3331 

7 3334  1 

MP  COS22.5 

0753 

RcF 

5 

LAST 

579 

24,3332 

55*521  1 

TS  TERMA 

UR. COS  (22,5) 

0T54 

"RcF" 

r 

- 24,3333  - 

1 3171  IT 

TCF  "A-TB7DNLY 

0755 

24,3334 

35441  0 

C0S22.5 

DEC  0.92388 

COSINE  OF  22,5  DEGREES 

0756 

24,3335 

14176  1 

SIN22.5 

DEC  0,38268 

SINE  OF  22,5  DEGREES 

0T5T 

24  9 3336 

62575  1 

-TAN22#  5 

"DEC  -.41421  - 

NEGAilvE  OF  IANGENT  OF  32.5  DEGREES 

NEGBURG 

0758 

REF 

6 

LAST 

58l 

24*3337 

31*521  0 

CAE  TERMA 

A URGENCY  TEST 

0759 

"24 ,3340 

0 0 0 06  1 

"EXTEND 

0760 

REF 

1 

24,3341 

6 3367  0 

BZMF  NEGANEGB 

0761 

REF 

3 

LAST 

58O 

24*3342  31*517  0 

POSANEGB 

CAE  A+B 

0762 

24,3343 

0 0006  1 

extend 

0763 

REF 

1 

24 ,3344 

6 3441  0 

BZMF  2/4JET+Q 

Kcr 

1 

5«u 

24*3345 

31*654  1 

MINU5V 

CAE  .5ACCMNV 

0765 

R£F 

10 

LAST 

58 1 

24 ,3346 

55*650  1 

TS  .5ACCMNE 

0766 

REF 

6 

LAST 

531 

24*3347 

4 1515  0 

CS  " "ORGENCYO 

2 JET "OPT/MAND  TESTS  -V  AXIS 

0767 

REF 

9 

LAST 

581 

24,3350 

6 1 5 1 6 1 

AD  URGENCYR 

0768 

REF 

357 

LAST 

581 

24,3351 

10  000  0 

CCS  A 

0769 

REF 

3 

LH8I  581 

24 ,3352 

6 3524  1 

AD  NEGURGVM"  " 

473423A  YJL  SYSTEM  FOk  BL<2:  REVISION.  12  OF  PROGRAM  AURORA  BY  DAP  GRqUP 
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L 


§q,r-axes  reaction  control  system,  autopilot 


USER'S  OwN  PAGE  NO, 


21^ 


0770 

24,3353 

1 3355  0 

TCF 

+ 2 

0771 

REF  4 LAST 

581 

24,3354 

6 3524  1 

AD 

NEGURGVM 

0772 

24,3355 

0 0006  1 

EXTEND 

0773 

REF  1 

24,3356 

6 3362  0 

SZMF 

2JETS-V 

“077* 

“REF  3 LAST 

^81 

24*335' 

0 3406  0 

2JETSM-V  TC 

VXFORM 

0775 

REf  156  LA5T 

581 

24,3360 

3 7657  1 

2-V.RATE  CAp 

ONE 

0776 

REF  9 LAST 

581 

T4 , 33  6 1 

1 3460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

O77T  REF  ~2~'LA5T  58? 


24 


0778  “ 

RtF 

— r 

24,3363 

1 3357  1 

TCF 

2 JET  SM-V 

0779 

REF 

4 

LAST  582 

24,3364 

0 3466  0 

TC 

vxform 

0780 

REF 

81 

LAST  580 

24,3365 

3 7656  0 

CAF 

TWO 

0781 

REF 

TO 

LA  ST  582 

24,3366 

1 3460  1 

TCF~ 

POLTYPE  GO  FIND  BEST  “POLICY 

0782 

REF 

3 

LAST  579 

24,3367 

31*520  1 

NEGANEG6  CAE 

A-B 

0783 

24,3370 

0 0006  1 

TXT  END 

3362  11*670  0 2JETS-V  CCS 


VMANDACC 


ASCENT  2-JET  MANDATORY  OVER-RIDE  TEST 


0784  REF  I 


“07  8 5 

REF 

3 LAST  5BO 

24*3372 

31*653  0 PLUSU 

CAE 

• 5ACCMNU 

0786 

RE“F 

11  LAST  581 

24,3373 

55*650  1 

TS 

.5ACCMNE 

0787 

RtF 

7 LASl  581 

24,3374 

31*515  1 

CAE 

URGENCYQ 

2 JET  OPT/MAND  TEST:  +U  AXIS 

0768 

“RtF 

10  LAST  561 

24,3375  6 1516  1 

URGENCYR 

158  LAST  581 

24,3376 

10  000  0 

CCS 

A 

0790 

REF 

3 LAST  560 

24,3377 

6 3524  1 

AD 

NEGURGUM 

“RET  <T“LA5T582 


Ul9 T 
0793 

“07  9 A REF  T 


2W 

24 

~2W 


3401 

3402 
3403“ 


6 3524  1“ 
“0  0006  1 
6 3407  1 


AD 

EXTEND 

B2MF 


NEGURGUM 


2 JETS+U 


0795 

REF  3 LAST  58O 

24*3404 

0 34T4  “0“ 

2 JETSM+U  TC 

““UXFORM 

“0T96 

TEf  25  LAST  580 

24,3405 

3 6165  0 

2>  u § RATE  cAf 

THREE 

0797 

REF  11  LAST  582 

24,3406 

1 3460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0798 

REF  2 LAST" 580 

24,3407 

11*667  C 2JET5+U 

“CCS 

UM AND ACC 

A5CETTr‘ 2- JET  “MANDATORY  “OVER-RiDETTEST 

0799 

ref  1 

24,3410 

1 3404  0 

TCF 

2JETSM+U 

0800 

REF  4 LAST  582 

24,3411 

0 3474  0 

TC 

UxFORM 

0801 

“REF  23  LAST  580 

24 ,3418  3 7655  0“ 

CAF 

FUUR“  “ 

0802 

REF  12  LAST  582 

24,3413 

1 3450“ 1 

rcr 

POLTYPE 

GO  FIND  BEST  POLICY 

" 0803“ 

~ 24,3414 

00006  1 

2/4JET+R  “EXTEND  “ 

0804 

ref 

6 

LAST 

579 

24*3415 

3 1414  1 

DCA  Er 

0805 

REF 

10 

las  r 

579 

24,3416 

53*412  0 

DXCH  E 

0806 

REF 

3 

LA5 1 

579 

24,3417 

31*410  0 

“ CAE  - EDOT(R) 

Oy07 

REF 

A 

LAST 

579 

24,3420 

55*407  1 

TS  “EDOT 

0808 

REF 

3 

last 

579 

24*3421 

31*652  1 

CAe  -.5ACCMNR 

0809 

REf 

12 

last 

582 

24,3422 

55*650  1 

TS  •5AccMNE 

0810 

REF 

2 

last 

579 

24,3423 

3 3524  1 

CAF  URM 

2/4  JET  URGENCY  TEST  +R  AXIS 

0811 

RtF 

1 1 

LAST 

582 

24,3424 

6 1516  1 

AD  URGENCYR 

0812 

24,3425 

0 0006  1 

EXTEND 

473423A  YUL  SYSTEM  FOR  BLK2:  REVISION.-  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAG E 583 


L_  gQtR-AXEs  REACTION  control  system  autopilot 


USEr*S  own  page  NO,  22 


0813 

REF 

3 LAST  569 

24,3426 

6 3433  0 

BZMF 

2JETS+R 

rr 

U814 

KtF 

i LA5 1 580 

44,3427 

3 l ' 446  0 4JETS+K 

CAE 

1/2JTSR 

MOVE  1/NjETAc  UNMODIFIED 

0815 

REF 

10  LAS!  5«0 

24,3430 

55'471  0 

T5 

1/NJETAC 

U816 

REF 

14  LA 5 T 560 

24,3431 

3 7664  1 

CAF 

FIVE 

0817 

REF 

13  LAST  582 

“24,3432 

“1  T460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0818 

REF 

2 

LAST  579 

24,3433 

11*666  1 

2JETS+R 

CCS 

RMANDACC 

ASCENT  4- JET  OVER-RIDE  TEST 

0819 

REF 

2 

LAS  1 569 

24,3434 

1 3427  1 

TCF 

4JETS+R 

0820 

REF 

A 

LA51  583 

24 ,3435 

31*446  0 

CAE 

1/2JTSR 

0&2  1 

KEr  il  LMb 1 583 

24,3436 

55*471  0 

TS 

1/NJETAC 

0822 

Kth 

4.8 

Lnb 1 58U 

24,3437 

3 6162  1 

CAF 

SIX 

0 82  3 

ref 

1 A 

LAST  583 

24 , 3440 

1 3460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

U824 

KEr 

3 

LAb 1 580 

44,3441 

31*651  1 

2/4JET+Q 

CAE 

.5ACCMNQ 

0825 

ref 

1 3 

LAST  582 

24,3442 

55*650  1 

TS 

.5ACCMNE 

0826 

ref 

2 

“□T5T  >80 

24,3443 

3 3524  1 

CAF 

UqM 

2/4  j£T  URGENCY  TEST;  *q  AxTS 

0827 

REF 

8 

LAST  582 

24,3444 

6 1515  1 

AD 

urgencyq 

0828 

24 ,3445 

0 0006  1 

EXTEND 

0829 

HEF 

3 

LA5I  568 

24,3446 

6 3455  0“ 

“BZMF 

“2  JETS +0  +2 

( f irst  two  instructions  unnecessary) 

UU30 

Ktr 

0 

Lnb f 380 

24 » 844 ( 

51*445  0 

4JET5+Q 

CAE 

1/2JTSQ 

MOVE  1/NJETAC  UNMODIFIED 

0831 

REF 

12 

“LAST  583“ 

24,3450 

55*471  0 

rs 

r/NjETAC 

0832 

REF 

1 2 

TA5T  579 

24,3451 

3 7663  0 

CAF 

SEVEN 

0833 

REF 

15 

LAST  583 

24 , 3452 

1 3460  1 

TCF 

POLTYPE 

GO  FIND  BEST  POLICY 

0834 

REF 

5 LAST  580 

24,3453 

11*665  1 

2JETS+Q  CCS 

QMANDACC 

ASCENT  4-JET  OVER-RIDE  TEST 

0835 

ref 

2 LAST  568 

24 ,3454 

1 3447  1 

TCF 

4JETS+0 

0836 

REF 

REF 

4 LAST  583 

24,3455 

31*445  U 

CAE 

1/2JTSQ 

13  LAST  583 

24,3456 

55*471  0 

TS 

1/NJETAC 

vO  jo 

Ktr 

1 

24  *3457 

3 7654  1 

CAF 

EIGHT 

0839 

“REF 

i 

T4,3460~ 

55*523  0 

POLTYPE  “TS  POLRELOC 

0840 

24,3461 

0 0006  1 

EXTEND 

17841 

REF 

1 

24,3462 

3 346T  0“ 

DCA  POLADR 

0842 

24,3463 

52  006  0 

DTCB 

u o A 3 

24 ,3464 

02216  0 

POLADR  2CADR  POLTYPEP 

LUoh-3 

REF 

1 

24 ,346b 

52006  CT 

473423A  YUL  SYST EM  FOR  bU2;  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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~R08A4  SUBROUTINES  UxFORM  AND  vxFORMCALCULATE  NEEDED  VALUES  FOR  T-JET  LAW 

R0845  (THtV  G'J  OFF  TO  REDUCE  RATE.  IF  NECESSARY,  AND  THEN  DO  NOT  RETURN) 


C846 

REF 

1 

24,3466 

3i*45o 

1 

VXFORM 

CA£ 

1/2JETSV 

get  inverse 

OF 

v-jet  acceleration 

0847 

REF 

14 

tmt 

583 

24,3467 

55*471 

0 

TS 

1/NjETAC 

0848 

REF 

1 

24,3470 

4 1411 

0 

cs 

EQ 

COMPLEMENT 

FOR 

TRANSFORMATION 

0849 

REF 

2 

LAST 

564 

24,3471 

55*411 

0 

T S 

EQ 

0350 

RE  F ’ 

3 

LAS  I 

5T$ 

24.3472 

4 1424 

0 

cs 

EDOTO 

0851 

REf 

1 

24,3473 

1 3477 

1 

tcf 

uvxform  +1 

0852 

REF 

1 

24,3474 

31*447 

1 

UXFORM 

CAE 

1/2JETSU 

5ET  INVERSE 

OF 

U-JET  ACCELERATION 

0853 

REF 

T5 

LAST 

584 

24,3475 

55*471 

0 

TS 

1/NJETAC 

" 0854 

ref 

4 

r~ 

CO 

l 

564 

24,3476 

31*424 

1 

UVXFORM  CAE 

EDOTQ 

transform  angular  rate  to  u/v-axis 

U855 

REF 

3 

LAST 

578 

24,3477 

6 1425 

0 

AD 

EDOTR 

0856 

24,3500 

0 0006 

1 

EXTEND 

0657 

REF 

1 

24,3501 

7 3523 

1 

MP 

.707 

0858 

“REF 

5 

H 

>1 

3 

562 

24,3502 

55*407 

1 

TS 

EDOT 

SAVE  FOR  REDUCEUV 

0859 

24,3503 

0 0006 

1 

EXTEND 

0860 

REF 

21 

LAST 

575 

24,3504 

7 7655 

1 

MP 

BIT3 

“0861 

24,3505 

0 0006 

1 

EXTEND 

0862 

24,3506 

1 3510 

1 

BZF 

*2 

CHECK  FOR  VALUE  BEYOND  SCALING  RANGE 

0863 

REF 

1 

24,3507 

1 3672 

0 

TCF 

REDUCEQR 

SAME  AS  RtDUCEUV 

0864 

REF 

TOO 

LAST 

572 

24,3510 

30  001 

0 - 

CAE 

L 

0865 

REF 

6 

LAST 

584 

24,3511 

55*407 

1 

T5 

EDOT 

SAVE  KAIE  SCALED  Al  Pi/16 

0866 

24,3512 

0 0006 

1 

EXTEND 

0867  " 

24,3513 

7 0000 

0 

SQUARE  " “ 

0868 

REF 

2 

LAST 

535 

24,3514 

55*412 

0“ 

TS 

EDOT ( 2 ) 

5AVE  RATE  SQUARED  SCALED  AT  PI (2) /Z 18) 

0869 

REF  3 LAST  584 

24  ,35T5“ 

31*411  1 

CAE  EQ 

Transform  angular 

Error  TO  U/V-AXiS 

0870 

REF  7 LAST  582 

24,3516 

6 1413  0_ 

AD  ER 

0871 

24,3517 

0 0006  1 

EXTEND 

0872 

REP  2 LA5TT84 

24,3520 

7 3523  1 

W ,707 

0873 

REF  11  LAST  582 

24,3521 

55*411  0 

TS  E 

SAVE  ERROR  SCALED 

AT  PI 

0874 

REF  263  LAST  564 

2 4 , 3E  2 2 

0 0002  0 

TC  Q 

087s  24*3523  26501  1 .707 DEC  0,70711  SQRTU/2) 


0876 

24,3524  71777  0 

NEGURGUM 

DEC 

-.18750 

“0S7T 

REF 

5 

'LAST  582 

24,3524 

NEGURTTVM 

EQUALS 

TfEGURGUM  ‘ 

0878 

REF 

6 

LAST  584 

24,3524 

UQM 

EQUALS 

NEGURGUM 

0879 

REF 

7 

LAST  584 

24,3524 

URM 

EQUALS 

NEGURGUM 

473423A  YJl  SYSTEM  FOR  Bl<28  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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p“  § Q , R - AXES- Re  ACTION  CONTROL  SYSTEM  AUTOPILOT USER»S  OWN  PAGE  NO, 24 


R0880 

GENERALIZED  URGENCY  SUBROUTINE  FOR  USE  ON  All  PILOT  AXES 

i ( P ,Q  ,R ) • • • 

R0881  “ 

DEPENDING  ON  the  Axrs 

l problem , edotp,edoto,edotr  is  expected  to  arrive 

IN  A AND  1/2JTSP,1/2JTSQ,1/2JTSR  IN 

R0883 

T/NJETAC.  NOTE  THAT 

THE  Q,R-AXIS  PROBLEM  IS 

EXPECTED  TC 

) DO  THE  R-AXIS 

PROBLEM  FIRST  (FOR  EFFICIENT  USE  OF 

R0885 

ERASABLE T AW  THE  Q,fi 

i-AXIS  PROBLEM  DOTS  NOT 

USE  TPSIG. 

R0886 

(TFTIS  ROUTINE  SHOULD 

BE  IN  THE  FIXED  BANK  OF 

1 rib  J »K-Aa  1 b HKObLtiM  oilNv.t 

IT  IS  CALLED  ONLY  ONCE  FROM  THE  P-AXI5,) 

08  8 8 

REF  T LAST  584 

24,3525  55*407  1 URGRqUTN  TP 

EDOT 

SAVE  FOR  REDUCEOR 

0889 

24,3526  0 0006  1 

EXTEND 

EXPECT  EDOT  IN  A SCALED  AT  PI/4  RAD/SEC 

0890 

" REF  22  LAST  584 

24,3527  7 7655  1 

MP 

BIT3 

TRY  TO  RESCALE  TO  PI/16  RADIANS/SECOND 

' 0891 

24,3530  0 0006  1 

EXTEND 

0892 

24,3531  1 3533  0 

3ZF 

+ 2 

OVERFLOW  CHECK  ON  NEW  SCALING 

0893 

REF  1 

24,3532  1 3666  0 

TCF 

REDUCERA 

DISTINGUISH  BETWEEN  P AND  Q ,R 

“0894 

REF  201  LAST  584  ~ 

24,3533  10  001  1 +2 

CCS 

\T 

INSURE  NOlWERO  EDOT  (TPSIG  FLAG) 

0895 

REF  82  LAST  582 

24,3534  6 7656  0 

AD 

TWO 

0896 

24,3535  1 3537  1 

TCF 

+ 2 

0897 

24,3536  4 0000  0 

COM 

0898 

REF  7 LAST  361 

24,3537  6 7667  1 +2 

AD 

NEGl 

0899 

REF  5 LA5T551 

24,3540  55*440  1 

TS 

TPSIG 

(FOR  P-AXIS  PROBLEM  ONLY) 

0900 

-REF  STLA5TH58  5 

24,3541  55*407  I 

TS 

EDOT 

SAVE  FOR  T-JET  LAW  SCALED  AT  PI/16 

0901 

24,3542 

0 0006 

1 

EXTEND 

0902 

24,3543 

7 0000 

0 

SQUARE" 

0903  REF  3 LAST  584 

24,3544 

55*412 

0 

T5  EDOT  ( 2 ) 

SCALED  AT  PI(2)/2(8)  RAD (2 ) /SEC (2 ) 

0904 

24,3545  0 0006  1 

EXTEND 

I/2JTSP,1/2JTSQ,1/2JTSR  IN  l/NJETAC 

0g05 

REF 

16  LA5T  584 

24,3546  7 1471  0 

NP 

l/NJETAC 

SCALED  AT  2(8) /PI  SEC(2)/RAD 

0906 

24,3547  0 0006  1 

EXTEND 

TT907 

PEF 

5 LAST  188 

24,3~550  61*415  0 

DB 

~ DEADBAND  SCALED  AT  PI  RADIANS 

0908 

REF 

1 

24*3551  55*451  1 

TS 

FPQR 

•5(1 /ACC ) EDOT ( 2 ) - DB  5CALED  AT  PI  RADS 

—0W9  RTF  4 LAST  585  24  73_55?“TT»'4TZ“I  CAE  EDUT”(T)  SCALED  AT  PI  (2)/2<8)  RAD  (2  ) /SEC <2 ) 

0910  24,3553  0 0006  I EXTEND 

0911-  REF  14  LAST  583  24,3554  7 1650  1 MR-  .5ACCMNE  ,5 ( T/ACCMI N)  AT  2(8) /PI  SEC(2)/RAD 

0?T2  REF  6T-‘ASr  585  24,3555 — 6 1415  0 AD DEI 5C"ALED“”AT _PT“RAD I AN5 — 

0913  REF  — 1 24 ,3556 — 55*467  1 TS  FPQRMIN  ^TEd/ACCMIN)  EDOT  (2)  + DB  AT  PI  RADIANS^ 

0914  rEF 9“ LAST  585 24,3557 — FP40TT CCs EDUT EDOT  TEST  ON  si'GN 

0915  REF  12  LAST  584  24,3560  31*411  1 : CAE E P,Q,R-AXIS  ERROR  SCALED  AT  PI  RADIANS 

0916  24,3561  1 3563  0 TCF'  ~4T2“ 

0OT7  REF  I 24,3562 — 1 3602  1 TCF ED'OTNEG — 

0918  REF  2' LAST  585  24,3563  27*451  T +2 ADS fPQR E~+- .5 (1/ACC) EDOT (2)  - DB  AT  PI  RADIANS 


0919 

REF 1C  LAST  585 

24,3564 

11*407  1 FTEbT 

■ CCS 

- EDOT 

“ EDOT  GUARANTEED  NUT  +0  Or  -0 

0920 

Ktr 

1 685 

24,3565 

11*451  1 

CCS 

FPqR 

FPqR  GUARANTEED  NOT  +0 

0921 

REF 

1 

24,3566 

1 3573  1 

T CF 

TPSIGCHG 

EDOT.G.+O,  FPQR.G.+O 

0922 

24,3567 

11*451  1 

CCS 

PPDR 

EDCT.L.-O  - 

0923 

REF 

1 

24*3570 

1 3606  0 

TCF 

fpmincal 

tDUT •L«_Q*FPQR,G.+0/tDUT  »G,+0*FPQR»L»“0 

0924 

0925 

ref 

-REF 

2 l^ST  505 
2 LAST'  5“B5 — 

24.357 1 

24.3572 

1 3606  0 
1 3573  1 

I CF 
TCP-  - 

fpmincal 

TFSTGCHU 

EdOT.G.+O,  FPOR.E.-O  (FROM  FIRST  CCS) 
EDOT .1 o.  FraR-.LriT)-  “ 

473423A 

YJL 

SYSTEM  FOR  BLK2 

! REVISION  12  OF  PROGRAM  AURORA  BY 

DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  586 

L 

@Q*R-A^Es  REACTION  CONTROL  SYSTEM,  AUTOPILOT 

USER'S  OWN  pAGE  NO.  25 

0926 

REF 

6 LAST  585 

24,3573  A 1440  1 TPSIGCHG 

CS 

TPSIG 

EDOT.L.-O,  FPQR.E.-O  (FROM  2ND  CCS) 

0927 

REF 

7 LAST  586 

24,3574  55 ' 440  1 

TS 

tpsig 

(SIGN  OF  P-A"Xl5  JETS  IF  NEEDED) 

0928 

REF 

11  LAST  585 

24*3575  31'407  0 

C Ah 

EDOT 

SCALED  AT  PI/16  RADIANS/SECOND 

0929 

24*3576  0 0006  1 

extend 

0930 

REF 

28  LAST  480 

24*3577  7 7645  0 

MP 

BIT11 

SCALE  TO  PI  RADIANS/SECOND  ~ 

0931 

REF 

5 LAST  585 

24 , 3600  6 145I~0 

AD 

FPQR 

(IMPLICIT  MULT  OF  FPQR  BY  1/SEC) 

0932 

REF 

1 

24,3601  1 3626  1 

TCF 

URGMULT 

THIS  URGENCY  = (1/ACC) (FPQR+EDOT) 

0933 

REF 

6 LAST  586 

24,3602  4 1451  1 EDOTNtG 

CS 

FPQR 

SCALED  AT  pi  RADIANS 

093  A 

REF 

13  LAST  585 

24,3ts03  6 i4ii  i 

AD 

E 

0935 

RIF 

7 LAST  586 

24,3604  55*451  1 

TS 

FPQR 

E - .5  1 1/ACC) EDOT (2)  + DB 

0936 

ref 

I 

24,3t>05  I 3564  1 

TCF 

FTEST 

O937 

REF  8 LAST  586 

24,3606 

11*451  1 

FPMINCAL  CCS 

FPQR 

NECESSARY  RETEST  ON  FPQR 

O938 

REF  2 LAST  5S5 

24,3607 

4 1467  1 

C5 

FPQRMIN 

0939 

24,3610 

1 3612  0 

TCF 

4*  2 

E - .5 (1/ACCMIN)ED0T(2)  - DB 

0940 

REF  3 LASf  586 

24,3611 

31*467  0 

CAE 

FPQRMIN 

0941 

ReF  14  LAST  586 

24*3612 

6 1 4 1 1 1 

AD 

E 

E ♦ { 17 ACCM I N ) EDOT ( 2 ) ♦ DB  “ 

0942 

RtF  4 LAST  586 

24 , 3b 1 3 

55*467  1 

TS 

FPQRMIN 

(SCALED  AT  PI  RADIANS) 

U943 

RtF  12  LA5T  586 

24*3614 

1 1 ' 407  1 

CCS 

EDOT 

EDOT  GUARANTEED  NOT  +0  OR  -0 

0944 

REF  5 LAST  586 

24*3615 

11* 467  1 

ccs 

FPQRMIN 

FPQRMIN  GUARANTEED  NOT  +0  (CALL  IT  F) 

0945 

REF  7 

24,3616 

7 36  Z3  1 

TCF 

ZEROURG 

EDOT.G.+O*  f.g.+o 

C946 

REF  6 LA5T  586 

24 , 36 1 7 

11*467  1 

CCS 

FPQRMIN 

EDOT.L.-O 

0947 

RtF  1 

24 , 3621) 

1 3625  1 

TCF 

NORMURG 

EDOT.L.-O*  F.G.+O  / EDOT.G.+O,  F.L.-O 

0948 

RcF  2 LAST  586 

24*3621 

i 3625  1 

TCF  NORMLJRG 

EDOT/G.+O,  "F.E.-O  (FROETFrRST  CCS) 

0949 

REF  2 LAST  586 

24,3622 

1 3623  1 

TCF 

ZEROURG 

EDOT.L.-O,  F.L.-O 

U9  50 

REF  221  LA5T  581 

24,3623 

3 7665  0 

ZEROURG  CAF 

zero 

EDOT.L.-O*  F.E.-O  (FROM  SECOND  CCS) 

0957 

REF  r 

24,3624 

1 3642  0 

TCF~ 

URGSTORE 

THTS  URGENCY  ZERO  (TIT  COAST  REgIAN)  ' 

Ktr  7 LMS 1 886 

24,3625 

31*467  0 

NORMURG  CAE 

FPQRMIN 

THIS  URGENCY  FPQRMIN ( 1/ACC) 

095s 

24,3626 

0 0006  1 

URGIMUL1  EXTEND 

0954 

1REF  17  LAST  585 

2 4 , 3 6 2 7 

7 1471  0 

MP 

1 /N JET  Ac 

0955 

24 , 3b 30 

0 0006  1 

EXTEND 

SCALE  FROM  2(9)  TO  2(4)  SECONDS 

0956 

RtF  41  LAST  570 

24 ,3631 

7 7652  TJ 

— MP 

B i T6 

I/NJETAC  = ~172JETAC,  wANT  1/ 1 JET  A C 

0957 

24,3632 

0 UU06  i 

EXTEND 

O958 

R-F  1 

24,3633 

1 3641  0 

3ZF 

URGTOA 

0959 

REF  359  LAST  ~582 

04,3634 

70  OOO  TT- 

CCS 

A 

O96O 

REF  35  LAST  572 

24 , 3635 

3 7637  i 

CA 

POSMAX 

u96i 

REF  2 LAST  586 

24 ,3636 

1 3642  C 

TCF 

URGSTORE 

U962 

Kth  36  LA5 1 686 

24 , 363  7 

4 7637~0~ 

cs — 

PU5MAX 

u963 

RtF  3 LAST  586 

24,3640 

1 3642  0 

TCF 

URGSTORE 

u 

Ktr  cJd  LA 51  585 

24  1 364 1 

3 UU01  0 

URGTOA  CA 

L~ 

0965 

REF  284  LAST  584 

24*3642 

0 0002  0 

URGSTORE  TC 

Q 

#44  RETURIT  4*4 
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ia, E-axes  reaction  control  system  autopilot 


user* S OWN  PAG E NO,  26 


P0966  ~ GENERALIZED  T-JET  LAW  SUBROUTINE  FOR  USE  BY  BOTH  THE  P-AXIS  AND  Q,R-AXES  PROBLEMS  (ONCE  EACH).., 


Rq968 

R0970 


— DePeNUTNQ5  ON  THE  AXIS  ABOUT  WHICH  ROTATION  TS  DeeMeD  MOST  URGENT*  l/JACC  FOR  THAT  AXIS"  IS  EXPECTED  IN  i/NJETAC 
-AND  THE  CORRESPONDING"  VALUES  fPR  E*  EDOT , AND  EDOT  ( 2 ) ARE  ALSO  EXPECTED  TO  BE  SET  UP  IN  ADVANCE. 

MAY  RESIDE  IN  THE  TTXED“BANK  OFTlTRER  THE  P-AXIS  ORTTRLaXTS  PROBLEM , ) 


R0974  " *****  I;  PORT ANT  NOTICE  ***** 


R0975 
R 0977 
R0979 


NOTt  THAT  TJeTLOC  IBTHe  LOCAL  ENTRY  POINT  FOR  THIS  PROGRAM  AND  TJeTLAW  IS  THE  CROSS-BANK  ENTRY,  SEE  BeLOW 
FOR  THt  TWO  CALLING  SEQUENCES  FOR  OPTIMAL  USE  AND  Be  ASSURED  THAT  FOR  EITHER  CASE  ISWRETRN  MUST  Be  USED  AND 
" RUPTR EG 3"  CONTAINS  THE 


R0980  LOCAL  CALL!  " 

R0981  TC  TJETlOC 

R0982  TCP  NO  ROTATION  JETS" 

R0983  TS  TIME  CALCULATED 


R0984 

CROSS-BaNK  call: 

R0985 

caf 

tjetlawcadr 

R0986 

TC 

ISWCALL 

RU987 

TCF 

NO  ROTATION  JETS 

R0988 

TS 

time  calculated 

Rq989  *****  VERY  IMPORTANT  NOTICE  ***** 

RG990  5INCE  THE  Q*R-AxES  SWITCHED  FIxED  BANK  BECAME  VERY  FULL  (DUE  TO  THE  ADDITION  OF  RATE-HOLD  MODE  AND  A BETTER 

' R0992  RCS-5TS  INTERFACE) * THE  LOCAL  CALL  AND- LOCAL- ENTRY"  POTNT"  FOR  THE  T-JET  LAW  HAVE  BEEN  DELETED  AS  OF  REVISION  7 

R0994  OF  AURORA  (BY  JON  ADDELSTON  1W27P/66)  • 


R099S  RPR  CONVENIENCE , WE  INCLyDE  HERE  THE  CALL  FROM  THE  QVRVAXIS  PROBLEM?  

0996  24*3643  BANK;  24 

rEf  4 LAST  57 A 24,3643  51644  0 QR-JETLw  CADR  TJET-LAW  ““ CaPR~OF  Q*R-ENTRY  TO  T JETLaWTUSRUUT TNE 

0998  REF  7 LAST  578  24,3644  0 4177  1 TJET-LAW  TC  T6J0BCHK  CHECK  T6  CLOCK  RUPT  BEFORE  SUBROUTINE 


0999  REF  1:  24*3645  3 3643  0 

1000  REF 3 LAST  552  24,3646  0 4162  0 

1001  REF  9 LAST  581  24,3647 — 1 2504  0 

1002  REF  10  LAST  571  24,3650  55*626  0 

1003  REF  3 LAST  570  24*3651  1 2554  0 


"CAF  QR-JETLW  T-JETLAW  CALLING  SEQUENCE  (LIKE  P-AXIS) 

TC  ISWCALL  UN  INTERBANK  COMMUNICATION  i_OG  SECTION) 

TCf XTRANS ccnrcr XT RANG  SINCE  NO  ROTATION  IS  USED — 

TS  TQR  SAVE  CALCULATED  TIME  FOR  THE  TORQUE 

TCF  TORQUEV  VECTOR  RECONSTRUCTION  PROBLEM 


24,1000  0 0006  1 TJETLOC  EXTEND  LOCAL  eNTRY  FAKeS  CROSS-BANK  "IN  SMALL  Dr 


R 1004 


473423A  YJL  SYSTEM  FpR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP_  GROUP 
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L ®Q»R-AXES  REACTION  control  SYSTEM!  AUTOPILOT  USEr»S  OwN  pAGE  NO.  27 


R 1006 

§ 

r—4 

C\1 

22  076  0 

OXCH 

RUPTREG3 

SAVE  RETURN  WHERE  ISWCALL  DOeS 

R1008 

24.1002 

3 4174  1 

CAF 

ISWRETRN  +3 

Get  CADR  OF  RUPTREG3  from  TC  INSTRUCTION 

R 1 0 1 0 

24,1003 

54  002  1 

T5 

Q 

SO  TC  Q GOES  TO  RUPTREG3  FOR  RETURN 

1012 

25,2000 

BANK 

25 

1013 

REF 

13  LAST  586 

25,2000 

4 1407  1 

TJETLAW  CS 

EDOT 

TEST  EDOT  SIGN 

1014 

25,2001 

0 0006  1 

EXTEND 

1015 

25,2002 

6 2006  0 

3ZMF 

+ 4 

1016 

REF 

14  LAST  586 

25,2003 

55*407  1 

T5 

EDOT 

SIGNS  OF  E AND  EDOT  CHANGED  IF  EDOT  NEG 

10  IT  ' 

REF 

1 5 LAST  586 

25,2004 

4 1411  0 

CS 

E 

TO  CONSIDER  FUNCTIONS  IN  UPPER  HALF  OF 

1018 

REF 

16  LA5T  588 

25,2005 

55*411  0 

TS 

E 

THE  E.EDOT  PHASE  PLANE 

1019 

REF 

5 

LAST” 

585 

25,2006 

31 

'412 

1 

CAE 

EDOT (2) 

SCALED  AT  PI(2>/2(8)  RAD  (2) /SEC (2) 

1020 

25*2007 

0 

0006 

1 

EXTEND 

(1/NJETAC  HAS  BEEN  SET  FOR  N JETS) 

1021 

REF 

18 

last 

586 

25,2010 

7 

1471 

0 

MP 

1/NJETAC 

SCALED  at  2 ( 8 ) /P I SEC12J/RAD 

1022 

25,2011 

0 

0006 

1 

EXTEND 

1023 

REF 

40 

LAST” 

575 

25,2012 

7 

7642 

1 

MP 

BIT14 

»5ED0T (2) /NJETACC  SCALED  AT  PI  RADIANS 

1024 

REF 

1 7 

LAST 

588 

25,2013 

6 

1411 

1 

AD 

E 

SCALED  AT  PI  RADIANS  (ERROR) 

1025 

25,2014 

0 0006 

1 

EXTEND 

1026 

RtF  7 LAST  585 

25,2015 

61*415 

0 

5U 

DB 

SCALED  AT  PI  RADIANS  (DEADBAND) 

1027 

REF  1 

25,2016 

55*454 

1 

T S 

HDAP 

E + »5ED0T (2) /NJETACC  - DB 

1028 

25,2017 

0 0006  1 

extend 

1029  REF  1 

25,2020 

6 2070  1 

BZMF  NEGHDAP 

T03O” 

REF  I5  LAST  588 

25,2021 

31*407 

0 

"~CAE  EDOT” ” 

1031 

25,2022 

0 0006 

1 

EXTEND 

1032 

iref  19”  cast  588 

25,2023 

7 1471 

"0 

MP  1/NJETAC 

1033 

REF  7 LAS  I 58 1 

25,2024 

55*521 

1” 

TS  TERMA 

IO34 

REF  1 

25*2025 

6 2205 

1 

AD  NEGC5P 

1035 

25,2026 

0 0006 

1 

extend 

1036 

25,2027 

6 2032 

1 

BZMF  +3 

XU3  ( 

Ktr  41  LA5 1 588 

25 ,2030 

3 7642 

0 

MAXTJET  CAF  BITI4 

1 0 38 

ref  1 

25,2031 

1 2057 

0 

TCp  NORmRETN 

SCALED  ATPT716  ”RAD7SEC  ( RATE ) 

"SCALED  “AT  2 (8  )/PI  SEC  ( 2 ) /RAD  TATTC)  (-1) 
SCALED  AT  2(4)  SEC  (CNTRL  SMPL  PERIOD) 
EDOT/NJETACC  - CSP  SCALED  AT  16  SECONDS 


(1/2)  IS  LIKE  POSMAX  AT  THIS  SCALING 
(OVERFLOW  IS  THUS  PREVENTED) 


1039 

REF 

2 LAST  568 

25,2032 

4 1454 

1 

C5  HDAP 

-DBM INIMP  + E + EDOT (2) /NJETACC  - DB 

1040 

REF 

4 LAST  560 

25 ,2033 

6 1647 

0 

AD  MINIMPDB 

SCALED  AT  PI  RADIANS 

1041 

25,2034 

0 0006 

1 

extend 

1042 

REF 

1 

25,2035 

6 2116 

0 

3ZMF  MAINBRCH 

1043 

RfcF 

0 LA5T  58B 

25,2036 

31*521 

0 

CAET-  TERMA- 

EDuT/NJtTACC  - 5CALED  AT  io 

1044 

REf 

1 

25,2037 

6 £ £ 1 1 

1 

AD  -20mS 

- 20  |V|S  SCALtD  AT  16* 

1 045 

25,2040 

0 0006 

1 

extend 

1046 

REF' 

1 

25  »2U41 

6 2044 

0 

SZMF  TJMI1N 

A 047 

KEF 

1 

25,2042 

6 2210 

0 

AD  23.75MS 

WE  GET  TERMA  ♦ 3.75  M5. 

1048 

REF 

25,2043 

1 2164 

1 

TCF  TJET5CAL 

473423A  YJL  SYSTEh  FOR  6LK2:  REVISION  12  OR  PROGRAM  AURORA  By  DAP  GROUP 
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L 

@Q*R- 

axes  reaction 

CONTROL  SYSTEM-  AUTOPILOT 

USER  * S OWN  pAGE  NO,  28 

1049 

REF 

1 

25 

2044 

4 2067  0 

TJMIN 

C5  PAXCALL 

WE  KNOW  WE  DO  P AXIS  SINCE  WE  HAVE  RUPT- 

TO  SO 

“ REF 

T2  LAST  539 

25 

2045 

6 0076  0 

AD  RUPTREG3 

REG3  = T-JETLAW  +3(Q-AXI'S  CALL  NOT  AT 

1051 

25 

2046 

0 0006  1 

EXTEND 

SAME  LOCATION—  WE  HOPE  - AND  INSURE,), 

1052 

REF 

1 

25 

2047 

1 2061  0 

3ZF  WEDOP 

TO  5 3 

'REF 

6 LAST  571 

25' 

2050 

31*620  1 

CAE  NO.OJETS 

NO,  OF  Q JETS  ON 

1054 

25 

2051 

0 0006  1 

EXTEND 

1055 

REF 

1 

25 

2052 

1 2063  1 

3ZF  WEDOR 

1056 

REF 

— 5 LAST  571 

25 

2053 

31*621  0 

CAE  NO.RJETS 

NO.  OF  R JETS  ON 

T057 

25 

2054 

0 0006  1 

extend 

1058 

REF 

1 

25 

2055 

1 2065  1 

BZF  WEDOQ 

1059 

REF 

I 

25 

2056 

3 2206  1 

DOTJMIN 

CAF  +TJMINT6 

1060 

REF 

' 13  LAST  589 

25 

2057 

24  076  0 

NORMRETN 

I NCR  RUPTREG3 

#**  RETURN  +1  *** 

1061 

REF 

285  LAST  586 

25 

2060 

0 0002  0 

TC  Q 

BACK  TO  I5WRETRN 

1062 

REF  14  LAST  575 

25 

2061 

55*416  1 

WEDOP 

"TS  OMEGAP 

1063 

RtF 

1 

25 

2062 

1 2056  1 

TCF  DOTJMIN 

1064 

REF 

11  LAST  578 

25 

2063 

55*421  0 

wedor 

TS  OMEGAR 

1065 

REF 

2 LAST  569 

25 

2064 

1 2056  1 

TCF  DOTJMIN 

1066 

REF 

11  LAST  578 

25 

2065 

55*417  0 

WEDOQ 

TS  OMEGAQ 

1067 

REF 

3 LAST  589 

25 

2066 

1 2056  1 

TCF  DOTJMIN 

1068 

REF 

2 LAST  552 

25 

2067 

02666  0 

paxcall 

GENA DR  T-JETLAW  +3 

1069 

REF 

6 LAST  588 

25 

2070 

31*412  1 

NEGHDAP 

CAE  EDOT ( 2 ) 

SCALED  AT  PI (2) /2 (8)  RAD (2) /SEC (2 ) 

1070 

25 

2071 

0 0006  1 

EXTEND 

1071 

REF 

15  LAST  585 

25 

2072 

7 16S0  1 

MP  .5ACCMNE 

,5  ( I/ACCMIN)  AT  2 (8) /PI  SEC (2) /RAD 

1072 

REF 

1 8 LAST  588 

25 

2073 

6 1411  1 

AD  E 

SCALED  AT  PI  RADIANS  (ERROR) 

1073 

REF 

8 LAST  588 

25 

2074 

6 1415  0 

AD  DB 

SCALED  AT  PI  RADIANS  (DEADBAND) 

1074 

REF 

5 LAST  560 

25 

2075 

6 1646  1 

AD  ' T56MTNTMP 

1075 

25 

2076 

0 0006  1 

extend 

1076 

25 

2077 

6 2101  0 

3ZMF  t2 

1077 

266  LAST  569 

25 

2100 

0 0002  0 

TC  Q 

***  RETURN  ***  (NO  JETS) 

1078 

REF 

1 

25 

21ol 

4 2212  0 

+ 2 

CS  MAXRATE 

lO  DeG/SeC  SCALED  AT  PI/16  RAD/SeC 

1079 

REF 

16  LAST  588 

25 

2102 

6 1407~0 

ad  EDOT' 

EDOT  - MAXRATE 

1080 

25 

2103 

0 0006  1 

EXTEND 

1081 

25 

2104 

6 2106  1 

3ZMF  +2 

1082 

REF 

287  last  589 

25 

2105 

0 oooz  a 

TC  “ no 

***  RETURN  ***  (NO  JETS) 

J.U8B 

K Er 

17  LASI  589 

25 

2106 

4 1407  1 

+ 2 

C5  EDOT 

SCALED  AT  PI/16  RAD/SEC  (RATE) 

1084 

25 

2107 

0 0006  1 

EXTEND  ' 

1085 

REF 

20  LAST  588 

28 

2110 

7 1471  0 

MP  I /N JET  AC 

SCALED  AT  2 ( 8 > /PI  5EC(2)/RAD  ( ACC)  ( -1 ) 

1086 

REF 

9 LAST  588 

25 

2111 

65*521  1 

TS  TERMA 

-EDOT /NJETACC  SCALED  AT  2(4)  5EC0NDS 

iUb  ( 

KEr 

i LASI  588 

25 

2112 

4 1454  1 

CS  HDAP 

- E + ,5ED0T(2) /NJETACC  + DB 

1088 

RtF 

19  LAST  589 

25 

2113 

6 1411  1 

AD  E 

1089 

Ktr  tU  LM8I  589 

25 

2114 

6 1411  1 

AD  E 

TWICE  ERROR  NEGATES  E OF  HDAP (OLD) 

IU9U 

rccr 

3 LnO 1 588 

25 

2115 

6 1647  0 

AD  MINIMPDB 

1U9  1 

RtF 

4 LAST  589 

25 

2116 

55*454  1 

mainbRch 

TS  HDAP 

-HDAP(OLD)  + 2E  + dbminimp  at  PI  RAqS 

1U92 

ket 

21  LASI  589 

25 

2117 

31*471  1 

CAE  1/NJETAC 

5CALED  AT  2 ( 8 ) /PI  SEC(2)/RAD 

1093 

25 

2120 

0 0006  1 

EXTEND 

1094 

ref 

42  LAST  585 

25 

2121 

7 7642  1 

W STT14 

(1/2) (1/NJETAC) 
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IO95 

REF 

16  LAST  589 

25,2122 

6 1650  0 

AD  .5ACCMNE 

1096 

REF 

25,2123 

55*456  0 

TS  DEN0M 

,5  (1/NJETACC)  + ,5 ( 1/ACCMIN)  AT  2(8)/PI 

1097 

25,2124 

0 0006  l 

EXTEND 

1098 

REF 

1 

25,2125 

7 2213  1 

MP  MAXRATE2 

SCALED  AT  pI(2)/2(8)  RAD  (2) /SEC  (2) 

1099 

RET 

5 LAST  589 

25,2126 

6 1454  0 

AD  HDAP 

DENOM, MAXRATE(2)  + HDAP  AT  PI  RADIANS 

1100 

25,2127 

0 0006  1 

EXTEND 

1101 

REF 

1 

25,2130 

6 2170  0 

3ZMF  NOROOT 

1102 

REF 

6 LAST  590 

25*2131 

31*454  0 

CAE  HDAP 

SCALED  AT  PI  RADIANS 

1103 

25,2132 

0 0006  1 

extend 

1104 

RET 

2 LAST  59O 

25,2133 

11*456  0 

DV  DENOM 

SCALED  AT  2(8) /PI  SEC ( 2 ) /RAD ( 2 ) 

1105 

25,2134 

0 0006  1 

EXTEND 

' 1 106 

REF" 

22  LAST  589 

25,2135 

7 1471  0 

MP  1/NjETAC 

1107 

25,2136 

0 0006  1 

extend 

1108 

REF 

23  LAST  590 

25,2137 

7 1471  0 

MP  1/NJETAC 

1109 

' REF 

5 LAST  581 

25,2140 

55*522  1 

TS  TERMB 

-(HDAP/DENOM) (1/NJETACC) (2)  AT  2 (ID  SECS 

1110 

ref 

2 LAST  588 

25,2141 

3 2205  1 

cAr  NtCaCSP 

SCALED  AT  2(4)  SECONDS 

nil 

REr  10  EAST  589 

25,2142 

6 1521  0 

AD  TERM A 

1112 

25,2143 

0 0006  1 

EXTEND 

1113 

25,2144 

7 0000  C 

SQUARE 

SCALED  AT  2(8)  SECONDS 

1114 

REF 

6 LAST  590“ 

25,2145 

6 1 5X2“  0" 

AD  TERMB 

1115 

25,2146 

0 0006  1 

EXTEND 

(TERMA  - CSP) (2)  + TERMB 

1116 

REF 

1 

25,2147 

6 2030  0 

3ZMF  MAXTJET 

TT1T 

REF  ' 

T 

25,2150 

3 2207  T 

“TAF  -TJMPU6 

1118 

RtF 

11  LAST  590 

25,2151 

6 1521  0 

AD  TERMA 

TERMA  - TJMIN  SCALED  AT  2(4)  SECONDS 

1119 

25,2152 

0 0006  1 

EXTEND 

1120 

REF 

I 

“ 25,2153 

6 2175  0 

SZMF  MAYNOJET 

1121 

25*2154 

0 0006  1 

PREROOT 

EXTEND 

MUST  SAVE  Q . 

1122 

RtF 

4 LAST  581 

25,2155 

23*517  0 

OXCH  A+B 

1123 

REF 

8 LAST  587 

25,2156 

0 4177  1 

TC  T6J0BCHK 

T124 

RET  7 LAST  590 

25,2X57 

4 1522  I 

CS  TERMB 

1125 

REF 

1 

25,2160 

0 4275  0 

TC  SPROOT 

SQRT (-TERMB)  SCALED  AT  2(4)  SECONDS 

1126 

25,2161 

0 0006  1 

EXTEND- 

MU5T  RESTORE  OLD  Q AFTER  5PR00T 

1127 

REF 

5 LAST  590 

25,2162 

23*517  0 

QXCH  A+B 

1128 

REF 

12  LAST  590 

25,2X63 

6 1521  0 

TJSUM  “ 

AD  “TERMA 

TERMA  + SORT (-TERMB) 

1129 

25,2164 

6 0000  1 

TJETSCAL 

DOUBLE 

NOW  SCALED  AT  2(3)  SECONDS 

1130 

25,2165 

0 0006  1 

EXTEND 

m 31 

REF 

T 

25,2166 

72215  1 

MP  2T/3ZQR 

SCALED  T 0 16/25  2(4)  SECONDS, 

1132 

REF 

2 LAST  588 

25,2167 

1 2057  0 

TCF  NORMRETN 

***  RETURN  ♦ 1 *** 

1133 

REF 

2 LA5T  589“ 

25,2170 

3 2212“  1 

TTUREOT 

CAF  MAXRATE 

1134 

REF 

1 

25,2171 

6 2214  1 

AD  .6DEG/SC 

MAXRATE  + DEL  SCALED  AT  PI/16  RAD/SEC 

1135 

25,2172 

0 0006  1 

EXTEND 

1136 

“REF 

24  LAST590 

25,2173 

7 1471“  0 “ 

“MP  1/NJETAC  ““ 

“SCALED  AT  2(8) /PI  SEC (2) /RAD 
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1137 

RET 

1 

25,2174 

1 2163 

0 

TCF 

TJSUM 

SCALED  AT  2 <4)  RADIANS 

1138 

Ref 

2 LAST  590 

25  >2175 

3 2207 

0 

MAYNOJET 

CAF 

-TJMIN16 

1139 

REF 

13  LAST  590 

25  > 2 176 

6 1521 

0 

AD 

TERMA 

TERMA  - TjMlN  SCALED  AT  2(4)  SECONDS 

1140 

25  >2177 

0 0006 

1 

EXTEND 

1141 

25  >2200 

7 0000 

0 

square 

SCALED  AT  2(8)  SEC (2 ) 

1142 

" REF 

8 LAST  590 

25  >2201 

6 1522 

0 

AD 

TERMB 

1143 

25  >2202 

0 0006 

1 

EXTEND 

1144 

REF 

1 

25,2203 

6 2154 

0 

8ZMF 

PREROOT 

(TERMA  - TJMINM2)  + TERMB  AT  2(8) 

1145 

” REF 

288  LAST  569 

25,2204 

0 0002 

0 

TC 

Q 

###  RETURN  *##  TNO  JETS) 

1146 

25  >2205 

77631 

0 

NEGCSP 

DEC 

-•00625 

100  MS  SCALED  AT  2(*>  SECONDS 

1147 

25,2206 

00014 

1 ‘ 

+TJMINT6 

DEC 

+.00073 

1 148 

25,2207 

77767 

1 

-TJMIN16 

DEC 

-.00047 

1149  REF  3 LAST  591 

25,2207 

-TJMINQR 

EQUALS  -TJMIN16 

1150 

25,2210 

00030 

1 

23.75M5 

DEC 

0,00148 

23,75  MS  SCALED  AT  16  SECONDS. 

1151  “ 

25,2211 

77753 

cr 

-20MS 

"DEC 

-.00125 

- 20  MS  SCALED  AT  16  SECONDS. 

1152 

25,2212 

34344 

0 

MAXRATE 

DEC 

0.88889 

10  DEGREES/SECOND  SCALED  AT  PI/16 

1153 

25,2213 

31221 

l 

MAXRATE2 

DEC 

0,79012 

100  DEG (2 ) /SEC (2)  SCALED  AT  PI<2)/2(8> 

1T54  ~ 

25,2214 

01552 

Y 

• 6DEG/SC  DEC 

0.05333 

6/10  DEGREES/SECOND  SCALED  AT  PI/16 

1155 

25,2215 

31000 

0 

25/32QR 

DEC 

0.78125 

l< 
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R U56  t"HeSe  TO  SuBRolTfrNES  TRANSFORM  e^OTQ.eDOtR  TNyO  JHe  U/V-AXIS  ( RESPECTIVELY)  FOR  THE  RATE  COMMAND  MODp  (ONLY) . 
RTI58  VALUE  IS  5T0REP  IN  EPOTGEN  SCALED  AT  PI/4  RADI ANS/SECOND. 

1159  . 24*3652  BANK  2 A __ ; 

IT60  REF  2*LAST  584  24,3652  11*447  1 EDOTUGEN  CAE  1/2jETSU  FOR"  U-AxlS  TRANSFORMATION 

~TT6T  REF  25  LAST  5W*  24,3653  55*471  0 TS  1/NJETAC 

1162  REF  5 LAST  584  24,3654  31*424  T — CAE  EDOTC 

1163  2*4,3655  1 3661  1 TCF  *4  

1164  REF  2 LAST  584*  24,3656  31*450  1 EDOTVGEN  CAE  1/2JETSV  FOR  V-AXIS  TRANSFORMATION 

1165  REF  "26  EAST  592  24,3657  55*471  0 TS  1/NJETAC 

1166  REF  6“CTSrT592  24,3660  4 1424  0 C5  EDOTO 

* 1167  REF  4“TA5T  584  ~24,366l  6*1425  0 AD*  * EdOTR 

1168*  24,3662  0 *0006  *1  EXTEND 

1169  REF  3 LAS  I 584  24,3663  7 3523  1 W5-  ,707 

1170  REF  6**LA5T  56**9  24,3664*  55*443  1 TS  RATEDIF 

1171  REF  289  LAST  591  * 24,3665  0 0002  0 TC  *Q* 


FnU72~  T hE^ E**PR0gRAM5  REDUCE  TRETATE  ERROR  TO  10.6  dEgREES/SEcONd. 


1173 

REF  18 

LAST 

589 

24,3666 

4 1407 

1 

REDUCERA  CS 

EDOT 

TEST  FOR  P-AXIS  PROBLEM 

1174 

REF  4 

LAST 

552 

24,3667 

6 1423 

0 

AD 

EDOTP 

EXACT  MATCH  MEANS  P-AXIS 

1175 

24,3670 

0 0006 

1 

EXTEND 

1176 

REF  *1 

2*4,3671 

1 3703 

1 

BZF 

REUUCEF 

P-AXIS  SUIT  IS  ALWAYS *MINUS  ZERO 

1177 

REF  1 

24,3672 

0 3715 

1 

REDUCEQR  TC 

REDUCESC 

GET  SHRINK  FACTOR 

TT78* 

24,3673 

0 0006 

I 

EXTEND 

SHRINK  Q-AXIS  COMPONENT 

1179 

RcF  7 

LAST 

592 

24,3674 

7 1424 

0 

MP 

EDOTQ 

1180 

REF  6 

LAST 

568 

24,3675 

55 • 424 

0 

TS 

QRATEDIF 

1181 

RtP  5 

LAST 

592 

t 3676 

31*425 

0 

CAE 

EDOTr 

SHRINK  R-AXIS  COMPONENT 

1182 

24,3677 

0 0006 

1 

EXTEND 

1183 

*REF  19 

TAFT 

592 

24,3*700 

7 1407 

1 

MP** 

EDOT 

1184 

REF  9 

LAST 

569 

24,3701 

55*425 

1 

TS 

RRATEDIF 

1185 

REF 

2 

LAST 

567 

24,3702 

1 2352 

0* 

TCF 

OBEYQRRC 

1 iB6 

Rtf- 

2 

LAS  r 

592 

24*3703 

0 3715 

1 

REDUCEP  TC 

REDUCESC 

GET  SHRINK  r ACTOR 

1187 

24,3704 

0 0006 

T 

"EXTEND 

SHRINK  P-AXIS  COMPONENT 

1188 

REF 

5 

LA5T 

592 

24,3705 

7 1423 

1 

MP 

EDOTP 

1189 

REF 

6 

LAST 

592 

24,3706 

55  *423 

1 

TS 

EDOTP 

1190 

REF 

8 

LAST 

586 

24~,  3707 

55*440 

1 

TS 

TFSTG  * 

1191 

24,3710 

0 0006 

1 

EXTEND 

1192 

24 , 371T 

3 3714 

0 

DCA 

+ 2 

1 193 

24,3712 

52  006 

0 

DTCB 

1194 

24,3713 

02424 

IF 

2CADR- 

OBEYRAPE 

Cl  194 

REF 

T 

24,3714 

46006 

IT 
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1195 

REF 

1 

24.3715 

3 3722  0 

REDUCESC 

CAF 

10.6D/S 

SCALED  AT  PI/4 

1196 

24.3716 

0 0006  1 

EXTEND 

1197 

"REF 

20  LASI  592 

24,3717 

11*407  1 

DV 

EDOT 

RESULT  SCALED  AT  1 

1198 

REF 

21  LAST" 593 

24.3720 

55*407  1 

TS 

EDOT 

SAVE  FACTOR  IN  EDOT  FOR  R SHRINKAGE 

1199 

ref 

29C  LAST  592 

24.3721 

0 0002  0 

TC 

Q 

***  RETURN  *** 

1200 

24.3722 

07313  1 

10.6D/S 

0.23111 

10,6  DEGREES/SECOND  SCALED  AT  PI/4 

1201 


24.3723  ENDDAP24  EQUALS 
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L 

jet  failure  control  logic 

USER'S  OWN  PAGE  NO.  1 

0001 

25*2216 

BANK 

25 

0002 

REF  5 LAST  562 

E6 

ebank= 

DT 

rooo3  determine  mode  - +xtrans*  -xtrans*  ascent*  mandatory  rotation*  or  normal 


0004 

REF 

33 

LAST 

570 

25*2216 

3 7651 

1 

POLTYPEP  CA 

BIT7 

. check 

+x  TRANSLATION 

0005 

25*2217 

0 0006 

1 

EXTEND 

0006 

25*2220 

02  031 

1 

RAND 

31 

0007 

25,2221 

0 0006 

1 

EXTEND 

07)08 

REF 

1 

25,2222 

in 

nT 

04 

CNJ 

r— 1 

1 

BZF 

POSXPOLS 

0009 

REF 

25 

LAST 

570 

25*2223 

3 7650 

0 

CA 

BIT8 

check 

-X  TRANSLATION 

OOTO  ' 

25,2224 

0 0006 

1 

EXTEND 

0011 

25*2225 

02  031 

1 

RAND 

31 

0012 

25,2226 

0 0006 

1 

EXTEND 

001 3 

"RET" 

1 

25,2227 

1 2242 

0 

BZF 

NEGXPOLS 

CHECK 

U,V-MANDATORY  AND  4-JET  q,r 

0014 

REF 

40 

LAST 

h- 

m 

25*2230  ~ 

3 0765  0 

CA 

“DAFBOOLS 

CHECK 

ASCENT  BIT  OF  DAP60QLS 

CT0T5 

REF 

26 

LAST 

594 

25,2231  7 7650  1 

mask 

BITS 

0016 

25,2232 

0 0006  1 

extend 

0017  REF 

T 

25,2233 

1 2237  1 

BZF 

NORMATT 

^018 

REF 

2 

LAST 

583 

25,2234 

51*523  1 

ASCFLGHT 

INDEX 

POLRELOC 

0019  REF 

1 

25*2235 

3 3013  0 

CA 

ASCNTPOL 

0020 

25,2236 

1 2247  0 

TCF 

♦ 9D 

0021 

REF 

3 

LA5T 

594 

25,2237 

51*523  1 

NQRMATT 

INDEX 

POLRELOC 

0022 

REF 

1 

25,2240 

3 2773  0 

CA 

NORMLPOL 

“0023 

25,2241 

1 2247  0 

TCF 

+ 6 

0024 

REF 

“ 4 

LAST 

594 

25,2242 

51*523  1 

NEGXPOLS 

INDEX 

POLRELOC 

0025 

REF 

1 

25,2243 

3 3053  1 

CA 

-XPOLADR 

0026 

25 ,2244 

1 2247  0 

TCF 

23 

0027 

REF 

5 

LAST 

594 

25,2245 

51*523  1 

POSXPOLS 

INDEX 

POLRELOC 

0028 

REF 

1 

25,2246 

3 3033  1 

CA 

+XPOLADR 

0029 

NEF 

6 

LAST 

594 

25,2247 

5 S • 5 23  O- 

“TS 

POLRELOC 

RESET 

POLRELOC  TO  NEW  TAgLE  ENTRY 

— 0030 

REF- 

T 

LA5T 

594 

25,2250 

51*523 

”1 

INDEX 

POLRELOC 

USE  POLRELOC 

POINTER 

TO  FIND  AND 

oojr 

Rc.F 

1 

25,2251 

3 2364 

1 

TTA 

P0LTAB1 

EXTRACT  THE 

NUMBER  OF 

TESTABLE 

0032 

25 ,2252 

0 0006 

1 

EXTEND 

POLICIES  AND 

SAVE  IN 

LOOPCTR 

0033 

REF 

34 

LAST 

594 

25*2253 

7 7651 

0 

MP 

BIT7 

0034 

RtF 

13 

LAsr 

S83 

25,2254 - 

7 7663 

T 

“NASK 

SEVEN 

OO35 

REF 

i 

25,2255 

55*524 

1 

TS 

loofctr 

0037 

REF 

2 

LAST 

594 

25,2257 

55*524 

1 POLLOOP 

TS 

LOOPCTR 

OO38 

25*2260 

0 0006 

1 

EXTEND 

0039 

ref 

8 

LAS  1 

594 

25  *2261 

27*523 

0 

dim 

POLRELOC 

0040 

REF 

9 

LAST 

594 

25,2262 

51*523 

1 

INDEX 

POLRELOC 

0041 

REF 

2 

LAST 

594 

25 ,2263 

3 2364 

“I — 

CA 

P0LTAB1 

0042 

REF 

203 

LAST 

506 

2^*2264 

54  001 

1 

TS 

L 

RESTORE  COUNTER 

CHANGE  EFFECTIVE  ADDRESS  TO  NEXT  POLICY 


PICK  UP  rotational  JETS 
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0043 

REF 

“TO  LAST'  594 

25*2265 

51*523 

1 

INDEX 

POLRELOC 

0044  “ 

REF 

" 1 

25,2266 

3 2564 

1 

CA 

P0LTAB2 

PICK  UP  TRANSLATIONAL  JETS  (MAY  BE  NONE) 

0045 

25,2267 

0 0006 

1 

EXTEND 

GET  ALL  JETS  USED  IN  THIS  POLICY 

0046 

“REF 

204  LAST  594 

25,2270 

05  001 

0 

('/OR 

L 

(LOW  ORDER  8 BITS  ONLY) 

0047 

REF 

2 LAST  558 

25,2271 

7 1512 

1 

MASK 

CH5MASK 

TEST  FOR  POLICY  FEASIBILITY  - 

0048 

REF" 

360  LASI  586 

25,2272 

10  000 

0 

CCS 

A 

REJECT  POLICY  IP  ANY  OF  THE  JETS  IT  USES 

0049 

25,2273 

1 2275 

1 

TCP 

+ 2 

ARE  THOUGHT  TO  HAVE  FAILED 

0050  " 

REF 

1 

25,2274 

1 2301 

0 

TCF 

POLFND 

0051 

REF 

3 LAST  594 

25*2275 

11*524 

1 

CCS 

LOOPCTR 

TEST  FOR  EXISTENCE  OF  ADDITIONAL 

0052 

REF 

1 

25,2276 

1 2257 

1 

TCF 

POLLOOP 

TESTABLE  POLICY 

0053 

25,2277 

0 0006  1 

EXTEND 

LAST  FEASIBLE  CHOICE  - 

0054  rEF  11  LAST  595 

25,2300 

27*523  0 

DIM  POLrELOC 

create  untested  policy  address 

0055 

REF  12  LAST  595 

25,2301 

51*523 

1 

POLFND  INDEX 

POLRELOC 

0056 

REF  3 LAST  5^4 

25*2302 

3 2364 

1 

CA 

P0LTAB1 

0057 

REF  10  LAST  471 

25,2303 

7 5235 

1 

MASK 

L0W8 

GET  CHANNEL  5 BIT 

CONFIGURATION  FOR 

0058 

REF  37  LAST  572 

25,2304 

6 7641 

0 

AD 

B I T 1 5 

SET  SIGN  FOR  0 ,R 

AXIS  FLAG 

0059 

REF  5 LAST  572 

25,2305 

55*501 

0 

TS 

JTSONNOW 

JETS  TO  BE  TURNED 

ON  IMMEDIATELY 

0060 

REF  I 3 LA5T  595 

25  »23o6 

51*523 

1 

INDEX 

POLRELOC 

0061 

REF  4 LAST  595 

25,2307 

3 2364 

1 

CA 

POLTABl 

0062 

25,2310 

0 0006 

1 

EXTEND 

UU63 

"REF  38  LAST“569 

25,2311 

7 7654 

0 

MP 

B1T4 

ER  OF  TORqUTNG  jETS 

0064 

RtF  361  LAST  595 

25,2312 

10  000 

0 

CCS 

A 

0065 

25,2313 

1 2315 

0 

TCF 

+ 2 

0U66 

REF"  1 

25,2314 

1 2326 

0 

TCF" 

TORKSETP 

N=2,  "CODE  = 0 

0067 

REF  362  LAST  595 

25,2315 

10  000 

0 

CCS 

A 

0068 

REF  1 

25,2316 

1 2322 

1 

TCF 

1/4JETAC 

0069 

REF  27  LAST  592 

25,2317 

3 "1471 

1 

CA 

17NJETAC 

N = 4 , CODE  = 2 

0070 

25,2320 

6 0000 

1 

DOUBLE 

N = I,  CODE  = 1 

0071 

REF  1 

25,2321 

1 2325 

0 

TCF 

NJETCORR 

0072 

— REF”  28  LATT595 

“25,2322 

3 1471  1 

1/4JETACTTA 

1/NjETAC  " 

~N  = 4,"  CODE  = 2 

0073 

25,2323 

0 0006 

T 

EXTEND" 

OO74 

REF  43  LASI  589 

25,2324 

7 7642 

1 

MP 

BIT14 

"0075 

"REF  29  LAST  595 

25,2325 

551471 

D" 

" NUETCORR"  T5 

T7WETAC  " 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 
0089 


REF  14  LAST  595 
REF  ~2_CA5r  595  ' 

REF  39  LAST  595 
REF  363  LAST  59b 
REF  t,— 

REF  7 LAST  589 
REF  205  LAST  595 

REF  40  LAST  595 
REF  364  LAST  595 
REF  2 LAST  595 
REF  6 LAST  589 
REF  206  LAST  595“ 


25 


25 

25 

25 

25 

25 

25 


25 

25 

25 

2 

05 

25 

25 


2326 


2327 

2330 

2331 


51*523  1 
3:  2564  1 
0 0006  1 
7 7654  0 


2332 

2333 

2334 

2335 

2336 

2337 

5 ,2340  50  000  1 

2341 

2342 

2343 


50  000  1 
3 2355  0 
55*620  0 
3 0001  0 
0 0006  1 
7 7654  0 


3 2355  0 
55*621  1 
3 0001  0 


TORKSETP  INDEX  POLrELOC 

CAT P0LTAB2 

EXTEND "“ 

MP BTTF“ 

INDEX — A~ 

CA  TORKTABL 

TS NO.QJETS 

CA  L 

EXTEND 

MP BTT4" 

INDEX — A- 
CA  TORKTABL 

TS  NO, R JETS 

CA  — C- 


GET  CODE  FOR  NUMBER  OF  Q-JETS 


GET  NUMBER  OF  O-JETS  FROM  TABLE  AND 
SAVE  FOR  TORQUE  VECTOR  RECONSTRUCTION 


GET  CODE  FOR  NUMBER  OF  R-UETS 


GET  NUMBER  OF  R-JETS  FROM  TABLE  AND 
SAVE  FOR  TORQUE  VECTOR  RECONSTRUCTION 
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L 

JET  FAILURE  CONTROL  LOGtC 

USER'S  OWN  PAGE  NO.  3 

0090 

25*2344 

0 0006  1 

EXTEND 

00  9 1 

R"EF  23  LAST  567 

25,2345 

7 7647  1 

MP 

6IT9 

get  Channel  5 bit  configuration  for- 

OO92 

REF  38  LA5T"  595 

25 ,2346 

6 7641  0 

AD 

BIT15 

SET  SIGN  FOR  Q,R  AXIS  FLAG 

OO93 

"REF  1 6 LAST  572 

25,2347 

55 1 502  0 

TS 

JTSATCHG 

JETS  TO  BE  TURNED  ON  AFTER  TORQUING 

0094 

ref  1 

25,2350 

3 2354  1 

CA 

bbankset 

OO95 

REF  20?  LAST  595 

25,2351 

54  001  1 

TS 

L 

0096 

REF  4 LAST""578 

25,2352 

3 1514  0 

CA 

TJETADR 

0097 

25,2353 

52  006  0 

DTCB 

RETURN  TO  F6ANK  24 

OO98 

25,2354 

5000fe  1 

BBANKSET  OCTAL 

50006 

R0099 

table  OF  q.r-jet 

NUMBERS  and 

directions 

for  torque  reconstruction 

0100 

25,2355 

77773  1 

TORKTABL  DEC 

-4 

0101 

25,2356 

77775  1 

DEC 

-2 

0102 

25,2357 

77776  1 

DEC 

-1 

~0i03 

25,2360 

00000  1 

DEC 

0 

0104 

25,2361 

00001  0 

DEC 

+ 1 

0105 

25,2362 

00002  0 

DEC 

+ 2 

"0106 

25,2363 

00004  0 

DEC 

+ 4 

RO107  ~F0LTAgr~EX5TS  Q,R-AXI S ROTAT I ORAL  JET  POLICIES 


"0108 

25  *2364 

00220  1 

P0LTAB1  OCTAL 

220 

JETS 

9 

14 

0 

0 

NO 

2 

CTR  0 

0109 

25 ,2365 

00006  1 

octal 

6 

JETS 

2 

5 

0 

0 

NO 

2 

CTR  0 

0110 

25,2366 

00602  0 

OCTAL 

602 

JET5 

2 

14 

0 

0 

"NO 

2 

CTR  I 

0111 

25,2367 

10226  0 

OCTAL 

10226 

JETS 

2 

5 

9 

14 

NO 

4 

CTR  0 

0112 

25,2370 

11626  0 

OCTAL 

11626 

JETS 

2 

5 

9 

14 

NO 

4 

CTR  3 

~ori3 

25,2371 

00201  1 

“OCTAL" 

201 

JETS 

1 

14 

0 

0 

NO 

2 

CTR  0 

0114 

25,2372 

00044  1 

OCTAL 

44 

JETS 

5 

10 

0 

0 

NO 

2 

CTR  0 

0115 

25,2373 

00640  0 

OCTAL 

640 

JETS 

10 

14 

0 

0 

NO 

2 

CTR  1 

0116 

25,2374 

10245  0 

OCTAL " 

10245 

JET5  1 

5" 

10 

14 

NO 

4 

CTR  0 

Oil? 

25,2375 

11645  0 

OCTAL 

11645 

JET5 

1 

5 

10 

14 

NO 

4 

CTR  3 

0118 

25,2376 

00140  1 

OCTAL 

140 

JETS 

10 

13 

0 

0 

NO 

2 

CTR  0 

ori9 

25,2377 

00011  1 

OCTAL 

11 

JETS 

1 

6 

0 

0 

"NO 

2 

CTR  0 

0120 

25,2400 

00450  0 

OCTAL 

450 

JETS 

6 

10 

0 

0 

NO 

2 

CTR  1 

0121 

25,2401 

10151  0 

OCTAL ' 

10151 

JETS 

1 

6 

10 

13 

NO 

4 

CTR  0 

orzz 

25,2402 

11551  "0" 

OCTAL 

11551 

JETS 

1 

6 10  13 

NCT4 

CTR  3 

0123 

25,2403 

00102  1 

OCTAL 

102 

JET  5 

2 

13 

0 

0 

NU 

2 

CTR  0 

0124 

25*2404 

00030  1 

OCTAL 

30 

JETS 

6 

9 

0 

0 

NO 

2 

CTR  0 

0125 

25,2405 

00412  0 

OCTAL 

412 

JETS 

2 

6 

0 

0 

"NO 

2 

CTR  1 

0126 

25 ,2406 

10132  0 

OCTAL 

10132 

JET  S 

2 

6 

9 

13 

NO 

4 

CTR  0 

0127 

25 ,2407 

11532  0 

OCTAL 

11532 

JETS 

2 

6 

9 

1 3 

NO 

4 

CTR  3 

0128 

25,2410 

00220  1 

OCTAL 

“ 220 

JETS 

9 

14 

0 

0 

"NO 

2 

CT R 0 

0129 

25,2411 

00006  1 

OCTAL 

6 

JETS 

2 

5 

0 

0 

NO 

2 

CTR  0 

OI3O 

25 ,2412 

00424  0 

OCTAL 

424 

JETS 

5 

9 

0 

0 

NO 

2 

CTR  1 

0131 

25,2413 

10226  "0 

OCTAL 

10226 

JETS 

2 

5 

9 

14 

NO 

4 

CTR  0 
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0132 

25.2414 

11626  0 

OCTAL 

11626 

JETS 

2 

5 

9 14  NO 

4 

CTR  3 

0133" 

25,2415 

00044  1 

OCTAL 

44 

JETS 

5 

10 

0 0 NO 

2 

CTR  0 

0134 

25,2416 

00201  1 

OCTAL 

201 

JETS 

1 

14 

0 0 NO 

2 

CTR  0 

0135 

25,2417 

00405  0 

OCTAL 

405 

JET  S 

1 

5 

0 0 NO 

2 

CTR  1 

~ 0136 

25,2420 

10245  0 

OCTAL 

10245 

JETS 

1 

5 

10  14  NO 

4 

CTR  0 

0137 

25,2421 

11645  0 

OCTAL 

11645 

JETS 

1 

5 

10  14  NO 

4 

CTR  3 

0136 

25,2422 

00140  1 

OCTAL 

140 

JETS 

10 

13 

0 0 NO 

2 

CTR  0 

0139 

25,2423 

00011  1 

OCTAL 

11 

JETS  1 

6 

0 0 NO 

2 

CTR  0 

OHO 

25,2424 

00501  0 

OCTAL 

501 

JETS 

1 

13 

0 0 NO 

2 

CTR  1 

0141 

25,2425 

10151  0 

OCTAL 

10151 

JETS 

1 

6 

10  13  NO 

4 

CTR  0 

0142 

25,2426 

11551  0 

"OCTAL 

11551 

JETS 

1 

6 

10  13  NO 

4 

CTR  3 

0143 

25,2427 

00030  1 

OCTAL 

30 

JETS 

6 

9 

0 0 NO 

2 

CTR  0 

0144 

25,2430 

00102  1 

OCTAL 

102 

JETS 

2 

13 

0 0 NO 

2 

CTR  0 

0145 

25,2431 

00520  0 

OCTAL 

520 

JETS 

9 13 

0 0 NO 

2 

CTR  1 

0146 

25,2432 

10132  0 

OCTAL 

10132 

JETS 

2 

6 

9 13  NO 

4 

CTR  0 

0147 

25,2433 

11532  0 

OCTAL 

11532 

JETS 

2 

6 

9 13  NO 

4 

CTR  3 

0148 

25,2434 

04046  1 

OCTAL 

4046 

JETS 

2 

5 

10  0 NO 

1 

CTR  0 

0149 

25,2435 

04242  1 

OCTAL 

4242 

JETS 

2 

10 

14  0 NO 

1 

CTR  0 

0150 

25,2436 

04600  0 

OCTAl 

4600 

JETS 

14 

0 

0 0 NO 

1 

CTR  1 

0151 

25.2437 

00204  1 

OCTAL 

204 

JETS 

5 

14 

0 0 NO" 

2 

CTR  0 

0152 

25,2440 

01604  1 

OCTAL 

1604 

JETS 

5 

14 

0 0 NO 

2 

CTR  3 

0153 

2 5,2441 

04142  1 

OCTAL 

4142 

JETS 

2 

10 

1 3 0 NO 

1 

CTR  0 

0154 

25,2442 

04052  1 

OCTAL 

4052 

JETS 

2 

6 

10  0 NO 

1 

CTR  0 

0155 

25,2443 

04410  0 

OCTAL 

4410 

JETS 

6 

0 

0 0 NO 

1 

CTR  1 

0156 

25,2444 

00110  1 

OCTAL 

110 

JETS 

6 

13 

0 0 NO 

2 

CTR  0 

0157 

25 ,2445 

0 I 510  1 

OCTAL 

1510 

" JETS 

6 

13 

0 0 “NO 

2 

CTR  3 

0158 

25,2446 

04211  1 

OCTAL 

4211 

JETS 

1 

6 

14  0 NO 

I 

CTR  0 

0159 

25,2447 

04250  1 

OCTAL 

4250 

JETS 

6 

10 

14  0 NO 

1 

CTR  0 

0160 

25,2450 

04440  0 

OCTAL" 

4440 

0 0 NO 

1 " 

CTR  1 

0161 

25,2451 

00041  1 

OCTAL 

41 

JETS 

1 

10 

0 0 NO 

2 

CTR  0 

0162 

25,2452 

01441  1 

OCTAL 

1441 

JETS 

1 

10 

0 0 NO 

2 

CTR  3 

0163 

2 S ,24  5 J 

04230  1 

OCTAL 

“ 4230 

JETS 

6 

9 

I"4  0 NO 

1 

CTR  0 

0164 

25 ,2454 

04212  1 

OCTAL 

4212 

JETS 

2 

6 

14  0 NO 

1 

CTR  0 

0165 

25,2455 

04402  0 

OCTAL 

4402 

JETS 

2 

0 

0 0 NO 

1 

CTR  1 

0X66 

25,2456 

0)0022  1 

OCTAL 

"22 

JETS  2 

9 

0 0 NO 

2 

CTR  0 

0167 

25,2457 

01422  1 

OCTAL 

1422 

JETS 

2 

9 

0 0 NO 

2 

CTR  3 

0168 

25 ,2460 

04221  1 

OCTAL 

4221 

JETS 

1 

9 

14  0 NO 

1 

CTR  0 

1)109 

25,2461 

040  2 5 r 

"OCTAL 

4025 

JETS 

1 

"5" 

9 ONO" 

I 

" CTR  0 

0170 

25,2462 

04404  0 

OCTAL 

4404 

JETS 

5 

0 

0 0 NO 

1 

CTR  1 

0171 

25  ,2463 

00204  1 

OCTAL 

204 

JETS 

5 

14 

0 0 NO 

2 

CTR  0 

0172 

25,2464 

01604  1 

OCTAL 

1604 

JET5 

5 

14 

0 0 NO 

2 

CTR  3 

0173 

25 ,2465 

04031  1 

OCTAL 

4031 

JETS 

1 

6 

9 0 NO 

1 

CTR  0 

0174 

25 ,2466 

04121  1 

OCTAL 

4121 

JETS 

1 

9 

13  0 NO 

1 

CTR  0 

0175 

25,2467 

" 04500  0 

OCT  AL 

4500 

JETS 

13 

0 

0 0 NO 

1 

CTR  1 

0176 

25,2470 

00110  1 

OCTAL 

110 

JETS 

6 

13 

0 0 NO 

2 

CTR  0 

OI77 

25,2471 

0 1 5 1 0 1 

OCTAL 

1510 

JETS 

6 

13 

0 0 NO 

2 

CTR  3 

017B 

25,2472 

04144  1 

" "OCTAL  " 

4l44 

JETS 

5 

10 

13  "0  NO 

1 

CTR  0 

0179 

25,2473 

04105  1 

OCTAL 

4105 

JETS 

1 

5 

13  0 NO 

1 

CTR  0 

0180 

25 , 2474 

04401  0 

OCTAL 

4401 

JETS 

1 

0 

0 0 NO 

1 

CTR  1 

0 1 8l 

25,2475 

00041  I 

"OCTAL 

41 

JETS 

T 

ro 

0 CT  NO 

2 

CTR  0 
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l Jet  failure  control 

LOGIC 

USER 

•S 

OWN 

PAGE 

NO. 

5 

0182 

25,2476 

01441  1 

_ _ octal 

1441 

JETS 

1 

10 

0 

0 

NO  2 

CTR 

3 

01T83 

25,2477 

04106  1 

octal 

4106 

JETS 

2 

5 

13 

0 

NO  1 

CTR 

0 

~0l84 

25,2500  04124  1 

OCTAL 

4124 

JETS 

5 

9 

13 

0 

NO  1 

CTR 

0 

uia5 

25,2501 

04420  0 

OCTAL 

4420 

JETS 

9 

0 

0 

0 

NO  1 

CTR 

1 

0166 

25,2502 

00022  1 

OCTAL 

22 

JETS 

2 

9 

0 

0 

NO  2 

CTR 

0 

0187 

25,2503 

01422  1 

OCTAL 

1422 

JETS 

2 

9 

0 

0 

NO  2 

CTR 

3 

0188 

25,2504 

04004  1 

OCTAL 

4004 

JETS 

5 

0 

0 

0 

NO  1 

CTR 

0 

0189 

25,2505 

0 4200“  1 

OCTAL 

4200 

JETS 

14 

0 

0 

0 

NO  1 

CTR 

0 

or9o  " 

25,2506 

00604  0 

OCTAL 

604 

JETS 

5 

14 

0 

0 

NO  2 

CTR 

1 

0191 

25,2507 

04001  1 

OCTAL 

4001 

JETS 

1 

0 

0 

0 

NO  1 

CTR 

0 

0192 

25,2510 

04040  I 

~ OCTAL 

4040 

JETS 

10 

0 

0 

0 

NO  1 

CTR 

0 

0193 

25,2511 

00441  0 

OCTAL 

441 

JETS 

1 

10 

0 

0 

NO  2 

CTR 

1 

0194 

25,2512 

04100  1 

OCTAL 

4100 

JETS 

13 

0 

0 

0 

NO  1 

CTR 

0 

0195 

25,2513 

04010  1 

OCTAL 

4010 

JET5 

6 

0 

0 

0 

NO  1 

CTR 

0 

0196 

25,2514 

00510  0 

OCTAL 

510 

JETS 

6 

13 

0 

0 

NO  2 

CTR 

1 

0197 

25,2515 

04020  1 

OCTAL 

4020 

JETS 

9 

0 

0 

0 

NO  1 

CTR 

0 

0198 

25,2516 

04002  1 

OCTAL 

4002 

JITS 

2 

0 

0 

"0 

NO  1 

CTR  0 

0199 

25,2517 

00422  0 

octal 

422 

JETS 

2 

9 

0 

0 

NO  2 

CTR 

r 

0200 

25,2520 

00024  1 

octal 

24 

JETS 

5 

9 

0 

0 

NO  2 

CTR 

0 

0201 

25,2521 

00220  1 

octal 

220 

JETS 

9 

14 

0 

0 NO  2 

CTR 

0 

0202 

25,2522 

00006  1 

OCTAL 

6 

JETS 

2 

5 

0 

0 

NO  2 

CTR 

0 

0203 

25,2523 

01202  0 

OCTAL 

1202 

JETS 

2 

14 

0 

0 

NO  2 

CTR 

2 

02  04 

25,2524 

00005  1 

OCTAL 

5 

JETS 

1 

5 

0 

0 

NO  2 

CTR" 

0 

0205 

25,2525 

00201  1 

OCTAL 

201 

JETS 

1 

14 

0 

0 

NO  2 

CTR 

0 

0206 

25,2526 

00044  1 

OCTAL 

44 

JETS 

5 

10 

0 

0 

NO  2 

CTR 

0 

0*207 

25,2527 

01240  C 

OCTAL 

1240 

JETS 

10  14 

0 

0 

NO  2 

CTR 

2 

0208 

25,2530 

00101  1 

OCTAL 

101 

JET  5 

r 

13 

0 

0 

NO  2 

CTR 

0 

0209 

25,2531 

00140  1 

OCTAL 

140 

JETS 

10 

13 

0 

0 

NO  2 

CTR 

0 

0210 

25,2532 

00011  1 

OCTAL 

11 

JET5 

1 

6 

0 

0 

NO  2 

CTR 

0 

0211 

25,2533 

01050  0 

OCTAL 

1050 

JE ) S 

6 

10 

0 

0 

NO  2 

CTR 

2 

0212 

25,2534 

00120  1 

OCTAL 

120 

JETS 

9 

13 

0 

0 

NO  2 

CTR 

0 

0213 

25,2535 

00102  1 

"OCTAL 

102 

JIT  5 

2 13 

0 0 NO  2 

CTR 

0 

0214 

25,2536 

00030  1 

OCTAL 

30 

JEl  S 

6 

9 

0 

0 

NU  2 

CTR 

0 

0215 

25,2537 

01012  0 

OCTAL 

1012 

JETS 

2 

6 

0 

0 

NO  2 

CTR 

2 

"0216 

25,2540 

00024  1 

"OCTAL 

24 

JETS 

5 

9 

0 

0 

NO  2 

CTR 

0 

0217 

25,2541 

00202  1 

OCTAL 

202 

JETS 

2 

14 

0 

0 

NO  2 

CTR 

0 

0218 

25,2542 

00220  1 

OCTAL 

220 

JETS 

9 

14 

0 

0 

NO  2 

CTR 

"0 

02  T9 

25,2543 

01006  0 — 

OCTAL 

1006 

JIT5 

"0 

0 NO  2 

CTR  2 

0220 

25 ,2544 

11626  0 

OCTAL 

11626 

JETS 

2 

5 

9 

14 

NU  4 

CTK 

i 

0221 

25,2545 

00005  1 

OCTAL 

5 

JETS 

1 

5 

0 

0 

NO  2 

CTR 

0 

— 0222 

25,2546 

00240"! — 

"OCTAL 

ZAO 

JITS 

TO 

14 

0 

0 

NO  2 

CTR 

0 

0223 

25,2547 

00201  1 

OCTAL 

201 

JETS 

I 

14 

0 

0 

NO  2 

CTR 

“0 

0224 

25,2550 

01044  0 

OCTAL 

1044 

JETS 

5 

10 

0 

0 

NO  2 

CTR 

2 

"0225 

25,2551 

11645  0 

OCTAL 

JETS 

T 

5 

10 

14  NO  4 

CTR 

3 

0226 

25,2552 

00050  1 

OCTAL 

50 

JETS 

6 

10 

0 

0 

NU  i 

CTR 

0 

0227 

25,2553 

00101  1 

OCTAL 

101 

JETS 

1 

13 

0 

0 

NO  2 

CTR 

0 

0228 

25,2554 

00140  1 

OCTAL 

140 

JITS 

10 

13 

0 

0 

NO  2 

CTR 

0 

0229 

25,2555 

01011  0 

OCTAL 

1011 

JETS 

1 

6 

0 

0 

NO  2 

CTR 

2 

0230 

25,2556 

11551  0~ 

OCTAL 

11551 

JETS 

1 

6 

10 

13 

NO  4 

CTR 

3 

"0231 

25.2557 

00120  r 

tjctal 

120" 

JETS 

9 

13  0 

0 NO  2 

C 1 K U 

473423A  Y'JL  SYSTEM  TOR  BLK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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l jet  failure-- control  logic user's  own  page _ no,  6 


0232 

25*2560 

00012 

1 

OCTAL 

12 

JETS  2 6 

0 0 NO  2 CTR  0 

0233 

25*2561 

00102 

1 

OCTAL 

102 

JETS  2 13 

0 0 NO  2 CTR  0 

0234 

25,2562 

01030 

0 

OCTAL 

1030 

JETS  6 9 

0 0 NO  2 CTR  2 

" 0235 

25,2563 

11532 

0 

OCTAL 

11532 

JETS  2 6 

9 13  NO  4 CTR  3 

R0236 

POLTAB2  LISTS  Q*R-AXIS  TRANSLATIONAL 

POLICIES 

0237 

25,2564 

25610 

1 P0LTAB2 

OCTAL 

25610 

JETS  6 14 

qNO  2 RNO  0 

0238 

25,2565 

25442 

1 

OCTAL 

25442 

JETS  2 10 

QNO  2 RNO  0 

0239 

25,2566 

25400 

1 

OCTAL 

25400 

JETS  0 0 

QNO  2 RNO  0 

0240 

25,2567 

31610 

1 

octal 

31610 

JETS  6 14 

QNO  4 RNO  0 

0241 

25,2570 

31442 

1 

octal 

31442 

JETS  2 10 

qNO  4 RNO  0 

0242 

25,2571 

16610 

1 

OCTAL 

16610 

JETS  6 14 

QNO  0 RNO  2 

0243 

25,2572 

16442 

1 

OCTAL 

16442 

JETS  2 10 

QNO  0 RNO  2 

0244 

25,2573 

16400 

1 

octal 

16400 

JETS  0 0 

QNO  0 RNO  2 

0245 

25,2574 

17210 

1 

OCTAL 

17210 

JETS  6 14 

QNO  0 RNO  4 

0246 

25,2575 

17042 

1 

OCTAL 

17042 

JETS  2 10 

QNO  0 RNO  4 

0247 

25,2576 

05442 

0 

OCTAL 

5442 

JETS  2 10 

QNO-  2 RNO  0 

0248 

25,2577 

05610 

0 

OCTAL 

5610 

JET5  6 14 

QNO-  2 RNO  0 

0249 

2 5 9 2600 

05400 

0 

OCTAL 

5400 

JET5  0 0 

QNO-  2 RNO  0 

0250 

25,2601 

01610 

1 

OCTAL 

1610 

JETS  6 14 

QNO-  4 RNO  0 

0251 

25,2602 

01442 

1 

OCTAL 

1442 

JETS  2 10 

QNO-  4 RNO  0 

0252 

25,2603 

14442  0 

OCTAL 

14442 

JETS  2 10 

QNO  0 RNO-  2 “ 

0253 

25 ,2604 

14610 

0 

octal 

14610 

JETS  6 14 

QNO  0 RNO-  2 

0254 

25,2605 

14400 

0 

OCTAL 

14400 

JETS  0 0 

QNO  0 RNO-  2 

0255 

2 5 9 2606 

“14210" 

r 

OCTAL 

T4210 

JETS  6 14 

QNO  0 RNO-  4 

0256 

25,2607 

14042 

1 

OCTAL 

14042 

JET5  2 10 

QNO  0 RNO-  4 

0257 

25 ,2610 

25421 

1 

OCTAL 

25421 

JETS  1 9 

QNO  2 RNO  0 

0258 

25,2611 

25504 

1 

OCTAL 

25504 

“ JETS  5 13 

QNO  2 RNO  “0 

0259 

25,2612 

25400 

1 

OCTAL 

25400 

JETS  0 0 

QNO  2 RNO  0 

0260 

25,2613 

31504 

1 

OCTAL 

31504 

JETS  5 13 

QNO  4 RNO  0 

0261 

25,2614 

31421 

1 “ 

OCTAL 

31421 

JETS  1 9 

QNO  4 RNO  0 

0262 

25,2615 

16504 

1 

OCTAL 

16504 

JETS  5 13 

QNO  0 RNO  2 

0263 

25,2616 

16A21 

1 

octal 

16421 

JETS  1 9 

QNO  0 RNO  2 

0264 

25,2617 

16400 

T " 

“OCTAL 

T6400 

JETS  0 0 

QINO  0 RNO  2 

0265 

25,2620 

17104 

1 

OCTAL 

17104 

JETS  5 13 

QNO  0 RNO  4 

0266 

25,2621 

17021 

1 

OCTAL 

17021 

JETS  1 9 

QNO  0 RNO  4 

“0267 

25,2622 

05504 

0 

OCTAL 

5504 

JETS  5“  13 

QNO-  2 RNO  “0 

0268 

25  9 2623 

05A21 

0 

OCTAL 

5421 

JETS  1 9 

QNO-  2 RNO  0 

0269 

25,2624 

05A00 

0 

OCTAL 

5400 

JETS  0 0 

QNO-  2 RNO  0 

0270 

25 ,2625 

01504 

I 

OCTAL 

1504 

JETS  5 13 

QNO-  4 RNO  0 

0271 

25 ,2626 

01421 

1 

OCTAL 

1421 

JETS  1 9 

QNO-  4 RNO  0 

0272 

25 ,2627 

14421 

0 

OCTAL 

14421 

JL  T S 1 9 

QNO  0 RNO-  2 

0273 

25 ,2630 

14504 

14400 

0 

“OCTAL 

14504 

JETS  5 13 

"QINO  0 RNO-  2 

0274 

25,2631 

0 

OCTAL 

14400 

Jt  f 5 0 0 

QNO  0 RNO-  2 

0275 

25 ,2632 

14104 

1 

OCTAL 

14104 

JETS  5 13 

QNO  0 RNO-  4 

0276 

25 ,2633 

14021 

1 

OCTAL 

1A0Z1 

JETS  1 9 QNO  0“  “RNO-  4“ 

0277 

25 ,2634 

22042 

1 

OCTAL 

22042 

Jt 1 5 2 10 

QNO  1 RNO  1 

C’278 

25 ,2635 

22042 

1 

OCTAL 

22042 

JETS  2 10 

QNO  1 RNO  1 

0279 

25  ,2636 

22210 

r 

“OCTAL 

Z22T0 

JETS  6 14 

QNO  1 " “RNO“  “ 1 

473423A  YUL  SYSTEM  FOR  BLK2«  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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l jet  failure  control  logic"  user»s  own  page  no. 7 


0280 

25 » 2q37 

26610  1 

OCTAL 

26610 

JETS 

6 

14 

QNO  2 

RNO  2 

C28l 

25*2640 

26442  1 

OCTAL 

26442 

JETS 

2 

10 

QNO  2 

RNO  2 

0282 

25.2641 

11042  1 

OCTAL 

11042 

JETS 

2 

10 

QNO-  1 

RNO-  1 

0283 

25,2642 

11042  1 

OCTAL 

11042 

JETS 

2 

10 

QNO-  1 

RNO-  1 

0284 

25,2643 

11210  1 

OCTAL 

11210 

JETS 

6 

14 

QNO-  1 

RNO-  1 

0285 

25,2644 

04610  1 

OCTAL 

4610 

JET5 

6 

14 

QNO-  2 

RNO-  2 

0286 

25,2645 

04442  1 

OCTAL 

4442 

JETS 

2 

10 

QNO-  2 

RNO-  2 

""0287 

25,2646 

12210  1 

OCTAL 

12210 

JETS 

6 

14 

QNO-  1 

RNO  1 

0288 

25,2647 

12210  1 

OCTAL 

12210 

JETS 

6 

14 

QNO-  1 

RNO  1 

0289 

25,2650 

12042  1 

OCTAL 

12042 

JETS 

2 

10 

QNO-  1 

RNO  1 

"02  9 0 

25,2651 

06442  0 

OCTAL 

6442 

JETS 

2 

1C 

QNO-  2 

RNO  2 

0291 

25,2652 

36610  0 

OCTAL 

6610 

JETS 

6 

14 

QNO-  2 

RNO  2 

0292 

25,2653 

21210  1 

OCTAL 

21210 

JETS 

6 

14 

QNO  1 

RNO-  1 

“0293 

25,2654 

21210  1 

OCTAL 

21210 

JETS 

6 

14 

QNO  1 

RNO-  1 

0294 

25,2655 

21042  1 

OCTAL 

21042 

JETS 

2 

10 

QNO  1 

RNO-  1 

0295 

25,2656 

24442  0 

OCTAL 

24442 

JETS 

2 

10 

QNO  2 

RNO-  2 

' 0296 

25,2657 

24610  0 

octal 

24610 

JETS 

6 

14 

QNO  2 

RNO-  2 

0297 

25,2660 

22021  1 

OCTAL 

22021 

JETS 

1 

9 

QNO  1 

RNO  1 

0298 

25,2661 

22021  1 

OC  I AL 

22021 

JETS 

1 

9 

QNO  1 

RNO  1 

0299 

25,2662 

22104  1 

OCTAL 

22104 

JETS 

5 

13 

QNO  1 

RNO  1 

0300 

,2663 

26504  1 

OCTAL 

26504 

JETS 

5 

13 

QNO  2 

RNO  2 

0301 

25,2664 

26421  1 

OCTAL 

26421 

JETS 

1 

9 

QNO  2 

RNO  2 

"0302 

25,2665 

11021  1 

OCTAL" 

11021 

JETS 

1 

9 

QNO-  1 

RNO-  1 

0303 

25,2666 

11021  1 

OCTAL 

11021 

JETS 

1 

9 

QNO-  1 

RNO-  1 

0304 

25,2667 

11104  1 

OCTAL 

11104 

JETS 

5 

13 

QNO-  1 

RNO-  1 

030"? 

25,2670 

04504  1 

"OCTAL 

4504 

JETS 

5 13 

QNO-  2 

"RNO-  2 

0306 

25,2671 

04421  1 

OCTAL 

4421 

JET5 

1 

9 

QNO-  2 

RNO-  2 

0307 

25,2672 

12104  1 

OCTAL 

12104 

Jb  1 S 

5 

13 

QNO-  1 

RNO  1 

0308 

25,2673 

12104  T " 

OCTAL 

12104 

JETS 

5 

13 

QNO-  1 

RNO  1 

0309 

25,2674 

12021  1 

OCTAL 

12021 

JETS 

1 

9 

QNO-  1 

RNO  1 

0310 

25 ,2675 

06421  0 

OCTAL 

6421 

JETS 

1 

9 

QNO-  2 

RNO  2 

0311 

25,2676 

06504  "0  “ 

OCTAL 

6504 

JETS 

5 

13 

QNO-  2 

RNO  2 

0312 

25,2677 

21104  1 

OCTAL 

21104 

JETS 

5 

13 

QNO  1 

RNO-  1 

0313 

25,2700 

21104  1 

OCTAL 

21104 

JETS 

5 

13 

QNO  1 

RNO-  1 

0314 

25,2701 

21021  1 " 

“OCTAL 

21021 

" JET5 

1 

"9 

QNO  " 1 

RNO-  1 

0315 

25,2702 

24421  0 

octal 

24421 

JETS 

1 

9 

QNO  2 

RNO-  2 

0316 

25,2703 

24504  0 

OCTAL 

24504 

JETS 

5 

13 

QNO  2 

RNO-  2 

0317 

25 ,2704 

22000  1 

“OCTAL 

Z2"000 

JETS 

0 

0 

QNO  1 

RNO  1 

0318 

25,2705 

22000  1 

OCTAL 

22000 

JETS 

0 

0 

QNO  1 

RNO  1 

0319 

25,2706 

26400  1 

OCTAL 

26400 

JETS 

0 

0 

QNO  2 

RNO  2 

0320 

25,2707 

12000  1 

OCTAL 

12000 

QNO-  1 

RNO  1 

0321 

25.2710 

12000  1 

OCTAL 

12000 

JETS 

0 

0 

QNO-  1 

RNO  1 

0322 

25,2711 

06400  0 

“OCTAL 

6400 

JETS 

0 

0 

QNO-  2 

RNO  2 

0323 

25,2712 

11000  1 

OCTAL 

11000 

JETS 

0 

0 QNO-  1 

RNO-  1 

0324 

25,2713 

11000  1 

octal 

^nooo 

JETS 

0 

U 

QNO-  1 

RNO-  1 

G325 

25,2714 

04400  1 

OCTAL 

4400 

JETS 

0 

0 

QNO-  2 

RNO-  2 

0326 

25,2715 

21000  1 

OCTAL 

21000 

JETS"  0 0 

QNO  1 

RNO-  1 

0327 

25,2716 

21000  1 

OCTAL 

21000 

JETS 

0 

0 

QNO  1 

RNO-  1 

0328 

25,2717 

24400  0 

octal 

24400 

JETS 

0 

0 

QNO  2 

RNO-  2 

0329 

25,2720 

25400  1 

OCTAL" 

25400 

JET5 

T> 

0 QNO  2 

RNO  0 

473423'A  YJL  SYS T Ef^  FOR  ~ B LK 2 : ~RE"V  I S 1 0 N 12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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L 

JET  FAILURE  CONTROL  LOGiC 

USER 

•s 

OWN 

PAGE  NO.  8 

0330 

25.2721 

25400  1 

OCTAL 

25400 

JETS 

0 

0 

QNO  2 RNO  0 

0331  ~ 

25.2722 

25400  1 

OCTAL 

25400 

JETS 

0 

0 

QNO  2 RNO  0 

~0332 

25*2723 

25400  1 

OCTAL 

25400 

JETS 

0 

0 

QNO  2 RNO  0 

0333 

25,2724 

16400  1 

OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

0334 

25,2725 

16400  1 

OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

0335 

25,2726 

16400  1 

OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

0336 

25,2727 

16400  i 

octal 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

033  7 

25,2730 

05400  0 

octal 

5400 

JETS 

0 

0 

QNO-  2 RNO  0 

0338 

25,2731 

05400  0 

OCTAL 

5400 

JETS 

0 

0 

QNO-  2 RNO  0 

0339 

25,2732 

05400  0 

OCTAL 

5400 

JETS 

0 

0 

QNO-  2 RNO  0 

0340  " 

25,2733 

05400  0 

OCTAL 

5400 

JETS 

0 

0 

QNO-  2 RNO  0 

0341 

25,2734 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0342 

25,2735 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

“ 0343' 

25,2736 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0344 

25,2737 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0345 

25,2740 

25400  1 

OCTAL 

25400 

JE1  S 

0 

0 

QNO  2 RNO  0 

0346  ” 

25,2741 

25400  1 

OCTAL 

25400 

JETS 

0 

0 

QNO  2 RNO  0 

0347 

25,2742 

25400  1 

OCTAL 

25400 

JETS 

0 

0 

QNO  2 RNO  0 

0348 

25,2743 

25400  1 

OCTAL 

25400 

JETS 

0 

0 

QNO  2 RNO  0 

0349 

25 ,2744 

31400  IT 

OCTAL 

31400 

JETS 

0 

0 

QNO  4 RNO  0 

U350 

25,2745 

16400  1 

OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

0351 

25,2746 

16400  1 

OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

CT352 

25*2747 

16400  r 

"OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

0353 

25,2750 

16400  1 

OCTAL 

16400 

JETS 

0 

0 

QNO  0 RNO  2 

0354 

25,2751 

17000  1 

octal 

17000 

JETS 

0 

0 

QNO  0 RNO  4 

0355 

25,2752 

05400  0 

OCTAL 

5400 

JET5 

0 

0 

QNO-  2 RNO  0 

0356 

25,2753 

05400  0 

OCTAL 

5400 

JETS 

0 

0 

QNO-  2 RNO  0 

0357 

25 ,2754 

05400  0 

OCTAL 

3400 

JETS 

0 

0 

QNO-  2 RNO  0 

0358 

25,2755 

05400  O ' 

"OCTAL 

5400 

JET5 

0 

0 

QNO-  2 " RNO  0 

0359 

25,2756 

01400  1 

octal 

1400 

JETS 

0 

0 

QNO-  4 RNO  0 

0360 

25 ,2757 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0361 

25,2760 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0362 

25,2761 

14400  0 

OCTAL 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0363 

25,2762 

14400  0 

octal 

14400 

JETS 

0 

0 

QNO  0 RNO-  2 

0364 

25,2763 

14000  1 

OCTAL 

TATTOO' 

JETS 

0 0 

QNO  0 RNO-  4 

RQ365  NORMlPOl  |_ISTS  TRE  ENTRY  POINTS  OF  NORMAL  POLICIES 


0366 

25,2764 

00177 

"0 

' dec 

127 

0367 

25 ,2765 

00176 

1 

DEC 

126 

0368 

25 ,2766 

00130 

0 

DEC 

88 

0369 

25 ,2767 

00130 

7 r 

DEC 

88 

0370 

25,27^0 

00172 

0 

DEC'  “ 

122 

0371 

25,2771 

00171 

0 

DEC 

121 

0372 

25,2772 

OOT2  5 

1 

DEC 

85 

0373 

25,2773 

00125 

1 

NORMLPOL  DEC 

85 

0374 

25,2774 

00133 

0 

DEC 

91 

0373 

25,2775 

00133 

0 

DEC" 

91 

473423A 

VJL  system  for 

BLK2 • REVISION 

12  OF  PROGRAM 

AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  602 

L 

JET  FAILURE  CONTROL  LOGIC 

USER'S  OWN  PAGE  NO.  9 

0376 

25,2776 

00122  0 

DEC 

82 

0377 

25,2777 

00122  0 

DEC 

82 

0378 

25,3000 

00165  0 

DEC 

117 

0379 

25,3001 

00164  1 

DEC 

116 

0380 

25,3002 

00160  0 

DEC 

112 

0381 

25,3003 

00157  1 

DEC 

111 

R0382 

A5CNTP0L  LISTS 

THE  ENTRY  POINTS  UNDER  ASCENT 

CONDITIONS 

T>383  ^5,3004^  00177  0 DEC  127 

71384  25,3005  OOT5T15  DEC  107 

0385  25,3006  00130  0 DEC  88~ 


0386  25,3007  001300  DEC  88 


0387 

25,3010 

00172  0 

DEC 

122 

0388 

25,3011 

00147  0 

DEC 

103 

0389 

25*3012 

00125  1 

DEC 

85 

0390 

25,3013 

00125  I 

ASCNTPOL  DEC 

85 

0391 

25,3014 

00133  0 

DEC 

91 

0392 

25,3015 

00133  0 

DEC 

91 

0393 

25,3016 

00122  0 

DEC 

82 

0394 

25,3017 

00122  0 

DEC 

82 

0395 

25,3020 

00165  0 

DEC 

117 

0396 

25,3021 

00143  1 

DEC 

99 

0397 

25,3022 

00160  0 

DEC 

112 

0398 

25,3023 

00137  1 

DEC 

95 

RQ399 

+XPGLAUK  LIhT5  THE 

ENTRY  POINTS  UNDER  + 

x translation 

CONDITIONS 

0400 

25*3024 

00023  0 

DEC 

19 

0401 

25,3025 

00021  1 

DEC 

17 

0402 

25,3026 

00061  0 

DEC 

49 

04  or 

25,3027 

00057  0 

"DEC 

47 

0404 

25,3030 

00016  0 

DEC 

14 

0405 

25,3031 

00014  1 

DEC 

12 

71406 

25,3032 

00066  1 

DEC 

54 

0407 

25,3033 

00064  0 

♦XPOLADR  DEC 

52 

0408 

25,3034 

00073  0 

DEC 

59 

0409 

25,3035 

00071  1 

DEC 

57 

0410 

25,3036 

00054  0 

DEC 

44 

0411 

25,3037 

00052  0 

DEC 

42 

TJ4I2 

25,3040 

"00011  1 

“ DEC 

9 

0413 

25,3041 

00007  0 

DEC 

7 

0414 

25,3042 

00004  0 

DEC 

4 

0415 

25,3043 

00002  0- 

DEC 

2 

-XPOLADR  LIST5  THE 

R0416 

ENTRY  POINTS  UNDER  - 

,x  translation 

CONDITIONS 

64J.7 

<-5  * 3^44 

00047  1 

DEC 

39 

0418 

25,3045 

00045  0 

DEC 

37 

0419 

25,3046 

"00105  0 

"DEC 

69 
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L JET  FAILURE  CON T rO L "LOGIC 


user's  Own  page  NO. 10 


0420 

25,3047 

00103  0 

DEC 

67 

0421 

25,3050 

00042  1 

DEC 

34 

0422 

25,3051 

00040  0 

DEC 

32 

0423 

25,3052 

00112  0 

DEC 

74 

0424 

25,3053 

00110  1 

-XPOLADR  DEC 

72 

0425 

25,3054 

00117  0 

DEC 

79 

0426 

2 5 , 8 0S5 

00115  1 

DEC 

77 

0427 

25,3056 

00100  0 

"DEC 

64 

0428 

25,3057 

00076  0 

DEC 

62 

0429 

25,3060 

00035  1 

DEC 

29 

0430 

25,3061 

00033  1 

DEC 

27 

0431 

25,3062 

00030  1 

DEC 

24 

0432 

25,3063 

00026  0 

DEC 

22 

473423A  YUL  SYSTE  FOR  6LK2!  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 
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l skalman  filter  for  lem  dap  usEr*s  own  page  no.  i 

Roooi  Tflt  FOLLOWING  t5RUPt  eNtRYBE31 NS  tHf  PROGRAM  WHI CH  I N I T I ALIZfS  THf  KALMAN  FILtfR  AND  SftS  up  a p.ax is  RUPt  to 
1*0003  O'CCU'R'TO  M'S  TRO^TTS  BEGINNING. 


0004 

26*2000 

BANK  26 

0005 

REF 

1 

26*2000 

3 2372 

0 

FILTINIT  CAF  MS20F 

RESET  TIMER  IMMEDIATELY!  DT  = 20  MS 

C006 

' REF 

6 

LAST  562 

26,2001 

54  030 

0 

TS  TIME5 

0007 

REF 

13 

LAST  562 

26,2002 

22  016 

0 

LXCH  BANKRUPT 

INTERRUPT  LEAD  IN  (CONTINUED) 

" 0008 

26,2003 

0 0006 

1 

EXTEND 

0009 

~ R E F 

12 

LAST  562 

26,2004 

22  012 

1 

QXCH  QRUPT 

0010 

26*2005 

0 0006 

1 

EXTEND 

SET  UP  FOR  P-AXIS  RUPT 

TF0I1 

REf 

1 

26,2006 

3 2071 

0 

OCA  pax/filt 

0012 

REF 

10 

LAST  574 

26,2007 

52  346 

l 

DXCH  T5ADR 

0013 

REF 

1 

26*2010 

3 2013 

l 

CAF  FIRSTADR 

SET  UP  TO  AVOID  DT  CALCULATION  DURING 

0014 

ref 

I 

26*2011 

55*553 

l 

Ts  sTEERApR 

KALMAN  FILTER  INITIALIZATION  PAss 

0015 

# 

delete  ' 

THROUGH  0016 

0017 

REF 

1 

26,2012 

1 2032 

0 

TCF  filstart 

0018 

# 

DELETE 

0019 

REF 

1 

26,2013 

02315 

1 

FIRSTADR  GENADR  F1LFIRST 

R0020  THE  F0LL0V,TRG^T5RUPT'  ENTRY  Be 31 N5“ THe~  KALMAN  TTLTEFrTROTIRA'M.  THIS  SECTION  ALSO  SET5  UP  A T 5RUPT  TO  OCCUR  20  M! 

R0022  FROM  ITS  Be<jTT«N1NG~AN0  SETS  IT  TO  GO  TO  THE  LOCATION  AT  THE  TOP  OF  THE  POST  FILTER  RUPT  LIST.- 


0024  REF  "T  ~~2'6.2014  02051  1 M05TPA5S  GENADR  DTCALC  WORD  IN  FILTPA55  FOR  THESE  PASSES' 

0025  REF  Z~LAST  604 26,2015  3 2372  0 FILTER — CAF  M520F  RESET  TIMER  IMMEDIATELY!  DT  = 20  MS 

0026  REF  7 LAST  604  26,2016  54  030  C TS TIME 5 


0027  REF  14  LAST  604  26,2017  22  016  0 TXCH  BANKRUPT  INTERRUPT  LEAD  IN  (CONTINUED) 

0026  ~ 26,2020  0 0006  1 EXTEND 

0029  REF  13  LAST  604  26,2021  22  012  1 QXCH QRUPT 


— OO3O 

26*2022 

0 0006 

“I 

" EXTEND 

— SET  RUPT  ADDRESS  TO  TOP  OF 

0031 

REF 

1 

26,2023 

3 1604 

1 

DCA 

PFRPTLST 

POST  FILTER  RUPT  LIST 

0032 

REF 

11  LAST  604 

26,2024 

52  346 

1 

DXCH 

T5ADR 

UU33 

REF 

2 LAS  1 604 

f 6 *2025 

53*604 

0 

DXCH 

PFRPTLST 

ROTATE  2CADR • 5 IN  P05T  FILTER  RUPT  L18I 

0034 

REF 

3 LAsT  604 

26  *2026 

53*612 

1 

DXCH 

PFRPTLST 

+ 6 

0035 

RTF 

4 LAST  604 

26,2027 

53*610 

0 

DXCH  " PFRPTLST 

♦4 

0036 

REF 

5 LASl  604 

26,2030 

53*606 

1 

DXCH 

PFRPTLST 

+ 2 

0037 

REF 

6 LAST  604 

26*2031 

53*604 

0 

DXCH 

PFRPTLST 

RO 0 3 8 BEGIN” THE  KALMAN  FILTER  BY  READING  CDU  ANGLES  AND  TIME. 


■0039  REF  9'LTST  590 


26*2032  0 4177  1 


CHECK  T 6 CLOCK  FOR  P-AXIS  ACTIVITY 
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L 

©KALMAN  FILTER  FOR 

LEM  DAP 

USER'S  OWN  PAGE  NO.  2 

0040 

26*2033 

0 0006  1 

extend 

urn 

RET  17  LA~ST  576 

26*2034 

3 0034  0 

DCA  CDUY 

STORE  CDUY  AND  CDUZ  AT  PI  AND  IN  2,S  COM 

~U042 

REF  1 

26,2035 

53*550  1 

DXCH  5T0RCDUY 

0043 

26*2036 

0 0006  1 

EXTEND 

BEGIN  READING  THE  CLOCK  TO  GET  TIME 

0044 

26,2037 

00  004  0 

read  a 

INCREMENT. 

G045 

REF  208  LAST  596 

26,2040 

54  001  1 

TS  L 

0046 

26,2041 

0 0006  1 

EXTEND 

U047 

26,2042 

06  004  0 

■RXOR  4 

CHECK  TO  SEE  IF  CH  4 WAS  IN  TRANSITION 

‘ 0048 

26,2043 

0 0006  1 

EXTEND 

WHEN  IT  WAS  FIRST  READ. 

0049 

26 ,2044 

1 2050  1 

azF  +4 

BRANCH  IF  TIME  WAS  THE  SAME  IN  2 READS, 

“0050 

26,2045 

0 0006  1 

EXTEND 

“ 0051 

26,2046 

00  004  0 

READ  4 

0052 

26,2047 

54  001  1 

TS  L 

THIS  TIME  READ  ALWAYS  GIVES  GOOD  NO, 

“0053 

REF  2 LAST  604 

26*2050 

0 1553  0 

TC  STEERADR 

SKIT  DTCALC  DURING  INITIAL  PASS 

OO54 

REF  210  LAST  605 

26*2051 

4 0001 

1 

DTCALC  CS 

L 

0055 

RIF  1 

26,2052 

6 1552 

1 

Ad 

daptime 

A CONTAINS  Th£  TIME  DIFFERENCE 

(DT) 

" 0056 

REF  2 LAST  605 

26,2053 

23*552 

I 

LXCH 

DAPTIME 

SINCE  THE  LAST  FILTER. 

0057 

26,2054 

0 0006 

I 

EXTEND 

00  58 

26,2055 

6 2060 

0 

S2MF 

+ 3 

0059 

RtF  5 LAST  182 

26 ,2056 

6 7640 

1 

AD 

NEGl/2 

THIS  IS  ADDING  -1,0  TO  -DT  AND 

ACCOUNTS 

0060 

REF  6 LAST  605 

26,2057 

6 7640 

1 

AD 

NEGl/2 

FOR  AN  OVERFLOW  INTO  CHANNEL  5 

R0061  SCALING  OF  DELTA  T FOR  KALMAN  FILTER  IS  1/8  SECOND. 


0062 

26,2060 

0 0006  1 

extend 

TIME  NOW  SCALED  AT  5.12  SECONDS 

0063 

REF 

35 

Las  I 

594 

26,2061 

7 7651  0 

MP  BIT7 

FIRST  RESCALE  TO  5.12/64 

0064 

REF 

1 

26  9 Z0t>2 

4 2367  0 

CS  .64 

UU65 

26 ,2U63 

0 0006  1 

EXTEND 

THEN  RESCALE  TO  5.12/ (64*. 64)  OR 

0066 

REF 

211 

LAs! 

605 

2b  9 2 0 64 

7 0001  1 

“ HP  L 

5.12/40,96  WHICH  IS  THE  5AME  AS 

00)67 

REF 

6 

las  r 

594 

26,2065 

55*551  0 

TS  DT 

DT  SCALED  AT  1/8 

R0068  SET  UP  FILTER  WEIGHTING  VECTOR  FOR  THIS  FILTER  PASS, 


0069 

REF 

1 

26  1 2066 

11*556  1 

CCS 

WFOTNTER  " 

TEST  FOR  WEIGHTING  VECTOR  STEADY-STATE  “ 

0070 

ref 

1 

26 ,2067 

1 2073  0 

TCF 

MOVEWGT  S 

POINTER  NOT  YET  ZERO  (MULTIPLE  OF  ThREE) 

00  f 1 

26 ,2070 

02055  0 

PAX/FILT  2CADR 

PAXIS 

(ROOM  FOR  2CADR  IN  CCS  HOLES) 

CCT071 

REF 

2 

LAST 

SECT 

26  ,2071 

46006  0' 

OO72 

REF 

1 

26,2072 

1 2104  1 

TCF 

FLTZAXI S 

STEADY-STATE  ALREADY,  NO  UPDATING  AGAIN 

uu  f 3 

Ktr 

26 

LASI 

562 

26,2073 

4 6I65  1 

“ M0VEWGT5 “ “ 

THREE 

SET  UP  POINTER  FOR  THIS  PASS 

0074 

RtF 

2 

LAST 

605 

26 , 2074 

27*  556  1 

ADS 

WPOINTER 

(NEVER  GETS  BELOw  ZERO  HERE) 

UU75 

26,2075 

0 0006  1 

EXTEND 

WPOINTER  IS  INDEX  = 87  FIRET  TIME “HERE 

OO76 

REF 

3 

LAST 

605 

26,2076 

5 1556  0 

INDEX  WPOINTER 

AND  IS  DECREASED  BY  3 EVERY  FILTER  PASS 

0077 

Her 

1 

26,20  7 1 

3 2404  0 

DLA 

WVECTOR 

UNTIL  THE  STEADY-STATE  IS  REACHED, 

0078 

REF 

2 

LAS  1 539 

26,2100 

53 ' 560~ I 

DXCFT 

wer 

MOVE  IN  NEW  W0,W1 

Her 

4 

LnO  1 

6U5 

26*2101 

51 ' 556  0 

INDEX 

WPOINTER 

KEF 

2 

LAS  1 

605 

26,2102 

3 2405  1 

caf 

WVEcTOR  +2 

C081 

REF 

1 

55*561  0’ 

TE 

W2 

MOVE  IN  NEW  W2 
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L SKAlMAN  FILTER  FOR  LEM  DAp  U5Er*S  OWN  pAGE  NO*  3 


0032 

' REF 

63 

'LAST 

5 85 

26,2104 

3 7656 

0 

FLTZAXIS 

CAF 

TWO 

SET  UP  INDEXER  FOR  D.P.  PICKUP  AND  TO 

0063 

' REF 

9 

'LAST 

578 

26,2105 

54  073 

1 

TS 

QRCNTR 

INDICATE  Z-AXIS  FILTER  PASS 

0084 

REF 

1 

26,2106 

1 2112 

0 

TCF 

FLTYAXIS 

0085 

REF 

222 

LAST 

586 

26,2107 

3 7665 

0 

Q0YF1LTR 

CAF 

ZERO 

SET  INDEXER  FOR  Y-AXIS 

0086 

REF 

10 

LAST 

606 

" 26,2110 

54  073 

1 

TS 

QRCNTR 

0087  REF  10  LAST  60 4 26*2111  0 *177  1 TC  T6J0BCHK  CHECK  T6  CLOCK  FOR  P-AXIS  ACTIVITY 


0088 

RTF 

1TLAST  5O6 

26,2112 

50  073  0 

FLTYAXIS  INDEX 

QRCNTR 

0089 

" REF 

1 

26,2113 

53*563  1 

DXCH 

cduyfil 

THETA 

IS 

D.P. 

SCALED 

AT 

2 PI  RADIANS 

0090 

REF 

1 

26,2114 

52  077  0 

DXCH  CDU 

0091 

REF' 

12  LAST  606 

26,2115 

50  073  0 

INDEX 

QRCNTR 

• 

0092 

REF 

1 

26,2116 

53*567  0 

DXCH 

DCDUYFIL 

THETA 

IS 

D.P. 

SCALED 

AT 

PI/4  RAD/SEC 

0D93 

REF 

1 

26,2117 

52  066  0 

DXCH 

CDUDOT 

TO  9 4 

RTF 

13  LAST  606 

26,2120 

50  073  0 

INDEX 

QRCNTR 

• t 

2 

OO95 

REF 

r 

26,2121 

53*573  0 

DXCH 

D2CDUYFL 

THETA 

1 5 

D.P. 

SCALED 

AT 

PI/8  RAD/SEC 

TO  9 6 

REF 

1 ' 

26*2122 

52  071  0 

DXCH 

CDU2D0T 

0097 

FEF 

14  LAST  606 

26,2123 

50  073  0 

ihdex 

QRCNTR 

• •1 

7 3 

0098 

REF 

1 

26,2124 

31*576  1 

CAE 

Y3D0T 

THETA 

IS 

8 »P  . 

SCALED 

AT 

PI/2  RAD/SEC 

0099 

REF 

1 

26,2125 

57*577  0 

XCH 

CDU3D0T 

“Roioo  note  that  the  filtered  variables  are  read  destructively  for  speed  and  efficiency  and  that  Y3DOT  is  not  updated* 

' R0102  SO  IT  MUsT'BE  READ"  NON-&E5TRUCTI VELY  BUT  NEED" NOT"  BE  RESTORED  AFTER  EACH  KALMAN  FI LTER  PASS*  ' ' 
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L 

©KALMAN  FILTER  FOR 

LeM  DAP 

USER'S  OWN  PAGE  NO,  4 

P0104 

integration  extrapolation  equations: 

0105 

ref 

2 LAST  606 

26*2126 

30  070 

0 

KLMNFLTR  CAE 

CDU2DOT 

A SCALED  AT  PI/B  (USE  S.P.) 

0106 

26,2127 

0 0006 

1 

EXTEND 

0107 

ref 

7 LAST  605 

26,2130 

7 1551 

0 

MP 

DT 

ADT  SCALED  AT  PI/64  OR  .SADT  AT  PI/128 

0108 

26,2131 

0 0006 

1 

EXTEND 

0109 

REF 

46  LAST  565 

26,2132 

7 7646 

0 

MP 

BIT10 

RESCALE  BY  RIGHT  SHIFT  5 

CT1 10 

REF 

2TAST  606 

26,2153 

6 0065 

1 

AD 

CDUDOT 

W + «5ADT  SCALED  AT  PI/4 

0111 

26,2134 

0 0006 

1 

EXTEND 

' 0112 

REF 

8 LAST  607 

26,2135 

7 1551 

0 

vip 

DT 

<W  *•  ,5ADT)DT  SCALED  AT  PI/32 

0113 

26,2136 

0 0006 

1 

EXTEND 

0114 

REF 

24  LAST  596 

26,2137 

7 7647 

T 

vip 

B1T9 

RESCALE  BY  RIGHT  SHIFT  6 (KEEP  D.P.) 

0115 

REF 

2 LAST  606 

26,2140 

20  077 

0 

DAS 

CDU 

CDU  = CDU  ♦ <W  ♦ ,5ADT)DT  SCALED  AT  2PI 

0116 

REF 

2 LAST  60^ 

26*21^1 

31*577  0 

CAE  CDU3D0T 

ADOT  SCALED  AT  PI/2<7) 

0117 

26,2142 

0 0006  1 

extend 

XI 18 

REF 

9 LAST  607 

26,2143 

7 1551  0 

HP  DT 

.5AD0TDT  SCALED  AT  PI/2  (11) 

01 19 

REF 

3 LAST  5 38 

26,2144 

54  072  0 

TS  ITEMP5 

(SAVE  FOR  ALPHA  INTEGRATION) 

0120 

26,2145 

0 0006  1 

EXTEND 

~om 

36  T.A5T  605 

26,2146 

7 7651  10 

MP  BIT7 

RESCALE  BY  RIGHT  SHIFT  8 

0122 

REF 

3 LAST  607 

26,2147 

6 0070  0 

AD  CDU2D0T 

A + .5AD0TDT  SCALED  AT  PI/8 

0123 

26,2150 

0 0006  1 

EXTEND 

OT24 

TREF 

10  LAST  607 

26,2151 

7 1551  0 

MP  DT 

(A  + ,5AD0TDT)DT  SCALED  AT  PI/64 

0125 

26,2152 

0 0006  1 

EXTEND 

0126 

REF 

29  LAST  586 

26,2153 

7 7645  0 

MP  BIT11 

RESCALE  BY  RIGHT  SHIFT  4 (KEEP  D.P.) 

0T27 

REF 

37.  AST  60  7 

26,2154 

20  066  CT 

DAS  CDUDOT 

W = W *■  <A+  ,5ADCTDT)DT  SCALED  AT  PI/4 

Ol2e 

REF 

4 

LAST 

607 

26 , 2 1 5 5 

30  072 

1 

CAE 

I TEMPS 

ADOTDT  SCALED  AT  PI /2 ( 10 ) 

(FROM  ABOVE) 

0129 

26,2156 

0 0006 

1 

EXTEND 

0130 

REF 

27 

LAS  1 

594 

26,2157 

7 7650 

1 

IMP 

BITS 

RESCALE  BY  RIGHT  SHIFT  7 

(KEEP  D.P.) 

0131 

REF 

4 

LAST 

6O7 

26 , 2 1 60 

20  071 

0 

DAS 

CDU2D0T 

A = A + ADOTDT  SCALED  AT 

PI/8 

NOV  lQt  1966  (MAIN)  PAGE  6q8 
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L 

©KALMAN  FILTER  FqR 

LfM  DAP 

USeRiS  OWN  PAGE  NO.  5 

P0132 

weighting  vector 

adjustment 

equations; 

Ol33 

26*2161 

0 0006  1 

EXTEND 

convert  cdu  integrated  value  from  double 

0134 

REF  3 LAST  6O7 

26,2162 

3 0077  i 

DC  A 

CDU 

PRECISION  SCALED  AT  2pl  IN  ONES  COMpLE- 

0135 

REF  1 

26,2163 

0 2302  1 

TC 

ONETOTWO 

MENT  TO  SINGLE  PRECISION  SCALED  AT  PI 

0136 

REF  1 

26,2164 

311 550  0 

CAE 

5T0RCDUZ 

IN  TWOS  COMPLEMENT,  THEN  DIFFERENCE  WITH 

0137 

26*2165 

0 0006  1 

EXTEND 

5T0RED  CDU  REGISTER  READING  TO  GET  A 

01T8 

REF  " 5“lAsT'  607 

26,2166 

” 20  072  0 

MSU 

ITEMP5 

single  precision  ones  complement  result 

0139 

'REF  1 

26,2167 

55*554  0 

TS 

DPDIFF 

SCALED  AT  PI  RADIANS  (UPPER  HALF) 

0140 

REF 

4 LAST  608 

26,2170 

4 0077  0 

CS  CDU  *1 

CREATE  LOW  ORDER  WORD  OF 

D.P.  difference 

0141 

26,2171 

6 0000  1 

DOUBLE 

ONES  COMPLEMENT  SCALED  AT 

pi  RADIANS  AND 

CT42 

REF 

2 LAST  608 

26,2172 

57*555  0 

XCH  DPDIFF  +1 

USE  S.P.  RESULT  ABOVE  AS 

HIGH  ORDER  WORD 

0143 

26*2173 

0 0006 

1 

EXTEND 

RESCALE  DPDIFF  TO  PI 

0144 

ref 

3 LAsl  608 

26,2174 

3 1555 

0 

dca 

DPDIFF 

0T45 

26,2175 

20  001 

1 

DDOUBL 

0146 

REF 

6 LAST  608 

26,2176 

22  072 

1 

LXCH 

I TEMP 5 

SAVE  LOW  ORDER  WORD  FOR  D.P.  MULTIPLY 

0147 

26,2177 

0 0006 

1 

tXT  END 

0148 

REF  3 LAST  605 

26,2200 

7 1557 

0 

MP"' 

WO 

CDU  = CDU  + DPDIFF  (D.P.)  * WO 

(S.P.) 

0149 

REF 

5 LAST  608 

26,2201 

20  077 

0 

DAS 

CDU 

0150 

REF 

7 LAST  608 

26,2202 

30  072 

1 

CAE 

ITEMP5 

WO  IS  SCALED  AT  2 

01 5 1 

26,2203 

0 0006 

1 

' EXTEND 

DPDIFF  IS  RESCALED  TO  PI 

0152 

REF 

4 LA5T  608 

26,2204 

7 1557 

0 

MP 

WO 

WOkDPDIFF  IS  SCALED  AT  2PI  (AS 

CDU) 

0153 

REF 

6 LAST  608 

26,2205 

26  077 

0 

ADS 

CDU  *1 

UT'54 

TRET" 

212  LAST  605 

26,2206 

54  001 

T 

TE 

L 

OI55 

26,2207 

1 2211 

0 

TCF 

+ 2 

0156 

REF 

7 LAST  608 

26*2210 

26  076 

1 

ADS 

CDU 

~ 0157 

_ REF 

4 LAST  608 

26,2211 

31*554  1 

“ CAE 

DPDIFF 

RESCALE  DPDIFF  TO  PI/128 

0158 

26*2212 

0 0006  1 

EXTEND 

0159 

REF 

25  |_A5T  607 

26  ,Z2l3 

7 7647  1 

MP 

BIT9 

DpDlFF  (D.P.)  * 256 

0 i 60 

REF 

8 LAST  608 

26  »22i4 

22  072  1 

LXCH 

ITEMP5 

0161 

REF 

5 LAST  608 

2 6 , 22  1 5 

31*555  0 

CAE 

DPDIFF  +1 

0162 

26*2216 

0 0006  1 

EXTEND 

0163 

REF 

26  LAST  606 

26,2217 

7 7647  1 

MP 

BIT9 

0164 

REF 

9 LAST  60s 

26,2220 

6 0072  1 

AD 

ITEMP5 

T>T65 

REF 

ITT  LA5T  608 

26 ,2221 

22  072  1 

TXCfl 

IT  EM  PE 

0166 

— 

— 

— 

n 7 . 

26*2222 

0 OOOfc  1 

EXTEND 

— 

• • 

0187 

REF 

2 

LAST 

539 

26 ,2223 

7 1560  IT 

^TP 

wr  - 

CDU  = CDU  + DPDIFF  (D.P.)  X wl 

(S.P.) 

0168 

REF 

4 

LAST 

60  7 

26 ,2224 

20  066  0 

DAS 

CDUDOT 

0169 

REF 

1 1 

LAS  r 

608 

26 ,2225 

30  072  1 

CAE 

ITEMP5 

Wl  IS  SCALED  AT  32 

0170 

26,2226  0 0006  1 

EXTEND 

DPDIFF  IS  RESCALED  TO  PI/128 

0171 

REF 

3 

LAST 

60S 

26,2227 

7 1560  1 

MP 

wr 

W1XDPDIFF  IS  SCALED  AT  PI/4  (AS 

CDUDOT ) 

0172 

REF 

5 

LA5T 

608 

2 b 1 2 2 3U 

26  066  0 

ADS 

CDUDOT  *-1 

0173 

REF 

213 

LAST 

608 

26*2231 

54  oor  1 

T5 

L 

OI74 

26 ,2232 

1 2234  1 

TCF 

+ 2 

0 175 

REF 

6 

LAST 

608 

2 6,2233 

26  065  0 

ADS 

CDUDOT 
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USER’S  OWN  PAGE  NO.  6 

0176 

REF 

6 LAST  608 

26*2234 

31*554 

I 

CAE  DPDIFF 

RESCALE  DPDIFF  TO  PI/64 

0177 

26*2235 

0 0006 

I 

EXTEND 

“0178  " 

REF 

28  LAST  607 

26  9 2236 

7 7650 

1 

MP  BITS 

DPDIFF  (D.P. ) * 128 

0179 

REF 

12  LAST  608 

26,2237 

22  072 

1 

LXCH  ITEMP5 

01 80  - 

REF 

7 LAST  609 

26,2240 

31*555 

0 

CAE  DPDIFF  +1 

' 0181 

26*2241 

0 0006 

1 

EXTEND 

0182 

REF 

29  LAST  609 

26,2242 

7 7650 

1 

MP  BIT8 

ores 

REF 

13  LAST  609 

26,2243 

6 0072 

I 

AD  I TEMP 5 

0184 

REF 

14  LAST  609 

26,2244 

22  072 

I 

LXCH  I TEMPS 

T>185 

26*2245 

0 0006 

1 

extend 

• • # • 

0186 

REF 

2 

LAST  605 

26 ,2246 

7 1561 

0 

MP 

W2 

CDU  = CDU  + DPDIFF 

(D»P» ) * 

W2 

(S.P.) 

0187 

REF 

5 

LAST  607 

26,2247 

20  071 

0 

DAS 

CDU2D0T 

OT88 

REF 

15 

LAST  609 

26,2250 

30  072 

r 

CAE 

ITEMP5 

W2  IS  SCALED  AT  8 

0189 

26,2251 

0 0006 

1 

EXTEND 

0190 

REF 

3 

LAST  609 

26,2252 

7 156i 

0 

MP 

W2 

W2#DPDIFF  IS  SCALED 

AT  PI/8 

(AS 

CDU2D0T) 

0191 

RtF 

6 

LAST  609 

26,2253 

26  071 

0 

ADS 

CDU2D0T  *1 

0192 

REF 

214 

LAST  608 

26,2254 

54  001 

1 

TS 

L 

0193 

26,2255 

1 2257 

1 

TCF 

+ 2 

0194 

'REF' 

7 

LAST  609 

26,2256 

2 6 070 

1 

ADS 

CDU2D0T 

R 0 1 9 5 RESTORE  VARIABLES  AND  TEST  FORI  COMPLETION  OR  ADDITIONAL  AXIS. 


01 96  REF  8 LAST  608  26* 2257  52  077  0 FILTAXIS  DXCH  CDU 

019T  REF  15  EAST  606  26,2260  50  073  0 INDEX  QRCNTR  THETA  Is  p.F.  SCALED  AT  2 PI  RAqIANs 


0198 

REF 

2 LAST  606 

2 6 , 2 26 1 

53*3631 

DXCH 

CDUYFIL 

0199 

REF 

7 Lrtbl  608 

26  9 2262 

52  066  0 

dxch 

CDUDOT 

• 

0200 

REF 

16  LAST  609 

26,2263 

50  073  0 

INDEX 

QRCNTR 

THETA 

15  D.P. 

scaled 

AT 

PI/4 

RAd/SEC 

0201 

RcF 

2 LAST  606 

26,2264 

53*567  0 “ 

“DXCH 

DCDUYFIL 

0202 

REF 

8 LAST  609 

26,2265 

52  071  0 

DXCH 

CDU2D0T 

• • 

2 

0203 

R~F 

17  LAST  609 

26,2266 

50  073  0 

1 NDEX 

QRCNTR 

THETA 

IS  D.P. 

SCALED 

AT 

PI/8 

RAD/SEC 

0204 

26,2267  53*573  D' 

““ DXCH“ 

D2CDUYFL 

0205 

ref 

2 LAST  605 

26,2270 

57*547  0 

XCH 

STOrCDUY 

interchange  CDU  readings 

02U6 

REF 

2 LASi  608 

26,2271 

57*550  0 

XCFT 

STORCDUz 

0207 

REF 

3 LASi  609 

2 6 f 2 2 72 

57*547  0 

XCH 

STORCDUY 

O^U8 

Rtf- 

t LASI  538 

26,2273 

10  073  1 

- cc  s - 

ITEMP6 

I TEMP 6 IS  AXIS  INDEXER  ~ 

0209 

REF 

1 

26,2274 

1 2107  1 

TCF 

GOYFILTR 

IF  2,  Y-AXIS  STILL  TO  GO 

K tr 

LASI  604 

^6 » 2275 

4 03^5~I — 

" C51  ’■ 

T5ADR 

IF  THE  TRIM  GIMBAL  CONTROL  RUPT  IS  NEXT , 

Uc  1 1 

REF 

1 

2b , 2276 

6 2377  0 

ad 

GTS2CADR 

DO  The  Q»R-Axls  STATE  TRANSFORMATIONS 

02 12 

26,2277 

0 0006  1 

EXTEND 

AND  THE  20  MS  STATE  EXTRAPOLATION 

0213 

REF 

1 

2b  ,2  JOG 

1 2575  0 

BZF 

- gimbal 

Ktr 

35  LAS  1 575 

2 6 « 2 30 1 

1 4606  1 

TCF 

RESUME 

OTHERWISE,  RESUME 

KU2I5 

SJBKUUriINt  r UK  r ILTER  WHILH  ' 

TAKES  1 COMPLEMENT  NUMBER  INTO  A 2 COMP, 

°216  26*2302  20  001  1 ONETOTWO  ODOUBL SEE  RTB  OP  CODES  IN  BANK  15  FOR  NOTES  ON 

02T7  REF3B5  LAST  595  2672303  10“000  0 CCS A THIS  COMPUTATION, 
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UStR»S  OWN  PAGE  NO. 

7 

021b 

REF  156  LAST  5g2 

26*2304  6 7657  1 

AD 

ONE 

0219 

26.2305  1 2307  0 

Tcf 

+ 2 

0220 

26,2306  4 0000  0 

COM 

0221 

REF  16  LAST  609 

26,2307  54  072  0 

TS 

I TEMPS 

0222 

26,2310  1 2314  1 

TCF 

+ 4 

0223 

REF  366  LAST  609 

26,2311  50  000  1 

INDEX 

A 

11224 

R~EF  5 LAST  428 

26,2312  3 7640  1 

CAF 

LIMITS 

0225 

REF  17  LAST  610 

26 ,2313  26  072  0 

ADS 

ITEMP5 

0226 

REF  291  LAST  593 

26,2314  0 0002  0 

TC 

Q 

RETURN 

RO  2 2 7 

THIS  PROGRAM  INITIALIZES  THE  KALMAN  FILTER 

PROGRAM. 

0228 

RFF 

3 

LAST 

605 

26,2315 

23*552  1 

FILFIRST  LXCH 

DAPTIME 

INITIALIZE 

time. 

0229 

REF 

1 

26*2316 

3 2371  0 

CAF 

"P01NT  = 90 

INITIALIZE  THE  WEIGHTING  VECTOR 

POINTER 

0230 

ref 

5 

LAST 

605 

26 ,2317 

55*556  1 

TS 

WPOINTER 

0231 

REF 

1 

26,2320 

3 2014  0 

CAF 

M0STPA5S 

SET  UP  FOR 

Next  PASSES 

0232 

REF 

3 

LAST 

605 

26,2321 

55*553  1 

TS 

STEERADR 

0233 

26,2322 

0 0006  1 

extend 

SET  UP  POST 

filter  RUPT  LIST 

" 0234 

REF 

1 

26,2323 

3 2375  1 

DCA 

DGTSFADR 

0235 

REF 

7 

EAST 

604 

26,2324 

53*604  0" 

“OXCH 

PFRPTLST 

“ 0236 

26,2325 

0 0006  1 

EXTEND 

0237 

REF 

2 

LAS  1 

604 

26 ,2326 

3 2071  0 

DCA 

PAX/FILT 

0238 

REF 

8 

LAST 

610 

26,2327 

53 ' 606  1 

DXCH 

PFRPTLST  +2 

0239 

26,2330 

0 0006  1 

EXTEND 

0240 

REF 

3 

last 

610 

26,4331 

3 2071  0 

OCA 

pax/filt 

0241 

REF 

9 

LAST" 

610 

26,2332 

53*612  1 

dxch 

PFRPTLST  +6 

0242 

26,2333 

0 0006  1 

extend 

0243 

REF 

2 

LAST 

609 

26 ,2334 

3 2400  1 

DCA 

GT52CADR 

0244 

REF 

46 ,2335 

53*610  D 

TJXCH  PFRPTLST  +4 

0245 

26*2336 

0 0006  1 

EXTEND 

CHANGE  POST 

P FILTER  TO  FILTER 

0246 

REF 

1 

26,2337 

3 2402  0 

DCA 

pgstpfil 

“0247 

REF 

3 

LAST" 

560" 

“ 26,2340 

53*602  ‘0 

DXCH 

PF I LT ADR 

u 248 

REF 

4 

LAST 

609 

26*2341 

31*547  0 

CAE 

STORCDUY 

0249 

26,2342 

0 0006  1 

EXTEND 

02  5O 

REF 

44 

LAST 

595 

26,2343 

7 7642  1 

MP 

BIT14 

0251 

REF 

3 

LAST 

609 

26,2344 

53*563  1 

DXCH 

CDUYFIL 

INITIALIZE 

THE  STATE  VECTOR  TO 

CDU  VALUE 

0252 

REF 

3 

LA5T 

6"0  9 

26*2345 

"31*550" 0 

"CAE 

STORCDUZ 

0253 

26,2346 

0 0006  1 

extend 

0254 

REF 

45 

LAST 

6 10 

26,2347 

7 7642  1 

MP 

BIT14 

0255 

REF 

1 

26 ,4350 

53*565  I 

DXCH  " 

"CDUZFIL 

0256 

REF 

223 

LAST 

606 

26*2351 

3 7665  0 

CA 

ZERO 

U2  Of 

REF 

3 

L.A5I 

609 

26,2352 

55  * 566  1 

T 5 

DCDUYFIL 

INITIALIZE 

1 Ht  DtKlVAIlVtb  Ul-  l Ht  6IHIL 

0258 

RcF 

A LA5  I 

610 

26,2353 

55 ' 567~0 

TS 

DCDJYFIL  +1 

0259 

RcF 

i 

26,2354 

55*570  0 

TS 

DCDUZFIL 

U2  60 

REF 

2 

LAST 

6 1 0 

26,2355 

55*571  1 

TS 

DCDUZFIL  +1 

0261 

REF 

ref 

3 

LAST 

LAST 

609 

610 

26*2356 

55 ' 572  1 

TS 

D2CDUYFL 

0262 

4 

26 ,2357 

55*573  0 

TS 

D2CDUYFL  +1 

0263 

REF 

1 

26 ,4360 

55*574  1 

TS 

D2CDUZFL 

0264 

REF 

2 

TA5T 

6 1 0 

26,2361 

55*575  0 

TS 

D2CDUZFL  +1 
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XTZ6S  REF  2 LAST  606  26 ,2362  ~T5T57<ro  TS  WDOT 


0266 

RTF 

T 

26.2363 

55*600  1 

TS 

23D0T 

0267 

' REF 

3 LAST  "538 

26,2364 

55*532  0 

TS 

NEGUO 

0268 

“ REF 

1 

26,2365 

55 ' 534  0 

TS 

NtGUR 

0269 

TEF" 

36  LAST  609 

26  y 2366 

1 4606  1 

TCF 

resume 

0270 

26,2367 

24366  l 

.64  DEC 

0.64000 

0271 

26,2370 

14000  1 

BIT12-13  OCTAL 

14000 

0272 

26,2371 

00132  1 

POINT  = 90  DEC 

90 

POINTER  INITIALIZED  ONE  GROUP  PAST  END 

0273 

26,2372 

37776  0 

MS20F  OCTAL 

37776 

0274 

26*2373 

37775  0 

MS30F  OCTAL 

37775 

' 0275 

26,2374 

02535  0 

DGTSFADR  2CADR 

DGTS 

C0275 

REF 

1 

26,2375 

54006  0 

0276 

REF 

3 LAST  605 

26,2376 

02055  0 

PAXISADR  GENADR 

PAXIS 

0277 

26,2377 

02564  1 

GTS2CADR  2CADR 

GTS 

C0277 

REF 

1 

26,2400 

54006  0 

0278 

26,2401 

02015  1 

POSTPFIL  2CADR 

FILTER 

CO  27  8 

REF 

I 

26,2402 

54006  0 
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P 0 2 7 9 

thf  <al:an  filter  weight  inf  vectors  are  listed 

IN  THe  FOLLOWING  TABLE  along  with  the  time  FROM  the  last  FILTER 

R0281 

INITIALIZATION  FOR  WHTCH  THEY  ARE  TO  BE  USED. 

(THE  VICTORS  ARE  STORED  IN  ORDERED  TRIPLES  (W0,Wl,W*2)  IN' 

R0283 

descending  order  in  time  with  the  steady  state 

values  at  the  TOP.) 

RQ284 

the  COMPONENTS  ARE  SCALED  AS  FOLLOWS; 

R0285 

WO  ; SCALED  AT  2 

R0286 

W1  ; SCALED  AT  32 

RW7  " 

W2  ; scaleid^at  a 

0288 

26,2403 

05751  1 

WVECTOR  DEC 

0» 18608 

wo  from  relative  time  1.5  secs  or  more 

0289 

26,2404 

00672  1 

DIC 

0.02696 

wi  from  relative  time  1.5  secs  or  more 

0290 

26,2405 

05362  0 

DEC 

0.17105 

W2  FROM  RELATIVE  TIME  1.5  SECS  OR  MORE 

0291 

26,2406 

04460  1 

DEC 

0.14358 

WO  AT  RELATIVE  TIME  = 1,45  SECONDS 

0292 

26,2407 

00731  1 

DEC 

0.02890 

Wl  AT  RELATIVE  TImE"  = 1.45  SECONDS 

'"  0293 

26,2410 

05530  1 

DEC 

0.17727 

W2  AT  RELATIVE  TIME  = 1.45  SECONDS 

0294 

26,2411 

04522  0 

DEC 

0.14565 

WO  AT  RELATIVE  TIME  = 1,40  SECONDS 

0295 

26,2412 

00745  1 

"DEC 

0.02959 

WI  AT  RELATIVE  TIME  = 1,40  SECONDS 

” 0296 

26,2413 

05632  0 

DEC 

0.18129 

W2  AT  RELATIVE  TIME  = 1,40  SECONDS 

0297 

26,2414 

04572  0 

DEC 

0,14809 

WO  AT  RELATIVE  TIME  = 1.35  SECONDS 

0298 

26,2415 

11602  0 

“DEC 

0.30479 

*1  AT  RELATIVE  TIME*  = 1.3*5  SECONDS  ' 

0299 

26,2416 

05764  1 

DEC 

0.18678 

W2  AT  RELATIVE  TIME  = 1.35  SEC0ND5 

0300 

26,2417 

04650  0 

DEC 

0.15090 

WO  AT  RELATIVE  TIME  = 1.30  SECONDS 

0301  — - - 

“ 26,2420 

01005"  0 

DECT" 

0,0*3154 

" Wr  AT"  RELATIVE  TIME  = 1.30  SECONDS 

0302 

2 6 9 2 42 1 

06153  0 

DEC 

0,19403 

W2  AT  RELATIVE  TIME  = 1,30  SECONDS 

0303 

26,2422 

04735  1 

DEC 

0,15409 

WO  AT  RELATIVE  TIME  = 1.25  SECONDS 

0304 

26,2423 

*01032  1 

DEC' 

0.03283 

“WI  AT  RELATIVE  TIME  = 1,25  SECONDS 

0305 

26 ,2424 

06405  0 

DEC 

0.20340 

W2  AT  RELATIVE  TIME  = 1,25  5EC0NDS 

0306 

26,2425 

05027  1 

DEC 

0.15767 

WO  AT  RELATIVE  TIME  = 1,20  SECONDS 

~03O7“ 

26,2426 

**01*06 j a 

"DEC 

0.03437 

“WI  AT  RELATIVE  TIME  = 1.20  SECONDS 

0308 

26,2427 

06707  1 

DEC 

0,21525 

W2  AT  RELATIVE  TIME  = 1,20  SECONDS 

0309 

26,2430 

05130  0 

DEC 

0.16163 

WO  AT  RELATIVE  TIME  = 1,15  SECONDS 

03ID 

26,2431 

* Oil 20  0 

* DEC 

0.03*616 

WI  AT  RELATIVE  TIME  = 1.15  SECONDS 

O311 

26,2432 

07270  0 

DEC 

0,23000 

W2  AT  RELATIVE  TIME  = 1,15  SECONDS 

0312 

26 ,2433 

05237  1 

DEC 

0.16595 

WO  AT  RELATIVE  TIME  = 1,10  SECONDS 

0313 

26,2434 

*01163*1 

“DEC 

0.03824 

WI*AT  RELATIVE* TIME  = 1,10  SECONDS 

0314 

26,2435 

07742  1 

DEC 

0.24814 

W2  AT  RELATIVE  TIME  = 1,10  SECONDS 

0315 

26,2436 

05354  0 

DEC 

0,17063 

WO  AT  RELATIVE  TIME  = 1,05  SECONDS 

0316 

2(3 ,2437 

01 232**0* 

DEC 

0.04062 

Wl  AT  RELATIVE  TIME  = 1,05  StLOMUS 

0317 

26,2440 

10513  1 

DEC 

0,27018 

W2  AT  RELATIVE  TIME  = 1,05  SECONDS 

0318 

26,2441 

05475  1 

DEC 

0,17560 

WO  AT  RELATIVE  TIME  = 1,00  SECONDS 

03 19 

26,2442 

01306  0* 

* DEC 

0,04332 

Wl  AT  RELATIVE  TIME  = 1,00  SECONDS 

0320 

26,2443 

11375  0 

DEC 

0,29668 

W2  AT  RELATIVE  TIME  = 1,00  SECONDS 

0321 

26,2444 

05622  1 

DEC 

0,18080 

WO  AT  RELATIVE  TIME  = 0,95  SECONDS 

0322 

26,2445 

01367*1 

“DEC 

0.04634 

Wl  AT  RELATIVE  TIME  = 0,95* SECONDS 

0323 

26 ,2446 

12402  1 

DEC 

0,32824 

W2  AT  RELATIVE  TIME  = 0,95  SECONDS 

0324 

26*2447 

05752  1 

DEC 

0,18614 

WO  AT  RELATIVE  TIME  = 0,90  SECONDS 

03  25* 

26,2450 

*01456  1 

DEC 

0.04968 

- Wl  AT  RELATIVE  TIME  = 0,90  SECONDS 

26,2451 

13541  0 

DEC 

0,36531 

W2  AT  RELATIVE  TIME  b 0,90  SECONDS 

^327 



2b 

06101  1 

DEC 

0,19147 

WO  AT  RELATIVE  TIME  s 0,85  SECONDS 

— I-Af".  I\  T T - n — erR — C cr  rn  ,-vt  rvQ 

"&32B  26,2453 01551  1 0£C 0.05325 Wl  AT^  RELATIVE  “T I ME  s-  0,55  SECONDS 
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0329 

26  i2454 

15040  1 

DEC 

0.40821 

W2  AT  RELATIVE  TIME  s 0.85  SECONDS 

0330  _ 

26,2455 

06225  1 

DEC 

0,19659 

WO  AT  RELATIVE  TIME  = 0.80  SECONDS 

033T  “ 

26,2456 

01647  0 

DEC 

0.05707 

W1  AT  RELATIVE  TIME  = 0.80  SECONDS 

0332 

26,2457 

16503  0 

DEC 

0.45721 

W2  AT  RELATIVE  TIME  = 0,80  SECONDS 

0333 

26,2460 

06341  1 

DEC 

0,20122 

WO  AT  RELATIVE  TIME  = 0.75  SECONDS 

0334 

2b, 2461 

01746  0 

DEC 

0,06089 

W1  AT  RELATIVE  TIME  = 0,75  SECONDS 

0335 

26,2462 

20244  1 

DEC 

0.50999 

W2  at  RELATIVE  TIME  = 0.75  SECONDS 

0336 

2 6 1 2463 

06440  1 

dec 

0,20505 

WO  AT  RELATIVE  TIME  = 0,70  SECONDS 

0337 

26,2464 

02041  0 

DEC 

0.06451 

W1  AT  RELATIVE  TIME  = 0.70  SECONDS 

0336 

26,2465 

22055  1 

DEC 

0.56522 

W2  AT  RELATIVE  TIME  = 0,70  SECONDS 

0339 

26  $ 2466 

06514  1 

DEC 

0,20775 

WO  AT  RELATIVE  TIME  = 0,65  SECONDS 

0340 

26,2467 

02123  0 

DEC 

0.06759 

W1  AT  RELATIVE  TIME  = 0,65  SECONDS 

0341 

26,2470 

23610  1 

DEC 

0.61768 

W2  AT  RELATlVt  TIME  = 0,65  SECONDS 

” 0342 

26,2471 

06542  1 

DEC 

0,20912 

WO  AT  RELATIVE  TIME  = 0.60  SECONDS 

0343 

26,2472 

02166  1 

DEC 

0,06972 

W1  AT  RELATIVE  TIME  = 0.60  SECONDS 

0344 

26,2473 

25072  0 

DEC 

0.65979 

w2  at  relative  time  = 0.60  seconds 

0345 

26  1 2 4 7 4 

06546  0 

~DEC 

C. 20934 

WO  AT  RELATIVE  TIME  = 0,55  SECONDS 

0346 

26,2475 

02205  1 

DEC 

0,07062 

W1  AT  RELATIVE  TIME  = 0,55  SECONDS 

0347 

26 ,2476 

25640  1 

DEC 

0.68165 

W2  AT  RELATIVE  TIME  = 0,55  SECONDS 

0348 

26,2477 

“06543  0 “ 

DEC 

0.20919 

WO  AT  RELATTVE“TTME  = 0,50  SECONDS 

0349 

26,2500 

02177  1 

DEC 

0,07028 

W1  AT  RELATIVE  TIME  = 0.50  SECONDS 

0350 

26,4501 

25427  1 

DEC 

0.67330 

W2  at  RELATIVE  TIME  = 0.50  SECONDS 

0351 

26,2502 

06564  0 

' “DEC 

0.21020 

WO  AT  RELATIVE  TIME  6 0.45  SECONDS 

0352 

26,2503 

02160  1 

DEC 

0.06931 

W1  AT  RELATIVE  TIME  = 0.45  SECONDS 

0353 

26,2504 

24077  1 

DEC 

0,62883 

W2  AT  RELATIVE  TIME  = 0.45  SECONDS 

0354 

26,2505 

06671  T 

T5EC 

0.21441 

■ WO  AT  RELATIVE  TIME  = 0740  SECONDS 

0355 

26,2506 

02154  0 

DEC 

0.06908 

W1  AT  RELATIVE  TIME  = 0.40  SECONDS 

0356 

26,2507 

21470  1 

DEC 

0,55030 

W2  AT  RELATIVE  TIME  = 0.40  SECONDS 

0357 

26,2510' 

07125  0 

“ DEC 

0.22391 

“WO  AT  RELATIVE  TIME  =“0,3T  SECONDS'" 

0358 

26,2511 

02225  0 

DEC 

0.07162 

W1  AT  RELATIVE  TIME  = 0,35  SECONDS 

0359 

26,2512 

16256  1 

DEC 

0.44810 

W2  AT  RELATIVE  TIME  = 0,35  SECONDS 

0360 

26,2513 

07544  0 

' DEC 

0.24049 

WO  AT' RELATIVE  TIME  = 0.30  SEC0ND5 

0361 

26,2514 

02430  1 

DEC 

0,07956 

wi  at  relative  TIME  = 0,30  SECONDS 

0362 

26,2515 

12624  1 

DEC 

0.33713 

W2  AT  RELATIVE  TIME  = 0,30  SECONDS 

0363 

~ 26,2516 

10401  TT  ~ 

DEC 

0 • 26566 

“ WO  AT“REL'ATIVET‘IME  = 0.25  SECONDS  ' 

0364 

26,2517 

03054  0 

DEC 

0.09646 

Wl  AT  RELATIVE  TIME  = 0,25  SECONDS 

U365 

26,2520 

07317  0 

DEC 

0.23140 

W2  AT  RELATIVE  TIME  = 0.25  SECONDS 

0366 

11507  ~0~ 

“DEC 

' 0.30123 

WO  AT  RELATIVE  TIME  = 0,20  SECONDS  ' 

0367 

26,2522 

04070  1 

DEC 

0.12841 

Wl  AT  RELATIVE  TIME  = 0,20  SECONDS 

26,2523 

04404  0 

DEC 

0,14087 

W2  AT  RELATIVE  TIME  = 0,20  SECONDS 

0369 

26,2524 

13146  0“ 

DEC 

0.34996 

WO  AT  RELATIVE  TIME  = 0.15  SEC0ND5“ 

0370 

26,2525 

06020  0 

DEC 

0,18850 

Wl  AT  RELATIVE  TIME  = 0,15  SECONDS 

26 ,2526 

02213  0 

DEC 

0.07101 

W2  AT  RELATIVE  TIME  = 0,15  SECONDS 

0372 

26,2527 

15230  1 

DEC 

0.41554 

WO  AT  RELATIVE  TIME  = 0,10  SECONDS 

v 

26 ,4530 

1 1756  0 

DEC 

0,31141 

Wl  AT  RELATIVE  TIME  = 0,10  SECONDS 

26 ,2531 

00613  0 

DEC 

0.02408 

W2  AT  RELATIVE  TIME  = 0.10  SECONDS 

w 3 75 

26 , 2532~ 

17670  “0 

DEC' 

0749561 

~W0  AT  REL'ATIVE  TIME  = 0,05  SECONDS 

t'3  76 

26 ,2533 

23514  0 

DEC 

0,61404 

Wl  AT  RELATIVE  TIME  = 0,05  SECONDS 

UJ77 

2b  ,2534 

00001  0 

DEC 

0,00006 

W2  AT  RELATIVE  TIME  = 0,05  SECONDS 
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____  P0378  DUMMY  TRIM  GImBAl  RUPT:  

0379  RTF IT  26  *2535  3 ~2 37 3~1  DGTS  CAF  M3  OF  ~ RESET  TIMER^lfflEDTATELY ; DT  = 30  MS 

0380  REF  8 LAST "605  26,2536  54'  030  0 T5  TIME5 

0381  REF  15  LAST  604“  26,2537  22.  016  0 LXCH  BANKRUPT  - INTERRUPT  LEADTN  (CONTINUED) 

6382 “2672540  0 0006  l EXTEND  SET  UP  FILTER  RUPT~ 

0 383  REF  2 TAST  610  26,2541  3 2402  0 DCA  pOSTpFIL 

0384  REF  13  LAST  609  26,2542  52  346  1 PXCH  T 5 APR __ ' 


03g5 REF  4 LAST  556  26,2543  1 4610  0 TCF  NOQRSM 


RC/386  DUMMY  FILTER  RURT  AFTER  PRAXIS:  RUPTi 


0387 

REF 

' 3 LAST 

604 

26,2544  3 2372  0 

DUMMYFIL  CAF 

MS20F 

RESET  TIMER  IMMEDIATELY:  DT  = 20  MS 

0388 

REF 

9 LAST 

0 1 4 

26,2545  54  030  0 

T5 

TIWE5 

0389 

- ~REF“ 

16  LAST 

614 

26,2546  22  016  0 

LXCH 

bANKRUPT 

INTERRUPT  LEAD  IN  (CONTINUED) 

0390 

26,2547  0 0006  l 

EXTEND 

SET  UP  UKAXIS  RUPT 

0391 

~ REF 

1 

26,2550  3 2554  X 

DCA 

DFQRAXlS 

“0392 

REF 

i4  LAST 

614 

26,2551  52  346  1 

DXCH 

T5ADR 

0393 

614 

26,2552  1 4610  0 

1 CF 

NOQRSM 

~0394 

26,2553  02002  1 

DFQRAXIS  2CADR 

QRAXIS 

CC394~ 

REF 

1 

26,2554  50006  1 

R0395  DUMMY  FILTER  RUPT  AFTER  Q,R-AXES  RUPTS  

0396  “REF 4 LA5T  614  26,2555  3 2372  C FILDUMMY  CAF  MS20F  RESET  TIMER  IMMEDIATELY:  DT  = 20  MS 

0397  R EF  173  LAS T bT4  26,2556  54  030  ^ TS  T1ME5  ~ 


““0398 REF  17  LAST  614  26,2557  22  016^0;“  LXCH  BANKRUPT-  INTERRUPT  LEAD  TN“ (CONTINUED) 

0399  26,2560  0 W06  I EXTEND  SET  UP  PAXIS  RuPT 

0400  REF 4 LAST  610  ~ “26T2T61 — 3 2071  0 DCA pAX/FILT 

0401  REF  15  LAST  6l4 26,2562  52  346  1 DXCH  T5ADR 


0402'  - REF  37  LAST  6l  1 2b ,2563  1 4606  1 ~ TCF  RESUME 
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Roooi  control  reaches  this  point  under  eithlR  of  the  following  two  conditions  once  the  Descent  engine  and  the  digital 

RO0O3  AUTOPILOT  ArE  BOTH  ON! 

R0004  AT'THE  TRIM  GlMBAL  CONTROL  LAW- WA5“ON“DURING  THE  PREVIOUS- Q,R_AXIS  TIMES  INTERRUPT  (OR  THE  DAPIDLER 

RD006  INITIALIZATION  WAS.  SET  FOR  TRTM^GIMBAL  CONTROL  “AND  THIS  IS  THE  FIRST  PASS)  , OR 

R00O8  B)  THE-- ON R- AXIS  RCS  JET  CoNTRoL  LAW  ATTITUDE  STEERING  MoDE  REDUCED  THE  ATTITUDE  ERROR  TO  LESS  THAN 

RWlf  1 DEGREE  ON  EACH  Axis  ON  ITS  LAST  TIMES  INTERRUPT, 


ROOlT  THE  FOLLOWING  T5RUPT  ENTRT^B eSINS  the  TRIM  GlMBAL  CONTROL  LAW.“STNCnT  is  ASSUMED  that  the  lem  will  remain 

“R0015  under  trim  GliiBAL  CONTROL* “A  “<ALMAN“FTLTER  RUPT  15  SET  UP  TO  BEGlN“50  MS  FROM  THE  TRIM  GlMBAL  RUPT. 


0015  REF  2“LAST^6l4  26,2564  3 2373  1 GTS  CAT  MS30F  RESET  TIMER  IMMEDIATELY!  DT  = 30  MS 

0016  REF  II  LAST  614  26*2565  54  030  0 T5~  TIME 5 


0017  REF  1 8 LAST  614  26*2566  22  016  0 LXCH  BaN<RUPT  INTERRUPT  LEAD  IN  (CONTINUED) 

0018  26,2567  0 0006  1 EXTEND 

0019  REF  14  LAST-  "604  “ “26,2570  22. 012  I 3XCH  QRUPT 


0020  26*2571  0 0006  1 EXTEND 

0021  REf  3“LAST  614  26,2572  324020  DCA  POSTPFlL 

“0072  REF  16  LAST  6T4  26,2573  523461  DXCH  T5ADR 


0022  REF-  1 26*2574  1 266 6~ I TCF  GT5TEST  SKIP  OVER  XFORMS  UNTIL  REORGANIZATION 


0024 

0025“  REF 

0026  REF 

0027 


2 "LA5T  608 


0028  REF  7 LAST"  576 

0O29-  REF 2 LAST  578 


26*2575  0 0006  1 GlMBAL  EXTEND  GET  D.P,  FILTERED  CDUY  yALUE  (ONES  COMP) 

26*2576  3 1563“0~  DCA  CDUYFIL  SCALED  AT  2PI  RADIANS 

26,2577  0 2302  T IT  ONETOTWO  FORM  " 5, P," VALUE "IN  "TWOS--COMP LEMENT'AT  PI 

26*2600  0 0006  1 EXTEND 

26*2601  20  775  0 MSU  CDUYD  FORM  Y-AXIS  ERROR  IN  ONES  COMPLEMENT 

26,2602  55*477  0 TS  QUIFF  (SAVE  IN“QWAXI5  ERROR“COC!  EFFICIENCY) 


0030 

CTOS  1 REF 2 "LAST  610 

“0032  REF  ~ 3 LAST  615 

0033 

~ 0034 REF 6“  LAST"  576 

0035  REF 1— 


20,2603  0 0006  1 

26  *2604  3 1565  0 

26 ,2605  0 2302  1 

“26*2606  0 0006  1 

26*2610  55*500  1 


EXTEND 

DCA  CDUzFIL 

TC ONETOTWO 

EXTEND 

“^TSU CUOZB 

TS RDIFF““ 


get  d.p*  Filtered  cduz  value  (ones  compj 

SCALED  AT  2PI  RADIAN5 

FORM  S,P,  "VALUE  IN  TWOS  COMPLEMENT  AT  PI 


FORM  Z-AXIS  ERROR-  IN  ONES  COMPLEMENT 
(SAVE  IN  R-AXIS  ERROR  LOC ! EFFICIENCY) 


R0036  TRANSFOf.M”Y*Z  CDU  ErrOrS  TO“THE  Q*R-AXES. 


“0037  26T26TI — 0 UO06  “T EXTEND  GET  BOTH  Y AND  Z CDU  ERRORS  AT  PI  RAD 

-00S8 REF 3“ LAST  615 26T26T2 — 3“  1500 “0 DCA QDIFF 

0039  REF 1 26,2613  0 3421  0 TC QTRANSF  FORM  Q-ERROR  IN  A (SCALED  AT  PI  RAD) 

0040  REF  4 LAST  615  26,2614  53*500  1 DXCH  QDIFF  STORE  Q-ERROR,  GET  BOTH  Y,Z  CDU  ERRORS 

“0041 REF 1 26,2615 — 0 3431“! TC RTRANSF FORM  R-ERR0R“T1'T_A_  (SCALED  AT  PI  RAD) 

0042  REF  2 LAST  615  26,2616  57*500  0 " XCH RDIFF STORE  R-ERROr 


R0043 T RANsFOrM  THE  F [ LTERED  Y ,Z  RATE5  TO  THE  Q,"r-AXES. 

R0044  (THtSt  MAY  Be  NEEDED  FOR  THE  RATE  DERIVATION  FOR  THE  JETS  IF  THEY  MUST  BE  USeD.T 


GET  FILTERED  Y,Z  RATES“ 


0046 REF 3"L"AST"6lO 


26,2617  31*570 “1 


CAE DCDUZFIL* 
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L 

©trim  01  bal  control 

system 

USER'S  OWN  PAGE  NO,  2 

0047 

REF  215  LAST 609 

26,2620 

54  001  1 

TS 

L 

ScALEp  AT  PI/4  RAplANS/SECONp 

0046  REF  ■ 5 LAST  6T0 

26,2621 

31*566  0 

CAE 

dcduyftl 

0049 

REF  2 LAST  615 

26,2622 

0 3421  0 

IT 

GTRAN5F 

FOR  Q-AXIS  RATE 

0050 

~ REF  - 12  LAST  589 

26 ,2623 

5 5 * 4 1 7 0 

TS 

0MEGAQ 

STORED  SCALED  AT  PI/4  RAD I ANS/5EC0ND 

“0051 

REF  4 LAST  615 

Zb « 

31*570  1 

LAE 

DCDUZFjL 

get  filtered  y,z  rates 

0052 

REF  216  LAS  1 616 

26,2625 

54  001  1 

T S 

L 

SCALED  AT  PI/4  RAD I ANS/SECOND 

OOFS 

REF  6 LAST  6l6 

26,2626 

31*566  0 

CAE 

DCDUYFIL 

0054 

REF  “ 2 LAST  615 

2b,2627 

0 3431  I 

TC 

RTRANSF 

FOR  R-AXIS  RATE 

0055 

REF  12  LAST  589 

2&  ,2630 

55*421  0 

TS 

OMEGAR 

STORED  SCALED  AT  PI/4  RADIANS/SECOND 

R0056 

Transform- the  Filtered  y,z  accelerations  to 

THE  Q*R-AXES. 

R 0 0 5 7 

(THESE  MAY  BE  NEEDED 

TO  CALL JLATE  TRIM  oIMBAL  UFF-TIM£S 

IF  ATTITUDE 

error  has  gone  beyond  trim  gimbal  control.) 

OO59 

REF  3 LAST  610 

26,2631 

31*574  0 

LAE 

D2LDUZFL 

GET  FILTERED  Y,Z  ACCELERATIONS 

0060 

REF  217  LA5T  6l6 

2612632 

54  001  1 

TS 

L 

SCALED  AT  PI/8  RADI ANS/SECOND ( 2 ) 

0061 

REF  “5 “LAST  610 

26,2633 

31*572  0 

CAE 

“D2CDUYFL 

“ 0062 

REF  3 LAST- 616 

26,2634 

0 3421  0 

TC 

qtransf 

FORM  Q-AXIS  ACCELERATION 

0063 

“REF  1 

26 ,2635 

55*420  1 

T5 

ALPHAQ 

STORE  AT  PI/8  RADIANS/SECOND (2) 

0064 

REF  4 LAST  616 

26,2636 

31*574  0 

LAE 

D2LDUZFL 

GET  FILTERED  Y*Z  ACCELERATIONS 

0065 

REF  218  LAST  616 

26,2637 

54  001  1 

TS 

L 

SCALED  AT  pi/8  RADIANS/SECOND (2) 

00  6 6 

““REF  6 LAST  616 

26,2640 

31*572  0 

CAE' 

D2CDUYFL 

0067 

REF  3 LAST  616 

26,2641 

0 3431  1 

TC 

RTRANSF 

FORM  R-AxlS  ACCELERATION 

" 0068 

REF  1 

26,2642 

55*422  0 

TS 

ALPHAR 

STORE  AT  PI/8  RADIANS/SECOND (2) 

-RocT69  extrapolate- theta- and -omega  oveRi  the  20  MS  delay  between  the  KALMAN  FILTER  And  the  trim  gimbal  CONTROL. 


0071  REF  13  LA5T  6l6  26,2643  3T*4T7  I CAE-  OMEGAq~ 

0072  26,2 644  0 0006  1 EXTEND 

0073  REF  1 F6T2645  7 2664  0 MP  DTW 

0074  REF  5“ LAET"  615  26,2646  27*477  0 SD5 QDIFF — 


0075  REF  13  LAST  6U  26 » 2647  31*421  1 CAE  OMEGAS 

0076  2672650 — O“0OC6  I EXTEND 

7)077  REF  2 LAST  6l6  26,2651  7 2664  0 MP DTW 

0078  REF  3 LAST  615 26,2652 — 27*500  1 ADS  RDTFF 


0079 

REF 

2 LAST 

6 1 6 

26,2653 

31*420 

0 

CAE 

ALPHAQ' 

0080 

26*2654 

0 0006 

1 

EXTEND 

7081 

REF 

I 

2672655 

~T  2665 

1 

MP“ 

DTF 

0082 

REF 

14  LAST 

6l6 

26,2656 

27*417 

0 

“ ADS 

OMEGAQ 

UUB3 

RtF 

2 LA5T 

616 

26*2657 

31*422 

r 

CAE  ' 

' ALPHAR 

0084 

26 ,2660 

0 0006 

1 

EXTEND 

0085 

REF 

2 LASl 

6l6 

26,2661 

7 2665 

”1 

MP 

DT  A 

0086 

REF 

14  LAST 

6l  6 

26,2662 

27*421 

“0~ 

ADS 

OMEGAR 

UU87 

KLr 

•38  LA5  1 

614 

Z 6 1 2 663 

1 4606 

1 

TCF 

RESUME 
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L ©TRIM  ol  :BAL  CONTROL  SYSTEM 

USER'S  own  RAGE  NO. 

3 

0088  26  ,2664 

00122  0 

DTW 

DEC 

.005 

008  9 ~ 26*2665 

0005 1 0 

DTA 

DEC 

.0025 

R0090 

TEST  TO  5EE  IF  TRIM  GIMBAL  CONTROL  LAW  HAS  KePT 

both  attitude  ERRORS 

below  the  i degree  boundary  with  the  Region 

R0092 

OF RC5  CONTROL  LAW 

DOMINANCE  OR  IS  STILL  REDUCING  THE  ERROR, 

" 0093 

REF  30  LA5T  577 

26,2666  3 7656  0 GTSTEST 

caf 

BIT2 

VERIFY  THAT  GTS  IS  STILL  OPERATIVE 

0094 

REF 

‘Ti  LAST  594 

26*2667  7 0765  1 

mask 

DAP BOOLS 

0095 

REF 

367  LAST  610 

26,2670  10  000  0 

CCS 

A 

0096 

REF 

1 

Z 6 1 9 2 6 7 1 1 2723  1 

TCF 

RCSCNTRL 

GTS  NOT  OPERATIVE 

26,2672  3 7657  1 

CSF 

Bin 

0098 

REF 

18  LAST  609 

0*+  U (3  i LUUK 1 CS 1 IS 

QRCNTR 

0099 

‘ REF 

19  LAST  617 

26,2674  50  073  0 

INDEX 

QRCNTR 

0T00 

REF  6 LAST  616 

26,2675  1 T1 477  "0 

• CCS 

QUIFF 

SCALED  AT  PI. 

0101 

RlF 

1 

26*2676  6 2721  1 

AD 

-TGBND+1 

-2  DEG  SCALED  AT  PI  * + 1 BIT. 

0102 

26,2677  1 2701  1 

TCF 

+ 2 

oroi 

REF 

2 LAET  617 

26,2700  6 2721  1 

“AD 

-TGBND+1 

0104 

26,2701  0 0006  1 

EXTEND 

0105 

26,2702  6 2704  0 

3ZMF 

+ 2 

IS  ERROR  MAG  LE5S, EQUAL  2 DEG, 

0 i 06 

REF 

2 EAST  617 

26 ,"2703  1 2723  I 

"TCF 

RCSCNTRL 

NO.  GO  TO  JETS, 

0107 

REF 

20  LA5T  617 

26,2704  3 0073  0 

CA 

QRCNTR 

YES.  TRY  RATE  MAGNITUDE. 

0108 

26,2705  6 0000  1 

double 

0109 

KEF 

368  LAST  617 

26,2706  50  000“I 

INDE  X " 

"A 

0110 

REF 

15  LAS!  616 

26,2707  11*417  0 

CCS 

OMEGAQ 

SCALED  AT  PI/4. 

Oil  1 

REF 

1 

26*2710  6 2722  1 

AD 

-RATBD+1 

-.65  DEG/SEC  5CALED  AT  PI/4  + 1 BIT 

0TI2 

26,2711 1 2713  1 

icf 

+ 2 

0113 

REF 

2 LAST  617 

26,2712  6 2722  1 

AD 

-RATBD+1 

0114 

26,2713  0 0006  1 

EXTEND 

0I1"5 

26,2714  6 2716  0 

BZIMF 

+ 2 

IS  RATE  MAG  LESS, EQUAL  ,65  DEG/SEC. 

tns 

REF 

3 Last  617 

26,2715  1 2723  1 

TCF 

RCSCNTRL 

NO,  GO  TO  JET5, 

0117 

Ktr  617 

26,2716  10‘ 073  1 

CCS 

QRCNTR 

YES,  THIS  AXIS  IS  FINE,  ARE  BOTH  DONE, 

0118 

KLF 

1 

26,2717  1" 2673  0 

"TCF 

"TRY  THE  Q AXIS  NOw. 

0119 

REF 

1 

26,2720  1 2766  0 

TCF 

GTSRAXIS 

USE  TRIM  GIMBAL  CONTROL. 

U I 

26,2721  77512  1 -TGBND+1 

OCT 

77512 

-2  DEG  SCALED  AT  PI,  + 1 BIT, 

ui  21 

26,2732-  77423" T -RATBD+T 

“OCT" 

77423 

-.65  DEG /SEC  SCALED  AT  PI/4  + "I  BIT  " 

R01 2 6 

« ll  i l vut  trcr\ijK  i o 

beyond  trim  gimbal  control  law 

range. 

SET  UP  rOK  KCS  CUlNiKOL  LAW  (U^K-AXAS)  AND  CALCULAfE 

1 AHC 

.wj  iu  i ursiN  urr 

THE  GIMBAL  DRIVES* 

w 1 29 

— 

RcF 

1 

26*2723  3 2745  0 RCSCNTRL 

caf 

POSTQRFL 

CHANGE  LOCATION  OF  NEXT  T5RUPT  FROM 

Kcr 

If  LnS 1 O 1 5 

<16 ,2(24  54  345  1 

TS 

T5AqR 

filter  to  fildummy 

kct 

i 

<:b,2?25  3 2746  0 

CAT 

QRJPFILT 

SET  UP  POST  P-AXIS  T5RUPT  TO  GO  TO 

Kcr 

H LAo 1 o i U 

^6*2726  55*601  0 

TS  " 

PFILTADR 

DUMMYFIL  INSTEAD  OF  FILTER 

0133 

DELETE 

through  0134 

26  1 2l  0 0006  1 

extend 

PREPARE  FUR  SEqUENCED  RESUMPTION  OF 

V 1 3 6 K C r 

18  LAST  605 

26,2730  3 0034  0 

— DCA  " 

cuur 

" Q,R-AXIS  PCS  CONTROL  RATE  DERIVATION""" 

V L $[  Kcr 

h LMol  56<l 

2fa,273l  53*434  1 

— DXCH — 

"OLDYFORO" 

BY  PROVIDING "OLD  "CDU  READINGS 

C136 


26*2732 — 0 0006  1 — 


"MOVE 


ATTITUDE 


EXTEND" 
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0139 

REF 

7 

LAST  617 

26,2733 

3 1500 

0 

" OCA 

QOIFF 

ERRORS  INTO  ERASABLE  FOR  Q.R-AXIS  RCS 

0140 

REF" 

4 

TRST  >77 

26,2734 

5 7^500 

0 

KCfl 

RERROR 

CONTROL {“NOTE  THAT  THE  AXES  SEEM  TO  BE 

0141 

"REF 

R 

LAST  577 

26*2735 

23 ' 477 

1 

LXCH 

qerror 

INTERCHANGED  BUT  ARE  NOT  CONFUSED 

0142 

REF  157  LAST  610 

26,2736 

3 7657  1 

CAF  ONE 

0143 

REF^  50  LAST  559 

26,2737 

0 4536  0 

TC  WAITLIST 

DO 

0144 

26,2740 

02751  0 

2CADR  CHEKDRIV 

TGOFF  CALCULATION  IN  WAITLIST  TASK 

CO  144 

REF  t 

26,2741 

54006  0 

0145 

26,2742 

0 0006  1 

EXTEND 

GO 

TO  Q,R~AXeS  CONTROL  IMMEDIATELY 

0146 

REF  1 

26,2743 

3 2750  1 

DCA  TGENTRY 

~0147 

26,2744 

52  006  0 

DTCB 

0148  * DELETE 

“OT49 rcF  2"lAsT5E2  26 ,2T45  ~0255ETTOsTOrFL  GENAqR  FiLDUMMT 

“0150  REF  2 LAST  560  “ 26,2746  012544  0 QRjPFILT  GENADR  DUMMYFIL 

0151  26,2747  03122  0 TGENTRY  2CADR  STILLRCS 

COTETI  REF  6 LAST  578  26,2750  50006  1 


0 1 5 2 

REF  224  LAST  610 

26,2751 

3 7665  0 CHEKDRIV 

0 

Rt 

M 

ZERO 

CALCULATE  Q-AXIS  GIMBAL 

DRIVE 

SHUTDOWN  T 

0153 

REF  1 

26,2752 

0 3442  0 

TC 

tgoffcAl 

0154 

KtF  81  LAS  1 618 

26,2753 

0 4536  0 

TC 

WAITLIST 

0155 

26,2754 

03370  0 

2CADR 

OFFGIMQ 

C01 55 

REF  1 

26,2755 

54006  0 

0156 

REF  84  LAST  606 

26,2756 

3 7656  0 

CAF 

TWO 

CALCULATE  R-AXIS  GIMBAL 

DRIVE 

5HUTD0WN  T 

015  T 

REF  2 LASl  “6T8 

26,2757 

0 3442  0 

TC 

TGOFFCAL 

0158 

REF  62  LA5 I 61 8 

26,2760 

0 4536  0 

TC 

WAITLIST 

0159 

26,2761 

03373  0 

2CADR 

OFFGIMR 

COT  59 

REF  1 

26,2762 

54006  0“ 

0160 

RcF  1 

26,2763 

0 3400  0 

TC 

WRCHN12 

SET  UP  NEW  DRIVES  AS  OF 

NOW 

0 1 6 1 

REF  66  LAST  560 

26,2764 

1 4602  0 

TCF 

TASKOVER 
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L @TRIM  G I MBAL~CoNTROL  SYSTEM ""  _ _ _ USER'S  OWN  PAGE  NO.  5 

PC  162  THE  DRIVE  SETTING  ALGORITHM  ““  

R0163  DEL  s:"  S^NT0]VlEGA7X"*~~SGNT ALPHA)  ALPHA  (2)  /Z)  ONLY  + l/-r~ 


R0164 

NEGUSJM 

= ERROR. K (2) 

+ Del ( (OMEGA. K. DEL 

+ ALPHA ( 2 ) / 2 ) ( 3 / 2 ) + (OMEGA. 

K.DEL  + ALPHA (2) /3) ALPHA 

R0166 

DRIVE  = 

-SGN (NEGUSUM) 

0167 

26,2765 

76504  1 

-.04266  DEC 

“ • 04266 

^ 0168 

ref 

85 

LAST  618 

26,2  T66 

3 7656  0 

gtsraxis  CAp 

TwO 

SET  INDEXER  fOR  R-AxIS  CALCULATIONS 

0169 

REF 

22 

LAST  6 1 7 

26,2767 

54  073  1 

TS 

ORCNTR 

0170 

REF 

1 

26,2770 

1 2773  I 

TCF 

GTSQAXIS 

0171 

REF 

225 

LAST  6 1 8 

26,2771 

3 7665  0 

GOQTRIMG  CAF 

ZERO 

SET  INDEXER  FOR  Q-AXIS  CALCULATIONS 

0172 

REF 

23 

LAST  619 

26,2772 

54  073  1 

TS 

ORCNTR 

0173 

26*2(73 

0 0006  1 

GTSQAXIS  EXTEND 

0174 

ref 

Z4 

LAST  619 

26,2774 

5 0073  0 

INDEX 

ORCNTR 

PICK  UP  K AND  K<2)  FOR  THIS  AXIS 

0175 

REF 

5 

LAST  559 

26,2775 

3 1536  0 

DC  A 

KQ 

0176 

REF 

1 

26,2776 

52  066  0 

DXCH 

KCENTRAL 

0177 

26,2777 

0 0006  1 

EXTEND 

0178 

ref 

25 

LAST  619 

26,3000 

5 0073  0 

INDEX 

QRCNTR 

PICK  UP  OMEGA  AND  AlPHA  FOR  THIS  AXIS 

0179 

REF 

16 

LAST  617 

26,3001 

3 1420  0 

“ DC  A 

OMEGA  0 

0180 

REF 

1 

26,3002 

52  071  0 

DXCH 

WCENTRAL 

0181 

REF 

26 

LAST  619 

26,3003 

30  073  0 

CAE 

QRCNTR 

0182 

26,3004 

0 0006  1 

extend 

0183 

26,3005 

1 3010  1 

3ZF 

+ 3 

0184 

REF 

4 

LA5 1 616 

26 ,3006 

31*500  C 

~~CAET 

RDIFF 

0185 

26*3007 

1 3011  0 

TCF 

+ 2 

0186 

RlF 

8 

LAST  618 

26,3010 

31*477  1 

CAE 

QDlFF 

0187 

26,3011 

0 0006  1 

EXTEND 

RtSCALE  DIFFERENCE  BY  MULTIPLYING  BY 

0188 

REF 

37 

LAST  6U7 

26,3012 

7 7651  0 

MP 

BIT7 

2(6) 

0189 

REF 

1 

26,3013 

22  075“  0““ 

LXCiT 

ETHETA 

u i vu 

Kcr 

2 

LASI  61V 

26*3014 

30  065  1 

CAE 

KCENTRAL 

TEST  ON  MAGNITUDE  OF  ACCDOT 

0191 

ref 

1 

26,3015 

6 2765  1 

ait 

-.04266 

0192 

26,3016 

0 0006  1 

EXTEND 

u i 93 

Ktr 

1 

26,3017 

6 3033  1 

3ZMF 

ACCDOTSM 

BRANCH  IF  ACCDOT  IS  SMALL 

4° 

LnO 1 OiU 

<;o»3U20 

3 Tb 42  0 

ACCDU 1 LG  CAF 

BITI4 

ACLUU 1 IS  CUMPAK1 [ 1VELY  LARGE 

KtF 

1 

26 ,3021 

54  076  1 

T S 

Sp  1 

SET  UP  SCALE  FACTORS 

LAST  546 

26,3022 

3 7644  O 

CAF 

BIT12 

u 197 

Kcr 

1 

26*3023 

54  077  0 

W5FTE5T  TS 

SF2 

Kcr 

L.MSI  619 

26,3024 

10  070  1 

CCS- 

WCENTRAL 

TEST  ON “MAGNITUDE  OF  OMEGA 

u i 99 

Ktr 

1 

2 b y 3025 

6 3U56  1 

AD 

-.04438 

01991 

26 , 3026 

1 3030  0 

TCF 

+ 2 

01992 

k ur  d 

LAST  6 1 ^ 

2 6 » 30z7 

6 3056  1 

- 'Air 

m #04438 
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L 

©TRIM 

gimbal  control 

system 

USER'S  OWN  PAGE  NO.  6 

0200 

26,3030 

0 0006 

1 

EXTEND 

0201 

REF 

i 

26,3031 

6 3047 

1 

3ZMF 

ASFTEST 

IF  small,  go  to  alpha  test 

0202 

REF 

i 

26,3032 

1 3071 

0 

TCF 

wlarge 

0203 

' REF  ‘ 

3 LAST  619 

26,3033 

30  065 

1 

ACCDOTSM  CAE 

kcentral 

RESCALE  IF  ACCDOT  15  SMALL 

0204 

26,3034 

0 0006 

1 

EXTEND 

0205 

REF 

27  LAST  565 

26,3035 

7 7653 

1 

MP 

B1T5 

RESCALE  K BY  MULTIPLYING  BY  2(4) 

' 0206 

REF 

4 LAST  620 

26,3036 

22  065 

r 

LXCri 

KCENTRAL 

0207 

REF  - 

5 LAST  620 

26,3037 

30  065 

1 

CAE 

KCENTRAL 

0208 

26,3040 

0 0006 

1 

EXTEND 

' 0209 

26,3041 

7 0000 

0 

SQUARE 

0210 

REF 

1 

26,3042 

54  066 

0 

T S 

K2CNTRAL 

“ oa  i 

REF 

4?  LAST  607 

26,3043 

3 7646 

1 

CAF 

BIT10 

SET  UP  VARIABLE  SCALE  FACTORS 

11212 

REF 

2 LAST  619 

26,3044 

54  076 

1 

T5 

SF1 

0213 

REF 

41  LAST  595 

26,3045 

3 7654 

1 

CAF 

BIT4 

02 14 

REF 

1 

26,3046 

1 3023 

1 

TCF 

wsftest 

go  test  on  magnitude  of  omega 

0215 

REF 

1 

26*3047 

10  071 

0 

ASFTEbT  CCS 

acentral 

TEST  ON  MAGNITUDE  OF  ALPHA 

0216 

RTF  ~ 

T " 

26,3050 

6 3057 

0 

ad 

-.08882 

02161 

26,3051 

1 3053 

0 

TCF 

+ 2 

“ 02162 

REF 

2 LAST  620 

26 , 3052 

6 3057 

0 

AD 

-.08882 

0217 

26,3053 

0 0006 

1 

extend 

" 0218 

REF 

T 

26,3054 

6 3060 

1 

BZMF 

W AkESCAL 

IF  SMALL,  GO  TO  W.A  RESCALING 

" 0219 

REF 

2 LAST  620 

26 , 3O55 

1 3071 

0 

TCF 

WLARGE 

IF  LARGE,  DO  SAME  AS  IF  W LARGE 

0220 

26,3056 

76450  1 

-.04438  DEC 

-.04438 

0221 

26,3057 

75120 

0 

-*08882  DEC 

-.08882 

0222 

REF 

3 LAST  619 

26,3060 

30  070  0 

WARE5CAL 

CAE 

WCENTRAL 

RESCALE 

omega 

BY 

MULTIPLYING 

BY 

2(4) 

0223 

£6 , 3U6 1 

0 0006  1 

EXTEND 

0224' 

" "REF" 

"28  CAST  620 

26,3062 

7 7653  1 

“YP  " 

BIT5 

0225 

REF 

4 LAST  620 

26,3063 

22  070  0 

LXCH 

WCENTRAL 

0226 

2 LAST  62Ci 

^6  1 3^64 

30  O7I  1 

CAE 

ACENTRAL 

RESCALE 

alpha 

BY 

MULTIPLYING 

BY 

2T3 ) 

0228 

0229 


REF 

REF 


42  LAST  620 
3 TA  5T  " ~6  2 Q 


26.3066 

26.3067 


7 7654  0 
22  071~r 


'.vtp-  - 

TXCFT 


BIT4 

ACENTRAL 


0230  ~K£F  I 26*3070  1 3101  0 TCF  ALGORTHM 


“"0Z3T" 

REF 

- 3~tAST 

620  ^ 

26,3071 

30  076 

0 WLARGE 

CAE" 

SF1 

0232 

26*3072 

0 0006 

1 

EX  | EiNjD 

K c.r 

(-1  LAG  1 664 

2b ,3076 

7 7643 

0 

MP 

BIT13 

Ktf 

* LMS  1 

6<cu 

26,3074 

54  076 

1 

TS 

SF 1 

0235 

REF 

2 LAST 

619 

2b , 3076 

30  077 

1 

CAE 

SF2 

0236 

26 ,3076 

0 0006 

I 

EXTEND 

0237 

R=.F 

42  LAST 

5 86 

26,3077 

7 7652 

0 

" Mr 

tJI  16 

REF 

3 LAST 

620 

26,3 100 

54  077 

0 

1 5 

SF2 

RESCAEE  VARIABLE  SCALE  FACTORS 
^rr  = sFi4?( -2)  ~~ 


SF2  = SF2*2(-9> 
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0239 

REF 

2 

LAST 

619 

26,3101 

30  075 

0 

ALGORTHM 

CAE 

etheta 

GET  RESCALED  ERROR  THETA 

0240 

26,3102 

0 0006 

1 

EXTEND 

0241" 

REF 

2 

LAST 

620 

26,3103 

7 0066 

0 

MP 

K2CNTRAL 

FORM  M2)*THETA  IN  D.P. 

0242 

REF 

1 

2b, 3104 

22  074 

1 

LXCH 

K2THETA 

0243 

26,3105 

0 0006 

1 

EXTEND 

FORM  K(2)*THETA#SF2  IN  D.P. 

0244 

REF 

4 

LAST 

620 

26,3106 

7 0077 

0 

“MP 

SF2 

0245 

REF" 

LAST 

621 

26,310? 

52  075 

i 

DXCH 

K2THETA 

0246 

26,3110 

0 0006 

1 

EXTEND 

0247 

REF 

5 

LAST 

621 

26,3111 

7 0077 

0 

MP 

SF2 

0246 

REF 

3 

LAST 

621 

26,3112 

26  075 

I 

ADS 

K2THETA  +1 

0249  REF 

5 LAST  620 

26,3113 

30  070  0 

CAE 

WCENTRAL 

GET  OMEGA 

0250 

26,3114 

0 0006  1 

EXTEND 

0251  REF 

6 LAST  620 

26,3115 

7 0065  0 

MP 

KCENTRAL 

FORM  K.*OMtGA  IN  D.P. 

0252  REF 

1 

26,3116 

22  065  1 

LXCH 

OMEGA. K 

0253 

26,3117 

0 0006  1 

EXTEND 

FORM  UMEGA*K#SF1  IN  D.P, 

0254  REF 

5 LAST  620 

26,3120 

7 0076  1 

MP 

SF 1 

0255  REF 

2 LAST  621 

26,3121 

52  066  0 

DXCH 

OMEGA, K 

0256 

26,3122 

0 0006  1 

EXTEND 

0257  REF 

6 LASI  621 

26,3123 

7 0076  IT 

MP 

SF1 

0258  REF 

5 LAS  1 621 

26,3124 

26  066  0 

ADS 

OMEGA. K +1 

0259  REF  4 LAST 520" 

0260 
0261 

~U2 62  REF  r~ 


“26 

26 

26 

Zb 


3125  30  07 1 1 

3126  0 0006 T 
3127 7 0000  0 
3130  52  077  0 


CAE  ACENTRAL  FORM  ALPHA (2)  IN  D.P. 

"Extend 

square 

OXCh  “ A2CNTRAL 


02  6 3 

REF 

5 LAST 

621 

26*3131  30  O7I  1 

CAE  ACENTRAL 

GET  SGN (ALPHA) 

0264 

26,3132  0 0006  1 

EXTEND “ 

0265 

26,3133  6 3137  1 

3ZMF  +4 

0266 

26,3134  0 0006  1 

EXTEND 

0267 

REF- 

~2  LA  51“ 

621 

26,3135  3 0077“ 1 

DCA  “A2CNTRAL 

0266 

26  » 3 1 36  1 3 14  i 1 

1 Oh  +3 

0269 

26  * 3 1 3 ? 0 0006  1 

EXTEND 

0270 

REF 

3 LAST 

621 

26 , 3140  4 0077“ 0 

DC5  A2CNTRAL 

0271 

REF 

1 

26,3141  53*531  0 

DXCH  FUNCTION 

SAVE  AS  SGN(ALPHA)ALPHA(2) 

0272 

26,3142  0 0006  1 

extend 

0273 

REF 

R LAST 

621 

2&,S 143  3 0066  1 

DCA  - OMEGA. K 

0274 

REF 

2 LAST 

621 

26,3144  21*531  0 

DAS  FUNCTION 

FORM  FUNCT1 

6275 

REF 

i LAST 

621 

26*3145  11*530  1 

CCS  FUNCTION 

DEL  = sGN(FUNCTl) 

0276 

REF 

1 

26,3146  i 3i52  0 

TCP  POSFNCT 1 

0277 

26,3147  1 3151  0 

TCF  +2 

02T8 

REF 

1 

26,3150  1 3154  0 

TCP  NEGFRCT1 

0279 

REF 

4 LAST  621 

26,3151 

11*531 

0 

CCS 

FUNCTION  +1 

USE  LOW  ORDER  WORD  SINCE  HIGH  IS  ZERO 

66  LAST  619 

26,31 52  3 7656 

~0 

POsFNCT 1 

“CAF 

TWO“ 

0281 

26,3153 

1 3155 

1 

TCF 

+ 2 

0282 

REF 

2 2b  LAST  6i9 

2 6 * 3 1 5 4 

3 7665 

0 

NEGFNCT 1 

CAF 

ZERO 

0283 

REF 

8~ LAST  585“ 

26,3155 

6 7667 

1 

AD 

“NEGI 
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0264  REF  1 26*3156  54-072  0 TS  DEL  ~ 


0285  REF 

0286  REF 
0267 

0288 


2 LAST  622  26.3157  10'  072  0 CCS  DEL 

1 26,3160  1 3165  1 TCF  FUNCT2. 

26T3161  25253  1 ,66667  DEC  ,66667 

26,3162  0 0006  1 EXTEND 

5 LAST  621  26,3163  4 0066  C DCS  OMEGA. K 

6 LAST  622“  26,3164  52  066  0 ~DXCH  OMEGA. K 


MAKE  OMEGA *K  REALLY  DEL*OMEGA*K 
(NOTHING  NEED  BE  DONE) 


CHANGE  SIGN  OF  OiViEGA*K 


0291 

26*3165 

0 0006 

1 FUNCT2 

EXTEND 

0292 

”REf 

7 LAST 

622 

26,3166 

3 0066 

r 

dca 

OMEGA. K 

0293 

REF 

5 LAST 

621 

26,3167 

53*531 

0 

DXCH 

FUNCTION 

DEL*OM£GA*K 

0294 

26,3170 

0 0006 

1 

EXTEND 

"0295 

REF ' 

4 LAST 

621 

26,3171 

3 0077 

1 

DCA 

A2CNTRAL 

0296 

REF 

6 LAS  1 

622 

26,3172 

21*531 

0 

DAS 

FUNCTION 

DEL*OMEGA*K  + SGN (ALPHA) ALPHA (2) 

■REF  5TAST622 


“15297" 

0298 

0299  REF  1 

”0000  REF  6 LAST  622 

0301 


0302 


REF  219  LAST- 61 6 


26.3173  30  076  0 

26.3174  0 0006  1”“ 

26.3175  7 3161  0 

“26, 3176  52  077  0 

56  001  0 
0 0006  1 


FUNCT3 


26,3177 

26,3200 


“ESI  A2CNTRAL 

extend 

MP  ,66667 

DXCH  A2CNTRAL 
XCH  L— 

EXTEND" 


CALCULATE  ( 2/3) SGN (ALPHA ) ALPHA ( 2 ) 


V303 

REF  2 LAST  622  - 

2 6, 3 2 01 - 7 3161  0 

W ” 

.66667 

0304 

REF 

7 LAST  622 

26,3202  26  077  "0” 

ADS 

A2CNTRAL 

♦ 1 

220  LAST  622 

26.3203  54  001  1 

TS 

L 

0TO6 

26,3204  T 3206  1 

TCF 

+ 2 

0307  REF 

8 LA5T622 

26,3205  6 0076  0 

AD 

A2CNTRAL 

0308 

REF 

8 LAST  622 

26,3206  52  066  0 

DXCH 

OMEGA. K 

DEL*OMEGA*K+ 

0309 

REF 

9 LAST  622 

26,3207  20  077  0 

DA  5 

A2CNTRAL 

( 2/3) SGN (ALPHA) ALPHA (2) =G 

0310 

REF 

10  LAST  622 

26.32IC T 30  076  0 

CAE 

A2CNTRAL 

G*ALpHA  In  D.p, 

0311 

26,3211  0 0006  1 

EXTEND 

0312 

REF 

6 LAST  621 

26*3212  7 0071  0 

V)p 

ACENTRAL 

11  EAST”  6T2~ 

26,3213  52  077  0 

DXCH 

"A2CNTRAL 

0314 

KEF  221  LA5 1 622 

26,3214  56  001  0 

XCH 

L 

0315 

26,3215  0 0006  1 

EXTEND 

0316  REF 

7 LAST  622 

26*3216  7 0071  0 

TtP 

ACENTRAL 

0817 

KEF 

12  LA5f  622 

26,3217  26  077  0 

ADS 

A2CNTRAL 

+ 1 

0318 

REF 

222  LAST  622 

26*3220  54  001  1 

T 5 

L 

03TR 

26,3221  1 3223  C 

TCF 

+ 2 

C320 

REF 

13  LAST  622 

26,3222  26  076  1 

ADS 

'A2CNTRAL 

u32 1 

REF 

14  LA5 1 622 

26*3223  52  U77  0 

DXCH- 

A2CNTRAL 

FIRST  AND  THIRD  TERMS 

0322 

REF 

4 LAST  621 

26,3224  20  075  1 

DAS 

K2THETA 

SUMMED  IN  D.P. 

R 0 3 2 3 

THE 

FULLUWING  SEC  1 1 UN  CALCULATES  * 707*DEL*FUNCT ION ( 3/ 2 ) 

AND  ADDS  IT  TO  THE  OTnER  TWO  TERMS  OF  NEGUSUM. 

0325 

0326 


REF 

REF 


7 LAST  622 
7 


26.3225 

26.3226 


11*530  1 
1 3273  0 


CCS  FUNCTION  TE5T  FOR  HIGH  ORDER  WORD  NON-ZERO 

TCF FMAGTEST YES,  SEE  TF  RESCALING  IS  NECESSARY 
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>-■327 

26,3227 

1 3231  0 

TCF 

+ 2 

NO,  USE  LOW  ORDER  WORD  ONLY 

0328 

26,3230 

26501  1 

.707GTS  DEC 

.70711 

(CCS  HOLE  USED  FOR  DATA) 

0329 

"REF 

1 1 LAS  1 606 

26,3231 

0 4177  1 

TC 

T 6J0BCHK 

0330 

REF 

8 LAST  622 

26*3232 

31*531  1 

CAE 

FUNCTION  +1 

USE  LOW  ORDER  WORD  ONLY 

0331 

REf 

Z LAST  590 

26,3233 

0 4275  0 

TC 

SPROOT 

SQUARE  ROOT  SUBROUTINE  CALL 

0332 

26,3234 

0 0006  1 

EXTEND 

3/2 

' 0333 

"REF 

9 LAST  623 

26,3235 

7 1531  0 

~w 

FUNCTION  +1 

FUNCTION 

0334 

26,3236 

0 0006  1 

EXTEND 

(NEEDS  TO  BE  SHIFTED  RIGHT  21  PLACES) 

0335 

REF 

30  LAST  609 

26,3237 

7 7650  1 

MP 

BiT8 

0336 

REF" 

223  LAST 622 

26,3240 

56  001  0 

XCH 

L 

0337 

REF 

227  LAST  621 

26,3241 

3 7665  0 

CAF 

ZERO 

3/2 

0338 

REF 

10  LAST  623 

2b « 324 2 

53*531  0 

DXCH 

FUNCTION 

SAVE  FUNCTION  IN  FUNCTION  LOCATION 

0339 

REF 

1 

26,3243 

1 3260  1 

TCF 

DELTEST 

0340 

REF 

11  LAST  623 

26,3244 

31*530  0 

SqRESCAL  CAE 

FUNCTION 

HIGH  ORDER  WORD  OF  FUNCTION  NEEDS  TO  BE 

0341 

26,3245 

0 0006  1 

EXTEND 

RESCALED  FOR  ACCURACY,  SO  MULTIPLY  D.P, 

0342 

REF 

38  LAST' 619 

26,3246 

7 7651  0 

MP 

BIT7 

VALUE  BY  2(6) 

0343 

REF 

12  LAS  1 623 

26,3247 

23*530  0 

LXCH 

FUNCTION 

0344 

" REF 

228  LAST  623 

26,3250 

3 7665  0 

CAF 

ZERO 

0345 

REf 

13  LAST  623 

26,3251 

57*531  1 

XCH 

FUNCTION  +1 

0346 

26,3252 

0 0006  1 

EXTEND 

0347 

REF 

39  LAS  1 b23 

2b  , 3253 

7 7651  "0 

MP 

BIT7 

0348 

REF 

14  LAST  623 

26,3254 

21*531  0 

DA5 

FUNCTION 

0349 

REF 

229  LAST  623 

dt 1 3^35 

3 7665  0 

CAF 

ZERO 

SET  FLAG  TO  GO  TO  RESCALE,  AND  GO  TO  DO 

0350 

REF 

1 

26,3256 

55*527  1 

TS 

MULTFLAG 

square  root  and  function(3/2> 

0351 

REF 

1 

26 ,3257 

1 3300  0 

TCF 

DOSPROOT 

CALCULATION 

0352 

REF 

37  LAS  1 586 

26  |3260 

4 7637  0 

DELTE5T  05 

P05MAX 

SET  FLAG  TO  GO  TO  NEGUSUM 

" 0353 

REF 

2 LAST 623 

26,3261 

55*527  1 

TS 

MULTFLAG 

0334 

“REF' 

3 LA31  622 

26,3262 

10  072  0" 

~CCS"' 

"DEL 

Gfcl  DtL*,707 

0355 

RtF 

1 

26 , 3263 

3 3230  0 

CAF 

• (0  f(aT5 

0356 

26,3264 

1 3266  1 

TCF 

+2 

0337" 

“REF 

2 LAST  "623 

26,3260" 

4 3230  1 

C5 

.707GT5 

0358 

REF 

1 

26  * 3266 

1 3302  1 

TCF 

SPDPMULT 

GO  TO  MULTIPLY  ROUTiNt 

0359  RTF  3B~TA~ST~  623  26,3267  3 7637  1 RESHIFT  CAF  PU5MSX  SET  FLAG  TO  GO  TO  "DELTE5T 

0360  REF  3 LAST  623  26,3270  55*527  1 ^TS~  MULTFCAG  ~ 

0361  REF  43  LAST  620  26*3271  3 7652“!—  CAF  BIT6 

0362; — REF  2 LAST-6 2T-  '26,3272  1 3302  I~  TCF SPOPMOLT"  GO  TO  MULTIPLY  ROUTINE 

0363  REF  Z LAST  124  26,3273  6 4362  1 FMAGTEST  AD  “63/64+1  IF  MAGNITUDE  OF  HIGH  ORDER  WORD  15  LESS 

0364  26,3274 — 54  000  0 OVSK TRAN  1/64  RE50ALE  WHOLE  D.P.  WORD — 

0365  REf  — tr~  26,3275  1 3244  1 TCF  SQRESqAl 


0366  "REF  39  LAST" 623  2673276  3 7637  1 CAF POSMAX 

0367  REF  4 LAST  623  - 26,3277  55*527  1 TS  MULTFLAG 


0368  rEF  15  LAST  623  26,3300  31*530  0 DOSPrOOT  CAE  FUNCTION  USE  HTGH  OrDER "WOrDONTLY 
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0369 

REF 

3 LAST  623 

26,3301 

0 4275  0 

TC 

SPROOT 

square  root  subroutine  call 

0370 

REF 

1 6 LAST  623 

26,3302 

57 ' 530  0 

SPDPMULT 

XCH 

FUNCTION 

THIS  IS  AN  OPEN  SUBROUTINE  WHICH  USES 

0371 

26*3303 

0 0006  1 

EXTEND 

MULTFLAG  AS  A RETURN  SWITCH. 

0372 

REF 

IT  LAST  624 

26,3304 

7 1539  1 

“MF 

function 

it  multiples  function  (d.p.)  by  c<A) 

0373 

RcF 

1 8 LAST  &24 

26,3305 

53*531  0 

DXCH 

FUNCTION 

AND  LEAVES  THE  RESULT  IN  FUNCTION  (D.P,) 

0374 

26,3306 

0 0006  1 

EXTEND 

IT  IS  USED  FOR- 

“0375 

RtF 

224  L7TST~623 

26,3307 

7 0001  1 

~MP~ 

L 

1)  F ( 1 /2 ) *F 

0376 

RtF 

1 9 LAS  1 62 A 

26,3310 

27*531  0 

ADS 

FUNCTION  +1 

2)  (,707*DEL)#F 

0377 

REF 

225  LAS  1 624 

26*3311 

54  001  1 

TS 

L 

3)  2 (-9) #F 

0378 

26,3312 

1 3314  0 

TCF 

♦ 2 

0379 

REF 

20  LAST  624 

26,3313 

27*530  1 

ADS 

FUNCTION 

0380 

REF 

5 LAST  623 

26,3314 

11*527  1 

CCS 

MULTFLAG 

POSMAX  MEANS  GO  TO  DELTEST 

0381 

REF 

2 LAST  623 

26,3315 

1 3260  1 

TCF 

DELTEST 

ZERO  MEANS  gO  TO  RESHIFT 

0382 

REF 

1 

26,3316 

1 3267  0 

TCF 

RESHIFT 

NEGMAX  MEANS  GO  TO  NEGUSUM 

0383 

26*3317 

0 0006  1 

NEGUSUM 

EXTEND 

FORM  FINAL  SUM  FOR  NEGUSUM 

0384 

REF 

21  LAST  624 

26,3320 

3 1531  1 

DCA 

“ FUNCTION 

03  85 

ref 

5“LAST  622 

26,3321 

20  075  1 

~DAs 

K2THETA 

0386 

REF 

6 LAST  624 

26,3322 

10  074  0 

CCS 

K2THETA 

TEST  FOR  ZERO  HIGH  ORDER  PART 

S3  6 7 

REF 

" '"1" 

26,3323 

1 3327  0 

TCF 

NEGDRIVE 

0388 

26,3324  1 3326  1 

TCF 

♦ 2 

0389 

REF 

“1 

26,3325 

1 3331  1 

TCF 

P05DRIVE 

03g0 

REF 

7 LAST  624 

^6  • 3326 

13  075  1 

CCS 

K2THETA  +1 

SIGN  TEST  ON  LOW  ORDER  PART 

0391 

REF 

87  LAST  621 

26,3327 

3 7656  0 

NEGDRIVE 

caf 

TwO 

0392 

26,3330 

1 3332  I 

TCF 

+ 2 

0393 

RcF 

230  LA5I  623 

26,3331 

3 7665  0 

PQSDRIVE 

CAF 

ZERO 

0394 

RcF 

9 LAST  621 

26,3332 

6 7667  1 

AD 

NEG1 

0395 

KEF 

~3  LAST  609 

26*3333 

50  073  0 

INDEX 

TTEMP6 

SET  NEGUQ, R TO  NEG  DRIVE 

0396 

REF 

4 LAST  6 1 1 

26,3334 

55*532  0 

TS 

NEGUQ 

0397 

26,3335 

4 0000  73“ 

COM 

u398 

26,3336 

0 0006  1 

extend 

SEND  BACK  jERK  TERM 

C399 

REF 

4 LAST  624 

26,3337 

5 0073  0 

index 

ITEMP6 

0300 

RtF 

5 LAST  559 

26,3340 

7 1541  1 

"~MP 

ACCDDTO 

0401 

REF 

5 LAST  624 

26,3341 

50  073  0 

INDEX 

ITEMP6 

0402 

REF 

1 

26,3342 

23*542  0 

LXCH 

QACCDOT 

REF 

27  LASI  619 

26,3343 

10  07i  1 

CCS 

OrCNTr 

LOOP  COUNTER 

0404 

REF 

1 

26,3344 

1 2771  0 

TCF 

goqtrimg 

R0405  TRANSFORM  JERkS  BACK  TO  qIMBAl  AXES, 


UA06 

REF 

Z LA5  1 

624 

26,3345 

31*542  0 

CA~E  QACCDOT 

‘ SCALED 

AT 

PI/2(7) 

O4G7 

26  * 3346 

0 0006  1 

EXTEND 

vHUO 

■ C409 

RtF 

REF 

4 LAST 
3 LAST 

5 1 6 
611 

26 , 3347 
26.3350 

7 1400  0 
55*576  0 

MP  MR  12 

T Y3DDT 

scaled 

AT 

2 
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0410 

REF 

1 

26,3351 

3 1 * 5AA  0 

CAE 

RACCDOT 

SCALED  AT  PI /2  (7) 

0411 

26,3352 

0 0006  1 

EXTEND 

0A1T 

“ REF 

3 LAST  576 

26,3353 

7 1A02  1 

MR  13 

SCALED  AT  2 

0413 

REF 

_ A LAST  62 A 

26,335A 

27*576  0 

ADS 

Y3D0T 

OAI A 

REF 

5 LAST  625 

26,3355 

27*576  0 

ADS 

Y3D0T 

SCALED  AT  PI/2 (7) 

GAi5 

' REF 

3 LAST  62A 

Zb  • 3356 

3 1 * 5A2  0 

CAE 

QACCDOT 

SCALED  AT  Pl/2<7) 

0416 

26,3357 

0 0006  1 

EXTEND 

0A1T 

REF 

2 LAST  535 

26 , 3360 

7 1A01  1 

MP 

MR22 

SCALED  AT  1 

0A18 

REF 

2 LAST  611 

26,3361 

55  * 600  1 

TS 

Z3D0T 

~ 0419 

’ REF- 

2 LAST  625 

26,3362 

31 • 544  0 

CAE 

RACCDOT 

SCALED  AT  PI/2<7> 

0A20 

26,3363 

0 0006  1 

EXTEND 

0A21 

REF 

2 LAST  535 

26,336A 

7 1 A03  0 

MP 

MR23 

SCALED  AT  1 

0422 

~ REF" 

3 LAST  625 

26,3365 

27*600  1 

ADS  23D0T 

SCALED  AT  PI/2  (7) 

0A23 

REF 

2 LAST  618 

26  ♦ 3366 

0 3A00  0 

TC 

WRCHN12 

SEND  GIMBAL  DRIVES  TO 

SERVOS 

0A2A 

REF “ 

T9  LAST  616 

26,3367 

1 4606  1 

TCF 

RESUME 

WAIT  UNTIL  NEXT  TRIM 

GIMBAL  RUpT 

R 0 A 2 5 WAITLIST  TASKS  TO~5ET  TRIM  GIMBAL  TURN  OFF  BITS. 


0426 

REF 

231  LAST  624 

26,3370 

3 7665 

0 

OFFGIMQ 

CAF 

ZERO 

set  q-axis  flag  to  zero 

0427 

REF 

5 LAST  624 

26,3371 

55*532 

0 

TS 

NEGUQ 

~0  4 2 8 

26,3372 

1 3375 

1 

TCF 

+ 3 

0429 

REF 

232  LAST  625 

26,3373 

3 7665 

0 “ 

OFFGIMR 

CAF 

ZERO 

SET  R-AXIS  FLAG  TO  ZERO 

0430 

' REF 

2 LAST  611 

26,3374 

55*534 

0 

TS 

NEGUR 

0431 

” REF 

3 LAST  625  ~ 

26,3375 

0 340O~ 

0 

~TC 

' WRCHN12 

FLAGS  TO  CHANNEL  BITS 

0432 

REF 

67  LAST  618 

26,3376 

1 4602 

0 

TCF 

TASKOVER 

R0A33  THE  "WRCHN12  SUBROUTINE  SETS  BTTS  9^*10*  11. 12  OF  CHANNEL  12  0 N'T  HE  BASTS  OF  THE  CONTENTS  OF  NEGUQ .NEGUR  WHTCHARE 
R0435  TaE  NEGATIVES  OF  ThE  TRIM  GIM3AL  DESIRED  DRTVES. 


0436 

26,3377  07400  1 

BGTM 

OCTAl 

07400 

0437  RcF  6 LA5T  624 

0073 

CHNL12 

EQUALS 

ITEMP6 

0438  - 

'KEF 

“ 1 

^26*3400 

4 33  7T  0 WRCFfNl 

BGTW  ~ 

SAVE  THE  REST  OF  CHANNEl  12  DURING  TESTS 

0439 

26 , 34U 1 

0 0006  1 

EXTEND 

0440 

26,3402 

02  012  0 

RAND 

12 

0441 

REF 

1 

26 ,3403 

54  073  1 

TS 

CHNL12 

(TEMPORARY  STORAGE) 

u4+tt2 

Ktr 

b LA6I  625 

Zb t 

1 1 ' 532  0 

CCS 

NEGUQ 

0443 

REF 

2T  LAST  608 

26 ,3405 

3 7647  0 

CAF 

BIT9 

0444 

26,3406 

1 3410  0 

T CF 

+ 2 

G445 

REF 

A8  LAST  620 

2b  1 3407 

3 7646  1 

CAF 

BITlO 

0446 

RTF 

2 last  6 2 s 

2 b ? 3 4 1 0 

26  073  1 

ADF 

CHNLI2 

9447 

REF 

3 LAST  625 

26,3411 

11*534  0 

CCS 

NEGUR 

O448 

REF 

30  LAST  6°7 

26,3412 

3 7645  1 

CAP 

BIT  11 

O449 

2b  ,3413 

1 3415  0 

TCF 

+ 2 

Her 

c. Z LAS T b 1 9 

26 ,3414 

3 7644  0 

CAF 

B1T12 

0451 

Kcr* 

3 LAST  625 

26,3415 

26  073  1 

ADS 

CHNL12 

(STORED  RESULT“NOT  USED  AT  PRESENT) 

' 
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0452  26.3416  0 0006  1 EXTEND 

0453  26.3417  01  012  0 WRITE  12 


~0454  REF  292  LAST  610  26.3420  0 0002  0 TC  Q SIMPLE  RETURN  ALWAYS 

RO455  GT.R-TRAN5F  TRANSFORMS  A Y.Z  GTMBAL" COORDINATE  VARIABLE  PAIR  (IN  A7LT~ TO  PILOT  COORDINATES  (Q/R) . RETURNED  IN  “AV 
R0457  (TRE  MATRIX  TV  FROM  GTMBAL  TO  PIlOT  AXES  IS  ASSUMED  TOBEpQNE  BY  T4RUPT  ANp  ScAlEq  At  * lTr " 


0459 

REF 

7 

LAST 

625 

0073  QRERAS 

EQUALS  ITEMP6 

0460 

REF 

I 

26*3421 

22  O73  0 QTRANSF 

LXCH  QRERAS 

SAVE  Z-AXIS  VARIABLE 

0461 

26.3422 

0 0006  1 

extend 

0462 

REF 

4 

LAST 

576 

26.3423 

7 1405  0 

iMP  M2 1 

(Y-AXIS) *M21 

0463 

TTEF~ 

~ Z 

CAST 

626 

26.3424 

56  073  0 

XCH  QRERAS 

SAVE,  GET  Z-AXIS  VARIABLE 

0464 

26,3425 

0 0006  1 

EXTEND 

0465 

REF 

7 

LAST- 

577 

26,3426 

7 1401  1 

MP  M2  2 

(Z-AXIS) *M22 

0466 

~REF 

3 

LA51 

626 

26.3427 

6 OO73  0 

AT  QRERAS 

SUM  = (Y-AXIS) #M21  + (Z-AXIS) *M22 

0467 

REF 

293 

LAST 

626 

26.3430 

0 0002  0 

Tc  Q 

RETURN  WITH  SUM  IN  A 

0468 

REF 

4 

LAST 

626 

26,3431 

22  073  0 RTRANSF 

LXCH  QRERAS 

SAVE  Z-AXIS  VARIABLE 

0469 

26,3432 

0 0006  1 

EXTEND 

O47O 

RcF 

4 

LAST 

577 

26,3433 

7 1406  0 

MP  M31 

(Y-AXIS) *M31 

^047  IT 

REF 

S LA5T  626 

26,3434 

56  *073  ~0 

XCH  “ QRERAS 

SAVE,  ZiET  E-AXIS  VARI  ABLE  “ 

0472 

26,3435 

0 0006  1 

EXTEND 

0473 

REF 

6 

LAST 

577 

26 , S436 

7 1403  0 

MP  M32 

(Z-AXIS) *M32 

0474 

REF 

6 

LAST 

626 

26,3437 

6 0073  O 

AD  QRERAS 

SUM  = (Y-AXIS) #W31  ♦ (Z-AXIS) *M32 

0475 

REF 

294 

LAST 

626 

26  1 3^40 

0 0002  0 

TC  Q 

RETURN  WITH  SUM  IN  A 

047 6 ' 2 6. 3441  25253  1 (2731  DEC  0766667 
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P'0476  SUBROUTINE;  TGOFFCAL  MOD.  NO.  1 DATE*  AUGUST  22,  196fT 


Rp479  PROGRAM  DESTW^YTnRTCHARD  D.  GqSS  (MIT/ IP 

r o a 8 o program  implementation  by s Jonathan  d,'  addelston  < adams“associ ates > 


rga8 i this- subroutine  calculates  th=  trim  gimbal  shutdown  time  for  either  the  a or  the  R axis  (depending  on  the 

R0A63  CALLUS'  SEQUENCE.)  » — TFI’IS  TIME ' IS:  SCALED  FORi  IMMEDIATE!  USE;  BY  A WfilTPST  :C%LL  AS  SHO WfrnrTHr^A'LL'l NG  SEOUENcEST 

Ro4¥5  IF  tHe  tIMe-TO*GO  IS  MORE  THAN,  TWO  MINUTES,  IT  IS  LIMITED  TO  TWO  MINUTES  DUe  TO  TflETTWlTLIST  SPECIFICATION.  IF 

R0487  — THE  TTMe-TO-Go  IS  LESS  THAN  TEN  MILLISECONDS,  THE  SHUTDOWN  IS  PERFORMED  IMMEDIATELY  AND  THE  WAITLIST  CALL  IS 
Rq489  BY-PA5SEO,  FTNALLY,  IF  THE-  TRiTMi  G I MBAL  SHOULD  HAPPEN  TO'  Be  MOVING  TN-  A "D TR EC T ION  "WHI CH  INCREASES  tHe  ANGULAR 

R0491  ACC£LERATION--ABOUT  THE  GIVeN  AXIS,  THEN-  THE  NEGATH/E  GIMBAL  DRIVE  FLAG  IS  IMMEDIATELY  COMPLEMENTED  AND  THE 

R0493  NORMAL  CALCULATIONS  ARE  RE5UMED.  ' 


RQ494  THESE  TIMe-TO-GO  CALCULATIONS  ARe  DESIGNED  TO  DRIVE  THE  TRIM  GIMBAL  TO  A POSITION  WHeRE  THE  DESCENT  ENGINE  WILL 

RQ496  CAUSE  NO  ANGULAR  ACCELERATION,  THIS  SUBROUTINE  IS  CALLED  ONLY  FROM  THe  WAITLIST  TASK  CHeKDRIV  WHICH  IS 

R 0L98 INI TI AT c!7-ST^LY~WFrEN  THe  TRIM  SIMBAL  CONTROL  LAW' - HA5" " LO 5TC0  N T R 0 L OF  THe  LeM  VeHI CLe  ATTITUDE  ANITMUST  RETURN  TO 

R0500  THE  USE  OF  REACTION  CONTROL  5YSTEM  JETS. 


"ROBOT  ETALLTNG  SEQUENCES-: 


R0502  26 , 10OO  3 7657~T“  CAF  ZERO  Q-AXIS  INDeXeR 

- RC504  Z&VroOl  0 $$$'$"  $ TC  TGOFFCAL  CALL  TGOFFCAL  ("^REPLACE  $S*-**y 

R0506  26,1002  0 4511  0 TC  WAITLIST  CALL  WAITLIST  WITH  CALCULATED  TIME. 

R0508  26,1003  0$$$S  $ 2CADR  OFFGIMQ  2CADR  OF  Q-AXIS  SHUTDOWN  PROGRAM 

R0  510  26,1009  54006  1 


R0511 

26,1005 

3 7657  1 

CAF 

TWO 

R-AXIS  INDEXER 

R0513 

26 , 1006 

0 $$$$  $ 

TC 

TGOFFCAL 

CALL  TGOFFCAL  (***REPLACb  $S  ***) 

R0515 

26,1007 

0 4511  0 

TC 

WAITLIST 

CALL  WAITLIST  WITH  CALCULATED  TIME 

R05I7 

26,1010 

0$S$$  $ 

2CADR 

OFFGIMR 

2CADR  OF  R-AXIS  SHUTDOWN  PROGRAM 

R0519 

26, "TO  11 

54006  1 

R0520  -SUBROUTINES  CALLED!  NONE,  BUT  WRCHNL12  IS  CALLED  AFTER  BOTH  TGOFFCALL  CALLS. 


Rq522  NORMAL  tXlTST  TO  WAITLIST  CALL  OR  BeYOND  2CADR  IN  CALLING  SeQUeNCE  AS  SPECIFIED  ABOVe* 


R03 2 4 ALARM"  OR  ABORT  EXIT  "MODES;  NONE 


R0525  INPUTTT.  THE  AXIS  INDEXER!  0 FOR  Q,  2 FOR  R (SEE  CALLING  SEQUENCES) 

R 052 6 - 2.'  THE  SIGNED  TIME  DERIVATIVE  OF  ACCELERATION  (QACCDOT  OR  RACCdOT)  SCALED  AT  PI/2T7)  RAd/SEC(3). 

R0528  3.  THE  ACCELERATION  APPROXIMATION  FROM-  THE  DESCENT  KALMAN  FILTER  TRANSFORMED  TO  PILOT  AXES  (ALPHAQ  OR 

RQ530  ALPHAR)  SCALED  AT  PI/8  RAD/SECH2). 

R0531  4,  THE  NEGATIVE  GIMBAL  DRIVE  FLAG  (NEGUQ-  AND"  i^ETURTWHERE  +I  BIJ  INDICATES  A GIMBAL  DRIVE  DIRECTION  WHICH 

R0533  DECREASES  ThE  SIGNED  GIMBAL  ANGLE*  WHERE  -1  BIT  INDICATES  A GIMBAL  DRIVE  DIRECTION  WHICH  INCREASES  THE  SIGNED 

R0535  GIMBAL  ANGLE,  AND  WHERE  ZERO  INDICATES  NO  DRIVE. 

-RD536  gL^C HANtN Et~T2 ^ONTA rNS^THE~TRtM~~GTMB'AL~D R~I V E S AND  OTHER  BITSl — 


*0537  - ERASABLE -STORAGE  CONFIGURATION.  (NEEDED  BY  THE  INDEXING  METHODS)! 


473423A  YJL  SYSTEM  FOR  BLK2T~ReV  1 5 1 ONI  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10.  1966  (MAIN)  PAGE  628 


L @tRHM  GIMBAL  CONTROL  SYSTEM 

USER  * S OWN  PAGE  NO,  14 

A0538 

NEGUQ 

ERASE 

+ 2 

NEGATIVE  OF  Q-AXI5  GIMBAL 

DRIVE 

AG539 

(SPWOrDT 

equals 

NEGUQ  *1 

ANY  S.T^RASABLE  NUMBER, 

NOW  thrstcmd 

A0540 HEGUFT  £QUAL5~NEGUQ  »2  NEWTN^  OF~  FUAXIS  GIMBAL  DRIVE 


A0541 

QACCDOT 

ERASE 

+ 2 

Q-JERK  SCALED  AT  PI/2 (7)  RAD/SEC(3>  +SGN 

A0542 

(SPWORD) 

equals 

QACCDOT  +1 

any  s»p»  erasable  number*  now  accdotr 

AU543 

RACCDOT 

EQUALS 

QACCDOT  +2 

R-JERK  SCALED  AT  PI/2  (7)  RAD/SEC(3)  + SGN 

S0544 

NOTE:  NOW  ACCDOTQ  MUST  PRECEDE  QACCDOT 

Ao545 

ALPHAQ 

erase 

+ 2 

Q-AXIS  ACCELERATION  SCALeD  At  PI/8  R/S2 

A0546 

(SPWORD) 

equals 

ALPHAQ  +1 

ANY  S.P.  ERASABLE  number,  WOw  OMEgAR 

A0^47 

alphar 

equals 

ALPHAQ  +2 

R-AXIS  ACCELERATION  SCALED  AT  PI/8  R/S2 

A0546 

NOTE:  NOW  OMEGAPfOMEGAQ  PRECEDE  ALPHAQ 

RQ549  DEBRIS!  U Q'>  I TEMPI,  I TEMP 2 * I TEMP 6 


0550 

REF 

1 

26,3442 

54  065 

0 TgOFFCAL  ts 

QRNDxER 

Q OR  R AXIS  INDEXER 

0551 

REF 

2 

LAS  1 

628 

26,3443 

50  “065 

1 

INDEX 

QRNDXER 

GET  SIGNED  JERK  TERTT  SCALED  AT  PI/2(7) 

0552 

REF 

4 

LA5T 

625 

26,3444 

31*542 

0 

CAE 

QACCDOT 

IN  RADIANS/SECOND (3) 

U553 

26*3445 

0 0006 

1 

EXTEND 

IF  THETA  TRIPLE-DOT  IS  ZERO*  THEN  RESET 

0554 

TFEF” 

1 

26  * 3446 

1 3511  0 

^ZF 

TGOFFNOw 

DRIVE  TO  ZERO  (SHOULD  BE  REDUNDANT) 

0555 

RcF 

1 

26.3447 

54  066 

0 

TS 

NZACCDOT 

SAVE  NON-ZERO  JERK  FOR  DENOMINATOR 

0556 

26 ,3^50 

0 0006 

1 

EXTEND 

TE5T  FOR  REDUCING  ACCELERATION  IS  SAME 

0557~ 

KfcF 

Z 

LAS  [ 

628 

26,3451 

5 0065 

I 

INDEX 

QRNDXER 

AS  TE5T  FOR  SAME  SIGN ~ IN  -ACC  AND  ACCDOT 

0558 

REF 

3 

LAST 

6 1 6 

26,3452 

7 1420 

1 

MP 

ALPHAQ 

IF  POSITIVE  PRODUCT,  THEN  GIMBAL  DRIVE 

0559 

REF 

369 

LAS  r 

617 

26,3453 

10  000 

0 

CCS 

A 

SHOULD  BE  REVERSED:  NOTE  THAT  A SIMPLE 

0560 

REF 

r 

26,3454 

1 3460 

I — 

TCF  NEGTIME 

BZMF  TEST  WILL  NOT  wORKTWHEN  THE  MP 

0561 

RtF 

2 LA5I 

628 

26,3455 

1 3460 

1 

TCF 

NEGTIME 

INSTRUCTION  RESULTS  IN  ZERO  IN  A 

0562 

REF 

1 

26 , 3456 

1 3466 

1 

TCF 

POSTIME 

AT  POSTIME  IT  IS  INSURED  THAT  A POSITIVE 

~0 56T 

REF  2 

LAS  1 

628 

26,3457 

1 3466 

I 

TCF 

P05TIWF  ~ 

TIME  ¥ILL  RESULT  AND  ACC  WILL  GO  TO  ZERO 

O564 

REF 

4 

LAST 

628 

26,3460 

50  O65 

1 

NEGTIME  INDEX 

QRNDXER 

¥3565 

RLF 

1 

LA5T 

625 

26 , 3461 

4 153Z 

0 

T5“ 

NEGUQ 

0566 

RtF 

5 

LA5 1 

628 

26  1 3462 

50  065 

1 

INDEX 

QRNDXER 

0567 

REF 

8 

LAST 

628 

2o  ,3463 

55*532 

0 

TS 

NEGUQ 

¥3568 

REF 

Z 

Lrtb  1 

628 

26*3464 

4 0066 

cr 

CS~ 

NZACCDOT 

0569 

REF 

3 

last 

628 

2 6 , 3 4 6 5 

54  066 

0 

TS 

NZAccDOT 

COMPLEMENT  THE  DRIVE  DIRECTION  FLAG 


^COMPLEMENTS ATCCH30T"  TCT  GET  A GUARANTEED 
POSITIVE  TIME  fR°M  QUOTIENT 


0 = 70 

REF 

6 LAST  628 

25 ,3466 

5o  065  1 POSTIME 

index 

QRNDXER 

0571 

REF 

4 LAST  628 

2 8 , 3^67 

4 1420  1 

CS 

ALPHAq 

0572 

26,3470 

0 0006  1 

EXTEND 

0573 

REF 

31  LAST  5~25 

26,3471 

7 7645  0 

¥P 

Bill  I 

0574 

26,3472 

0 0006  1 

EXTEND 

0575 

REF 

4 LAST  628 

26,3473 

10  066  0 

DV 

NZACCDOT 

0576 

RtF 

1 

26,3474 

6 3517  1 

AD 

-2MIN256 

0577 

REF 

370  LAS  I 628 

26,3475 

10  000  0 

CLS 

A 

0578 

RuF 

1 

2b  ,34  Jb 

4 3516  1 

CS 

-2MINWL 

0579 

295  LAST  626 

26  *3'+77 

0 0002  0 — 

0 

TIME  = -ACC/ACCDOT  (POSITIVE  VALUE) 
SCALED  AT  PI/8  RADI ANS/SECOND  ( 2 ) 
MULTIPLY  BY  1/16 

TO  CHANGE  SCALING  TO  2PI  RAD/SEC(2 ) 
ACCDOT  SCALED  AT  PI/2  (7)  IN  DENOMINATOR 
YIELDS  TIME  SCALED  AT  256  SECONDS 
COMPARE:  riTH  TTSXtMUM-  2'MIWUTE  DELAY  OF 
WAITLIST  ACTION  (TIMES  AT  256  SECONDS) 
MORE  THAN  TWO  MINUTES,  USE  2 MINUTES 
RETURN  WL  CALL  WITH  2 TUN  AT  1BIT=10MS 


— 

473423 A 

. yjl 

SYSTEM  FOR  BLK25  REVISION 

12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966  (MAIN)  PAGE  629 

L 

OpTBAL  ’CONTROL  SYSTEM 

USER'S  OWN  PAGE  NO,  15 

0580 

REF 

158  LAST  618  26,3500 

6 7657  1 

AD 

ONE 

(CORRECT  FOR  CCS  BIT) 

0581 

26,3501 

0 0006  1 

EXTEND 

CALCULATE  DT  = ABS(T-2MIN) 

0582 

~REF 

I 26,3502 

7 3520  1 

MP 

128/164 

AND  RESCALE  DT  TO  WAITLIST  SCALING 

0583 

46 ,3503 

20  001  1 

DDOUBL 

2 LAST  628  26,3504 

6 35T6  0 

AD 

-2MINWL 

-T  = DT  + 2MIN  (IN  WAITLIST  SCALING) 

0585 

26,3505 

4 0000  0 

COM 

MAKE  T POSITIVE  FOR  WAITLIST 

0586 

26,3506 

0 0006  1 

EXTEND 

MAKE  FINAL  CHECK  TO  INSURE  T ,G,  10  MS 

0587 

REF 

2 LAST  628  26,3507 

6 3511  1 

3ZMF 

TGOFFNOW 

DO  SHUTDOWN  NOW  (COULD  USE  BZF) 

0588 

REF 

296  LAST  628  26,3510 

0 0002  0 

TC 

Q 

RETURN  TO  WAITLIST  CALL  WITH  WL  TIME 

0589 

REF  233  LAST  625  26,3511 

3 7665  0 TGOFFNOW 

CAF 

ZERO 

make  sure  plus  zero  for  drive  flag 

0590 

REF 

7 LA5T  628  26,3512 

50  065  1 

INDEX 

QRNDXER 

TURN  OFF  DRIVE  FLAG  NOW 

0 591 

REF 

9 LAST  628  26,3513 

55'532  0 

T S 

NEGUQ 

0592  ~ 

REF  297  LAS  1 629  26*3514 

50  002  0 

INDEX 

Q 

0593 

26  f 35 1 5 

0 0003  1 

TC 

3 

skip  waitlist  call  and  2cadR 

0594 

REF  85  LA5T 577 

0065  QRNDXER  EQUALS  I TEMPI 

INDEXER  FOR  Q OR  R AXIS 

REf  ~3"0  last  5 n 

0066  NZACCDOT  EQ’UAl5~TTEMP2 

TEMPORARY  STORAGE  pOR  NON-ZERO  AcCDDT 

0596 

26,3516 

50437  1 -2MINWL  DEC  -12000 

- 2 MINUTES  SCALED  FOR  WAITLIST 

0597  - 

26,3517 

6077T  0 -2MIN256  DEC  -.46875 

- 2 MINUTES  SCALED  AT  256 

0598 

26,3520 

31000  D 128/164  CiCTAL  “STOOD 

128/163.84  CONVERTING  256  TO  WAITLI5T/2 

0599 

26,3521  ENDDAP26  EQUALS 

473423A  yjl  system  for  bi_K2:  revision  12.  of  program  Aurora  by  dap  group 
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L ADStASK  USER'S  OWN  PAGE  NO,  1 

0001  25*3064  BANK  25 

0002  REF  4 LAST  540 __  E6  EBANK=  AOSQ 


' 0003 

REF 

31  LAST  623 

25,3064 

3 

7650 

0 AOSTASK 

CAF 

BITs 

TEST  POWERED  A5CENT  FLAG  (BIT  8/DAPB00LS) 

0004 

REF 

42  LAST  617 

25 ,3065 

7 

0765 

1 

MASK 

DAPBOOLS 

0-  NOT  POWERED  ASCENT 

0005 

25,3066 

0 

0006 

1 

EXTEND 

l-  powered  ascent 

0006 

REF 

T 

25,3067 

1 

3325 

1 

3ZF 

C0A5TASC 

END  CYCLE  OF  TASKS  DURING  ASCENT  COAST 

0007 

REF 

2 LAST  187 

25,3070 

31*671 

0 

CAE 

KCOEFCTR 

TEST  KCOEFCTR  FOR  INITIAL  pASS 

0008 

25,3071 

0 

0006 

1 

EXTEND 

0009 

REF 

1 

25,3072 

1 

3275 

0 

BZF 

ZEROCOEF 

DISCONTINUITY  SECTION  FOR  COEFFA 

0010 

REF 

1 

25*3073 

6 

3367 

0 

AD 

DEC-399 

TEST  KCOEFCTR  FOR  CONSTANT  RANGE 

0011 

25,3074 

0 

0006 

1 

EXTEND 

ON  BOTH  K AND  COEFFA 

0012 

25,3075 

6 

3077 

1 

3ZMF 

+ 2 

00121 

REF 

1 

25,3076 

1 

3301 

1 

TCF 

KONENOW 

^01215 

REF 

1 

25*3077 

3 3410 

1 

CAF  0,00125 

COEFFA  = 0,00125 (T)  + 0,25 

00122 

25,3100 

0 0006 

“1“ 

EXTEND 

00123 

REF 

3 LAST  630 

25,3101 

7 1671 

1 

MP  KCOEFCTR 

00124 

REF 

28  LAST  620 

25,3102 

3 7643 

1 

CAF  ~ BIT  13 

00125 

REF 

226  LAST  624 

25,3103 

6 0001 

0 

AD  L 

00126 

REF 

31  LAST  629 

25,3104 

54  066 

0 

COEFFA  TS  ITEMP2 

0013 

REF 

1 

25,3105 

3 3411  0 

CAF 

0,0014 

K = 0,0014(T)  + 0,44 

0014 

25,3106  0 0006  1 

EXTEND 

0015 

REF 

4 

LAST  630 

25,3107 

7 1671  1 

MP 

KCOEFCTR 

0016 

REF 

1 

25,3110 

3 3412  0 

CAF 

0,44 

0017 

REF 

227 

LAST  630 

25,3111 

6 0001  0 

AD 

L 

0018 

‘REF 

90 

LAST  629 

25,3112 

54  065  0 

TS 

I TEMP  1 

0019 

25,3113 

4 0000  0 

COM 

( 1-K ) ,QR  SCALED  AT  1 

0020 

RcF 

40 

LAST  623 

25,3114 

6 7637  1 

AD 

PQSMAX 

(1  BIT  ERROR  DOES  NOT  COMPOUND) 

00  2 2 

REF 

4 

LAST  563 

20,^31 1 0 

55 ' 657  0 

TS 

(l-K)QR 

0023 

25,3116 

0 0006 

T 

extend 

(l-K)/8 

IS  (1 

-K)  SCALED 

AT  8 

"0024 

REF 

23  LAST  625 

25N3TT7 

7 7644 

T 

MP 

BIT12  " 

0025 

REF 

2 LAST  564 

25,3120 

55*660 

1 

TS 

( 1 — K ) / 8 

002  51 

REF 

91  LAST  630 

25,3121 

30  065 

T 

CAE 

ITLMP1 

WFOrQr  = 

K/DT 

SCALED  AT 

16 

00252 

25,3122 

0 0006 

1 

extend 

00253 

REF 

1 

25,3123 

7 3403 

1 

MP 

ioati6wl 

DT  = .1 

SECS 

00254 

REF 

6 “LAST  5ET4 

25  ,3124 

55*656 

1 

"TS 

“WFORQR 

““0026 

rEF 

92 

LAST  630 

25,3125 

4 0065 

"0~ 

Cs  1 TEMPI‘S 

form  (,i-,o5k)  From  k scaled  at  i 

0 0 27 

25,3126 

0 0006 

1 

“FXTENtT 

WHICH  TS  USED  AS  IS  BUT  SINCE  THE  SUM" 

0028 

REF 

1 

25,3127 

7 3375 

1 

MP  .05AT.5 

IS  TO  BE  SCALED  AT  1/2,  THE  TWO 

0029 

REF 

1 

25,3130 

6 3376 

0 

AD  , 1 AT , 5 

CONSTANTS  REFLECT  THAT  SCALE  FACTOR 

00  30 

REF 

93 

LAST  630 

25,3131 

54  065" 

“0 — 

TS  I TEMPI 

K LF 

52 

LA5 1 630 

25 ,3132 

30  066 

1 C0EFFA1 

CAE  ITEMP2 

FORM  COEF F A ( AOSU ) 

0041 

25,2133 

3 0006 

1 

EXTEND" - 
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" 0042 

REF 

5 

LAST 

630 

25*3134 

7 1634 

0 

MP 

AOSQ 

0043 

'RTF 

6 

LAST 

631 

' 25*3135 

55* 634 

0 

TS 

AOSQ 

FIRST  TERM  OF  NEW  AOSQ,  SCALED  AT  PI/2 

0044 

REF 

33 

LAST 

630 

25*3136 

30  066 

1 

CAE 

ITEMP2 

FORM  COEFF A (AOSR ) 

0045 

2573137 

0 0006 

1 

EXTEND 

0046 

~REF 

25,3140 

7 1635 

1 

~MP 

AOSR 

—0047 

REF 

~Z 

LAST 

631 

25,3141 

55*635 

T 

T5 

AOSR 

FIRST  TERM  OF  NEW  AOSR,  SCALED  AT  PI/2 

0046 

REF 

34 

LAST 

631 

25,3142 

4 0066 

0 

CS 

I TEMP2 

FORM  .5 ( 1-CUErFA)  SCALED  AT  2 

00481 

25,3143 

0 0006 

1 

EXTEND 

FROM  COEFFA  SCALED  AT  1 WHICH  IS  THE 

00482 

REF 

29 

LAST 

'630 

25,3144 

7 7643 

0 

| MP 

BIT13 

SAME  AS  2 (COEFFA)  SCALED  AT  2 

0049 

REF 

30 

LAST 

631 

25,3145 

6 7643 

1 

AD 

B1T13 

SO  MULTIPLY  BY  1/4  TO  GET  ,5  (COEFFA) 

0050 

REF 

35 

LAST 

631 

25,3146 

54-  066 

0 

L TS 

ITEMP2 

AND  1/4  IS  1/2  WHEN  SCALED  AT  2 

0051 

REF 

17 

LAST 

619 

25,3147 

4 1417 

0 

CS 

OMEGAQ 

SAVE  PREStNT  OMEGAQ  FOR  NEXT  PASS 

0052 

REF 

3 

LAST 

540 

25,3150 

57 1 644 

0 

XCH 

OLDWFORQ 

GET  -(LAST  OMEGAQ) 

W53 25T3I5T  CTW06nC  EXTEND" 


0054 

REF 

5 LAST 

571 

25,3152 

61*640 

T"“ 

— su 

SUMRATEQ 

FORM-  W - W (OLD)  - SUMRATE  = SUM 

0055 

REF 

18  LAST 

631 

25,3153 

6 1417 

T 

AD 

OMEGAQ 

SCALED  AT  PI/4  RADIANS/SECOND 

"0056 

23,3154 

0 0005 

I 

^EXTEND 

—0057 

REF 

36  LAST 

631 

25,3155 

7 0066 

0" 

MP 

I TEMP2 

AOSQ  = COEFFA (AOSQ) +, 5 ( 1-COEFFA) (SUM) 

0058 

REF 

7 LAST 

631 

25,3156 

27  * 634 

0 

ADS 

AOSQ 

SCALED  AT  PI/2  RADI AnS/ SECOND  (2  ) 

0059 

REF 

15  LAST 

616 

25,3157 

4 1421 

0 

CS 

OMEGAR 

SAVE  PREStNT  OMEGAQ  FOR  NEXT  PASS 

0060 

' REF 

2 LAST 

187 

25,3160 

57*645 

1 

XCH 

OLDWFORR 

GET  -(LAST  OMEGAR) 

0061 

25,3161 

0 0006 

1 

EXTEND 

0062 

REF 

4 LAST 

571 

25,3162 

61*641 

0 

5U 

SUMRATER 

FORM-  W - W (OLD)  - SUMRATE  = SUM 

0063 

REF 

16  LAS  1 

631 

25  * 3 1 68 

6 1421 

1 

AD 

OMEGAR 

SCALED  AT  PI/4  RADI AN5/SEC0ND 

0064 

25,3164 

5 0006 

X 

Extend 

0065 

REF 

37" LAST 

631 

25 , 3 i 66 

7 0066 

cr 

MP 

I TEMP 2 

AOSR  = COEFFA (AOSR )+ ,5 ( 1-COEFFA) (SUM) 

0066 

RcF 

3 LAsT 

631 

25,3166 

27*635 

1 - 

ADS 

AOSR 

SCALED  AT  Pl/2  rAD I ANS/SECOND ( 2 ) 



00661  REF 

94  LA5T 

630 

25,3167 

30  065 

1 

CAE 

I TEMPI 

UU6 

25 ,3170 

0 0006 

1 

EXTEND 

FORM  TERM  FOR  RATE  DERIVATION 

(TO  6 63 

RtF 

7 LAST 

671 

25,3171 

~T  1 63'+ 

u 

MP  - 

A05Q 

( • 1-.05K ) AOSQ 

00664 

REF 

5 LAST 

563 

25,3172 

55  * 642 

1 

TS 

AOSQTERM 

SCALED  AT  PI/4  RADIANS/SECOND 

0067 

' ref 

"95- 

LAST- 

"631 

25,3173 

37  065 

r~ 

"CA T 

I TEMPI 

006  8 

25,3174 

0 0006 

1 

EXTEND 

FORM  TERM  FOR  RATE  DERIVATION 

0069 

REF 

4 

LAST 

631 

25 ,3175 

7 1635 

1 

MP 

Au  Sr 

(,1-. 050  AOSR 

OO7O 

REF 

4 

LAST 

563 

25 ,3176 

55*543 

u 

TS 

AOSRTERM 

SCALED  AT  PI/4  RADIANS/ SECOND 

0071  r£F 9“ LAST  631  25*3177  31*634  1 

0072  REF 50- AST  631 25,3207 — 6^1635  0 

— 0073 ~ 25*3201  0 0006  1 

—0074 REF 1 25*3202  7 3377  0 

—0075 REF 1 0573203 — 55*635  I 


CAE 

~AD— 


AOSQ 

AOSR 


FORM  AOS  FOR  U-AXiS 


EXTEND 
MP  .707WL 

73 AO'SU — 


SCALED  AT  PT/2  RADIANS'/ SECOND  (2) 


0076  —REF  ro  LAST  63i  25,3204  4 1634  0 CE 

0077  REF 6 LAST  631 2373205  6-1635  0 AO 


FORM  AOS  FOR  V-AXIS 


AOSQ 
A GSR 
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0078 

25,3206 

0 0006  1 

EXTEND 

0079 

REF 

2 LAST  631 

25,3207 

7 3377  0 

— MP 

. 7O7WL 

0080 

RtF 

1 

25,3210 

55 ' 637  0 

TS 

AOSV 

SCALED  AT  PI/2  RADIANS/SECOND (2) 

0081 

REF 

27  LAST  605 

25,3211 

3 6 165  0 

CAF 

THREE 

SET  UP  LOOP  FOR  Q,R*U,V-AXES 

0082 

REF 

r 

25,3212 

59  065  0 

TS 

AxlSCNTR 

0083 

REF 

2 LAST  632 

25,3213 

50  065  1 

ALLAXES  INDEX 

AXISCNTR 

0084 

REF 

11  LAST  631 

25,3219 

11*639  0 

CCS 

AOSQ 

FORM  ABSOLUTE  VALUE  OF  AOS 

0085 

REF 

159  LAST  629 

25,3215 

6 7657  1 

AD 

ONE 

0086 

25,3216 

1 3220  0 

TCF 

+ 2 

0087 

REF  160  LAST  632 

25,3217 

6 7657  1 

AD 

ONE 

0088 

REF 

3 LAS  1 632 

25,3220 

50  065  1 

INDEX 

AXISCNTR 

SAVE  IN  ITEMP  REGISTER  (3-6) 

0089  REF 

4 LAST  540 

25,3221 

59  070  1 

TS 

ABVLAOSQ 

SCALED  AT  PT72  RADIANS/SeCqND(2) 

0090 

REF 

1 

25,3222 

6 3900  0 

AD 

-.02R/S2 

-.02  RADIANS/SEC0ND(2)  SCALED  AT  PI/2 

0091 

25,3223 

0 0006  1 

EXTEND 

0092 

RtF 

1 

25,3229 

6 3263  0 

BZWF 

CONSTMIN 

USE  1/F.02)  SEC  ( 2 ) /RAD  AS  1/AMTNF 

00955 

REF 

25,3225 

6 3913  1 

AD 

+.02R/S2 

0096 

REF 

38  LA5 1 631 

2s  , 3236 

59  066  0 

T5 

ITEMP2 

0098 

REF 

40  LAST  623 

25,3227 

3 7651  1 

CAF 

BIT7 

0099 

25,3230 

22  007  0 

ZL 

SCALE  FACTOR  FOR  .5ACCMIN, 

00995 

25,3231 

0 0006  1 

EXTEND 

OTOO 

REF 

39H.AST  632 

25,3232  1 0 066  0 

W 

TTEMP2 

UlOl  RtF 

4 LAST  632 

25,3233 

50  065  1 

ACCMINVL  INDEX 

AXISCNTR 

4 LAST  583 

25,3239 

55*651  0 

TS 

•5ACCMNQ 

SCALED  AT  2 ( +8 ) /PI 

0103 

REF 

2 LAST  632 

25,3235 

3 3900  0 

CAF 

-.02R/S2 

CALCULATE  ONE  OF  THE  FOLLOWING  (9)  5UM5! 

0109 

25,5236 

0 0006  1 

EXTEND 

2JETAC(Q,R) -ABACS (Q  ,R ) -.02RAD/SEC ( 2 > OR 

0105- 

ref 

"5  FAST  632 

25 , 323  f 

5 0065  1 

INDEX 

AXISCNTR 

1 JETaC  (U»V>  - ABAO'S  ( 1 *V)  -.02RAD/SEC  (2) 

0 106 

REF 

5 LAST  632 

25 ,3290 

60  070  0 

5U 

ABVLAOSQ 

EACH  5UM  HAS  EACH  TERM  SCALED  AT  PI/2 

0107 

REF 

6 Last  632 

25 ,3291 

50  065  1 

INDEX 

AXISCNTR 

THE  "OUTER  LOOP"  IS  DEFINED  TO  CALCULATE 

“0TO8~ 

REF 

3 LA5F  S7T 

25*3292 

6 1 63Q  0 

- ATT 

1 JACCQ 

THE  VALUES  1 JACCQ , TUACCR  5CALED  AT  PI/9 

0109 

25 ,3293 

0 0006  1 

EXTEND- 

AND  IJACCu,  lJACCv  SCALED  AT  pi/2  WHERE 

0110 

REF 

1 

25,3299 

6 3265  0 

BZMF 

DEMANDAC 

1JACCU  = 2 (.707)  (1JACCQ.1JACCR)  AND 

01  ir 

KEF 

239  LAST  629 

25,3295 

3 7665  0 

CAF 

ZERO- 

1JACCV  = 2 (.707) ( 1 JACCQ+1 JACCR) 

0112 

REF 

7 LAST  632 

25,3296 

50  065  1 

INDEX 

AXISCNTR 

WHERE  THE  CALCULATIONS  USE  THE  FACT  THAT 

0113 

REF 

6 LAST  583 

25,3297 

55*665  1 

TS 

QMANDACC 

1 JACC (Q »R ) AT  PI/9  = 2JACC(Q,R)  AT  PI/2 

~0T19 

REF 

8 LAS  1 6 38 

25,3250 

50  06"5  1 

INDEX  - 

AXISCNTR 

~ MANDACC (Q,R1 =1  MEANS  USE  9 JETS,  0 FOR  2 

011-5 

REF 

5 LAST  583 

25,3251 

31'995  0 

CAE 

1/2JTSQ 

MANDACC (U,V) =1  MEANS  USE  2 JETS,  0 FOR  1 

-01 15 1 

25*3252 

0 0006  i 

EXTEND 

01 152 

REF 

97T.AST  619 

25  ,3253 

7 7692  1 

— vtP 

BIT19 

0116 

REF 

9 LAST  632 

25,3259 

50  065  1 

AXISLOOP  INDEX 

AXISCNTR 

SET  UP  1/NJTSX  TO  1/2JTSX  FOR  URGENCY 

0117 

REF 

5 LAST  578 

25,3255 

55*661  0 

T5 

1/NJTSQ 

(DOES  NOT  COUNT  FOR  U,V-AXES) 

W 1 10 

RCF 

1U  LASI  632 

25,3256  10  U65  0 

CCS 

AXISCNTR 

DECREMENT  LOOP  COUNTER  AND  TEST  FUR  tiNU 

0119 

25,325  1 

1 3261  0 

TCF 

+ 2 

0120 

REF 

1 

25,3260  1 3313  1 

TCF 

NEXT CALL 

FINISHED  LOOP 

vlEi 

Ktr 

11  LASI  632 

25,3261 

59  065  0 

TS 

AXISCNTR 

-QT2Z 

REf 

1 

25  ,3262 

1 3213  0 

TCF 

allaxes 

CONTINUE  LOOP 
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L 

AOSTASK 

USER  * S OWN  PAGE  NO.  4 

0123 

REF 

1 

25*3263 

3 3402 

1 

CONSTMIN 

CAF 

AMINCNST 

1/AMIN  = 1/1.02)  SEC(2)/RAD  AT  2<8>/PI 

01 24 

REF 

1 

25«3Z6<r 

1 3233 

1 

TCP 

ACCMINVL 

0125 

REF 

41 

LAST 

630 

25  1 3265 

3 7637 

1 

DEMANDAC 

CAF 

POSMAX 

SET  MANDATORY  HIGH  ACCELERATION  FLAG  TO 

CT12  6 

KEF 

12 

LAST 

632 

25*3266  50  065  1 

index 

AXTsCNTR 

OVER-RIDE  2 JET  DECISION  FOR  Q*R-AXEs  OR 

"0127 

"REF 

7 

LAST" 

632 

c.  5 * 3267 

55*665 

1 

T5 

QMANDACC 

2 JET  OPTIONAL  DECISION  FOR  U.V-AXES 

""  0128 

REF  “ 

13 

LAST 

633 

25.3270 

50  065 

1 

INDEX 

AXISCNTR 

FORM  1/4JTSX  VALUE  FOR  USE  IN  URGENCY 

01 2 9 

REF 

6 

LAST" 

632 

25.3271 

3 1 » 445 

0 

CAE 

1/2JTSQ 

FROM  1/2JTSX 

" 0130 

25.3272 

0 0006 

1 

EXTEND 

(DOES  NOT  COUNT  FOR  U.V-AXES) 

0131 

REF 

31 

LA5T 

631 

25,3273 

7 7643 

0 

MP 

BIT13 

0134 

REF 

I 

25*3274 

1 3254 

0 

TCP 

AX  I SLOOP 

" 0135 

REF 

88 

LAST 

624 

25*3275 

3 7656 

0 

ZEROCOEF 

CAF 

TWO 

INITIALIZE  TIME  5ETTING 

“ 01351  REF 

5 

LAST  630 

" 25,3276 

55*671 

T 

TS 

kcoefctr 

01352 

REF 

235 

LAST 

632 

25,3277 

3 7665 

0 

CAF 

ZERO 

0136 

REF 

T 

25,3300 

1 3104 

0 

TCF 

COEFFA 

0146 

REF 

236  LAST  633 

25,3301 

3 7665  0 

KONENOW  CAF 

ZERO 

K = i,  SO  1-K  AT  EITHER  SCALING  IS  ZERO 

01461 

25,3302 

22  007  0 

ZL 

EXTEND,  DCA  DPZERO  IS  FASTER  BUT  WASTES 

- 5 LAST  630 

25,3303 

53*660  1 

DXCh  " 

(l-K)QR 

STORAGE  I IT  SWITCHED  FIXED  UNLESS  IN  FF 

01463 

RtF 

2 LAST  630 

25*3304 

3 3403  0 

CAF 

10AT16WL 

WFORQR  = K/DT  = 10K  = 10 

01464 

REF 

7 LAST  630 

25 , 33U5 

55  * 656  1 

TS 

WFORQR 

SCALED  AT  16 

"2  LAST  630 

25,3306 

3 3375  0 

'"CAF" 

.05AT.5 

SAVE  ( , 1-.05K ) SCALED  AT  1/2 

01466 

REF 

96  LAST  631 

25,3307 

54’  065  0 

TS 

ITEMP1 

FOR  AOSTERMS 

01467" 

REF 

1 

25,3310 

3 3404  1 

CAF 

.75 

5ET  COEFFA  = ,75 

014675 

"REF 

40  LAST  632 

25,3311 

54  066  "0 

"TS- 

ITEMP2 

01468 

REF 

1 

25,3312 

1 3132  0 

TCF 

C0EFFA1 

0149 

REF 

1 

25,3313 

3 3405  0 

NEXTCALL  CAF 

2SECSA05 

SET  UP  WAITLIST  CALL  FOR  TWO  SECS 

0150 

REF 

83  LAST  618 

25,3314 

0 4536  "Q" 

tc~ 

WAITLIST 

0 1 51 

2 5 , 33  J.  5 

03064  0 

2CADR 

AOSTASK 

C0151 

REF 

2 LAS T 1 8 1 

25,3316 

52006  0 

or5ir~ 

REF 

89  LAST  633 

25 , 3317 

3 7 656"  CT 

CAT 

"TWO" 

INCREMENT  TIME  COUNTER 

01512 

REF 

6 LAST  6 33 

25,3320 

27*671  1 

ADS 

KCOEFCTR 

0152 

REF 

237  LAST  633 

25,3321 

3 7665  0 

CAF 

ZERO 

ZERO  SUMMED  RATES 

“&153"" 

RcF" 

6 LAST  631 

25,3522 

55  * 640  0 

T5"" " 

" "5UMRATEGT 

OI54 

RtF 

5 LAST  631 

25 ,3323 

55*641  1 

T S 

SUMRATER 

U 1 0 0 

REF 

66  LAST  625 

25,3324 

1 4602  0 

TCF 

TASKOVER 

UJ.56 

Kct- 

1 

<-  6 9 6 6 c 5 

3 3406  0 

C0ASTA5C  CAF 

0.3125WL  _ 

u 1 57 

REF 

8 LAST  633 

25,3326 

55  • 656  1 

T S 

WFORQR  ** 

ru\  \ 

0158 

2 5 , 35  2 r 

0 0006  I 

EXTEND 

O159 

REF 

1 

25 ,3330 

3 3415  1 

DCA 

(l-K)S 

U 1 6U 

REF 

6 LAST  633 

25,3331 

53*660  1 

PXCH  _ 

1^ T ) OR 

/ 

Ol6l 

ftEP 

23  LAST  585 

2573332 

3 7655  V 

Hi  1 s 

Vlbc. 

REf 

A3  LAST  630 

25 ,3335 

7 0765  1 

MASK 

DAPBOOLS 

U i 6 3 
0164 

Ktr 

REF 

£A  LAoT  633 
44  LAST  633 

25 .3334 

25.3335 

6 7655  0 
54  765  1 

AD 

BIT3  ) 

01 6 5 

REF 

1 

-25,3336 

3 3402  1 

CAF 

0,30680 

0166 

REF 

17  LaST  590 

23 ,5337 

55*650  1 

TS 

.5ACCMNE 

01661 

REF 

5 LAS)  632 

25,3340 

55*651"  0 

TS 

. 5ACCMNQ 
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01662 

REF 

4 LAST  582 

25,3341 

55*652  0 

TS 

.5ACCMNR 

01663 

'REF 

4 LAST  582 

25,3342 

55*653  1 

TS 

.5ACCMNU 

0 1 664 

REF 

4 LAST  5 8 1 

25,3343 

55  *654  0 

TS 

.5ACCMNV 

0167 

25,3344 

0 0006  1 

EXTEND 

“0168 

REF 

7 CAST  633 

25,3345 

3 1446  0 

DCA 

1/2JTSQ 

0169 

REF 

6 LAST  633 

25,3346 

53*662  0 

DXCH 

1/NJTSQ 

0170 

25*3347 

0 0006  1 

EXTEND 

0171 

9Tf 

3 LAST- 592 

25,3350 

3 1450  1 

DC  A 

1/2 JETSU 

0172 

REF 

1 

25,3351 

53*664  0 

DXCH 

1/NJTSU 

OI73 

REF 

l 

25,3352 

3 3407  1 

CAF 

0.00167A  1 

0174 

ReF 

6 LAST  589 

25,3353 

55*647  1 

TS 

""MlNIMPDB  \ 

01741 

ReF 

6 LAST  589 

25,3354 

5 5 * 646  0 

TS 

DBMINIMP  ~J~ 

0175 

REF 

238  LAST  633 

25  *3355 

3 7665  0 

CAF 

ZERO 

0176 

RTF 

12  LAST  632 

25,3356 

55*634^0 

TS 

AOSq 

0177 

REF 

7 LAST  631 

25,3357 

55*635  1 

TS 

AOSR 

0178 

REF 

6 LAS  1 631 

25,3360 

55*642  1 

TS 

AOSQTERM 

0179 

REF 

5 LAST  631 

25 ,3361 

55 ' 643  0 

TS 

AOSR TERM 

0180 

REF 

3 LAST  633 

25*3362 

55*665  1 

TS 

QMANDACC 

Dial 

REF 

3 LAST  583 

25,3363 

55*666  1 

T5 

RMANDACC 

D182 

REF 

3"" LAST"  582 

25,3364 

55*667  "0” 

TS 

UMANDACC 

0183 

REF 

3 LAST  582 

25,3365 

55*670  0 

TS 

VMANDACC 

0184 

REF 

69  LAST  633 

25 ,3366 

1 46q2  0 

TCF 

TASKOVER 

0185 

REF 

97  LAST  633 

0065 

AXISCNTR  EQUALS 

ITEMP1 

0186 

2573367 

77160  0 

DEC-399 

DEC 

-399 

BOUND  FOR  CONSTANT  RANGE:  T.GE.400  SECS, 

0T87- 

23,3370 

00024  1 

0.001E 

~DEC 

0,0012 

0188 

25,3371 

20510  1 

0,52 

DEC 

0,52 

0189 

25,3372 

77537  0 

DEC-160 

DEC 

-160 

OlgO 

25,3373 

00047  I 

0,0024 

“EEC  “ 

0,0024 

0191  25,3374  13555  0 0,366 DEC 0,366 


019  2 25,3375 03146  1 .0"5A"TT5"  DEC 0,1 

0193  23,1376 06315  0 — .1AT.5 DEC 0.2" 

0194  25,3377 26501  1 .797 WL  D^C 0.70711 

0193  25,3400  77456  0 -.02R/S2  DEC  -,01273 


TJ195I 

25,3401 

00641 ~ I ' 

.04R/S2 

"DEC  " 

0.02546 

CAP  0>ZtlCwU 

OI96 

25 ,3402 

11643  0 

0,30680 

DEC 

0,30680 

-*rs 

Cl  97 

25 ,3403 

24000  1 

10AT16WL 

DEC 

0,625 

-rt 

""9T9~8 

25  ,3404 

30000  1 

“775 

DEC 

0,75 

ExT/S^D 

OI99  REF  2 LAST  633 

25,3402 

AMINCNST 

EQUALS 

0,30680 

0200 

25,3405 

00310  0 

25ECSAOS 

DEC 

200 

( (' K 

0201 

2p , 3406 

"12000  1 

0,3125V«L 

"DEC 

0,3125 

0202 

25,3407 

00033  1 

0.00167A 

DEC 

0,00167 

02021 

25,3410 

00024  1 

0,00125 

DEC 

0,00125 

C2022 

25,3411 

00027  1 

0,0014 

"DE  C " 

0.0014 

02023 

25,3412 

1 60  6 1 1 

0,44 

DEC 

0,44 

02024 

25,3413 

00321  1 

+,02R/S2 

DEC 

0,01273 

0203 

25,3414 

20009  CT 

(l-K)S 

DEC 

095 

0204 

25,3415 

02000  0 

DEC 

0,0625 
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~P0758  FAILURE  MONITOR  FOR  LEM  RC5  J£TS“T4  TIMES/SeCOND)" 
R0759  »«»  FAILSW  CApABlUTY  FOR  CHECKOOT^ONLy  »»» 


0760 

REF 

1 

12,3752 

11*510 

0 

RCSMONIT  CCS 

FAILSW 

0761 

“ REF 

1 

12*3753 

1 4606 

1 

TCF 

ENDRCSFL 

DO  NOTHING  IF  POSITIVE 

0762 

REF 

1 

12,3754 

3 1511 

0 

CA 

LASTFAIL 

LAST  FAILURE  CHANNEL  VALUE 

0763 

12,3755 

0 0006 

1 

extend 

0764 

12,3756 

06  032 

0 

RXQR 

32 

0765  REF 

“11  LAST  595 

12,3757 

7 5235 

1 

MASK 

LOWS 

0766 

12,3760 

0 0006 

i 

EXTEND 

0767 

REF 

1 

12,3761 

I 4606 

1 

3ZF 

NOSTCHG 

NO  STATUS  CHANGE,  FINISHED 

0768  12*3762  0 0006  i EXTEND 

0T69  REF  X'  “ — 12,3763  3 3766  0 DC  A MNTRCS 

0770  12,3764  52,  006  0~~  DTCB 

0771  12,3765  03416  1 MNTRCS  2CADR  RC5MNTR 

“ CO 771  REF  I 1273766  52006  0“ 

0772  12,3767  ENDT45  EQUALS 


0773 

25,3416 

BANK 

25 

0774 

RtF  239 

LA51 

634 

25,3416 

3 7665  0 

RCSMNTR  CA 

ZERO 

THERE  IS  A DIFFERENCE, CLEAR  MASKS 

17ir~ 

REF 

3 

LA5r 

595 

25,3417 

55 ' 512  1 

T5 

CH5MASK 

1712 

~REF 

2 

LAST  550 

25,3420 

55*513  0 

TS 

CH6MASK 

1713 

25,3421 

0 0006  1 

EXTEND 

READ  PRESENT  FAILURES 

1714 

25,3422 

00  032  0 

READ 

32 

1715 

REF 

2 

last 

636 

25*3423 

55*511  1 

T5 

LASTFAIL 

SAVE  FOR  NEXT  PASS 

±716 

25*3424 

4 0000  0 

COM  " 

FAILURES  NOW  ONES 

1717 

25,3425 

0 0006  1 

extend 

1716 

KtF 

47 

LAST 

632 

25,3426 

7 765  nr 

MP “ 

ETT7 

SHIFT  TO  TEST  LOW  8 “BITS 

1719 

REF 

240 

LAST 

636 

25,3427 

3 7665  0 

CA 

ZERO 

1720 

REF 

I” 

25,3430 

54  065  0 

TS 

FAILCTR 

INITIALIZE  COUNTER 

“1721 

REF 

22S 

LA5T 

6 JO 

25,3431 

J o oor  ir 

CA  - 

L 

J.  f2C  K Lr 

1 

25,3432 

1 3435  1 

TCF 

NXTRCSPR  +1 

1723 

REF 

5X 

LA5r 

6X7 

25*3433  6 7657  1 

-1 

AD 

BTT1 

1724 

REF 

2 

LAsT 

636 

25,3434  24  065  1 

NXTRCSPR 

I NCR 

failctr 

17245 

25,3435  6 0000  1 

♦X 

DOUBLE 

1725 

REF 

1 

25,3436  54  066  0 

TS 

FAI LTEMP 

OVERFLOW  CHECK 

1726 

REF 

2 

LAST 

636 

25,3437  1 3434  0 

TCF 

NXTRCSPR 

±7w 

Kir 

3 

LAa  l 

6^6 

45*3440  50  0651 

INDEX 

FAILCTR 

1 (28 

ref 

1 

25,3441  0 3445  1 

TC 

RCSFJUMP 

go  Through  Jump  table 

Ktr 

C 

LAE  1 

636 

25,3442  10  066  0 

CCS  - 

failtemf 

473423A  YJL  SYSTEM  FOR  BL.K2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  637 


L RCS  FAILURE  MONITOR- 


USER » S OWN  PAGE  NO»  3 


1730  "RTF  3 LAST  636  25,3443"  1 3433  1 TCF  NXTRCSPR  -1  FINISH  EARLY.  OR  MORE  TO  DO 


1731 

REF 

2 LA5T636 

25*3444  1 4606  1 

TCF 

ENDRCSFL 

1732 

REF 

1 

25*3445  1 3455  1 

RCSF JUMP  TCF 

FMlO/U 

1733 

"REF 

1 

25,3446  1 3462  0 

TCF 

FM9/12 

1734 

REF 

1 

25,3447  1 3467  0 

TCF 

FM13/15 

1735 

REF 

1 

25*3450  1 3474  1 

TCF 

FM14/16 

1736 

REF 

r 

25,3451  1 3501  1 

TCF 

FM6/7 

1737 

REF 

i ~ 

25,3452  1 3506  0 

TCF 

FM1/3 

—7^ 

1738 

REF" 

i 

25,3453  1 3513  I 

TCF 

FM5/8 

1739 

REF 

i 

25,3454  1 3520  1 

TCF 

FM2/4 

1740  REF  44  LAST  623 


25 


X 741 

REF 

4 LAST" 636 

25,3456 

27*512 

1 

ADS 

CH5MASK 

1742 

REF 

43  LAST  620 

25*3457 

3 7654 

1 

CA 

6IT4 

1743 

REF 

3 LAST  636 

25, 3460 

27*513 

0 

ADS 

CH6MASK 

1744 

REF 

296  LAST  629 

25,3461 

0 0002 

“0" 

TC 

Q 

1745 

REF 

29  LAST  620 

25,3462 

3 7653 

0 FM9/12 

CA 

BIT5 

1746 

ref 

5 LA5T"637 

25,3463 

27*5  IF 

1 

ATS 

CH5MASK 

1747 

RtF 

50  LAS  1 637 

25,3464 

3 7653 

0 

CA 

BIT5 

1748 

REF 

4 LAST  637 

25,3465 

27*513 

0 

ADS 

CH6MASK 

1749 

REF 

299  TAST  637 

25,3466 

0 0002 

"0 

TC 

Q 

3^55  3 7652  1 FMlO/n  CA 


BIT6 


1750 

REF- 

42 

LAST  636 

25,3467 

3 7651 

1 FM13/15 

CA 

BIT7 

1751 

REF 

6 

LAST  637 

25*3470 

27*512 

1 

ADS 

" CH5MASK 

1752 

~REF 

25 

LAST  633 

25,3471 

3 7655 

0 

CA 

BIT3 

1753 

REF 

5 

LAST  637 

25,3472 

27*513 

0 

ADS 

CH6MASK 

1754 

REF 

300 

LAST  5 3 7 

45,3473 

0 0002 

"0 

"TC 

Q 

1755 

REF  32  LAST  630 

25,3474 

3 7650 

0 FmU/16 

CA" 

BIT8 

— 

— ' — - •-  - - ■■■ 

1756 

Rtr 

7 LA5T  637 

25,3475 

27*512 

“IF 

AOS 

CH5MASK " 

1757 

~REF 

33  LAS  1 637 

25,3476 

3 7650 

0 

CA 

BITS 

1758 

REF 

6 LAST  637 

25,3477 

27*513 

0 

AD5 

CH6MASK 

1759 

REF 

301  LAST  63 T 

25,3500 

0 0002 

T5 

T "C 

0 

1760 

REF 

44 

LAST  637 

25,3501  3 7654  IF 

FM6/7 

-'CA 

BTHT 

1761 

"REF 

8 

LAS  1 637 

~25,3502  27*512  1 

AOS 

CH5MASK 

1762 

REF 

52 

LAST  636 

25,3503  3 7657  1 

CA 

BITl 

1763 

REF 

7 

LA5T  637 

25,3504  27*513  0 

ADS 

CH&MASK 

1764 

REF 

LAST  637 

25, 350 5 0 0CQ2C  O' 

TC  ” 

Q 

2/65 

Kcr 

LM3I  65 ( 

£ 5 » 3 6 o>6  3 ( 65  ( 1 

r M 1 / 3 

LA 

B 1 T 1 

1766 

RtF 

9 

LAST  637 

25,3507  27*512  1 

ADS 

CH5  v.ASK 

1767 

REF 

3 1 

LAST  6 1 7 

25,3510  3 7656  0 

CA 

BI T2 

1768 

RcF 

8 

LASl  637 

25,3511  27*513  0 

ADS 

CH6MASK 

1769 

REF 

303 

LAST  637 

25,3512  0 0002  Or" 

FC 

GT 

17T0  REF  26  LAST  637  25,3513  3 7655  0 FM5/6  ""  CA  BIT3 

7771 REF — 70  LAST  637 25,3514  27^5127 ADS CH5MASK 


X 


AT3423A  YJL  SYSTEM  FOR  BLK2 ! REVISION!  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10*  1966  (MAIN)  PAGE  638 

l rcs  failure  monitor 


USERtS  OWN  PAGl  no. A 


1772  REF  45  LAST  637  25,3515  3 7652  1 CA  BIT6 

T773  REF  9 LAST  637  25,3516  2 7*513  0 ADS  CH6MASK 

1774  RIF~304  LAST  637  25,3517  0 0002  0 TC  Q 


1775  REF  32  LAST  637  25,3520  3 7656  0 FM2/4  CA  BIT2 

1776  REF  ITTASTTST"  25,3521  27*  512  1 ADS  CH5MASK 

1777  EEF  43  LAST  637  25*3522  3 7651  1 CA  BTT7 

T7T8  REF  10  LAST  638  25,3523  2T‘  51T  0 ADS  CH^MASK 

1779  REF  305  LAST  638  If ,3524  0 0002  0 TC  0 


T780  REF  40  LAST  625  4606  ENDRCSFL  EQUALS  RESUME 

17B 1 REF~  41  EAST  ~6l8  4606  NOSTcHQ  EQUALS  RESUME 


473423A  YJL  SYSTEM  FOR  B L K 2 Y R EVISION  12  OF  P ROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  (MAIN)  PAGE  639 


L ^SCpT  inertia"  updater  Z ~ " USER’S  OWN  PAGE  NOT"  l 

0001  REF  1 25,3525  0 3570  0 DOOASK^TC  JACCESTP 

""0002  REF  IT-  25 ,3526  “0"  3563  1 TC  ASCENGON  ZIZZZZ 


0003 

25,3527 

0 0006  1 

EXTEND 

""0004 

REF 

I 

25,3530 

27*461  1 

DIM 

IXX 

0005 

REF 

1 

25,3531 

3 3560  1 

CAF 

IXXTIME 

0006 

" RcF 

64 

LAST 

633 

25,3532 

0 4536  0 

TC 

WAITLIST 

0007 

25,3533 

03525  0 

2CADR 

IXXTASK 

C0007 

REF 

3 

LAST 

559 

25,3534 

52006  0 

5 

0008 

REF 

70 

LAST 

634 

25", 3535 

1 4602  0 

TCF 

TASKOVER 

V. 

" 0009  REF  1 25,3536  0 3604  0 TYYTA5K  TC  JACCESTQ 

“0010  REF  2 LAST  639  “25, 3537  03563“!“  “TC“  “ASCENGON 


0011  25  *3540  0 0006  1 “ EXTEND 

0012  REF  2 LAST  569“  25,3541  27*462  1 DIM  IYY 

0013  REF  1 25,3542  3 3561  0 CAF  IYYTIME 

00T4  REF  85  LAST  639  25,3543  0 4536  0 TC  “WSTTLIST 

“0015  25,3544  03536  1 2CADR  IYYTASK 

COO l?  "REF  3 LAST  559  2 5 ,3545  52006  0 

00T6  REF  7T  LAST  &J9  "2573546  1“4602  0 TCF  TASKOVER 


0017  REF  1 25,3547  0 3621  1 IZZTASK  TC  ""  JACCESTR 


0018  REF  3 LAST  639  25,3550  "03563“!  TC  ASCENGON 


0019 

25,3551 

"0  0006  1 

EXTEND 

0020 

REF  2 LA5T  559 

25  »355<i 

27*463  0 

DIM 

IZZ 

0021 

REF  1 

25,3553 

3 3562  0 

CAF 

IZZTIME 

oxrzr 

"REF  86  LAsT""63T9" 

25 ,3554 

0 4536  0 

TC 

WAITLIST  ' 

0023 

25,3555 

03547  1 

i.  Cadr 

IZZTASK 

C0023 

REF  3 LAST  559 

25 ,6556 

52006  0 

0024 

REF  72  LAST  639 

"25,3657 

1 4602  0 

TCF 

TA5K0VER 

UU25 

* 356u 

00310  0 

IXXTIME 

DEC 

200 

"XH026 

-2575561 

02454  1 

IYYTmE- 

DEC 

T30CT 

0027 

25,3562 

00264  1 

IZZTIME 

DEC 

180 

002 S REF  3TTA5T  637 "25,3563 

0029  REF  45- LAST  633  25,3564 

0030  REF  371  LAST  628  25,3565 

0031  REF '306  LAST  638 25T3566 

0032'  REF  73  LAST  639  25,3567 


-0033 

REF 

2 LAST 

659 

25,5570 

31*461  0 

JACCE5TPTAE  TXX 

0034 

25,3571 

22  007  0 

ZL 

0035 

25,3572 

0 0006  1 

EXTEND 

0036 

REF 

2 LAST 

558 

25,3575 

11*4641 

DV  " "4DETT0RK 

3 7650  0 — ASCENGON  CAF 

7 0765  1 MlASTT 

10  000  0 CCS 

-0-0002-0 TC~ 

1 4602  0 — TCF  - TASICOVER 


4 /3423A  YJL  SYSTEM  FOR  BLK2J  R £ V I S ION  j2  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10*  1966  (MAIN) P AGE  64 q 


L ASCfNT  inertia  updater 

USeRiS  own  page  NO,  2 

0037  25,3574  6 0000  1 

double  _ 

CC38  RcF  5 LAST'  552  25,3575  55*444  0 

TS  1/2JTSP 

“ 0039 

r£f 

1 

25,3576 

3 3660  1 

caf 

JETTORK 

0040 

25,3577 

22  007  0 

ZL 

0041 

25,3600 

0 0006  1 

EXTEND 

' 0042 

REF 

3 

LAST 

639 

25,3601 

11*461  1 

DV 

IXX 

0043' 

REF 

7 

LAS  1 

553 

25*3602 

55*627  r 

TS 

1JACC 

0044 

REF 

307 

LAST 

639 

25,3603 

0 0002  0 

TC 

Q 

0045 

REF 

3 

LAST 

639 

25,3604 

31*462  0 

JACCESTQ  CAE 

IYY 

0046 

25*3605 

22  007  0 

ZL 

0047 

25,3606 

0 0006  1 

extend 

0048 

REF 

2 

LAST 

558 

25,3607 

11*465  0 

DV 

JETT0RK4 

0049 

REF 

7 

LAST 

634 

25,3610 

55*661  0 

TS 

1/NJTSQ 

0050 

25,3611  6 0000  1 

DOUBLE 

0051 

REF 

8 LAST  634 

25,3612  55*445  1 

TS  1/2jTSQ 

0052 

REF 

1 

25*3613  3 3661  0 

CAF  JETTORK 1 

0053 

25,3614  22  007  0 

ZL 

0054 

25*3615  0 0006  1 

~EXTENI5“ 

0055 

REF 

4 LAST  640 

25,3616  11*462  1 

DV  IYY 

0056 

REF 

4 LAST  &32 

25,3617  55*630  1 

TS  1JACCQ 

0057 

rEF  308  LAST  640 

25,3620  0 0002  0 

TC  Q 

0058 

Ktl- 

3 LAS  I 639 

2s, 36111  31*463  1 

JACCESTR  CAE  IzZ 

0059 

25,3622  22  007  0" 

ZT- 

0060 

25*3623  0 0006  1 

EXTEND 

0061 

REF 

3 LAST  64O 

25*3624  11*465  0 

DV  JETT0RK4 

0Qo2 

RtF 

2 T_AST~578 

25,362F  5~5  • 662  7) 

TS  1/NjTSR 

0063 

25,3626  6 0000  1 

DOUBLE 

0064 

REF 

5 LASI  583 

25,3627  55*446  1 

TS  1/2JT5R 

0065 

REF 

2 LAST  640 

25 ,3630  3 3661  0 

caf  jettorki 

0066 

25,3631  22  007  0 

ZL 

0067 

25,3632  0 0006  1 

EXTEND 

0068 

REF 

4 LAST  640 

25,3633  11*463  0 

DV  IZZ 

0069 

REF 

3 LASI  571 

25,3634  _ 55  * 631  0 

T 5 1 J ACCR 

OO7O 

REF 

9 LA5I  640 

25*3635  31*445  0 

COMMONQR  CAE  1/2JT5Q 

0071 

TREF  " 

6 LASr64Cr~ 

25,3636  6 1446  0 

AD  1/2JTSR 

0072 

25,3637  0 0006  1 

EXTEND 

0073 

REF 

3 LASI  632 

25,3640  7 3377  0 

MP  .707WL 

0074  REF 

4 LAST  634 

25,3641  55*447  0 

T5~  1/2JETSU  TEMP 

OU  (0 

RtF 

10  LAS  1 640 

2 2 ,3642  31*445  0 

CAE  1/2JTSQ 

0076 

25 ,3643“  0 0QCT6  1 

"EXTEND 

873823A  YJL  STSTEM  FOR  BLK2;  REVISION  12.  OF  PROGRAM  AURORA.  BY  DAP  GROUP 


NOV  IQ  * 1966  ( MA IN)  PAGE  6 A 1 


L 

ASCENT  INERTIA  UPDATER 

user's  own  page  no. 

3 

0077 

REF  7 LAST  680 

25,3688 

7 1886 

1 

VIP 

1/2JTSR 

0078 

25,3685 

0 0006 

1 

EXTEND 

0079 

REF  5 LAST  680 

25 ,3686 

1 1 • 887 

0 

DV 

1/2JETSU 

TEMP 

' 0080 

REF  6 LAST  681 

25  * 3687 

55 1 887 

0 

TS 

1/2JETSU 

0081 

REF  3 LAST  592 

25,3650 

55*850 

0 

TS 

1/2JETSV 

00811 

REF 

5 LAST  680 

25,3651 

31*630  0 

CAE 

1UACCQ 

008 1 2 

REF~ 

8 LAST  68CT 

25*3652 

6 1631  1 

~SD 

1UACCR 

00813 

25,3653 

0 0006  1 

EXTEND 

00818 

REF 

I 

25 ,3658 

7 3662  1 

MP 

0,35356 

00815 

REF 

1 

25 ,3655 

55*632  0 

TS 

lUACCO 

00816 

REF 

1 

2 5 , 3656 

55*633  1 

TS 

1 JACCV 

0062 

ref 

309  LAST  680 

25,3657 

0 0002  0 

TC 

0 

0083 

25,3660 

00050  1 

JETTORK 

DEC  0,00283 

500  FT 

LBS, 

SCALED  AT  PI#2 (+16) 

0088 

25  9 3 66 1 

00058  0 

UtL  U • UU^ 6 ( 

550  FT 

LBS, 

SCALED  AT  PI *2 (+16) 

00881 

25 ,3662 

13281  1 

0,35356 

DEC  0,35356 

0085 

25*3663 

ENDDAP25 

EQUALS 

47 342 3 A YJL  SYSTEM  FOR  BLK2 : REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


L SUM  CHECK  END  OF  BANK  MARKERS 


0001  REF  1 

0002 
0003 


5512  SETLOC  ENDIMUF 

5512  0 5512  1 TC 

5513  0 5513  0 TC 


NO V 10,  1966  (MAIN) PAGE  642 


USEr«5  own  page  no,  1 


0004  REF  1 7701  SETLOC  ENDINTF 

0005  7701  0 7701  0 TC 

0006  _ 7702  0 7702  0 _JC 


0007  REF  1 

0008 
W09 


00,3657 
00,3657  0 3657  0 
00,3660  0 3660  T 


SETLOC  ENDINTSQ 

TC 

TC 


0010  REF 1 01,3145 5ETL0C  ENDSLFS2, 

0011  ' 01,3145  0 3145  1 TC 

0012  01,3146  0 3146  1 TC 


0013  REF 

0014 

0015 


04,3540  5ETL0C  ENDPIN51 

04,3540  0 3540  0 TC 

0W!«"  O' ‘35*1  1 TC 


0016  REF  1 

0017 

0018 


05,3524  SETLOC  ENDPINS2 

05,3524  0 3524  t TC 

05*3525'  ~0  3525  0 TC 


0019  06,2555  SANK  06 

0020  - Co, 2555  0 2555  0 TC 

WZI  06,2556  0 2556  0 TC~ 


0022 

0023 

00Z4 


07,2502  BANK  07 

07.2502  0 2502  I TC 

07. 2503  0 2S0T'0  TC 


0025  REF  1 10,3341  — SETLOC  ENDRTSTS 

0026  10,3341 — 0 3341  1 TC 

0OT7 10,3342 — 0 3342  1 TC- 


0028  REF  1 11,3361  'SETLOC  ENDCMS 

WZO 11,3361 — 0~ 336T0 TC 

OOJO 1 1,3362  0 3362  0 TC 


' 0031 

REF 

1 

12,3767 

SETLOC 

ETVDT45 

0032 

12,3767 

0 3767  1 

TC 

0033 

12,3770 

0 3770  1 

TC 

0034 

RtF 

1 

13,3434 

SETLOC 

ENDAMODS 

0035 

13,3434 

0 3434  1 

TC 

00316 

13,3435 

0 3435  0 " 

TC 

0037 

REF 

1 

14,3726 

5ETL0C 

ENDIMUS1 

0038  ' 

14,3726 

0 3726  1 

TC 

47342"3A~yUr~5Y5TEM  t-‘OR  bCKE7~ReV'  I S I ON  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10  * 1966  ( MAIN ) PA&E  643 


L 

SJM 

check 

end  of  bank  MARKERS 

USER'S  OWN  PAGE  NO.  2 

0039 

14,3727 

0 3727  0 

TC 

— 0040 

REF 

1 

15,3575 

SETLOC 

ENDRTBSS 

0041 

15,3575 

0 3575  0 

TC 

' 0042 

15,3576 

0 3576  0 

TC 

0043 

REF 

1 

16,3362 

5ETL0C 

ENDIMUS3 

6044 

716,3362 

0 3362  0 

TC 

0045 

16,3363 

0 3363  1 

TC 

0046 

REF 

1 

17,3730 

SETLOC  ENDIMUS2 

0047 

17,3730 

0 3730  0 

TC 

0048 

17*3731 

0 3731  1 

TC 

0049 

REF 

1 

20,3756 

SETLOC  ENDSLFS1 

0050 

20,3756 

0 3756  0 

TC 

4T051 

20,3757 

0 3757  1 

TC 

0052 

REF 

1 

21,3427 

SETLOC  ENDPRELl 

0053 

21,3427 

0 3427  6 

TC 

0054 

21,3430 

0 3430  0 

TC 

0055  REF  1 23*341 l SETLOC  ENDDAP23 

0056  23,3411  0 3411  0 ^ TC 

0057  23,3412  0 3412  0 ' ~ — TC 


0058  “REF  1 24,3723  SETLOC  ENDDAP24 

0059  24,3723  0 3723  1 TC 

'0060  2473724  0 3724  0 TC 

0061  REF  I 25 ,5663  SETLOC  ENDDAP25 

TTO62  2573663 — 0 3663  1 TC 

0063  ' 25,3664  0 3664  0 TC 


0064  REF  1 

26 , 3521 

SETLOC  ENDDAP26 

0065 

26,3521  0 3521  1 

TC 

0066 

26,3524  0 3 522  i 

TC 

ENP  Or  REVISION 

12  01-  PROGRAM  AURORA-  or  PAP  GROUP 

473423A  Y'JL  SYSTEM  FOR  BLK2;  REv ISI  ONI  12  OF  PROGRAM  AURORA  bY  DAP  &RQUP 


NQy  10 i 1966 


PAbE  644 


SYMBOL  TABLE  LISylNG,  INCLUDING  PaGe 

number  of  definition,  and  number  of  refeRencls  with  first  and  LASf 

PAGE 

NUMBERS 

SYMBOL  Hi 

Definition 

References 

Fi  K 

SYMBOL  h 

definition 

References  f 

b 

SYMBOL  h 

definition 

references  f 

e 

U 

OEbANk 

20,3141  391 

... 

a 

16/250R 

24,2722 

573 

1 564 

ft 

21/22REG 

0101  10 

2 

294  299  = 

0,00125' 

25,3410  634 

1 63C 

a 

16/32400 

24,2707 

572 

1 566 

B 

225ANG 

16,3341  513 

1 

501 

U.  001 2 

25,3370  634 

- 

a 

1 7 OATTG 

16 ,3342 

513 

1 501 

ft 

23.75MS 

25,2210  591 

1 

588 

0,0014 

25,3411  634 

1 630 

8 

17DEC 

1 A f 36 6U 

472 

1 451 

m 

250MS 

06,2522  442 

r 

442 

0,00167 

23,3374  560 

... 

a 

17DECML 

21 ,3410 

534 

1 530 

m 

25/32 

23,3101  555 

2 

549  550 

0V0DT6? A 

25,3407  634 

1 fa34 

H 

1 SOAT'IG 

16 ,334G 

513 

1 501 

a 

25/32, QK 

24,27 03  572 

r 

569 

0,0024 

25,3373  634 

... 

B 

180DEC 

17 ,3655 

498 

«■  . 

■W 

a 

25/32QR 

25,2215  591 

1 

590 

O.lATl 

2412627  571 

2 571 

a 

180MS 

23*3376 

560 

fc 

270DEG 

15,3025  416 

- 

- 

0730680 

25',  3402  634 

2 633  634 

E 

18R 

11,2467  270 

1 270 

« 

2+U.RATt 

24,3405  582 

1 

568 

0,31250 

23,3402  561 

1 560 

0 

19DECML 

21,3411 

534 

- 

« 

2+V.RATE 

24,3312  561 

1 

569 

0.312 5WL 

25,3406  634 

1 633 

a 

1ANG 

16,3330 

5 1 3 

E 

2BLANK 

04,2541  302 

5 

297  336 

0,3^356 

25,3662  641 

1 641 

0 

IjACC 

E6 , 1 627  540 

7 540 

640 

a 

2EbANK 

20,3155  392 

“ 1 

393 

0,366 

25,3374  634 

... 

a 

1 J ACCU 

t6 , 1630 

540 

5 564 

641 

1 

2ENTRY 

14,3354  466 

1 

467 

0,44 

25,3412  634 

1 630 

h 

1 J ACCR 

E6 ,1631 

540 

4 564 

641 

i 

2-U.RATE 

24,3245  580 

1 

569 

0.52 

23,3371  634 

m 

1 JACCU 

E6 , 16  3 2 

5^0 

1 64I 

a 

2-V.RATB 

2413360  582 

1 

568 

0*62170 

23,3375  560 

1 558 

a 

1 JACCV 

tb  , 1683 

540 

1 641 

a 

2 Jt 1 b+Q 

24,3453  563 

3 

565  583 

0,88975 

23,3D73  555 

1 548 

a 

1/2JET5U 

E6 ,1447 

536 

6 584 

641 

a 

2 JE 1 b + R 

24,3433  583 

3 

565  583 

v-raaK&aiAaa i 

bi ■ * 

p era  * s b m 

& 

1/2JETS\T 

t6 , 145U 

536 

3 584 

641 

w 

2 JETS+U 

24,3407  582 

1 

582 

100MRUPT 

4736  160 

1 160 

B 

1/2JTSP 

E6 ,1444 

536 

5 549 

640 

li 

2JETS+V 

24,3314  5fal 

1 

581 

ioomscal 

24,2770  575 

1 576 

a 

1/2JTSQ 

E6 ,1445 

536 

10  580 

640 

11 

2JETS-Q 

24,3271  5b0 

3 

565  580 

IUOW5PT3 

“E6,I622  53-9 

2 553  558 

a 

I/2JTSR 

E6 , 1446 

536 

7'5T9 

641 

«£ 

2 JETS -R  ' 

2413224  579 

3 566  579 

ioang 

16,3336  513 

1 502 

1 

L/25ECX 

21,3412 

534 

1 534 

ft 

2 jEl S-U 

24,3247  580 

1 

580 

1 U A1  i 6 

23,3400  561 

1 559 

a 

1/4JETAC 

2 5 , 2 322 

595 

1 595 

a 

2 JETS-V 

24,3362  582 

1 

582 

10.6D/S  24,3722  593 


1-593 


1/GYRO  07 


2211  215 


3 213  216  a 2j£TSM+Y  24,3311  581 


1 581 


masses 

11^2563  272 

1 272 

1 

17NJETAC 

E6 , 1 471  536 

29 

552 

595 

* 2JET5M-U-  24,3244 

580 

^~5B0~ 

1 IDtC 

1 4,3657  472 

“1  4e>3 

« 

1/NUT5Q “ 

£6,1661  54“0 

T 

540  640 

s 2 JET5FL.V  24,3357 

1 582 

1 1 D £ C * 

01,3032  401 

1 402 

e 

1 /NJT  SR 

E6 , 1 662  540 

2 

578 

640  = 

» 2JETSP  23,2661 

552 

1 552 

11DSPIN 

04,3263  334 

5 298  338 

■ 

1/NjTSU 

E6,1663  541 

1 

634 

= 

a 2«  7645 

76 

4 3?  133  = 

120MRUPT 

12V2522  163 

1 163  “ 

a 

1/NJTSV  E6 ,1664 -54I 

- 

- 

- = 

■ 2K73  5331 

86U 

1 “360 

120MS 

12,3437  177 

* 

a 

1/PIPA 

07 , 20U0  211 

2 

211 

516 

■ 2MIN  06,2310 

437 

1 43  7 

1 28 / 1 64 

26,3520  629 

1 629 

a 

1/PIPADT 

1110  17 

7 

17 

534 

■ 2PJLTS  23 12462 

549 

2 546  553 

-12SEC5 

1 1 »45b4  274 

“2  272 

a 

1/pIpAGT 

21,3407  534 

1 

534 

• 2RNDEND  04,3074 

327 

— — — 

1 35AN0 

16,3335  513 

2 501  502 

1 

1SEC+1 

11,2473  270 

1 

269 

b 2R0UND  04,3064 

326 

4 324  326 

13—11 f 1 

05,3521  365 

1 364 

1 

1SECRUPT 

23,3123  556 

1 

556 

■ 2/4JET+U  24,3441 

5b3 

1 5 8 1 

13,14,15 

13V2746  2X18 

1 195 

a 

1SETX“ 

17,3626  498 

r 

475 

* 2/4JET+R  24,3414 

582 

1 582 

13,7*2 

5076  229 

1 229 

a 

1SECXT 

E5 ,1744  24 

3 

475 

534  = 

■ 2/4JET-U  24,3257 

580 

... 

1 4C 

0014  498 

6 433  500  =: 

a 

1 ST02S 

15*34iU  426 

2 

455 

470 

a 2/4JET-K  24,3205 

579 

. • — 

-I4-TJMTN 

“23 ,73070  555 

3 549  551 — 

rrozsuB 

1 5 , 344X1  426 

6 

426 

»-  2SECSAQS  25,3405 

634 

1 633 

14-TQRMN 

15BITADR 

24,2712  572 
6172  40 

3 572 
— 1 — 46 — 

a 1,9-OUT  24,2727  573 

“1 

570 

■ 2SECWLT4  12,3746 
b 2V19T02S  15,3431 

188 

426 

1 187 

2 424 

16  DANG — 

7673337"-  513- 

1 302 

• 2 OBI AS 

04 ,2641  “316 

2 

315 

— 

■ — 2,10-OUT 24,2724  573  “ 

1 570 

16/25 

23,3074  555 

1 545 

a 

20MRUPT 

12,2564  164 

r 

163 
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SYMBOL  H 

definition 

references 

8 

6 

■1 

30BUF0 

£4*1650  22 

2 443 

s b 6»6A1  16 

23*3401  561 

1 559  8 

ABCLOAD 

05,2535 

319 

1 

305 

3 Ob  u FI 

E4 * 1644  22 

2 443 

= * 6L0w 

16*3343  513 

1 510  * 

abload~ 

05,2572 

319 

1 

305 

3 O MR  OPT 

12*2563  164 

1 162 

ABORT 

5446 

367 

T0“ 

108 

367 

30M5GMS< 

11*2724  27S 

1 274 

* 71ANG 

16*3333  513 

2 501  502  ■ 

ABS 

00,3154 

105 

2 

105 

30RDMSK 

12*3412  177 

1 168 

* 72DEC 

14,3664  472 

1 454  » 

ABVAL 

00,3127 

105 

- 

- 

“ 

3CSEC 

14,3665  472 

1 446 

» 74K 

4740  160 

1 162  » 

ABVALAbS 

00,3124 

105 

T 

44 

33.75AN3 

16*3331  3 i 3 

* 

a 77DECML 

2 1 * 3360  533 

3 514  529  ■ 

ABVLAOSQ 

0070 

540 

5 

540 

632 

= 

33PA5TE 

11,2505  27I 

2 271 

ABVLAOSR 

0071 

540 

- 

- 

- 

= 

33R0MS< 

4515  "T7T 

2 171 

= a 8192AUG 

13*2566  203 

1 203  * 

ABVLAOSU 

0072 

540 

- 

**• 

= 

3751  IAL'1 

14,3115  462 

1 462 

s 82DEQ5 

5041  228 

1 228  s 

abvlaosv 

0073 

540 

- 

— 

• 

= 

3990DEC 

17,3656  498 

1 477 

■ 89TEST 

04,2053  295 

2 294  * 

ACCDOTLu 

26,3020 

619 

- 

- 

- 

3 ENTRY 

14,3361  467 

2 467 

a 8*5 

5077  229 

I 229  m 

ACCDOTQ 

E6.1541 

538 

5 

538 

624- 

3SEC 

16,3345  513 

1 512 

ACCDOTR 

E6 , 1 543 

538 

2 

559 

= 

3SECS 

4762  189 

2 170  208 

8 9UANG 

16*3334  513 

1 501  « 

ACCDOTSM 

26,3033 

620 

1 

619 

3SEC5M- 

4762  208  ~ 

1 191 

= * ROmRUPT 

4735  160 

1 160  » 

ACCEpTUP 

07,2450 

286 

1 

286 

m f*  L-  Pj  k,  fi  Si  r 

« 905EC 

13*2752  208 

1 196  a 

ACCEPTWD 

05,2024 

303 

1 

303 

4SAN0 

1 6 , 3 3 3 2 513 

3 501  50Z 

« 90SECS 

12,3436  177 

2 169  * 

ACCMINVL 

25,3233 

632 

1 

633 

45UEG~ 

1 7 |3b76  498 

2 481 

* 9*6 

12,2436  159 

1 153  — a 

ACCJROT 

15,2552 

409 

- 

- 

- 

4+6BITS 

16,3346  513 

2 502  509 

ACCWD 

E5 , 1646 

24 

3 

24 

518 

= 

4ENTRY 

14,3363  467 

- - - 

■ +UCHK 

c U f t U 6c.  378 

8 383  400  * 

ACENTRAL 

0071 

538 

7 

620 

622 

= 

4JETS+0 

24*3447  583 

2 568  583 

» + 1CHK 

20*2040  378 

28  381  399  * 

A CO  5 3 

00,3600 

114 

r 

115 

4jETS+R 

24,3427  583 

2 569  583 

b +l,5CSp 

23,3065  555 

1 553  a 

ACOSsO 

00,3565 

113 

4 

113 

115 

4 JETS-Q 

24,3265  580 

2 569  580 

» + 90MS 

24,2720  573 

- - - to 

AC0SA3R  F 

00,3653 

115 

- 

- 

4 JETS-R 

24,3220  579- 

2 569  579 

s +DECSGN 

04,2164  296 

1 296  * 

AC050VF 

00,3647  115 

1 

11 3 

4JETT0R<i 

E6»1464  536 

2 558  639 

1 +DIF 

11*3112  279 

3 279  * 

ACOSSHR 

00  *3642 

115 

1 

113 

4NEGPJcT 

23,3105  555 

1 551 

a +DOWN 

00,2532  94 

1 93  « 

AC0SST2 

00,3570 

113 

2 

113 

4P JETS 

23  *2T5  5CT  53 1 

I 552 

b + a02R?S2 

25*3413  634 

Hi  632  s 

AC05ST' 

00,3553 

113- 

1 T13 

4P0SPJET 

23,3104  555 

1 551 

■ ♦-ZERO 

01,3031  401 

2 402  403  • 

ACOSZERO 

00,3655 

115 

1 

113 

■ +LOOP 

20*3046  390 

2 390  * 

ADDINDRF 

21*2544 

522 

1 

521 

3B  X u 

Ul*2J.i6  J.  i 9 

- - " 

* +MINIMP 

23,2251  546 

r 546  a 

ADDRCHK 

20,2706 

388 

- 

— 

5BLANK1 

04,2517  302 

— 

8 +0N 

04,2273  298 

3 298  332  a 

ADDRESS 

6036 

36 

- 

- 

- 

5BLANK 

04,2476  301 

3 301  338 

■ +SIGN 

01*3121  403 

1 402  « 

ADDRWD 

0102 

10 

81 

36 

117 

5'DEtjS 

5040  228 

3 542  543 

1 * T 6T JMIN 

24 *2702  572  " 

2 566  571  • 

ADDT  6 JT5 

E6,1503 

537 

553 

572 

5 • D Eg  o 

3037  228 

1 228 

« + T JM I NT6 

25*2206  591 

1 589  * 

A DDT IME 

1 1 ,3244 

283 

1 

283 

4361  125 

1 124 

• +XPOLADR 

25*3033  602 

1 594  e 

ADDTLT6 

E6 * 1504 

537 

9 

553 

572 

5 S E C S 

It)  f 52 3 4 2 54 

1 2 64 

» +XTRANS  - 

24,2532  57E 

- 1 570  » 

adtax 

Er,1443 

T8  - 

2 212 

349 

9 +X  * A 

24*2725  573 

1 570  « 

ADI  AY 

E3  * 1444 

18 

1 

212 

O U V |Y| 

L?  %C  { J l tUO 

i i 

* +X  *B 

24t2726  573 

1 570  t 

ADIAZ 

E3 ,1445 

18 

1 

212 

OUUEX 

i 4 9 J ooi  WJZ 

1 465 

SDR  51 

20*2015 

377 

3 381 

396 

6U  jLL 

14^^666  472 

1 445 

« HCUNIrtML 

UU(6  538 

621  622  s m 

ADRS+1 

20,3402 

395 

- 

i *t  f 3004  *+(<- 

c H-63  464 

• A 

0000  7 

3 71  29  639  = H 

ADRSCHK 

20,3362 

395 

2 

394 

6 J/  6 4 + I 

-'4382  125 

2 124  623 

* A+B 

E 6 1 1 5 1 7 ^37 

5—579  590  b 

ADSRAX 

-E3TT446 

18 

— 2 

212 

349 

1493603  ^7c 

l 463 

a A+b/A-b 

24,3167  579 

ADSR A Y 

E3 , 1447 

18 

1 

212 
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Definition 
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definition 

references  f 

« 

a 

ADSRAz 

E3TT450  13 

1 212 

* 

ALSK 

21,3367 

533 

1 518 

■ 

AOTSM 

15,3173  420 

— 

- 

AD5UM 

20,3351  395 

3 

3<?4 

395 

iS 

ALT 

0352 

15 

9 165 

504  ■ 

aotstall 

13,2714  207 

1 207 

ADVSR 

44SS  137 

- 

a 

ALT  ASK’ 

14*3  5O4' 

468 

2 468 

469  * 

ARCCOS 

00,3540  113 

1 44 

AgSbuFF 

E7*T547  25 

28 

370 

a 

ML  1 I M 

E5 ,1664 

24 

3 515 

s fe 

ARCS  IN 

00,3536  113 

1 44 

AGS  I NTT  2 

T1 , 2557  2 7 2 

I 

272 

a 

ALTIMS 

b5 , 1665 

24 

2 515 

516  = ■ 

ARCTRIG 

15,2440  406 

8 404 

470 

'AG'S  I NTT" 

T1,2T24  272 

T 258 

a 

AUTM 

0D60 

8 

2 165 

468  = » 

ARG90 

4267  123 

1 123 

agsjob 

11*2541  272 

T 

272 

» 

altmet 

14*3524 

469 

3 466 

469  * 

ARG  + 

7244  66 

1 66 

AgSLIST 

15,2001  370 

1 

272 

a 

ALTNEgI 

23,2532 

550 

1 550 

e 

ARgHI 

00,3345  109 

2 110 

"AG5WDRD 

0412  16 

12 

151 

370 

a 

ALTREG2 

23,2525 

550 

- 

• a 

argltt 

00,3416  110 

1 110 

A1NGYR0 

21,3362  533 

1 

523 

a 

ALTOUT 

12,2565 

165 

1 164 

■ 

ARG4tR02 

7261  66 

1 66 

AINLA 

E5 , 1 570  23 

36 

23 

24 

= 

■ 

ALTP0S1 

23,2514 

550 

1 550 

w 

argzero 

7264  66 

1 66 

A-B 

tt> , 1 520  537 

3 

579 

582 

■ 

ALTP0S2 

23,2507  550 

- 

19 

ARITH 

17,2732  485 

3 485 

A-B/ONLY 

24,3171  579 

1 

581 

a 

ALTPSELT 

23,2473 

550 

■*  *•' 

- 0 

ARTHINSF 

04,2773  325 

1 324 

ALARM 

5413  366 

31 

169 

525 

u 

ALTRATE 

0354 

15 

8 165 

504  « 

ART0A 

12,2715  167 

1 165 

ALARMS 

17,2440  48 T 

5 

479 

486 

a 

ALTRTMET 

14,3551 

2 466 

8 

ART0UT5F 

04,2642  316 

1 315 

ALB1T5 

14*3644  472 

1 

460 

> 

ALTROUT 

12*2632 

166 

1 I64 

H 

ARUPT 

0010  7 

11  27 

1 4 r = 

alcgkk 

21,2127  516 

1 

516 

1 

ALT5AVE 

0364 

15 

13  165 

376  * 

A5CC0AST 

12,3651  187 

- - 

• 

ALOT" 

E5, '1666  24 

3 

516 

517 

3 

a 

ALTtR , VN 

11,3121 

279 

T 278 

■ 

ASCDAP 

12, 3660  187 

1 187 

ALFDK 

21,3122  530 

1 

516 

a 

ALWAYS 

14,3471 

468 

1 468 

Bl 

A5CENG0N 

25 ,3863  639 

3 639 

ALFLTl 

21*2115  5 16 

1 

527 

i 

ALWAYSG 

21*2466 

521 

2 517 

521  ■ 

ASCFLGHT 

25,2234  594 

2i  ,2144  516 

2 

516 

« 

AUX15 

E5 ,1600  24 

6 "514 

533  = ■ 

ASCLEM 

12,3644  186 

* 

ALFLT 

21,2104  516 

■ 1 

515 

a 

ALXXXZ 

21,3361 

533 

1 514 

a 

ASCNTPOL 

25,3013  602 

1 594 

ALGORTHM, 

26,3101  621 

1 

620 

8 

AMEMORY 

E4 ,1400 

19 

93  19 

22  « 

A5FT  E5  T 

26,3047  620 

1 620 

AEIEP  ‘ 

21*22T4  5i7 

i 

5 17 

1 

A'MINCNST 

25*3402 

634  - 

T 633 

S 8 

A5INEX 

00,3635  114 

1 113 

alinttme 

11,2303  266 

T 

256 

a 

ANgLREAD 

10,2712 

248 

- - 

- 0 

ATERDSpY 

23,2010  542 

1 542 

ALK 

£5,1602  24 

5 

517 

S’ 

a 

ANGX 

E5 ,1634 

24 

5 376 

523  s ■ 

ATTCK2 

11,2613  273 

3 273 

503 

ALKCG2 

21*2135  516 

r 

516 

a 

ANGY 

E5 , 1 632 

24 

4 376 

523  = * 

ATTCONT 

11,3314  368 

1 368 

ALKCG 

21*2132  516 

'**• 

**- 

8 

ANGZ 

£5,1626 

24 

4 37b 

523  = ■ 

ATTHLDDB 

12*3635  I84 

2 I84 

ALKLp 

21,2223  517 

1 

518 

« 

ANNNNNN 

21,2740 

526 

2 514 

522  a 

ATTSTEER 

24,2743  575 

2 565 

566 

hLL+aJ  f5  29,2723  573 

T 570 

S 

AOSOT 

E6 ,1634 

540 

12  540 

634  a 

AUG2 

13*2601  203 

1 203 

ALLAAti 

45,3213  632 

1 

632 

a 

AOSQTERM 

E6 ,1642 

540 

6 188 

634  b 

AUG3 

13,2557  203 

1 203 

ALLDC/ 0 

05*2676  321 

2 

319 

a 

AOSR 

E6 ,1635 

54O 

7 631 

634  = B 

AURLOKON 

11,3001  277 

2 264 

462 

ALLDDNE 

1 2 » 2 f06  166 

r 

166 

» 

AOSRTEKm 

' E6 , 1 643 

540 

5 188 

634  = s 

AxC 

01,2005  116 

1 43 

ALLOOP1 

21,2052  515 

1 

527 

a 

A0ST  ASK 

25,3064 

630 

2 187 

633  a 

AXISCNTR 

0065  634 

13  632 

633  - 

ALLOOP3 

21,2045  515 

- 

- 

8 

AOSU 

E6 , 1636 

540 

1 631 

= 6 

AXISGENi 

15,2703  413 

1 413 

alloop 

21*2042  515 

1 

525 

■ ■ 

"AOS V " 

E6,1637 

54O 

X 632 

S ■ ' 

AX1SGEN2 

1 5 , 27  3 1 413 

1 4T4 

ALLREAD 

10,2637  246 

1 

247 

■ 

aotangck 

1 4 , 35  &2 

470 

1 267 

0 

AXI3(jEN3 

15,2754  414 

1 414 

ALM/END 

11,2066  259 

14 

258 

272 

M 

AOTAZ 

E3 , 1463 

19 

3 28 

220  b 

AX  I SGEN 

15  ,267  1 413 

2 448 

493 

ALO  AD 

05,2620  320 

I 

305' 

’IT' 

AOTCADR 

— 0372“ 

T5- 

' I — 15 

= e 

AX  I SLOOP 

25,3284  632 

1 633 

ALPHAM 

£4*1554  20 

* 

= ! 

B 

AOTEL 

E3  * 1466 

19 

1 220 

v 

AXISR0T1 

15,2604  409 

1 409 

ALpHAQ 

E6 , 1420  535 

4 

616 

628 

= 

a 

AOTmARk 

13,2753 

218 

2 447 

& 

AXISROT 

15,2543  409 

6 407 

408 

ALPHAR 

E 6 ,1 42  2 S3  5 

“2 

'616 

S: 

' A0TNB 

1 5 ,3051 

417" 

2 447 

448  « 

AXT 

0 1 *2000  1 1 6 

1 43 

ALPHAV 

E4 , 1452  19 

- 

" 

ST 

8 

AOTNBIMU 

14 , 2000 

2 267 

462  ■ 

AZANG 

E3 , 1471  19 

1 353 

key:  SYMBOLS  DEFINED  BY  EQUALS - ARE'  FLAGGED 


U UNDEFINED 

IT" 


OTHERS  ARE  ROYALLY  DEFINED 


flagged • 


BY  = 


e failed  leftover  erase  m multiply  defined  t wrong  memory  type  mm  multiple  errors 

0 FAILED- LEFTOVER  WORD 0 OVERSIZE-  OR  IDL-DEFlNED C CONFLICT  IN  MEMORY  X MTSC?  TROUBLE 


473423A~TJL  SYSTEM  FOR  BLK'2i  REVISION!'  12.'  OF  PROGRAM:  AURORA  BY  DAP  GROUP 


NOV  10.  1966 


PAGE  647 


SYMBOL  TABLE  LisTlNGi  iNCQJfrjTTG  PAGE  NUMBER  OF  DEFINITION,  AND  NUMBER  OF  REFERENCES  WITH  FIRST  AND  LAST  PAGE  NUMBERS 


.symboli  Hi — definition — references  ft*  symbsith:  "Definition  refeRenCeS't  ■ symbol  h definition  references  f 

a is 
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B1TTI4 

6233 

41 

I 

45 

— 

a 

BIT2 

7656 

76 

32 

76 

638 

a 

BURGZERO 

24,3321 

581 

— 1 

578 

812-1 

5234 

356 

- 

- 

- 

= 

a 

BIT3 

7655 

76 

26 

76 

637 

£ 

bvector 

E4 ,1466 

20 

— 

“*  * 

s 

514+B2 

TO  *2466 

241 

I 

24T 

■ 

BIT  4 

7654 

76 

44 

76 

637 

a 

bvsu 

7011 

59 

1 

42 

B3T0B4 

01,2215 

122 

2 

121 

122 

1 

BIT5 

7653 

76 

30 

153 

637 

■ 

BZE/GOTO 

"01,2107 

119 

1 

43 

B5T0B8 

01,2105 

118 

- 

« 

- 

■ 

BIT6 

7652 

76 

45 

45 

638 

u 

bzfchk 

20 f 2 2 6 A 

382 

- 

• “ 

BACK  I 

baddes 

BADEND 

14*3332 
10 ,2454 
13,2664 

466 

241 

206 

T 

r 

— ZT 

467 

?&1 

469 

B 

S 

9 

BIT7 

BIT8 

BIT8*9 

7651 

7650 

76 

76 

572 

43 

34 

120 

31 

638 

639 

■ 

BZMFCHK 

20,2152 

380 

** 

■■  — 

205 

255 

24,2710 

I 

567 

a 

Cl/2 

4272 

123 

1 

123 

BADRAD  ~ 

10,2725 

248 

5 

248 

251 

ft 

B I T9 

1 647 

76 

27 

148 

625 

■ 

C33JMP 

12,3414 

177 

1 

171 

BANKCALL 

4063 

29 

117 

152 

534 

a 

BIT5364 

13,2743 

208 

3 

190 

1 9l 

81 

C33TEST 

12,3103 

171 

5 

168  170 

BANK JUMP 

4105 

29 

12 

118 

453 

■ 

BITS4&5 

12*3425 

177 

2 

170 

176 

■ 

C3/2 

4273 

123 

1 

123  

BANKmAS.< 

6232" 

~4T 

3 

38 

41 

* 

BITS466 

13,2744 

208 

1 190 

a 

C5/2 

4274 

123 

1 

123 

BANKRUPT 

““  ”0016 

7" 

18 

146 

615 

s^ 

■ 

BITS4-6 

13,2745 

12,3434 

208 

177 

1 

1 

196 

a 

LADRSTQR 

0323 

13 

8 

157  343 

BANKSET 

0151 

12 

10 

31 

133 

g 

BITS6615 

176 

B 

CAGE5UB2 

12 ,3401 

i76 

1 

1 70 



BASVACT 

000222 6 

S 

'ZZO 

= : 

a 

BIT5768 

12,3430 

177 

1 

169 

■ 

CAGESUB 

l2 ,3373 

176 

2 

169  3,74 

BBANK 

C006 

— ? 

19 

27 

340 

St 

a 

BIT58.9 

23,3111 

555 

2 

548 

a 

CAqETEST 

13,2643 

205 

5 

192  203 

BBANK5ET 

25,2354 

596 

1 

596 

a 

BITS9  *10 

06,2425 

440 

3 

439 

440 

8 

lage 1 8 I j 

13 ,2655 

205 

2 

196  198 



BBBB 

14,3126 

463' 

r 

463 

T 

BITSFT 

12,2716 

167 

1 

165 

H 

cagetstq 

13,2650 

205 

6 

190  197 

BDDV 

75Z1 

'73 

2 

42 

"73' 

ft 

BIT5GQNE 

23*2260 

546 

1 

545 

ft 

CAlCD 1 R 

E5 , 16  14 

23 

4 

48 2 ^00 

“ ■ 

bdsq 

7035 

59 

1 

42 

• 

blankcon 

04,2554 

302 

2 

302 

315 

a 

CAlCgA 1 

15,4658 

411 

1 

412 



BEGDES 

10,2422 

a 

BLANKRBT 

OTOO 

“ 10— 

- 

— 

- = 

ft 

calcga 

1 5 ,2615 

411 

2 

449  489 

BETAM 

E4 , 1 556 

20 

- 

- 

= ■ 

£ 

BLOAD 

05,2631 

320 

1 

305 

H 

CAllgT a 

15,236/ 

404 

3 

449  523 

BETAV 

E4* 1460 

20 

- 

- 

= : 

B 

BMAGX 

0042 

7 

• 

• 

" a 

a 

calcrate 

16,3046 

506 

l 

502 

B5IM23 

23,3140 

556 

r 

556 

6 

bmagy 

" 0~043 

7 

- 

- 

- = 

B 

CALCSFE 

• 

m m 

~BGTM24' - 

24,2740 

574 

—f 

577 

B 

BMAGZ 

0044 

7 

- 

- = 

» 

CALL 

6644 

54 

1 

'11 9 

BGIM 

26,3377 

625 

~i 

625 

* 

B MEMORY 

E5 , 1570 

25 

- 

- = 

* 

CALLCODE 

7674 

77 

1 

46 

T3HTZ 

01*2072 

118 

— 

- 

- 

E 

_ BRKCHK 

25*3440 

396  - 

- 

- 

- 

B 

CALL/ITA 

01*212'  119 

1 

43 

Bl ASCOm 

04,2571 

315 

Z 

315 

316 

BNKOpTN 

20,2063 

378 

- 

- 

- 

ft 

CATCHFIN 

1 1 f 3 1 6 ( 

281 

1 

261 

BIASHI 

00,2510 

92 

'1 

109 

r 

BODYFLAG 

0006 

9 

- 

- 

- = 

CCALL 

6632 

54 

1 

42 

BIA5LC  ^ 

00, 2250 

85 

r 

T1TT 

c 

BO  OP 

21*2305 

51& 

1 

518 

ft 

CCCC 

14*3141 

403 

1 463 

B I GAYER 

23,2045 

542 

T 

542 

¥ 

bothsgn 

04,2257 

298 

1 

298 

ft 

CCSLHK 

20,2111 

379 

1 

0 rj 

BIN3 

6165 

255 

2 

243 

s 

H 

BOV (B) 

01,2077 

118 

1 

43 

ft 

CC5H0LE 

5464 

367 

24 

119  5UU 



BINCON — 

5242 

"356T 

2 

500 

331 

e 

BPL 

01 ,2125 

119 

T 

119 

ft 

CDRVE 

12,2471  162 

B INROUND 

04,3003 

325 

2 

324 

325 

1 

8PL/BMN 

01*2114 

119 

1 

43 

ft 

CDU2D0T 

UU  fU 

33V 

O 

OUO  OV7 

* 

bitio 

7646 

T6 

48 

84 

625 

a 

branch 

6711 

56 

8 

66 

119 

9 

CD|j3D0T 

E6,1577 

539 

2 

606  607 

_ 

BIT  11  ^ 

76455 

76 

31 

76" 

625 

£ 

tSKNCHCON 

04  rZ 540  502 

' 1 ' 352 

a 

CDU 

0076 

539 

8 

606  1509 

SIT12 

7644 

76 

23 

124 

630 

fi 

BRUPT 

0017 

T 

- 

- 

- = 

s 

CDUANG 

E5 , 1677 

23 

2 

506 

B I T 1 2 - 13 

2&  *2370 

611 

ft 

BUF2 — 

0117 

11 

23 

29 

342 

m 

CDUCHECK 

17 ,2276 

479 

1 

4 (V 

• 

BIT13" 

7643^ 

76“ 

— tr 

-76 

633 

B 

'BUF 

0114 

rr 

156 

11  435 

s 

cdudang 

E5 ,1574 

23 



BIT13-14 

7700 

77 

— 3' 

467 

543 

ft 

BUF  + 

00,2366 

88 

2 

88 

* 

CDUDOT 

0065 

539 

7 

606  609 

2 — 

BIT  14 

/642 

76 

47 

76 

632 

ft 

BUF- 

00,2362 

88 

2 

88 

CDUFLAG 

E5 ,1615 

23 

3 

Hot  HOH 

— 
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CDUINC  15 
CDUIND  E3 
CWLIMIT 
CDULOGIC  "T5 
CDUNDX  & 
CDURATE  16 
CDUREADF  E5 


,3470  428 
,1454  1 9 

~ZT~ 

*3345  42? 
,1672  23 

,30Z3~5Ofc" 
,1575  23^ 


6 262  430 

12  192  195 
4 506  5T2~ 

13  243  455 
15  474  506 

3~502~T06 
4 506  512 


CHAN5D 
CHAN6D 
"CHAN 
CHANOSp 
CHANG 1 
CHANG2 
CHANGVB 
CHANJOB 
"CHANtOAT 
CHAR 


14,3352  466 
14,3370  467" 
55*1577  23 

05,2436  313 
4404  126 
"44T2IZ6 
13,3343  225 
01,2320  1 3O 
05,3044  323 
0103  10 


1 313 
7 126  506 
"T  "35 
"1  225 
3 126  I37 
1 323  ~ 

5 294  296  = 


CHARALRM 
CHAR  IN 
CHCNTR 
CHECK61 
CHECKG3 


CHECKG5 

CHECKG 


04 

04 

£4 

17 

17 

T7 

"17 


CLR5 

CMPXl 

CNTRCHKT 

CNTRCON 

CNTRLOOP 

COAROFIN 

C0ARS1 

COARS2 

COARS 

COARSERR 


04 

E5 

20 

20 

20 

13 

13 

"IT 

13 


3275  335 
2002  294 
1655  22" 
2773  487 
3036  487 


3041  487 
2771  487 


15  294  295 
1 285 
8 443 

1 489 

2 487 
1 487 

4 445  480 


CDUREADI 

£5,1576 

23 

3 

506 

512 

= 

■ 

CHECKLDl 

14*2573 

455 

1 

^55 

■ 

COMMAND 

E3*l451 

19 

6 

189 

195  a 

CDQTImFF 

E5 , T572 

23 

2 

506 

= 

■ 

CHECKLD2 

14,2575 

455 

1 

455 

■ 

commFx 

20,3314 

394 

2 

395 

CDUTIMEI 

E5,l570 

23 

2 

506 

= ! 

9 

CHECKED 

14,2554 

455 

4 

454  455 

■ 

COMMONQR 

25,3635 

640 

- 

■»’ 

• 

CDUX 

0032 

7 

31 

151 

575 

*'• 

CHECK M 

17,3023 

487 

2 

467 

R 

COMNEG 

13,2206 

195 

1 

193 

CDUXCMD 

0050 

7 

4 

174 

^42 

s ■ 

c 

CHEOCMH 

4702 

150 

1 

526 

6 

COMP 

7616 

75 

4 

44 

105 

CDUXD 

0774 

17 

8 

280 

575 

■ 

CHECkNJ 

4457 

137 

11 

137  400 

9 

COMpCHK 

07,2255 

215 

I 

214 

CDUY 

0033 

7 

18 

151 

617 

■ 

CHECKP 

17,3010 

487 

2 

487 

ft 

COMPGS 

21,2522 

521 

1 

521 

CDUYCMD 

0051 

7 

1 

174 

= ■ 

1 

CHEKDR I V 

26,27  51 

618 

1 

618 

R 

COMP  I CK 

05,2443 

313 

2 

313 

CDUYD 

0775 

17 

7 

547 

6 1 5 

B 

CHEKST IK 

24*2250 

566 

1 

565 

a 

COMPOS 

13*2134 

193 

1 

193 

cduyfil 

E6.1562 

539 

4 

606 

615 

■ 

CHK2 

16»26l5 

501 

1 

502 

■ 

COmpTEST 

05,2376 

312 

8 

312 

320 

CDUZ 

0034 

7 

18 

151 

576 

= 

• 

CRKT5 

16*2652 

50Z 

1 

503 

m 

COMP T ST  1 

05,2400 

312 

- 

- 

CDUZCMD 

0052 

8 

1 

174 

= : 

1 

CHK6 

16,2724 

503 

1 

504 

9 

COMPUT 

17,3250 

491 

1 

480 

CDUZD 

0776 

17 

6 

280 

6i5 

S 

CHK7 

16*2753 

504 

1 

504 

e 

COMZERO 

13*2216 

195 

2 

193 

195 

cduzfil 

E6 , 1564 

539 

2 

610 

615 

P 

CHkBTTIQ 

"24,2205 

565 

1 565 

m 

C0NC+S1 

20,2007 

377 

1 793 

CDUZOTST 

17,2652 

484 

3 

483 

485 

• 

CHKCORS 

13,2154 

194 

1 

194 

a 

C0NC+S2 

20,2012 

377 

r 

393 

CGOTO 

6672 

55 

1 

42 

B 

CHKTIME 

1 1 , i i 6 1 

281 

1 

281 

ft 

CONSTMIN 

25,3263 

633 

1 

632 

CHIZBIT5" 

1 4 * 3646 

472 

2 

467 

CHKVI5FZ  23*2213 

545 

T 

560 

M 

CONTTNU 

20,3373  395 

4 

395 

CH30DSPY 

16,3132 

509 

2 

509 

511 

■ 

LHKX 

16,2714 

503 

1 

503 

U 

conumnor 

05,2756 

322 

1 

322 

CH5MASK 

£6,1512 

537 

1 1 

558 

638 

b 

CHNL12 

0073 

625 

3 

625  = 

B 

corctttm 

1 1 ,3235 

283 

1 

284 

"CH6MASK 

Lb  * i.  S i 3 t?  3 7 

10 

5T6 

638 

t 

CHRPRIO 

5233  356 

4 

283  364 

ft 

core:  me 

01,2424 

133  " 

2 

129 

133 

ChANl  ID 

14*33  < 6 

467 

1 

466 

F 

CKDOTIME 

06 , 2457 

44 1 

1 

441 

* 

C0RF0UND 

01*2253 

129 

CHAN12 

"0012 

26 

2 

192 

= • 

CLEAR1 

04,2463 

301 

1 

301 

ft 

C0RREC I 

17,2575 

483 

1 

485 

1 

466 

B 

CLEAR 

04 ,2431 

301" 

1 294 

■ 

C0RSCHK2 

13,2166 

194 

2 194 

CHAN13 

0013 

26 

3 

300 

364 

= • 

• 

CLOAD 

05,2646 

320 

1 

305 

■ 

C0522.5 

24,3334 

581 

3 

579 

581 

CHANI4 

OUI4 

26 

1 

195 

s • 

I 

CLPASHI 

04*2446 

301 

1 

301 

a 

COSINE 

00,3445 

111 

t 

44 

2466  301 
1601  24" 

325T"343 
2000  377 
3252  393 
0005  9 

2077  192 
2122  193 
2072  192 
2177  194 


COARSTOL 

COARZERO 

coastasc 

code- 

C0EFFA1 

COEFFA 


13 

16 

25 

25 

25 


COMADRS  20 


—r 

301 

« COSTH 

0020 

22 

10 

404 

470 

2 

517  = 

■ COUNT 

0127 

11 

17 

295 

338 

■ COUNTCHK 

20,3043 

390 

I 

379 

1 

393 

■ COuNTpL 

E5 ,1676 

23 

8 

477 

491 

1 

393 

« CRITCON 

04 1 2, 1 j 6 

296 

1 

296 

6 

“444  470  = 

» CYCLSHFT 

20  ,3260 

393 

- 

• 

• 

1 

192 

■ CYL 

0022 

7 

23 

110 

393 

2 

193  195 

■ CYUIMES 

E4* 1471 

21 

3 

436 

r 

192 

* CYR 

DU20 

7 

46 

i 5 JV3 

2 

194 

* C(BRUPT) 

20,2756 

389 

1 

3 0 0 

2205  194 
3244  511 
3325  633 
Olio  10 
3132  630 
3104  630 
3322  394 


1 194 
4 501  503 
I 630 

13  295  338  = 
1 633 
" 1 633 


395 
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F 

* 

« 

— D2CDUYFL 

E6.1572 

539 

6 

306 

616 

• 

DEC-160 

25,3372 

634 

- 

- 

- 

0 

DESCADR 

24 

,2741 

574 

1 

578 

D2CDUZI-L 

E 6, 15 74 

539 

4 

610 

616 

M 

DEC-399 

25,3367 

634 

1 

630 

a 

descbits 

11 

,2730 

275 

1 

223 

DAD 

67  5 r 

57 

1" 

42 

1 

DECOR 

0472203 

297 

1 

296 

b 

DESCDAP 

12 

,3742 

188 

1 

188 

DANZIG  ~ 

60U 

35 

52 

51 

429 

a 

DECOUNT 

0103 

10 

24 

307 

326 

= 

E 

DESCLEM 

12 

,3725 

188 

1 

186 

DApQOOLS 

0765 

16 

45 

151 

639 

£ 

DECRE ( 

0101 

10 

2 

322 

323 

= 

SI 

DESCOAST 

12 

,3732 

188  . 

- 

- 

- 

tapidler 

23,3141 

557 

3 

159 

565 

B 

DECROUND 

04,3154 

331 

1 

331 

» 

DESCOUNT 

0430 

16 

3 

238 

241 

DAPL0W6 

23,3103 

555 

1 

546 

W 

DECT EM 

0106 

10 

3 

314 

= 

■ 

DESLOOP 

10 

,2427 

241 

1 

241 

DAP TIME 

E6,1552 

539 

3 

605 

610 

P 

DECTOBIN 

04,2117 

295 

1 

295 

ft 

DtSLOTSX 

E3 

,1471 

19 

1 

353 

= 

DAS  + + 

20,2356 

353 

* 

" 

tf 

DEGCOTT 

04*2625 

319 

1 

315 

1 

DESlOTSY 

E3 

,1471 

19 

1 

353 

= 

DAS+INCR 

20,2355 

383 

- 

- 

If 

DEgCONI 

04,2766 

325 

1 

324 

ft 

DESRET 

0427 

16 

7 

16 

277 

DAS+- 

20 , 2366 

383 

- 

— 

* 

DEGC0R2 

04,2770 

325 

1 

326 

& 

DESRETRN 

10 

,2345 

238 

4 

238 

423 

DASAMPL 

TO, 3073 

250 

1 

252 

B 

DEGTNSF2 

04,2734 

324 

1 

326 

s 

detcode 

0375 

226 

219 

220 

= 

DAS-  + 

20,2414 

383 

- 

- 

E 

DEGTNSF 

04,2723 

324 

1 

324 

H 

DETENTCK 

23 

,2305 

546 

l 

545 

DATACALL 

4116 

30 

2 

330 

394 

6 

DEGOUT  SF 

04*2555 

315 

2 

315 

H 

DETVB21 

13 

.3067 

219 

5 

219 

220 

DATADSp 

I7Y2740 

486 

I 

486 

fi 

DEg/SEC 

1 6 9 33 60 

513 

1 

506 

fi 

DF2CADR 

23 

,3371 

560 

1 

560 

DATAFAIL 

10,3156 

253 

1 

249 

ft 

DEGTAB 

04,2635 

316 

2 

316 

■ 

DFQKAXIS 

26 

,2553 

614 

1 

6l  A 

DATALD 

1 7 ,3065 

489 

2 

477 

480 

t 

DEL 

0072 

538 

3 

622 

623 

= 

ft 

DFRRT 

04 

,3243 

334 

• 

- 

DATAPL 

E5 , 1626 

23 

28 

376 

492 

= 1 

DELAY 

E4*  16IT4 

21 

1 

441 

= 

■ 

DGBF 

23 

*3404 

561 

2 

S59 

560 

DATAwAIT 

5151 

342 

- 

8 

DELAyCTR 

0773 

16 

8 

28 

566 

■ 

DgbITS 

10 

,2706 

247 

2 

247 

251 

DATWAIT1 

5157 

343 

2 

343 

355 

ft 

DELAYEX 

4566 

139 

I 

139 

■ 

DGCHECK2 

10 

.3074 

250 

2 

252 

DB 

E6 , 1415  535 

8 

185 

589 

g 

DELCDUX 

C.69I673  541 

2 

544 

576 

■ 

DGCflECK 

10 

,3137 

253 

2 

249 

250 

DBATTHLD 

12*3731 

188 

2 

I84 

187 

ft 

DELCDUY 

E6  9 1674 

541 

1 

576 

■ 

DGTS 

26 

,2535 

614 

1 

611 

DbAuTO 

12,3750 

186 

2 

167 

188 

ft 

DELCDuZ 

t6 , 1675 

541 

- 

fi 

DGTSFADR 

26 

,2374 

611 

1 

610 

DBMAXUM 

12,3747 

186 

“T 

184 

fi 

PELLOAD 

11,2202  262 

1 

262 

W 

DIDFLG 

0351 

15 

6 

157 

504 

DBMINIMP 

E6  » 1646 

540 

6 

187 

634 

» 

DELM 

E5*1704 

24 

6 

517 

518 

= 

ft 

didreset 

12 

,2717 

167 

1 

166 

DbMNMP 

23,3407 

561 

1 

560 

e 

DELMLP 

21,2165 

517 

2 

517 

ft 

DIFEqCNT 

E4 

,1605 

20 

- 

- 

• v 

s. 

DB5ELECT 

12,3622 

134 

■" 

" 

t> 

DELQ 

0066 

537 

** 

- 

- 

= 

ft 

DTN0 

14,3333  466 

1 

466 

DCDUYFI L 

E6 , 1 566 

539 

6 

606 

6l6 

6 

DELR 

E4 , 1452 

20 

3 

353 

= 

ft 

DIRADRES 

6041 

36 

2 

49 

ULUUZr i L 

to  f io  JO 

^39 

4 

610 

616 

B 

DELTADOT 

23*3403 

561 

1 

559 

m 

DIRECTN 

17 

.2564 

483 

3 

483 

485 

DCQMP~ 

7633 

75 

2 

75 

6 

DELTAP 

0066  536 

3 

543  558 

= 

■ 

~ DTSTNDAT 

12 

,2640 

166 

Z 

T65  766 

DDDD1 

14,3173 

463 

1 

<+64 

0 

Ob. L i AQ 

64,1576 

20 

1 

354 

= 

ft 

DISINDT 

11 

,3030 

278 

T 

267 

uuuu 

i H f D 1 Od 

463 

1 

465 

B 

DELTAR 

0070 

537 

- 

* 

= 

w 

DISINDUN 

11 

,3101 

279 

1 

279 

DDT 

T525 

73 

i 

42 

8 

DELTAT 

1052 

rr 

- 

- 

■ 

“DISIRLUP 

11 

,3061 

279 

2 

278 

279 

UU  V'-ALL 

UU  t d ( dd 

99 

2 

1 00 

fi 

DELTEST 

26,3260 

623 

2 

623 

624 

■ 

DISPLACE 

05 

,2753 

322 

2 

321 

322 

VU\J /DUU\ 

UU  « d5$d 

88 

1 

73 

w 

DELV 

1044 

17 

-• 

•" 

- 

ft 

DISTEM 

0106 

10 

3 

312 

~sn 

UCX  I 1 
n F r l 7 

i 2 %ddc'o 

374 

1 

2 
2 

371 

e 

delvel 

E4  ,1460 

20 

3 

353 

= 

n 

D--LCHK 

20,2671 

- 

— 

- 

n f r 5 ft 

1 7-i  3 ATR 

498 

4 f 0 
476 

493 

delvx 

O4O3 

16 

12 

25 

516 

ft 

D— SC 

20 

,2643 

387 

* 

- 

- 

* 1 1 JO  1 D 

DELVY 

0405 

25 

5 

212 

515 

= 

ft 

DLCDUIDX 

E6 

,1672 

541 

6 

576 

DFCRRNfrl 

0265 

498 

13 

d 

« 

ft 

DELVZ 

4 

212 

515 

= 

■ 

DLOAD 

~ 6465 

'50 

r 

42 

ut-LYUr  r 

17,3666 

498 

1 

479 

ft 

DLOADCOD 

7675 

77 

r 

49 

— nrrn<B — 

fV*5  - 9LL  K 

3*4 
3 v7 — 

d 

3 i 4 

UL|viAfNUAC 

25,3265 

833 

1 

632 

li 

DLOAD* 

7676 

77 

X 

38 

DECEND 

04,2152 

i 

7 

s 

denom 

£6,1456 

536 

2 

590 

ft 

DLy2  - 

4544 

139 

1 

139 

utoAINvaUt. 

17 ,3652 

490~ 

2 

484 

ft 

DMP1 

7520 

73 

~v 

42 
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symbol  hi 

DpFlN I T I ON 

reFeRfNCFS  F; 

b 

“SYMBOL  “HT” 

DeFIN I t i on 

33 

m 

-n 

m 

ja 

m 

2 

n 

m 

CP 

F M 

SYMBOL  H 

definition 

References  f 

ft 

i 

DMP 

7063  6 1 

7 296 

326 

I 

DOTjMIN 

25,2056 

589 

3 

589 

■ 

DSPALARM 

04,3277 

335 

11 

305 

336 

DMPR 

7522  73 

1 42 

ft 

DOTRET 

0123 

11 

8 

11 

107 

ft 

DSPB 

05,2345 

312 

r 

305 

D'MPSUB 

7067  6 1 

20  63 

114 

6 

“DOTSUB 

7136 

63 

3 

68 

ft 

DSPC 

05,2352 

312 

1 

305 

DNLSTADR 

~04ll  16 

5 158 

371 

% 

DOUBLK 

04,2535 

302 

2 

301 

302 

ft 

DSPCNT 

0341 

13 

7 

157 

163 

DNPHASE1 

rs,2052  3?1 

2 156 

373 

ft 

DOVLOAD 

6460 

49 

3 

46 

& 

DSPC0M1 

05,2343 

312 

3 

312 

313 

DimPHASET” 

T5 , 2 066  371 

1 374 

k 

“ODVEOAD* 

6463 

49 

3 

46 

ft 

DSPC0M2 

05,2357 

312 

2 

312 

DNpHASEB 

15,2154  372 

1 374 

k 

DplOuTSF 

04,2647 

316 

1 

315 

ft 

DSpC0M3 

05,2365 

312 

1 

312 

DNPHASE4 

15,2167  373 

1 374 

ft 

DPI/12 

15,3167 

419 

I 

417 

a 

D5PC0UNT 

0264 

13 

56 

158 

362 

DMPHASES 

T5TZ207  3?3 

1 374 

S 

DP20UTSF 

04,2654  317 

" 1 

315 

n 

DSPTJCEND 

05 ,2  51 3 314 

2 315 

316 

DNPHA5EX 

15,2127  372 

1 374 

s 

DP30UTSF 

04  *2656 

317 

“I 

315 

9 

DSPDCGET 

05,2454 

314 

1 

314 

DNPHASXA 

15,2121  372 

1 372 

s 

DPDIFF 

E6,1554 

539 

7 

608 

6O9 

u 

DSPDCPUT 

05,2464 

314 

1 

314 

DTNTMl 

OO34  26 

2 371 

372  = 

a 

DPINCOM 

04  * 3040 

326 

1 

326 

a 

DSPDCWDi 

04*3127 

33l 

2 

331 

332 

DNT|M2 

“0035  26 

1 372 

s 

B 

DpINORm 

04,3046 

326 

1 

326 

s 

DSpDECwD 

04,3101 

331 

1 

314 

dntmbuff 

E7,1403  25 

14  26 

374 

ft 

DPINSF2 

04,3050 

326 

1 

324 

ft 

DSPDPDEC 

04,2704 

317 

r 

305 

QNTnEXIT  15*2146  37^ 

4 372 

373  - 

■ 

DPTT75F 

04,3023 

326 

3 

324 

326 

II 

DSPFMEM 

05,3214 

330 

2 

305  332 

DNTMr A5T 

J.  (L  9 3 3 3 d.  i 75 

1 1?7 

a 

DPIPAY 

£5,1656 

24 

“3 

516 

521 

= ft 

DSP  INI 

04,3226 

334 

2 

333 

335 

DNTMG0T0 

t7, 14OI  25 

9 158 

373 

a 

DPIPAZ 

E5 ,1662 

24 

1 

516 

= ft 

DSPIN 

04*3201 

333 

5 

295 

338 

doalarm 

Oi  ,2773  367 

2 T53  366 

a 

DpD“SmAX 

7636 

76 

1 283 

ft 

DSpLAY 

12,2530 

163 

1 163“ 

DODES 

10,2467  242 

1 241 

B 

DPOUT 

U4 ,4661 

317 

3 

316 

317 

0 

D5PLAYC 

12,2541 

163 

1 

162 

DODLOAD 

6455  49 

3 46 

B 

DPOUTCOM 

04,2672 

317 

1 

317 

IS 

DSPlIST 

0327 

13 

11 

157 

361 

DODLOAD * 

6071  TTB 

4 46 

49 

1 

317 

ft 

DSPLOCK 

0277 

13 

10  T57 

361 

DODOWNTM- 

15,2047  371 

2 27 

28 

a 

DPTEST1 

05,2250 

308 

3 

308 

ft 

DSPlV 

05,3252 

333 

- 

- 

W 

DOFCSTST 

1 1 « 2<*u  1 268 

1 258 

ft 

dptest 

05,2236 

307 

4 

307 

323 

ft 

DSPMM1 

05 ,8403 

343 

1 

303 

DOF  ST  ART- 

1 2 *2006  1 5 1 

3 153 

154 

i 

DK(-TSUb2 

07 , 2T76 

214 

r 

217 

ft 

DSPMIT 

05,2001 

303 

3 

150 

364 

DoMSG 

11,2763  2 7 6 

2 276 

J 

DR  I FT  I 

E5 , 1640 

24 

3 

376 

519 

= ft 

dspmmend 

05,3413 

343 

l 

363 

DONBRD 

10,25U7  im 

1 242 

Q 

DRIFTO 

E5 , 1 636 

24 

3 

376 

519 

s ft 

DSPMMTEM 

0124 

11 

2 

343 

= 

“DONEDTD 

i 2 ,2 7 IT  167 

3 165 

166 

ft 

DR  I FT5U3 

OTTTTT  6“ 

214 

3 

7212 

e 

D5PFTSK 

7663  333 

1 332 

= 

DOPROC 

04,3452  344 

2 343 

359 

S 

DR  1 1-  T T 

E5,1576 

24 

5“ 

376 

520 

= a 

DSPOCTIiM 

04,3271 

335 

1 

333 

DOQRSK IP 

24*2630  571 

1 571 

a 

DRIVRAD 

17*2414 

48  1 

“T 

46I 

a 

DSPOCTWD 

05,3222 

332 

3 

304 

330 

DORRER05 

10 ,27051“  232“ 

1 lao 

a 

DSATmOUT 

U011 

26 

17 

137 

403 

= a 

D5pOFF 

12,2320 

157 

1 

DORROUT 

1^,2 630  245 

1 245 

a 

DSEX I T 

0100 

10 

3 

333 

334 

= ■ 

DSPOUT 

12,2501 

163 

2 

162 

D0RSAMP2 

10  *3300  25 6 

- 

- 

k 

DSKYCHK 

01,3034 

401 

1 

401 

s 

DSPRTRN 

E4 , 1602 

20 

-• 

* = 

D0R5AMP 

1>J,32  7 4 256 

4 256 

271 

DSKYCODE- 

01  *3“017  4OI 

I 

“4  02 

s 

DSPSCAN 

12*2513 

163 

2 

I63 

DORSTART 

1 2 *2207  1 54 

1 154 

B 

DSKYRSET 

4730 

160 

2 

158 

164 

ft 

DSpSFNOR 

05,2507 

314 

1 

314 

DQSPROOT 

2 6 * 3 300  623 

1 623 

■ 

DSKYWAIT 

01 ,3066 

402 

2 

402 

403 

a 

DSPTAB 

0307 

13 

6 1 

151 

459 

DuSSHF  T 

00,2302  86 

1 86 

DSLV 

2 334 

■ 

DSP l EMI 

0333 

13 

48 

266 

512 

DOSTORE 

6342  45 

1 35 

• 

DSMAG 

0126 

11 

2 

334 

= a 

DSPTEM2 

O336 

13 

28 

220 

506 

DOT  6RuPT 

4175  33 

1 27 

s 

dsmsk 

04,3257 

334 

3 

334 

338 

a 

DSq 

00,3122 

105 

l 

44 

DOT 

7304  67 

1 42 

* DSPZB I T 

05,3255  333 

3 309 

343 

a 

DSQSUB 

00,3227 

107 

5 

ro5 

112 

DO TERM 

04,3450  344 

1 344 

m 

L>6P2Dt(. 

* t>  i 5 5 

332 

r 

318 

* 

DSREL 

01^5 

1 1 

4 

333 

334  = 

DOTIMES 

E4 ,1606  21 

3 441 

442  = 

9 

DSPA 

05,2340 

312 

1 

305 

a 

DSRUPTEM 

0077 

10 

5 

163 

DOTINC 

0122  11 

7 11 

68 

* 

DSpAB 

05,2333  312 

305 

» 

“ DSRUpTSrt" 

0350 

15 

5 

158 

471 

DOT  I XBR 

01 *2056  11/ 

* 

£ 

DSPABC 

05,2346 

312 

1 

305 

s 

DSU 

6777 

58 

1 

42 
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symbol  Hi  definition  "Re'feRen^estt ■ ““symsolth;  definition  refeRencift  ■ symbol  h definition  references^ 

S a 


DT 

E6 * 1551 

539 

10  159 

607 

■ EBANK3 

11,3263 

284 

2 

281 

283 

a 

ENDDPDEC 

04*2722 

318 

1 

324 

DTA 

26,2665 

617 

2 616 

a EBANK 

0003 

7 

30 

156 

529  = 

a 

ENDDpySH 

6554 

51 

1 

51 

dtcalc  ■ 

26,2051 

605 

1 604 

* ECE1 

16,2663 

503 

1 

502 

a 

ENDEXECF 

4536 

138 

1 

139 

= 

- DT/2 

E4» 1 562 

20 

- 

- = 

■ ECE2 

16,2666 

503 

1 

513 

0 

endexecs 

01,2566 

136 

1 

141 

= 

DTW 

26,2664 

617  - 

2 616 

* ECE2CADR 

16,3355 

513 

2 

502 

503 

a 

ENDEXTV6 

11*2056 

259 

8 

259 

263 

HOuMMYTIL 

~Z6“,Z544  614 

2 560  618 

* ED'OP 

0023 

7 

7 

31 

393  = 

a 

ENDEXTVS  11,3264  284 

1 

368 

= 

“ DUMMYJ03 

4450 

137 

3 136 

152 

• EDOT 

E6  * 1407 

535 

21 

535 

593 

■ 

ENDFAILF 

5470 

367 

1 

473 

= 

DV1+  + 

20,3614 

398 

- 

- 

a tDOTGEN 

t6 , 1 442 

536 

'W 

- 

a 

ENDFAILS 

01,3000 

367 

1 

401 

— 

DV1+- 

20V3625 

399 

- 

- 

■ edotneg 

24*3602 

586 

1 

585 

u 

tNDFIND 

4443 

127 

4 

129 

133 

DvICHk 

20,3610 

398 

- 

- 

» EDOTp 

E6 , 1423 

535 

6 

535 

592 

a 

ENDFRESS 

12,2451 

159 

1 

162 

= 

DV1-  + 

20,3635 

399 

- 

- 

■ EDOTO 

E6 ,1424 

535 

7 

535 

592  = 

■ 

ENDGTSAL 

21,2553 

522 

- 

— 

- 

~ wr~ 

20,3646 

399 

- 

- 

a EDOTR 

£6,1425  535 

5 

535 

592  = 

a 

ENDlBNKf 

4232 

33 

1 

12  3 

= 

DV2CHK 

2 0,3662 

399 

" - 

* tDOTUGEN 

24*3652 

592 

2 

568 

569 

a 

ENDIDLE 

5140 

342 

37 

219 

512 

DvACHK 

20,3672 

399 

- “ 

« EDOTVGEN 

24 ,3656 

592 

2 

568 

569 

B 

ENDlMODF 

4763 

189 

1 

227 

“DV5++“ 

“00*3713 

403 

• 

- 

« EDOT  (2) 

E6,1412 

535 

6 

535 

589  = 

a 

END I MODS 

13,2753  208 

1 218 

= 

DV5+- 

20,3720 

400 

* 

- 

« EDOT (2) Q 

E6,1412 

535 

- = 

ENDIMU 

13,2633 

205 

4 

170 

196 

DV5CHK 

20,3706 

400 

* - 

“ EDOT (2) R 

E6 , I4I4 

535 

* 

■ 

ENDIMUF 

5512 

473 

1 

642 

= 

DV5-  + 

20T3T3T 

400 

. 

- 

9 EDOT (R ) 

E6 ,1410“ 

535 

3 

578 

582  £ 

■ 

endimusi 

14,3726 

474 

1 

642 

= 

DV5  — 

20,3737 

400 

“ 

- 

■ EEEE 

14,3227 

464 

1 

465 

a 

ENDIMUS2 

17,3730 

499 

1 

643 

= 

DV+  + 

20 ,2506 

385 

« EIGHT 

7654 

76 

1 

583 

= 

a 

END1MUS3 

16,3362 

513 

1 

643 

2 • 

UV  + - 

20,2524  385 

* " 

* EIGHTBAL 

23,2000 

542 

1 

544 

B 

ETiDINFSS 

15,3342 

424 

1 

425 

= 

DyCHEC< 

20,3606 

398 

1 379 

* Ejl 

01,2551 

136 

6 

135 

■ 

ENDIN5T 

5150 

342 

6 

297 

336 

DVCh'K 

"20,2474 

385 

” * 

- 

* EJ2 

01,2561 

136 

1 

136 

a 

ENDINTF 

7701 

77 

1 

642 

= 

“DVCON 

20,2011  377 

1 2 -3-04 

400 

« 6 J FREE 

44371 2 7 

13 

267  459 

a 

ENDINTFF 

4063 

28 

1 

29 

= 

DV-+ 

20,2533 

335 

• — 

* EJSCAN 

01,2504 

135 

1 

132 

a 

ENDINTSO 

OU  ,366/ 

115 

1 

642 

= 

DV-+  ♦ + 

20,2543 

385 

- 

■ ELANG 

E3 , 1471 

19 

1 

353 

= 

■ 

ENDINTS1 

01,2220 

122 

1 

128 

= 

DV — 

2 0 , 2 6 1 3 

- 

■ ELEVEN  " 

7660 

76 

2 

76 

363 

M 

— ENDJ0B1 

01  ,2474 

135 

1 

127 

UVLOOP 

20,3607 

398  " 

1 401 

• ELRCODE 

07,2436 

286 

1 

286 

£ 

ENDKRURS 

07,2502 

288 

- 

— 

= 

DVNORM 

"00,2451 

91 

3 90 

« EM5D 

0055  8 

- 

* = 

m 

ENDLFCS5 

06*2665 

443 

" 

* 

= 

DvNORmCT 

0T23" 

rr- 

6 ""88 

99  - 

■ ENABLE 

17,2545 

483 

1 

474 

a 

ENDmARkS 

13,3157 

221 

1 221 

DVOVF 

00,2355 

88 

13  88 

101 

s END 2 DEC 

04,3200 

332 

1 

333 

a 

ENDMAXDV 

00,2546 

94 

2 

94 

96 

DVQXCHK 

20,2553 

385 

- 

- 

a ENDALL 

04,2150 

296 

1 

296 

m 

ENDMODE 

13,2706 

206 

1 

206 

DV7oC 

/ 564 

74 

Z "72T 

i ENDAM0D5"" 

TT3  » 3434 

226 

1 

642 

= 

D 

EN  DWORD  0 

05,3207  330 

1 

330 

DvSIgN 

0122 

11 

8 88 

104  = 

b ENDCMS 

1 1 , 3 3 6 1 

369 

r 

642 

S 

R 

ENDNmTST 

04,2134 

296 

2 

295 

296 

0 \/  X oC 

7403 

70 

2 69 

s ENDCOUNT 

20,3067 

390 

1 

390 

Kj 

ENDNUM 

04,2144 

296 

1 

296 

DWRRPTS3“ 

4061 

28 

" 1 27 

* ENDDAP23 

23,341 1" 

561 

i“ 

643 

= 

a 

ENDiWBEY 

04,3517 

360 

1 

362 

DXCH+DI M 

20,2315 

382 

- — 

•• 

■ ENDDAP24 
» ENDDAp25 

24*3723 

593 

1 

643 

= 

a 

endofjob 

444O 

127 

55 

215 

525 

K I qp  » U.  K IS  ?«  * Shut  u >„  <1  © 9 V « ti  tries  ■ m B ■ WIT  B BN  a m H 

25 ,3663 

641 

1 

643 

= 

a 

endofuf 

20,3130 

391 

1 

391 

tliHDo  (6 

391 
535 
448 — 

1 393 
20  535 

2 447 

589 

» ENDDAP25 

26,3521 

629 

1 

643 

= 

a 

ENDPASTt 

5105  330 

- 

* _ 

* 

t 

£6,1411 

« ENDDAPT  4 

4606 

11*3055 

188 

6 

187 

188  = 

a 

ENDPHHNF 

4713 

180 

1 

160 

s 

C.ARK  1 LU  'I 

14,2210 

448 

» ENDDISIN 

278 

3 

278 

279 

» 

endpinbf 

54 1 3 

3^2 

1 

366 

” 

tARTHR 

14,2422 
21 ,2674 

453 

8 445 

525^ 

8 ENDDNTmS 

15,2367 

376 

1 

"404 

= 

m 

ENDpTNSl 

04,3540  362 

7 

642 

= ' 

tAK 1 TPR j 

525 

1 525 

b ENDDOT 

7165 

63 

1 

107 

a 

ENDPINS2 

06 ,3824 

368 

1 

642 

" 

W SYMBOLS  OeFINeO"BY  EQUALS  ARE  FLAGGED  =.  OTHERS  ARE'  NORMALLY  DeF  I NED'  EXCEPT"  THOSE  FLAGGED! 


u undefined  e failed  leftover  erase  m multiply  defined  t wrong  memory  type  mm  multiple  errors 

n nearly  defined  by  = j- failed  leftover  word — o oversize-  or  ill-depined — c conflict  tn  memory — x mi sc,  trouble 


473423A  YJL  SYSTEM  FOR  BLK2?  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10 , 1966 


PAGE  652 


SYMBOL  TABLE  LiSTinS'*  inCLUDinG  PAGE  vi?MBER~Orr~ 3EFiniTi0n»  ANp  nUMBER  OF  REFERENCES  WITH  FlRST  AnP  LAST  PAGE  imUMBLRS 


symbol  tf.  "Definition  References  f,  a symbol  h Definition 

a 


references  f 


symbol  h 


Definition  ref fg ences  f 


ENDPINS3 

1 6 *25  2 0 

354 

T 

500 

a;  B 

ENGSTEP 

E4,1470 

21 

13 

436 

437 

a 

ESTIMS 

21,2000 

514 

2 

476  A78 

ENDPRCH3 

01,2370 

130 

2 

130 

136 

fi 

ENTER 

05,2003 

303 

1 

295 

etheta 

0075 

538 

2 

619  621 

= : 

ENDPREL1 

21 ,3427' 

534 

1 643 

a a 

ENTER JMP 

04,2051 

295 

1 

294 

EVAC-2K 

6710 

55 

T 

55 

ENDRADAR 

TO  * 3 2 3 5 

255 

3 

230 

24 1 

a 

ENT  EX  IT 

0122 

303 

10 

3O4 

339 

= 

execbank 

4447 

127 

10 

126  137 

ENDRCSFL 

4606 

638 

2 

636 

637 

a » 

EMTPASO 

05,2031 

303 

3 

303 

341 

EXECTEmI 

0065 

9 

4 

126  133 

= 

ERDRMUDF 

5100 

229 

1 

330 

a.  « 

“ENT  REX" 

0122 

11 

7 

297 

341 

= 

EXECTEM2 

0066 

9 

4 

128  133 

= 

ENDRMOD5 

10,73254 

255 

1 

256 

a u 

ENXSEX 

05,3363 

341 

1 

341 

EXIT 

6731 

56 

I 

35 

ENDRQDAT 

05,2273 

308 

I 

308 

a 

EQ 

E6 , 141 1 

535 

3 

584 

= 

EXITEM 

0100 

10 

7 

321  322 

= 

“ENDROwT 

X5 ,3343 

337 

T 

341 

0 

ER 

E6, 1413 

535 

7 

535 

584 

EXTVBACT 

0332 

“ 13 

6 

138  259 

~ ~ENDRSTRX 

12,2054 

152 

T 

155 

a 

ERA5CHK 

20,3137 

391 

1 

379 

■ lIUUXBRItfRlNfialBiaiHteMIISIMlfllflBHBI 

ENDRTBS5 

15,3575 

430 

1 

643 

= « 

ERA5C0N1 

20,2001 

377 

1 

392 

FAILCTR 

0065 

537 

3 

636 

= 

EWDRTOUT 

“OS  * 2 5 3 5 

315 

1 

319 

a » 

ERASCDN2 

20.2002  377 

1 

3Y2 

FAILDISP 

01,2777 

367 

1 

367 

ENDRTST 

11,2516 

271 

T 

271 

a 

ERASC0N3 

20,2004 

377 

1 

391 

failreg 

1363 

18 

10 

151  495 

= 

ENDRTST5 

10,3341 

257 

1 

642 

= ••  a 

ERASC0N4 

20,2005 

377 

1 

392 

FAILSW 

E6,1510 

537 

1 

636 

ENDROT 1 'J 

05,1077 

324 

1 

328 

a:  a 

ERASC0N5 

20,2013 

377 

1 

393 

FATLTEMP 

0066  537 

2 

636 

= , 

ENDSCALE 

04 ,2756 

325 

5 

325 

326 

3 

ERASC0N6 

20,2003 

377 

3 

391 

393 

FALNE1 

17 ,3l40 

490 

- 

" - 

END5LF51 

20,3756 

401 

r 

643 

a;  a 

ERASLOOp 

20,3167 

392 

4 

391 

393 

FALNE 

17,3124 

490 

3 

475  483 

ENDSLF52 

~“DT ,3145 

403 

1 

642 

= a 

ERCNT 

7 

300 

363 

= 

FALTOF 

5247 

356 

- 

-»■  — 

ENDSPOCT 

04,3274 

335 

- 

- 

- 

u 

ERCOM 

04,2415 

300 

“1 

300 

falton 

5243 

356 

3 

259  335 

END5UB5F 

4363 

125 

1 

126 

s a 

tRCOMP 

E5 ,1771 

24 

7 

23 

522 

= 

F3ANK 

0004 

7 

37 

29  360 

= 

ENDsuMS 

20 ,3427 

396 

1 

393 

a 

ERCOTT 

04 ,2426 

300 

1 

300 

fbankmsk 

6232 

41 

3 132  133 

= 

ENDT  4FF 

4715 

1 6 1 

1 

1 89 

= a 

ERCOUNT 

1365 

18 

1 

378 

= 

FBI A55UB 

07,2322 

217 

3 

216 

ENDT45 

12 ,3767 

636 

1 

642 

a.  ■ 

tRCTRANG 

16,2770 

504 

1 

503 

FBRANCH 

E4 , 1 570 

20 

- 

- 

= 

ENDTAT5K 

4567  140 

4 

T42 

156 

* 

“ERECTIME 

E5,1746 

24 

5“ 

“514 

526 

= 

FCNTR 

£4,1404 

21 

3 434 

= 

ENDTESTI 

17,2243 

478 

18 

475 

490 

« 

ERFINAL 

14,2047 

445 

3 

445 

461 

FCS2 

06,2004 

431 

1 

431 

END TEST 

14,2745 

459 

2~b 

444 

525 

9 

ERLIMCHK 

23,2037 

542 

2 

542 

FCS3 

06,2002 

43"1 

1 

431 

ENDTNON2 

12730  3 4 

169 

1 169 

- t 

ERMTNU5T 

0472 4trr 

300 

- 

- 

FCSCNTR 

t4 , 1400 

2T 

- 

= 

— EMDTNON 

12*3014 

169 

1 

169 

a 

EROPTN 

E5  * 1512 

22 

6 

444 

510 

FC5STAR  1 

06,2000 

431 

1 

268 

ENDTpuS-T 

6556 

5 1 

2 

5 1 

106 

» 

ERpLUS 

04,2412 

300 

1 

300 

FCSTEST1 

U6  9 2 024 

431 

1 

431 

ENDTSCC 

7J07Z172 

83 

1 

~33~ 

a 

20,2311 

382 

r 

382 

FGS 1 ES i 

06,2026 

43T 

- 

* 

ENDTST03 

1 6 , 2 766 

504 

11 

502 

512 

1 

ERRBZF2 

20,2312 

382 

1 

382 

FILDELV 

E5 , 1644 

24 

7 

521 

s 

ENDVBFA  \| 

05,2175 

3O6 

a 

ERRBZf 3 

20,2313 

382 

1 

382 

FILDUMMY 

26,2555 

6I4 

2 

562  618 

ENDVLOAD 

6515 

510 

2 

52 

a 

ERRBZF4 

20,23X4 

38  2~ 

1 

382 

TTLFIR5 1 

26,2315 

610 

1 

604 

ENDVPUSH: 

6344 

51 

* 

• 

0 

ERRBZMF2 

20,2176 

380 

l 

380 

FILSTAR  i" 

26,2032 

604 

1 

604 

cNDVXV 

6754 

57 

1 

72 

9 

ERRBZMF 

20,2175 

380 

1 

380 

FlLTAXIS 

26,2257 

609 

- 

XNDWAXTF 

4314 

147 

1 143 

a s 

ERRMA5K 

17,2313 

4T9- 

2 479 

FILTER" 

26,2015  6O4 

1 

611 

end^aits 

0 1 , 2 7 J 5 

146 

1 

367 

a 1 

ERROR 

04,2343 

299 

1 

294 

FILTINIT 

26,2000 

604 

1 

574 

ENDWATCH 

1 1 ,26^5 

485 

2 

484 

a 

tRRGRS 

20,2020 

378 

47 

378 

391 

FILT/PAX 

23,2073 

543 

- 

- - 

ETYGONT7T 

05,2250 

436 

1 

43E 

* 

ERTHRVSE 

14,2405" 

453- 

y 

444 

526 

* FTNALDV  “ 

00,2547 

“ 95 

3 

88“  94 

tiMGKtoc.  1 

06,2232 

435 

1 

43  ? 

a 

ERUNI I S 

17 ,3667 

498 

1 

492 

r i NALT 

0355 

15 

4 

279  376 

ENqRST 

06  9 226 7 

437 

1 

437 

1 

ERVtCTOR 

E5 , 1 5 1 3 

22 

2 

453 

findkEy 

13,3214 

222 

1 

222 

engse  t 

06 ,2261 

43  T 

1 

437 

a 

- ESCAPE 2 

0123  11 

~ 2 

113 

114 

a a 

FINCnMAVb  14*2135 

447 

3 

444  470 

cinGoTAki 

0 6 9 2 2 <l  0 

436 

1 

432 

a 

ESCAPE 

0122 

11 

4 

113 

114 

= 9 

F 1NDVAC2 

01 ,222U 

128 

2 

126  127 
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a s 


FINDVAC  4374  126 

13 

152 

527 

* 

FREEDSP 

5401 

361 

12  127 

482 

a 

GEOIMUTT 

17,2005 

475 

1 

534 

FFNEALGN  16,3122  508 

1 

512 

s 

FREERET 

0130 

11 

2 361 

= 

0 

GEOMTRX 

E5 , 1747 

24 

9 

497 

523 

= 

FI  NEK  2 11,2223  263 

1 265 

it 

FREEWAI T 04,3520 

362 

1 361 

m 

GEORGES 

17,3643  498 

1 

A76 

FINETIME  5470-473 

6 

281 

506 

k 

rbTRADTM 

15*2253 

375 

1 270 

B 

GtuRGEC 

17,3635 

498 

1 

476 

FINEZER0  -16,3215  510 

2 

502 

it 

FSTRSAMP 

11*2403 

269 

1 267 

a> 

georged 

17,3627 

498 

FI 

476 

""FTNTSH  17,2234  478 

1 

497 

B 

FTEST 

24,3564  585 

1 586 

a 

GEORGES 

21,3373 

534 

2 

518 

523 

- FIRSTADR  26,2013  604 

1 

604 

a 

FULLDSP1 

05,3456 

363 

1 363 

li 

georgek 

21,3375 

534 

3 

520 

FIRSTIME  12*2653  166 

m' 

M 

fULLDSP 

05,3455 

363 

1 363 

■ 

GEORGES 

17,3510 

495 

• 

FIVE--  7664  76 

14 

64 

583 

Si 

FuNCT2 

26,3165 

622 

1 622 

a 

geosaveo 

E5 , 1716 

24 

2 515 

= 

FIXCLPA5  04,2262  298 

- 

- 

P 

FUNCT3 

26,3173 

622 

- 

« 

GE0STRT4 

21,2655 

524 

1 

527 

FIXDELAY  4554  139 

10 

193 

430 

M 

FUNCTION 

E6 ,1530 

538 

21  621 

624 

a 

GETDET 

13,3063 

219 

I 

219 

- FI’XEDADR  6062  37 

"• 

“ 

B 

FV 

£4*1502 

20 

* " 

= 

9 

GtT INREC 

04*2205 

297 

5 

295  301 

FIXLI5T  15,2221  374 

1 

372 

H 

FXADRS 

20,3344 

394 

2 395 

a 

getmks 

13,3022 

219 

4 

218 

219 

FIXLIST3  15,2230  374 

1 

372 

M 

FXFX 

20,3330 

394 

1 395 

a 

GIMANGSi 

14,2242 

448 

2 

447 

448 

FIX’LOC  0104  10 

36 

37 

49O 

& 

FZFi 

16,3300 

512 

1 512 

0 

GTMBAL 

26,2575 

615 

I 

60  9 

FIXL5TCA  15,2243  374 

1 

373 

fi 

PZF2 

16,3303 

512 

1 513 

& 

GIML0CK1 

15,2671 

412 

1 

411 

FIXLSTCL  15,2247  374 

1 

373 

a 

FZF2CADR 

16,3356 

513 

2 512 

C. 

GlvENT 

E4, 1560 

20 

- 

— 

- 

= 

" FIXRAMGE  04,2614  316 

r 

315 

9 

FZFD5P 

16,3317  512 

1 512 

■ 

GLAMPTST 

12,3200 

172 

1 

172 

FIXROOT  00,3401  109 

2 

108 

efiB!Rl<)9B|iUaBIHrilBBB0Bl*iligftgBinwSBRailfi«00llfi 

a 

glinver 1 

12,3171 

172 

I 

172 

FLA5H0FF  5300  357 

5 

264 

510 

n 

Go  I AbX 

t3  * 1440 

18 

1 349 

= 

0 

GLOCKCHK 

12.3150 

172 

2 

172 

FLASHON  5274  357 

"17 

219 

512 

M 

GCOMPl 

07*2242 

215 

1 215 

0 

glockmoat 

12,3143 

172 

1 

171 

FlIyAxIS  26,2112  606 

1 

606 

B 

GCOMP 

£3,1451 

18 

28  19 

217 

M 

GLOCKOK 

12,3752 

177 

5 

172 

177 

= 

FLTZAXI5  26,2104  606 

1 

605 

fi 

GCOMPSUB 

07,2127 

213 

6 212 

0 

gmEkge 

13,2507 

202 

1 

204 

fLVELVN"  11,312  0 279 

1 

278 

fi 

GCOFTPSW 

E3  * 1457 

19 

5~2 1 2 

216 

fi 

gmlokchk 

14*2737  459 

2 

444 

46O 

F^lO/ll  25,3455  637 

1 

637 

h 

GCOMpZER 

07,2345 

217 

1 514 

0 

gmlockck 

17,3123 

469 

1 

489 

FNi  13/15  25,3467  637 

1 

637 

n 

GDESELCT 

13 *<d63U 

204 

1 200 

m 

GMODE 

E4 , 1 572 

20 

- 

- 

- 

= 

FM14/16  25  V3  4 74“  7)37“ 

" 1 

637 

S 

00,2512 

~93 

"3  92 

96 

a 

GOA'GN 

1Z,2673  166 

1 

166 

FM1/3  25,3506  637 

1 

637 

f 

GENPL 

E5 , 1570 

23 

46  23 

492 

m 

GOBB 

4054 

28 

1 

27 

F(v’|2/4  25,3620  638 

1 

637 

* 

GENpLADl 

14,36  fO 

472 

* 

« 

GODSpALM 

05 ,2324 

309 

10 

303 

321 

FM57B  25,3513  637~ 

f 

637- 

i 

GENPLAD 

17,3671 

498 

"I  "479 

a 

GOIDLAD'R 

23,3357  560 

1 

556 

FN6/7  25,3501  637 

1 

637 

c 

genpladr 

14,3671 

472 

- 

u 

goidle 

23,3124 

556 

i 

543 

r NT9 / 1 2 25f3462  637 

1 

&37 

GENSCL 

00,2325 

87 

2 87 

6 

GOLOADLV 

1 1 ,2262 

264 

4 

258 

FMAoTEST  7673773  623 

1 

6^2 

» 

genscr 

“00,22  57" 

86 

4T  “3? 

105 

a 

GOOUEND~ 

13,2667 

206 

4 

205 

2SS 

FN2ER0FN  16*3260  512 

4 

501 

502 

B 

GENSHFT2 

00,2204 

84 

1 84 

£ 

GOOORAD 

10,2771 

249 

1 

250 

FuRVliL  0360  15 

5 

1 66 

504 

8 

GENSHIFT 

00,2174 

84 

1 73 

fi 

GOPROG 

12,2072 

153 

2 

27 

28 

FOUNDR  74,1430  17 

“ = 

* 

27*2664 

"52"4 

1 524 

i 

Guo 

05,2712 

321 

1 

322" 

FOUl^O\/  19 

cr. 

8 

geobndi 

21*3046 

529 

* * 

■ 

goqtrimg 

26  , id 7 7 1 

619 

1 

624 

FOUR  7655  76 

23 

f 0 

582  = 

V 

GEOBND 

21  ,3045 

529 

3 529 

0 

GOSHOSUM 

11,2377 

268 

1 

258 

FOURTEEN  00,3077  103 

1 

101 

1 

E5 ,1742 

24 

8 475 

- 

u 

“GOTO 

6651 

54 

12 

55" 

1 1 9 

rPruNCAL  2 4 * 3 o U 6 586 

2 

585 

586 

B 

GE0C0NS1 

21*3377 

534 

2 521 

6 

G0T0GT5 

24*2735 

574 

1 

578 

rpQK  t6tl451  536 

8 

585 

B 

GE0C0Nb2 

21 ,3401 

534 

1 521 

0 

GOyFILTR 

2 6 , 2 10  7 

606 

1 

609 

PPQRMIN  £6,1467  536 

7 

365  586 

fi 

GE0C0NS3 

21  ,3403“ 

53 4“ 

“ 2 “521 

e 

GPGlOCK 

12*3610  162 

1 

182" 

FKEDSPUJ  04,35^5  36^ 

1 

666 

* 

GE0C0NS4 

2 1 ,3405 

534 

1 522 

E 

gpmatrix 

12,3545 

181 

3 

164 

188 
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symbol  fl 

definition 

RfFeRpNCeS  F a 

SYMBOL  n 

DeTTHiItI  ON 

References 

F 

B 

SYMBOL  H 

Definition 

References 

“FT- 

a 

■ 

~GRA6DSP 

5304  369 

2 3g4 

486  ■ 

GYTOBETq 

E5,l6l6 

23 

2 474  500 

S 

fl 

IMUCOARS 

13,2055  192 

7 

261 

511 

grablgcki 

0324  13 

11  157 

362  1 

at*fl»n*ii>0ei00flPfl)ciOMiiif9!flntaft-iNflfliiivBftnffBBHs 

fi 

IMUCOARV 

11,2153  261 

2 

261 

264 

GRABUSYi 

04,3454  359 

1 294 

fl 

FT 

E4.1564 

20 

- 

= 

fl 

IMUFAIL 

12,3344  176 

1 

177 

= 

GRABUSY 

5315  359 

1 359 

G 

HALF 

7642 

76 

29  76  496 

s 

fl 

IMUflNE 

13*2227  196 

5 

263 

508 

GRABU5Y3 

04,2000  29 A 

1 359 

9 

HALFDp 

15,3031 

416 

3 406  424 

ft 

IMuFINED 

13,2245  196 

2 

196 

200 

GRSBWA IT 

5317  359 

r5~26l 

511  • 

H7\LFY 

1105 

17 

3 17  124 

fl 

fmuftnek 

11,2204  263 

1 

258 

GRAVITY 

1036  17 

- 

- * 

nBRANCH 

E4 , 1 57 1 

20 

- 

= 

& 

imufinev 

11,2233  263 

1 

263 

GStLEC  T 

13*2442  201 

3 200 

9 

1-1DAP 

t6 ,1454 

536 

6 588  590 

ft 

IMUGOOD 

13*2640  205 

- 

* 

gshift 

7547  73 

1 42 

fl 

HT10 

07,2477 

287 

1 286 

ft 

imumon 

12,2720  T68 

2 

164 

GT52CADR 

26,2377  611 

2 6O9 

610  a 

HI  5 

5226 

356 

3 163  313 

B 

TMU0P2 

12,3304  174 

1 

174 

GTS 

26,2564  615 

1 611 

a 

HIGH9 

6231 

41 

2 38  40 

a 

IMUOP 

12,3273  174 

1 

177 

GTSCPSS 

21*3413  534 

1 267 

a 

HI  GUESS 

4325 

124 

1 T24 

» 

TMU PULSE 

13,2317  198 

5 

215 

523 

GTSFIN 

1 6 ,2045  348 

1 323 

a 

hIscalar 

OO03 

26 

1 473 

= 

« 

IMuSE 

0007  9 

- 

- 

• 

= 

GTSFINLC 

05,3042  323 

1 324 

s 

HISPMAX 

11,2470 

270 

1 269 

s 

IMUSEFLG 

7650  208 

7 

169 

459 

= 

GTSFOUT 

16,2037  348 

1 3T4 

fl*Siil.8|Ri»!Bia«fS«*0*fl&aigtig««|»8HB3«||BSS*BNB*> 

(S 

IR1U5TALL 

13,2716  207 

30 

215  523 

GTSFOUTL 

05,2511  314 

1 314 

c 

I BNKCALL 

4156 

32 

3 191  552 

fl 

IMUTE5T 

1 f , 20UU  4 / b 

1 

267 

GTSGl biO 

21,3040  527 

1 527 

fl 

icdufail 

12 ,3344 

176 

1 177 

= 

& 

I MUZER02 

13,2035  191 

1 

190 

GTSGTS1 

21,2776  527 

1 527 

« 

I CORK 2 

11,21 4T 

26l 

2 262 

ffi 

IMUZER03 

13*2045  191 

- 

— 

- 

0 1 SG 1 52 

21,3003  527 

1 527 

a 

ICSDEL 

11,2154 

262 

1 261 

a 

IMUZERO 

13,2000  190 

10 

260 

510 

GTSGT53 

21*3010  527 

1 527 

1 DAD  IT  EM 

0134 

11 

4 307  347 

n 

IMUZEROK 

11*2110  260 

1 

259 

GT  SgT S4 

21,3015  527 

1 527 

< 

IDAD2TSj*T 

0135 

12 

2 347 

a 

I NCL00p2 

11,2170  262 

1 

262~ 

GT5GTS3 

21,3022  527 

1 527 

fl 

I 0AD3TEM 

0136 

12 

— 

B 

INCLOOP 

ll»21b3  2 6 2 

1 

262 

GTSG  T b6 

21,3027  527 

1 527 

4 

I DADDTAB 

16,2406 

353 

2 347 

« 

INCORPEX 

b4!  1 1 bU 3 20 

*•**■ 

- 

- 

= 

GT5GT57 

21  ,3034  527 

T 527 

IDSDDTEFi 

”0126 

11 

- - - 

s 

fli 

TNCR~ 

01 ,2040~TT7 

TL 

4T 

GT50PNDZ 

t5  * 1743  24 

— = * 

IDLEADR 

12*2440 

159 

1 153 

ft 

INCRCDUb 

15,3454  428 

* 

GTSQAxIS 

26,2773  619 

1 619 

fl 

IDLEADRq 

24,2203 

565 

1 565 

a 

INCRCHk 

20,2407  383 

— 

— 

GTSRAXi 5 2 6,2 7 0 6 619 

1 617 

fl 

2 356  560' 

a 

INDERASE 

6133  38 

1 

38 

G i b 1 tb 1 

45, £666  617 

1 615 

i 

i ERAST5T 

6060 

37 

1 37 

s 

INDlX2 

6111  3e 

1 

38 

GTSWTLST 

E5*1745  24 

3 514 

525  = * 

I FA  I LI NH 

12*2404 

158 

1 154 

§ 

INDEX 

6073  38 

1 

36 

“SuD'ENTRy  174X470  4B~2 TrABT « — IFAILJRP — 12 ',3406 ”177 T T6B a — INDExLOC 0114  n 12  38  T17  = 

GUESS1  17,2216  478 i IFAILOK  13,2247  I96  " 2 151  196  n INDUUMP 6235  42  5 37  39 

GUESS  17,2053  476  » IGC  E5,1502  22 2 404  412 «s  TNDWORK  6131  38  1 — 38 


' GWAKE2 

13*2330  198 

1 199  ■ "IM3OTNTF 

12*2433 

159 

1 

151 

a 

INHNTCrtK, 

20*2752  3 SB 

1 

38B 

gw^ke 

13,2371  I99 

1 199  • 

1M30I1NIK 

12 ,2434 

159 

1 

154 

fl 

INITFILT 

24,2742  574 

1 

574 

gyroagr  c 

13,2343  I98 

1 1 98  » 

IM33INIT 

12,2435 

159 

1 

158 

a 

INITREAD 

10,2653  247 

6 

246 

OYROBUSY 

IT, 2 364  1 99 

1 1 98  ■ 

IM0DES30 

151  557 

B 

IN-OUTl  ' 

20,2767  389 

r 

379 

GYROCMD 

0047  7 

5 174  203  - a 

IM0DE533' 

0370 

15 

19 

158  485 

W 

IN-0UT2 

20,3001  389 

- 

* 

GYROCTR 

0047  7 

3 484  500  = * 

IMUATTCK 

1 1 ,2566 

273 

1 

258 

fl 

IN-0UT3 

20,3015  389 

- 

* 

* 

GYROD 

£5*1521  22 

I'  498  b 

"IMUBACK 

1 7*2024  473 

1 

267 

R 

TNL.INK 

0045  7 

2 

157 

286  = 

GyRODpL 

1 1 ,3672  498 

•m  ■ cm  mm  fl 

imubad 

18,2641 

205 

4 

169  205 

ft 

INRtL 

u 123  1 1 

21 

295 

302  = 

GYROEX I T 

13,2546  203 

1 2 0 3 f 

IMUCADR 

0371 

1 5 

2 

158  205  = 

M 

INRtLTAB 

04,2211  297 

1 

297 

GYROFRAC 

13,2631  204 

2 202  204  # 

IMUCAGE 

12,3254 

174 

1177 

ft 

INTBI5+ 

0100  10" 

5 

10 

37 

gyrsftst 

1 7 , 2445 "482 

1 267  * 

IMUCOARK 

11*2132 

261 

1 

259 

m 

I NTS  I T 1 5 

0101  10 

6 

10 

38 
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SYMBOL  H.  DePPOTION  ReFeRENCe5”F”«  "SYMBOL  H DEFINITION  REFERENCES  F 


INTLzE 

12 ,2667 

166 

1 T66 

s 

.5ACCMNQ 

£6,1651  540 

5 560  633 

= 

ft 

-.04266 

26,2765  619 

T 

619 

- TNTMCT35 

05,2100" 

304 

2 

8 04 

fc 

• 5ACCMNR 

E6*1652  540 

4 560  634 

= 

S 

-.04436 

26,3056  620 

2 

619 

intpret 

51300“ 

34" 

56 

34r  526 

■ 

• 5ACCMNU 

E6,1653  540 

4 560  634 

= 

a 

-.08882” 

26,3057  620 

2 

620 

— INTRSM" 

6011 

34 

r 

132 

B 

• 5ACCMNV 

E6,l654  5 4O 

A 560  634 

= 

a 

-.88975 

24*2714  573 

2 

567 

INTvAL 

-21,3350 

533 

3 

514  517 

■ 

• 64 

26,2367  61 1 

1 605 

B 

-lokonfg 

11,3027  277 

1 

277 

INTVEC* 

-E  5,1 646" 

24 

3 521  522  = 

ft 

.66667 

26,3161  622 

2 622 

» 

-Ml N IMP 

23,2253  546 

i 

546 

TATTY  " 

E5 ,1624 

24 

10 

24  519  = 

a 

#68387 

23*337  / 56U 

1 558 

1 

-MKREJ 

12,2432  159 

1 

153 

TNTZ  * 

E5 , 163O 

24 

2 

519  = 

8 

•6DEG/SC 

25.2214  591 

1 590 

a 

-NMBR 

20,3062  390 

1 

390 

IRlGl 

07 ,2124 

213 

I 

213 

1 

• 707 

24,3523  584 

3 584  592 

• 

-NmBRS 

20,3117  391 

1 391 

irigcom? 

07,2045 

212 

- 

- 

1 

. 707GT  5 

26,3230  623 

2 623 

£ 

-0CT10 

6142  39 

1 

39 

- IRIGX 

07,2047 

212 

- 

- 

8 

♦ 707P 

23,8866  560 

-- 

8 

-ON 

04,2313  298 

3 

298 

332 

TRTGY” 

U f * 2U63  212 

* 

8 

« 1 0 7WL 

25.3377  634 

3 631  640 

a 

-phased 

1071  17 

3 

148 

1ST 

IRIGZ 

07*2077 

212 

" 

" 

i 

.75 

25.3404  634 

1 633 

b 

-PHASE  1 

1073  17 

r 

151 

IS5UP 

12.3045 

170 

- - 

#VBHil(|ca«lHK9$£BSHBIfiaaU!Bn’<iBBI!ftBt9aiVftlRR!Ri£ 

ft 

-PHASE2 

1075  17 

1 

151 

ISSN OFF 

12,3557 

176 

- 

- 

3 

-OCHK 

20.2033  378 

23  381  400 

II 

-PHASES 

1077  17 

1 

151 

ISSWON 

12,3367 

176 

1 

176 

» 

-1CHK 

20,2041  378 

47  380  400 

IK 

-PHASE4 

1101  17 

1 

151 

ISWCALL 

4162 

32 

3 

149  587 

ft 

-1,5CSP 

24.2701  572 

1 571 

m 

-PHASE5 

1103  17 

1 

15  1 

I SwRETRT 

4I7T 

32 

- 

ft. 

-1/2+2 

00.2410  YO 

1 109 

ft 

-RATbD+1 

26,2722  617 

2 

617 

I TEMPI 

0065 

9 

97 

9 634 

M 

-1/8 

4360  125 

2 124  231 

8 

-KA 1 EDB 

E6,1506  587 

11 

547 

569 

ITEMP2 

C066 

9" 

40 

9 633 

ft 

-20MS 

25,2211  59l 

1 588 

N 

-RATLM+1 

24,3120  578 

2 

577 

ITETTP3 

0070 

9 

- 18 

9 563- 

fi 

-2JETLTY" 

£6 f 1 507  537 

7 548  569 

m 

-RRLIWIT 

10,2222  235 

2 

2 35 

I TEMP 4 

0071 

9 

11 

9 536 

ft 

-2MI N256 

26,3517  629 

1 628 

» 

-SIGN 

01,3104  402 

1 

402 

I TEMP 5 

0072" 

9 

17 

10  610 

cd 

-2MINWL 

26,3516  629 

2 628  629 

ft 

-TAN22.5 

24.3339  581 

2 

578 

579 

ITEMP6- 

6073  10 

! 

538  626 

a 

-45DEGSR 

*10,2137  23*3 

1 233 

w 

-TGBND+1  26,2721  617 

2 

617 

I TURNON 
" I XX 
IXXTASK 
I XX  TIME 


“ITT 

IYYTASK 

iyytiml 


1 zz 


12,3224  173 
T6 , r4  6 15  3 6 
25,3525  639 

25.3560  039 
£6,1462^536 
25,3536  639 

25. 3561  639 
E 6 ,1463**53*6- 


T 177 
3 63964O* 
3 188  639 
1 639 
T55"9"640- 
3 138-639 
r 639 


"559_6W 


-70DEGS 

-90mS 
-A2JTLIM 
-ARATEDB " 
-BIT10 
-BIT12 
■CCS PR 


12 

24 

23 

23 

12 


01 


3203  172 
21 4l  2 33 
2717  573 
3077  555 
T100  555 
3435  177 
4360  231 
2516  135“ 


1 172 

2 233 

I“54S 
“I*  548* 
1 174 
1 231 
1 136 


■ 

= u 


■ 

* -TJMINQR 

* -TJMINT6 
■ -UP 

"1  -XBND+1 
“■  -XPLLADR 
-XTRANS 
-X , A 
-X,'B  ' 

iiKiDtama 


25,2207  591 
23.3102  555 
00,2542  94 

24,3121  578 
25,3063  603 
24.2543  570 

24.2730  573 

24.2731  573  " 


2*545  549“ 
1 — 93 
2 578 


TW 
7 570 
1 570 
I 570 


■ ••EiniiaiBanitiiiiigacii 


IZZTIME 

25.3562  639 

T 6 39 

■ - -COMM AX- 

13*2750 

208 

2 

193  195 

■ 

JACCESTP 

25,3570 

639 

— r 

639 

■ fc  BH  ft  ■ » » B K £ P w ft  fc.  a s w 6 fc  ft  & ■ BTTft  ft  ft  ETK 

""•«  -D2  JTLIM" 

23,3076 

555 

1 

543 

ft 

25**3604 

640  - 

1 

*639 

# UHK  / o 2 

85,8AU1  68A 

b -DIF 

1 1 , 3 1 1 6 

279 

2 

279 

ft 

JACCESTK 

25,3621 

640 

1 

639 

• 05AT , 5 

25,3375  634 

2 630  633 

b -DRATEDB 

23,3075 

555 

1 

548 

ft 

JETLWADK 

23,3114 

5 56 

1 

552 

• 075-pEC 

2-3. 3410  561 

1 556 

s -ELR 

12*2431 

159 

1 

15  3 

B 

JtTUFF 

06,2077  433 

1 

-434 

. 1 66  • . . 

15*3047  416 

1 411 

s -ENDERAS 

6234 

41 

1 

37 

ft 

jE  FOFFTjvi 

t4  * 1 46U 

21 

1 

434  = 

• 1 A T #5 

25,3376  634 

1 630 

s -ENDVAC 

6 1 7 1 

40 

2 

37  47 

ft 

JETON 

U6  f 2 1 22 

434 

1 

433 

, 5ACCMI N 

2 3 ,3406  5-67. 

1 560 

* -GYROMI N 

1 3 , 252 7 

202 

2 

202  204 

ft 

UETONTW 

~E  4^1-430 

- 2T 

1 

43*3  - 

• 5ACCMNE 

E6*1650  5^0 

17  5<+0  633 

b -.02R/S2 

25*3400 

634 

2 

632 

K 

JETRATE 

E6 , 1 6 1 5 

539 

10 

539  558 
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jETRATEp 

E6  , I6T6T539 

9 

558 

57  r 

Z 

1 

KEYTEMP2~ 

IO7O 

17 

2 

286 

287 

5 

« 

LDSKYRS 

12,2561 

164 

"T 

1 63 

JET RATER 

E6 , 161 7 539 

9 

558 

571 

= : 

fi 

KILLMON 

05,3153 

329 

2 

329 

e 

LEFT5 

5207 

355 

6 

313 

396 

JETSOFF 

23,2612  551  ' 

12 

546 

552 

i 

"KTLMUNOfT 

5131 

342 

2 

337 

34U 

0 

LEFT7C0M  04,3057 

326 

T 

326 

JETSTART 

06,2065  433 

1 

431 

A 

KKKK 

14,36/2 

472 

1 

465 

m 

LEFT 

00,2321 

87 

1 

84 

JET5TEP 

E4 , 1407  21 

26 

431 

529 

= 

a 

kLMNFLTR 

26,2126 

607 

- 

- 

* 

LEFT- 

00,2316 

87 

1 

84 

“ JETT0R<1 

25, 366  IT  641 

2 

640 

a 

KUDU 

1 7 1 3 3 0 1 

492 

1 

492 

A 

LEGALIST 

04,2470 

301 

2 

301 

JETTUR<4 

E6 , 1 465  536 

3 

558  64O 

i 

KONENQW 

25,3301 

633 

1 

63O 

A 

LEMLAB1 

14*3014 

46O 

1 

460 

JETTORK 

25,3660  641 

1 

640 

1 

KQ2 

E6 , 1 536 

538 

1 

559 

= 

ft 

LEmLAB 

14,2760 

460 

2 

444 

511 

JF3 

06,2135  434 

1 

434 

« 

KU 

E6, 1535 

538 

5 

538 

619 

ft 

lemonm 

0056 

8 

- 

— 

- = 

JFAIL1 

06,2143  434 

1 

434 

H 

KR2 

E6 , 1 540 

538 

1 

560 

= 

► 

LENGTHOT 

E5 , 1 527 

22 

13 

476 

526 

JFA I L 

06,2161  434 

1 

434 

a 

KR 

E6 , 1 537 

538 

1 

560 

5 

* 

LESCHK 

12,2410 

158 

1 

158 

JFAILCK 

OB, 2 130  434 

- 

ftflSBSB'LlflSRBaPBtififtfiiSflKVBftflBHBaBftftBBflIMB 

«i 

lgcomp 

07,2233 

215 

3 

211 

217 

Jr  BUF 

E4 , 14O3  21 

2 434 

= 

fi 

L 

0001 

7 

228 

29 

636 

S 

* 

lgwake 

13,2401 

199 

2 

199 

200 

JOBSLEEP 

~ 4416  127 

13 

199 

512 

1 

lABNBAZ 

If  » 3 / i U 

499 

- 

- 

ft 

lgyro 

0357 

15 

14 

158 

522 

JQBSLP 1 

01,2403  132 

1 

IIT 

a 

LABNBVER 

17,3722 

499 

- 

- 

a 

LGYROBIN 

11*2301 

265 

1 

263 

JQBSLp2 

01,2412  132 

1 

134 

a 

LAG5LIST 

11,2565 

272 

T 

272 

B 

limits 

7640 

76 

5 

123 

610  s 

JOBWAKEZ 

0 i , 2 4 14  133 

1 

127 

a 

lAMPTeST 

12,3417 

177 

2 

172 

173 

ft 

litesout 

01,3141 

403 

1 

402 

JUB¥AKE3 

Oi ,2426  133 

2 

133 

a 

LANDMARK  E3,1474 

19 

2 

349 

B 

LLMPR5 

12,2562 

164 

1 

162 

JOBWAKE4 

01,2420  I33 

1 

133 

a 

LARGE2 

00,3036 

102 

2 

101 

« 

LMPCMD 

O366 

15 

5 

157 

376 

JObwAkE 

4422  127 

11 

200 

512 

« 

LARgE3 

00,3020 

102 

1 

101 

ft 

LMpDUT 

12,2454 

162 

- 

- 

- 

TJCTET 

73,741 7 "548 

2 547 

e 

LARGE 

00,3011 

101 

r 

101 

fi 

LMP RESET 

4726  160 

1 

1 64 

J5TEPADR 

06,2054  432 

1 

431 

« 

LASINEX 

00,3557 

113 

1 

113 

ft 

LNORMT  4 

4737 

160 

1 

160 

JSWTTCH 

0001  9 

B 

LAST  30 

EY , 1603 

25 

3 

274 

fi 

LQADFLAG 

17,2640 

484 

484 

jTLS'f 

23 ,2716  “553 

2 

553 

573 

a 

LAST0IAS 

07,2341 

217 

— 

- 

- 

B 

LUADQ 1 5M 

17,3612  497 

3 476 

526 

JTLSTADR 

24,2732  5?3 

1 

572 

a 

LASTFAIL 

E6 , 1 5 1 1 

537 

2 

636 

H 

lOADTC 

17,2317 

479 

I 

479 

JTOP 

06 ,2110  4i3 

1 

433 

B 

LASTRER 

E6 , 1473 

536 

2 

542 

557 

ft 

LOAD  IT 

1 / *8  / 36 

485 

- 

■ 

jTSATCHs 
JTSB4T6 
■JT5FrRTT 
JTS0NN07 
JUMPLOAO 
JU5T0UT- 
: jmmrir 
K'ZCNTRfttT 
KT2THETA 


1502  537 
3054  555 
2765  554 
1501  537 
2072  476 
2371  548 


~EF 
25 
TT 
E6 
IT 
2T 

risnifisi;  o is  a mmvaaiuna 


16  550  596 
1 555 — 

1 553 — 

5 571  595 
1 476 
T~547 


0066  538 


2 62O  621  = 


LASTRER 

LAST5EG 

LASTYCMD 

LATAZCHK 

LATITUDE 

LATVEL 

LBUF2” 


E6 * 1475  536 
13,2537  203 
0263  ry 
0362  15 

14,2530  455 


E5 ,1510 
0361 
00,2434 


1 557 
1 203 
51 66  430 
7 166  43O 
3 444  482 


22 

15 

70 


6 453  476 
3 166  504 
2 112  114 


KALCLOOR 

KCENTRAL 

KEyCOm 

KEYRPTB3 

KEYRUPTl 

KEYTEMPl 


23,2127  544 
0065  538 
E6,167l  541 
07,2371  235 

-4057  2B 

07^2362^2785 
0077  TO 


05 

21 


LOADLV 
LOADM 

loadstat  -■ 

L0A05TDT  2l 
LOADTImE  15 

LOC 

LOCCTR 


T o2T 

624  : 

1 

LDANZlG  ~~ 

00,3641 

114 

1 

113 

B 

lock 

17,3115 

489 

1 

489 

1 

644 

i 

LDATALST 

E7 ,1400 

25 

4 

371  372 

ft 

lucthet  a 

15,3467 

428 

T 

428 

6 

619 

621  = 

fl 

LDNPHAS1 

12 ,2405 

158 

1 

158 

III 

lodmixnn 

16,2016 

347 

1 

347 

6 187 

033 

LDNPHASZ 

16*2212  374 

1 

371 

a 

LODiMLV 

16 , ZO34  347 

34T 

1 

886 

ft 

LDNpHAS3 

16,8814 

374 

1 

372 

» 

LODNNLOC 

06 ,8U76 

3U4 

8 

304 

320 

2 

27 

28 

ft 

LDNPhAS4 

16,2215 

374 

1 

372 

fi 

LODNNTAB 

lbf 2000 

347 

1 

304 

2 

21 

2 8 

« 

ldnphasx 

15,2213 

374 

1 

371 

» 

LODSAMPT 

5237 

357 

3 

285 

329 

7 

28 

287  = 

B 

LDNTMGO 

12*2406 

16  8 

1 

158 

B 

LOKONFLG 

f 663 

236 

3 

245 

277  = 

2663  321 
2611  523 
0501  13 
3070  529 
3342  425 
3107  530 


0150 

0071 


12 

9 


7 303  323 
1 523 
5 321  343- 
Z 516  529 
3 453  461 
3 496  ~530 
45  31  344 

25  128  344 
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SYMBOL  H 

definition 
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F 

■ 

1 

LOKURSW 

00L2  9 

- 

s « 

LRUPT 

0011  7 

- 

- 

= 

« 

MAxDV 

00,2564 

96 

1 

92 

“LONGER 

11,3150  2 a 1 

2 2ai 

8 

H.RVELX 

10,2644  246 

1 

257 

Bi 

MAXUVSW 

0124 

11 

6 

88 

102 

= 

' uONGGYRO 

13*2552  2C3 

1 20T 

8 

LIVELY 

1 ON  2642  245 

1 

2 57 

a 

MAXRATE2 

25,2213 

591 

1 

590 

LOOkCDU? 

17,2616  484 

3 463  484 

a 

LRyLLZ 

10,2640  246 

1 

257 

m 

mAxrate 

25,2212 

591 

2 

589 

590 

LOOKLOO?  06,2527  443 

1 443 

• 

LST1 

E3 , 1400  18 

40 

28  388 

a 

MAXTEST 

00,2507 

92 

4 

91 

104 

LOOKTTOP  ““06,2523  443 

2 432  443 

1 

LSTB 

E3,14T0  18 

36 

7142  157 

H 

MAX T JET 

25,2030 

588 

1 

590 

LOOP 

15, 2U/%.  3^1 

1 371 

G 

LST2CADR 

05*2132  305 

1 

305 

K 

MAXTRIES 

10,2350 

238 

1 

238 

LOOpCTR 

E6,1524  537 

3 594  595 

a 

L5T2C0N 

U5  * 2 1 3 1 305 

1 

305 

8 

MAyNOjET 

25,2175 

591 

1 

590 

LOOPTEST 

26,26  13  617 

1 617 

a 

LST2FAN 

1TT2030  258 

1 

"305 

a 

MCOMPT 

23,3067 

555 

3" 

549 

S5T 

LOOPTOP 

24,3073  577 

1 578 

1 

L5TEMPTY 

04,3534  362 

I 

362 

a 

MCOMPTQR 

24,2711 

572 

I 

572 

LDOSE“ 

21,2253  518 

1 318 

a 

L5TFULL 

U4,8556  362 

3 

359  360 

SB 

MD1 

5241 

356 

1 

343 

LUPDELOP 

17,3262  492 

1 492 

i 

L5TFTR 

0T30  11 

4 

359 

= 

9 

““MEASMOD'E 

E4  * 1600 

20 

1 

354 

= 

LQpTY 

15,3573  430 

1 430 

a 

LTHD+4 

11,2203  262 

1 

262 

a 

measq 

E4,1574 

20 

2 

348 

353 

= 

L051 

E3 , 1 600  23 

3 447  470 

s a 

LTHVACA 

12,2413  159 

4 

157 

a 

MESSAGE 

11,2740 

276 

1 

275 

“LUS2 

t3,16U6  23 

3 448  470 

s a 

LT  IMEOAT 

06,2277  437 

2 

437 

h 

ME TER ADD 

14,3350 

466 

T 

469 

luslala  n 

0004  2& 

3 473 

s.  a 

IV 

0044  8 

2 

101  102 

= 

s 

METEROUT 

12*2625 

165 

1 

166 

LOSVEC 

£5,1530  22 

2 477  478 

a 

lvbuf 

7677  77 

1 

64 

a 

MG  2 

13,2726 

207 

1 

207 

LDT5T  ALL 

13T27I2  207 

= 3 

LVELBT  AS 

10,3167^253 

1 

249 

a 

MGC 

E5 , 1504 

22 

_ 2 

404 

411 

L0W10 

6426  47 

1 8 29  377 

a 

LVSQUARE 

0042  8 

2 

101  105 

= 

a 

MID5 

5225 

356 

1 

321 

LOW  11 

5234  356 

9 Ib2  466 

8 

LVWTLIST 

4547  I39 

1 

142 

s 

MID6 

05,3402 

341 

2 

341 

343 

6163  77 

1 84 

S 9 

LXAT 

' 01.2010  116  “ 

T 

43 

h 

MlDExIT 

E4 ,1602 

20 

- 

- 

>»■ 

= 

LOW  3 

1 663  7 1 

1 81 

= a 

LXC 

01*2014  116 

1 

43 

6 

MIDFLAG 

0002 

9 

- 

- 

= 

L0W4 

7673  76 

1 120 

a 

L,PVT-CG 

E6,1526  538 

I 

559 

9 

MIDSIX 

5106 

330 

2 

330 

340 

LQW5 

5224  356 

13  I4B  333 

* sire,  a * a «>•  • «!-#*•»*»  tr*  « ■>  b 

S 

MTN  + " 

13*2473 

202 

1 

201 

LOW  6 

05,3401  341 

3 328  341 

i 

MU 

E6 , 1404  535 

5 

27  551 

fi 

MlNlMP 

11,3122 

279 

— I 

258 

L0W7 

6027  35 

6 35  204 

a 

M21 

E6 , 1405  535 

4 

182  626 

8 

MTNIMPDB 

E6 ,1647 

540 

6 

187 

634 

3- 

LOW7+2K 

62.SU  41 

2 40 

a 

““M22  ' 

t67r4crr  535““ 

7 

181  626 

fi 

~ MTFTA 

13,2606  204 

I 

201 

LOWS 

5235  356 

11  198  636 

B 

M31 

£6,1406  535 

4 

181  626 

fi 

MTNRA 

E6 , 1452 

536 

- 

- 

- 

LOW9 

7672  76 

8 129  223 

fi 

M32 

E 6 , 1 403  535 

6 

182  626 

= 

fi 

MINRASQ 

E6 ,1453 

536 

- 

- 

- 

LOW r UUR 

17 ,3674  4“9S 

1 479 

a 

“MAG LESS 

4775  227 

— 

1 

MI  NT  ADR 

24,2713  573“ 

1 565 

LUW I UUO  0 

13  | cOU 0 37  v 

1 371 

1 

“MAG5UB 

4763  227 

9 

228  250 

fi 

MINT JET  “ 

24,2243 

566 

~r 

573 

LUW  V tKD 

U 3 9 c U 0 U 5 U3 

1 304 

8 

MAINBRCH 

25,2116  589 

1 

588 

fi 

MINUS1 

7667 

76 

202 

z . 

LrrlMot? 

1 3 ♦22To_3.T4 

T 3T  3 

a 

““ MAJ+ 

13*2476  202 

1 

201 

fi 

MINU5U 

24*3232 

5 6U 

i 

579- 

l-UP  u 

11 * cOJo  ctl 

1 267 

* 

MAj- 

13,2611  204 

t 

201 

fi 

minusv 

24,3345 

581 

- 

- 

- 

J.  u * £ 6*3 6 £ 46 

1 257 

H 

“ MAKECADR 

4112  30 

4: 

207  453 

TT 

MISALIGN 

14,3123 

463 

1 

454 

LKU  Y L.L t 
D U C T /‘TUT 

1 1 1 C HP  0 c 7 u 

1 27O 

& 

~MAKtSuRS 

Tcnr32r4  254 — 

354 

» 

MI  SC JUMP 

6275“ 

43 

2 

4CT 

1 DnAQ5 

jUiU  24 ' 

1 248 

e 

MAKtXSMD 

14*2325  451 

~ r 

444 

fi 

MIXAD 

05,2235 

307 

1 

307 

1 cov 

markrupt 

13,3161  222 

2 

27  28 

i 

MlXBR 

0124 

11 

13 

304 

347 

= 

i.RPnsrAi 

i 1 ? c i l 6 c 6 v 

Ti  ,2474-  270 

1 

2 2t>‘9 

a 

TTARKSTAT 

0374-  15 

43 

158  448 

fi 

“MIX  COAT 

1 

347 

— 1 

MASK.CFiK 

20,2620  386 

- 

1 

MIXNNl 

05,2211 

307 

1 

307 

1 ppflT  t n — 

MASKREG 

E5*1670  23 

3T 

48O 

5 

■fi" 

MIXMN2 

05,2223 

307 

1 

307 

1 PTSThfY 

J-W  »5iOO  COO 

c cOc 

* 

mattnc 

0T24 — n — 

11  68 

H 

MlX170UN“ 

05,2176 

307“ 

1 

304 

1 * »lHHH  Ct>y 

1 ct9 

8 

MPTXDET 

14,2234  448 

- 

- - 

Ti 

MIX TEMP 

orn 

“11 

3 

301 

307 

= 
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mk alarm 

13,3055  219 

1 219 

11 

MP  + + 

20,2442 

384 

— 

-■ 

H 

NBDx 

E3 , 1440 

18 

4 

18 

216 

WKCHEK 

13,3044  219 

- 

fi 

MP+- 

20 ,2445 

364 

- 

-«•* 

B 

NBDY 

E3.1441 

18 

2 

212 

216 

mkdtx 

* 0077  226 

3 225  = 

a 

FIPAC 

0140 

12 

589 

48 

530 

a 

nbdz 

E3  * 1442 

18 

2 

212 

216 

MKJOb 

13,3333  225 

1 225 

s 

MPAC  + 

00,2403 

9O 

2 

88 

i 

nbpos 

E5 , 1 536 

22 

4 

482 

496 

“MKOUT 

13,3146  220 

1 220 

1 

HP  AC- 

00,2377 

88 

2 

88 

a 

NBPOSPL 

17,3344 

493 

3 

475 

483 

1KREJ 

T3 ,3361  225  “ 

1 222 

& 

MPACSHR 

00 ,20X4^ 

78 

2 

86  105 

Si 

NBSM2 

15,2522 

408 

- 

— 

- 

“MKRELEAS 

13*3014  218 

3 447  459 

a 

“ MPACSRND 

00*2031 

79 

1 

78 

m 

NBSM 

15,2517 

408 

8 

420 

490 

TiKRuPTBB 

4060  28 

1 27 

a 

mpacvbuF 

7506 

72 

2 

68 

101 

* 

nbsmbit 

0004 

9 

3 

407 

409  = 

MKVAC 

13,2763  218 

1 218 

a 

MPAGAIN 

20,3553 

398 

1 

398 

s 

NDl 

5240 

356 

4 

298 

336 

“MKVACFND 

13,2777  218 

5 218 

a 

MPCHK 

20,2433 

384 

- 

-«* 

- 

M 

NDCMPTST 

05,2417 

313 

1 

313 

~MKVB53 

13*3036  219 

1 219 

* 

MPHIGH1 

20*3535 

397 

1 

397 

a 

NDX+SU 

20*2627 

387 

- 

- 

MMGHANG  D 5 ,3267  335 

1 306 

fi 

MPHIQH2 

20,3570 

398 

1 

398 

m 

NDXCTR 

E5 , 1 537  22 

26 

445  489 

MNKfcYIN 

0015  26 

1 285  = 

a 

MP-+ 

20,2453 

384 

- 

--- 

M 

NEARONE 

15,3171 

419 

1 

417 

“MNTRCS 

1 A , 3 f 65  636 

1 636 

* 

MP — 

20,2461 

384 

- 

- 

■ 

NtGO 

7666 

76 

2 

163 

377 

nvTODABORT“ 

13*2741  20 T 

2 207 

a 

MPNMBRS 

20*3516  397 

3 

379 

397 

e 

NEG  12 

00*2273 

TT6 

3 

85 

105 

NM0DE2CH<| 

S025  228 

1 228 

a 

MPTEMP 

0121 

11 

59 

30 

115 

* 

NEgI 80 

04,2760 

325 

1 

325 

7M0DE 

0147  12 

26  35  217 

B 

MR  12 

E6 , 1400 

535 

4 

182 

624 

s 

NEGl 

7667 

76 

9 

76 

624  = 

MUDFA 

0423  16 

4 237  424  = 

tf 

MR  13 

E 6 , 140 2 535 

3 

182 

625 

m 

REG 1/2 

7640 

76 

6 

111 

605 

~MODEB 

0425  16 

4 16  424 

8 

MR13ST0R 

12*3621 

182 

1 

182 

■ s 

NEG2 

7670 

76 

3 

301 

474 

'MOOECADR 

0371  15 

9 15  207 

fi 

MR  2 2 

E6 , 1401 

535 

2 

535 

625 

a 

NEg3 

7671 

76 

3 

203 

482 

MODEEXT'n 

13,2033  I9O 

101.90  218 

a 

MR23 

E6 ,1403 

535 

2 

535 

625 

M 

NEG4 

6045 

36 

2 

39 

377 

MODEGOOO 

13,2731  207 

1 207 

a 

MRATEADD 

1 4 , 3 3 5 1 

466 

1 

469 

* 

NEG5 

05,2077 

304 

1 

304 

“H0DE5LP 

13*2735  207 

1 207 

a 

M5100 

23*3373 

560 

1 

560 

a 

NEG 

6727 

56 

3 

56 

MODREg 

0276  IT 

6 T5D~343 

a 

MS  2 OF 

26*2372 

6TT 

-4 

604 

6T4 

fi 

NEgANEGB 

24 1 3367  5b2 

1 

581 

M0DR0UT3 

04,3277  336 

1 335  = 

a 

MS20QR 

24,2704 

572 

- 

<8 

NEGAPOSB 

24,3254 

580 

1 

579 

— M0NBAC< 

05,3211  330 

1 330 

a 

MS30F 

26,2373 

611 

2 

614 

615 

a 

NEG6URG 

24,3337 

581 

1 

579 

M0NBU5Y“ 

05,3212  33O 

I 329 

a 

M530P 

23  * 3OT2 

1 

543 

a 

NEGCSP1 

23*3071 

555 

1 544 

MONO EL 

05,3157  329 

1 329 

K 

MS30QR 

24,2705 

572 

1 

562 

m 

NEGCSR2 

24,2721 

573 

1 

563 

HONDO 

05,3160  329 

1 329 

• 

MS50QR 

24,2706 

572 

— 

- 

■ 

NEGCSP 

25,2205 

591 

2 

588 

590 

HONITl 

05,3101  323 

- - - 

a 

M5GBU5Y 

1 1 ,2775 

276 

T 

276 

i 

NEGDRIVE 

26,3327 

624 

1 

624 

MONITOR 

05,3077  328 

7 305 

» 

MSGCNT 

E7*1606 

25 

9 

274 

275 

s 

NEGFNCT1 

26*3154 

621 

1 

621 

monmas< 

05,3210  330 

1 329 

• 

msgscan 

11,2642 

274 

3 

274 

275 

B 

NEgHDAp 

25  *2U70 

569 

1 

588 

HUNREF05 

12,3531  ISO' 

1 “180“ 

2 328  329 

• 

~MSGW 

1 1,3000 

276 

I 

276 

■ 

NEG.  2T 

7)4,2772 

325 

1 

325 

HON RIO 

05,3134  329 

ft 

MSUCHK 

20,2576 

386 

- 

... 

a 

NEGMAX 

7641 

76 

4 

141 

525  = 

M0NSAVE1 

0306  13 

7 157  342 

• 

MULTEXIT 

5421 

366 

1 

366 

a 

NEGONE 

7667 

76 

6 

45 

377 

MONSAVE 

0305  13 

7 157  3 3O 

MULTFAIL“ 

5425 

366 

2 

366 

m 

“NFGOPT 

04*3577  315 

1 

315 

^onstart 

14,2065  445 

1 445 

a 

multflag 

E6  * 1527 

538 

5 

623 

624 

fi 

negpjeto 

23  » j 106 

555 

1 

550 

M00NFLA3 

0003  9 

“ - - =‘ 

9 

MXV 

7307 

67 

1 

42 

B 

NEGP JET  1 

23,3107 

555 

1 

550 

MUKtDtS  1 U , A 460  241 

2 241 

fi 

NEGQEROR 

24,2365 

568 

1 

568 

mUKtiULt 

23*3354 

4 557 

a 

NAVKEYIN 

0016 

28 

5 

222 

= a 

NEGSFE 

17,2724 

485 

1 

485 

MORNum 

04,21 73  296 

2 296 

a 

NBD2 

07*2263 

216 

1 

217 

a 

negsgn 

04,2254 

298 

1 

294 

M05TPA5S 

26, 2D 14  604 

1 610'“ 

8 

NBD3 

07*2272  216 

r 

216 

■ 

negsiz 

1 ! ,246b 

462 

1 

482 

MOVEWGT  3 

26,20^3  6u5 

1 605 

a 

NBDONLY 

U f ,2257 

216 

1 

140 

negt ime 

26 ,3460 

628 

2 

628 
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■f  fi 

NEGTP  23,2521  550 

1 550 

a 

NODSPLAY 

01 

,3135 

403 

1 

402 

■ NOUNADD 

0131 

11 

24 

307 

355 

= 

"NEGUQ  E6 , 1 532  538 

9 538 

629  a 

NODSPQUT 

12 

,2503 

163 

1 

163 

h NOUNCADR 

0304 

13 

8 

304 

355 

NEGUR  E6, 1534  538 

3 611  625  = » 

N0E6ANK 

20 

,3162 

392 

1 

393 

* NOUNREG 

0267 

13 

13 

157 

347 

NEGURGUMi  2443524  584 

7 580 

584  * 

NOEND" 

10 

♦ 3000 

249 

1 

249 

■ NOUNTEM 

0106 

10 

3 

307 

= 

NEGURGVvl,  24,3524  584 

4 581 

582  = ■ 

NOERR 

17 

♦ 2310 

479 

2 

479 

■ NOuT 

0303 

13 

10 

158 

403 

'NEGUSUM  26, 331 7 624 

- 

- a 

NOGENWDS 

15 

*2217 

374 

1 

372 

■ NQUTCON 

7660 

76 

1 

158 

= 

NEGXPOLS  25,2242  594 

1 594 

X 

NO  I BNKSW 

6016 

35 

5 

73  75 

■ N0VAC2 

01,2242 

128 

1 

126 

NETZERO  6054  37 

1 37 

9 

noiwomon 

12 

,3752 

177 

— 

- 

= 

« N0VAC3 

01,2245 

128 

1 

129 

NEWPORT  5460  367 

1 367 

S 

NO. CORES 

01 

*2251 

128 

2 

128  133 

* NOVAC 

4363 

126 

19 

140 

439 

"NEwALARv)  5430  366 

1 366 

a 

NO, p JETS 

E6 

♦ 1624 

540 

3 

545  553 

■ NREAD 

17,3052 

488 

- 

- 

"NEWDATA  12,2622  165 

1 165 

a 

N0.QJET5 

E6 

,1620 

539 

7 

539  595 

■ NSAMP 

0425 

16 

3 

247 

249 

S 

""NEWDLTAV  E4,T41"4  T9 

- 

- = J 

NU#RJtT5  £.6 

,1621 

539 

6 558  595 

= 

■ "TNSBUGD 

17,3445 

494 

5 

NEWJOB  0067  8 

22  35 

506  * 

NO.WDS 

6164 

39 

6 

39  106 

• NSFLAGD 

17,3443 

494 

- 

NEwLOC  0072  10 

9 126 

133  s • 

NOKILL 

20 

,3475 

396 

1 

397 

■ NSHIFT 

1014 

17 

- 

- 

NEWMODE  6013  35 

“IT  50 

426  a 

NOMD'NLST 

15 

» 2 3 ZT 

376 

1 

158 

■ NTTWES 

£4,1410 

21 

4 

433 

= 

NEWMODEX  4667  150 

7 267 

534  a 

NOWIN  IMP 
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7 

7 

579 

- 

- a 

PRESTANCT" 

1113142  28 T 

1 25F™ 

UU4  1 

1?  f - « 

r UbAKvj 

43^3 

124 

1 

124 

9 

PRESTORE 

6421  47 

1 

47 

P i pr  m 1 l 

i c 9 3 3 1 I 

i I H 

l 

l ( ( ■ 

posbuRg 

24,3177 

579 

• 

* 

— 9 

PRI010 

7643  138 

- 

- 

I 

p 1 Pr  Ktt c 
PWBf  F 

1 3 9 c.  3UU 

H*  - 

I9T 

1 

1 97  a 

PQ5DRI VE 

26 ,3331 

624 

1 

624 

9 

PRT011 

4510  138 

- 

- 

P TP  T — 

Fb  . V«i41 

22 

1*7 

4ASv^OR a 

r Uor  INL  1 l 
Dncr,wm 

26,3152 

62 1 

1 

621 

ft 

PRI012 

4511  138 

- 

- 

P T PMP)Y 

— ZZ~~ 

ft- 

I f fbU  f ( 

489 

3 

475 

483  s 

PRI013 

4512  138 

- 

- 

707 

296 

1 

294 

9 

PRI01R 

~ 4513138 

- 

- 

rUoi  | U(N 

£5,1544 

22 

15 

444 

510  ■ 

PR  1 015  - 

4514  138 

2 

177  364 

— Key ; SYMB0LS~DE FlTrE L ALr  ATTE- FrAGGgD  =, 


EXCEPT  I hose  flagged: 


U UNDgFSNgP 

— N NEARLY'  DEFT  RED"  'BY  ~= 


e failed  leftover  erase 
J FAILED  LEFTOVER  WORD — 


m multiply  defined  7 wrong  memory  typf 

“0  OVe RS12e-~  ORTtLP-DEFlNED C CONF L TC T TN  MEMORY 


MM  multiple  ERRORS 
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SYMBOL  H 

definition 

References 

FI  8 

SYMBOL  h 

definition 

ReFeReNCeS 

F « 

SYMBOL  H 

definition 

References 

F 

8 

B 

PR  1 01 6 

4515  i3e 

4 177  864 

9 

PUTC0M2 

05,3040  323 

4 

323  325 

a 

R1D1 

5175  355 

9 

299  338 

PRT01 7 

4516  136 

1 219 

8 

PUTCOM 

05,2762  322 

8 

319  320 

B 

R2D1 

5176  355 

3 

299  332 

pr  i err 

7 646  138 

- - - 

= U 

TUTDCSF2 

05,3064  324 

1 

324 

■ 

R3D1 

5177  355 

3 

299  308 

PRI020 

7642  i36 

11  264  52? 

z i 

PUTOECSP 

05,3051  323 

2 

323 

s 

R+Q+CHKR 

24,2433  569 

1 

568 

PR 1021 

45 IT  138 

1 445 

a 

PUT  DPC0M 

05*3014  323 

1 

323 

6 

R+Q-CHKR 

24*2402  568 

1 

568 

pRTC22~  “ 

45  20~T  3 8 

I 234 

s 

PUTTNL'ST 

~04T5472  359 

2 

359  360 

H 

R+,CHkDB 

24,2445  569 

I 

568 

PRI023 

4521  138 

- 

8 

PUTN0RM 

05,3023  323 

1 

322 

B 

RACCDOT 

E6 , 1 544  538 

2 

625 

= 

PRI024 

4522  138 

- 

« 

PUTP0SX 

14,2247  449 

2 

444  460 

1 

RACTCADR 

12,2415  159 

1 

154 

TRT025 

4523  I38 

2 256  271 

fl 

PUTSFN0R 

05*3063  324 

~ 1 

324 

H 

R A DA  RE  AD" 

10,2707  248 

2 

2 8 

PRI026 

4524  138 

1 241 

i 

PUTXY 

05,2602  319 

- 

- 

B 

RADCADR 

0373  15 

1 

158 

= 

PR  102 7 

4525  138 

1 276 

1 

PUTXYZ 

05,2550  319 

- 

- - 

■ 

RADCK 

17,2402  481 

1 

492 

"PR  T02 

7645  138 

1 396 

Z JBi3B3Be»JlllBii0SBS#9BaBS«B»BBSBl!BSBBBBBB 

m 

RADECNTR 

16,2777  505 

I 

503 

PRIO3O 

4526  138 

3 272  43T 

9 

u 

0002  ( 

309 

29  641 

s » 

RADIN 

10,3060  250 

1 

250 

PR  103 1 

4527  138 

* - " 

9 

Q+N0RJTS 

24,2425  568 

3 

568  569 

a 

radmodes 

0413  16 

78 

28  424 

PRTCT32 

4530  T3 8 

2 ~2  Ta  225 

a 

"QACaXTr 

E6 , 1 542  538 

“ 4 

624  628 

3 B 

RADNOOP 

10,3227  254 

2 

236  254 

PR  1 033 

4531  138 

- - - 

M 

UDI  F F 

E6 , 1477  538 

8 

578  619 

= B 

RADSAMP 

10,3254  256 

2 

256  270 

PRIQ34 

4532  138 

1 156 

9 

QERRCALC 

24*3025  576 

1 

575 

B 

RADSTALL 

13*2712  207 

9 

207  504 

PRIOJ5 

4533  138 

3 140  439 

8 

QTRTOR” 

E6 ,1477  536 

4 

538  618 

B 

randchk 

20,3016  389 

- 

- 

PRI036 

4534  136 

* 

Q-NGRJT5 

24,2374  568 

3 

568 

B 

RATE 

23,2701  553 

3 

551  553 

PRI037 

4535  138 

2 153  366 

e 

Q-RHCCTR 

0042  536 

4 

548  567 

= B 

RATEDIF 

E6 ,1443  536 

6 

568  592 

“PRT03 

4504  I38 

2 226 

a 

UJUMPAUR 

E6 , 16I4  539 

3 

563  571 

« 

RATFDONt 

23*2334  547 

3 

547^ 

pRI  04 

7644  138 

" " - 

S 8 

qmandacc 

E6 , 1665  541 

8 

541  634 

B 

RATEDSp 

16,3071  507 

1 

507 

PRI05 

4505  138 

* 

a 

QPLAC 

E5 , 1 545  22 

15 

455  512 

B 

RATESMAL 

24,2306  567 

1 

566 

TRI06 

~4506  T3S 

2 "235  3 TT 

r 

□PLACE 

E5 , T546  23 

~6T 

267  511 

S 

RATIO 

E6 , 1457  536 

- 

- 

PR  1 07 

4507  I38 

“ “ 

1 

QPLACE5 

£5,1547  23 

6 

453  530 

s 

ravegon 

E4*1514  20 

* 

= 

PRI0CFI2 

01*2463  134 

1 127 

8 

QPRET 

0052  8 

3 

54  119 

S 8 

RCm4 JETS 

23,2537  550 

1 

549 

PRTTJCFRo 

4430  127 

8 

QRATEDTF " 

E6 , 1424  535 

6 

566  592' 

= B) 

RCOff 

E6 , 1436  536 

2 

369 

PRIORITY 

0158  12 

26  128  137 

I 

QRAX1S 

24,2002  562 

1 

614 

•a 

RCSCNTRL 

26,2723  617 

3 

617 

PR  OCT  NO  n| 

12*2770  169 

1 166 

1 

QRCNTR 

0073  538 

27 

544  624 

= p 

RC5FJUMP 

25,3445  637 

1 

636 

pROGLARiy 

"5440"366 

2 566  367 

□ready 

E A,  157 3 20 

- 

- 

= a 

RCSmN i K 

25,3416  636 

636 

PS  IV 

t4  * 1474  20 

* * 

= : fi 

QRERAS 

0073  626 

6 

626 

= y 

RC5M0NI T 

12,3752  636 

2 

167  177 

P5KIPADR 

23*3113  636 

1 553 

S 

QR.1ST0Q 

E6,1623  540 

3 

558  571 

B 

RCV 

E4 , 1430  19 

- 

- 

= 

"PTBAD 

12  *2203  154 

4 153  154 

Ft 

QR-JETLw 

24*3643  587 

T 

587" 

■ RDBADEM7 

10,3251  255 

5 

240  255 

pTDTRDE 

14,3447  468 

2 466 

8 

QRjpFILT 

26,2746  618 

~l 

617 

B 

RUES 

E3 , 1461  19 

3 

234 

PTERM 

12*2156  154 

£ 

QRNDXER 

0065  629 

7 

628  629 

= K 

RDtSGA  1 iN 

10,2635  245 

1 

244 

PT I TRDFT~ 

1 4 , 3422  467 

1 46b 

QRTORQUET 

24,2113  564 

2 563  564 

Tl 

RDTFF 

E6 ,1500  538 

4 

615  619 

= • 

PTORQUE 

23*2167  5^5 

2 545 

B 

URUP  1 

0012  7 

14 

27  615 

= 8 

RDOTBI AS 

10,3170  253 

1 

250 

PULSEImj1 

15|3515  42 9 

2 450  453 

3 

QTRANSF 

26 , 342 1 626 

3 

6 1 5 616 

8 

RDR1 

14,3070  462 

1 

472 

PURuENCy 

23,2617  551 

2 5T5  547 

■ 

QTSN45 

18,302TAI6 

1 406 

a 

RDR375H 

14,3062  462 

1 

445 

PUSH 

00*3177  10b 

1 44 

S 

QUARTER 

7643  76 

4 

110  115 

: h 

RDRDFREE 

11,2441  269 

- 

“ - 

PUSHLOC 

0152  12 

28  39  130 

S 

QUITL00K 

E4  * 1654  22 

2 

443 

= a 

RDRINIT 

14*3120  462 

1 

267 

PUSflOP 

'SITS  39 

1 36 

a 

QURGElNCy 

24,3141  578 

“ - 

B 

RDRLOCS 

TO, 3533  257 

i 

257 

PUT  ADD 

03*2307  308 

3 308 

Sfl6nBJaB£SKBKB?lifB'HVBVia£BUBSBfePaaBI!iII!BBS 

a 

RDRPTBB 

4062  28 

1 

27 

KEY:  SYMBOLS  DEFINED  BY  EQUALS  are  FLAGGED  a;  OTHERS  ARE  NORMALLY  DEFINED  EXCEPT  TH05E  FLAGGED!" 
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SYMBOL  Hi  DeFINI T 1 0 N R eFeReNCeS  Fi  ■ SYMBOL  H DEFINITION  "REFERENCES  F ■ SYMBOL  H DEFINITION  REFERENCES  F 


RDRRETN 

14,3674 

472 

T 462 

■ REQMM 

05,3302 

336 

1 

335 

■ 

RMAG 

1032 

17 

- 

— 

- 

" RDSP  “ 

E5 ,1570 

23 

- 

- 

= b REQRET 

0300 

13 

9 

157 

336 

1 

RMAGSQ 

1034 

17 

- 

- 

- 

READCDUS  15,3361 

425 

2 237 

242 

• REQUESTC 

05,3325 

336 

1 

337 

Si 

RMANDACC 

E6 , 1666 

541 

3 

579 

634  = 

READCH9 

20,2779 

389 

“ - 

- 

* RERRCALC 

24*3044 

577 

* 

fi 

RMOOINIT 

12,2437 

159 

1 

158 

READOuT  * 

17,2355 

480 

1 480 

* RERROR 

Eb , 15UU 

536 

4 

538 

618 

fi 

RMODINV 

10,2142 

233 

7 

233 

240 

READP1PS 

15, "33 70  92  5 

1 425 

• RLSAMPLE 

10, 3*001 

249 

1 

253 

■ 

RN1 

1054 

17 

- 

— 

- 

“ RECAL1 

09,3930 

343 

2 343 

■ RESHIFT 

26,3267 

623 

1 

624 

fi 

RN 

1000 

17 

- 

- 

RECAL2 

09,3991 

344 

2 344 

1 RESTEST1 

21,2571 

522 

1 

527 

H 

RNRAD 

0046 

7 

4 

249 

250  = 

“RECAL3 

09,3996 

344 

1 343 

• RESYEST3 

21,2600 

52? 

1 

528 

fi 

ROADBACIC 

10,2302 

236 

5 

236 

254 

RECALTST 

09*3922 

343 

2 321 

337 

b REST0RE1 

20,2177 

380 

II 

roll 

E3 , 147 1 

19 

* 

REDO 

11,2332 

267 

1 267 

■ REST0RE2 

20,2225 

381 

“ 

fi 

ROOT  1 /2 

17,3677 

498 

5 

495 

496 

R'EDOCTR 

1362 

18 

2 153  376 

= ■ RE5T0RE3 

20 ,2253 

381 

- 

- 

m 

R00T1SQ 

17,3700 

498 

1 

496 

RtDUCEP 

29,3703 

592 

1 592 

* KESTORt 

17 ,3055 

488 

2 

488 

O' 

00 

4* 

e 

R00T25Q 

17,3701 

498 

1 

496 

REDUCES? 

29*3672 

592 

1 584 

• RtSTOREA 

17,3063 

489 

8 

46  I 

a 

ROOT  3SQ 

17,3702 

498 

1 

496 

REDU^ERA 

2 9 ,6666 

592 

1 585 

■ KLSTORSR 

07,2461 

287 

2 

286 

u 

rootbCk 

4336 

124 

124 

REDUCESC 

24,3715 

593 

2 592 

b RESULTCT 

E5,1673 

23 

14 

476 

489  = 

a 

ROOTRET 

1106 

17 

8 

17 

125 

REDYTORO 

14,3703 

474 

1 483 

* RESUME 

4606 

147 

41 

28 

638 

■ 

ROPECHK 

20,3307 

394 

3 

379 

396 

REGRSAMP 

1TT2407 

269 

1 258 

■ RETNOW 

12*3012 

169 

1 

169 

0 

RORCHR 

20*3002 

389 

* 

~ 

REgSLEEp 

1 6 , 2 3b  7 

199 

1 199 

* REVCNT 

6162 

39 

2 

39 

76 

a 

R0TVB24 

13,3130 

220 

3 

220 

REGUP 

6153 

39 

3 39 

* RFAILCNT 

E7 , 1436 

25 

3 

256 

375 

a 

ROUND 

00,2077 

80 

1 

44 

kEJALAR  <1 

13,337*6 

226 

1 225 

■ RFAILS2 

05 ,3522  365 

364 

7116 

62 

4 

73  86 

REJECT  2 

13,3919 

226 

3 225 

226 

• RFAILS 

04,2427 

300 

1 

299 

fi 

RR1AX2 

10,2163 

234 

1 

234 

REJECT 

13,3901 

226 

1 226 

* RGOODEND 

10,3244 

255 

4 

249 

25  5 

• 

RR 1 AX  IS 

10,2155 

234 

1 

234 

K t J 1 N 

1 3 1 3 J (Z  Z Zb 

1 225 

s RHCACTI V 

24^2317 

567 

1 

566 

a 

RRANgLES 

1 5 * 3267 

1 

237 

RELDSP1 

5369 

361 

2 326 

344 

* RH CM ON 

11*2733  273 

275 

1 

RRATEDIF 

E6 , 1425 

535 

9 

567 

592  s 

R'ELDSP“ 


= 39 1 361  9 305  337 


RHCMONVN 

TTHCTnUWD 


11,2737  275 
23,2346  547 


275 
T 5L7 


RRAUTCHK 

RRCOUCHK 


12,3990  178 
12,3501  179 


164 

178 


RELDSpON 

5253- 

357 

2 

330 

360 

* RHCKTRL 

11,3264  368 

2“ 

275 

369  i“ 

RRDESDuN 

10,2616 

245 

1 

245 

RELRET 

0130 

11 

3 

361 

= » RHCP 

0042 

2 

368 

— fi 

RRDESK2 

11,2256 

264 

1 

264 

R EL TAB 11 

4754 

1 60 

“ 1 

lb2 

a RHCR 

0044 

7 

2" 

368 

= » 

RRDtSNB 

10,2363 

240 

3 

264  504 

RtLT  AB 

4741 

160 

4 

I63 

332 

* RHC5CALE 

11,3360 

369 

3 

368 

369  b 

RRDE5NBK 

11,2234 

264 

1 

259 

RELwORK 

6210 

40 

1 

AO 

* RHCY 

0043 

7 

2 

368 

369  = ■ 

RRDES5M 

10,2306 

237 

1 

462 

TTEMAR1T 

223 

226 

« RIGHT5 

5200 

355 

5 

321 

341  * 

“RRECT 

E4 ,1400 

T9 

- 

“ - = 

REMODE 

10,2115 

233 

1 

241 

» RIGHT 

00,2216 

85 

1 

87 

fi 

RRGIMON 

12,3521 

180 

1 

179 

RENDRAD 

10,3014 

249 

1 

248 

■ RIGHTGTS 

21,2714 

525 

1 

525 

fi 

RRIMUDIF 

11,2107 

259 

1 

259 

REpOSRpT 

IT)  ,2074“ 

2 32 

1 

234 

“ * RIGHT- 

era, 2312 

87“ 

1 

84 

* 

R RIND EX 

E3 » 1462 

” 19 

3 

284 

REQADD 

05 ,2055 

304 

1 

304 

a RIGhTR 

00,2012 

78 

1 

86 

fi 

RRL1MCHK 

4777 

228 

5 

180  240 

REQCOM 

05 ,2257 

308 

2 

308 

* RIG-4SEC 

E4 , 1 530 

20 

- 

- 

- S B 

RRL1M0K 

5035 

228 

1 

228 

REQDATX 

U5»^252  3U0 

3 

319 

320 

r KIGNTTONT 

£4*1400 

19 

- = s 

RRNF 

15,3243 

422 

* i“ 

240 

REQDAT  y 

D’JO 

3 

319 

320 

B R-Q+CHkR 

24,2440 

569 

1 

568 

fi 

KKNBSW 

00 1 1 

9 

3 

237  242  = 

RhQDATZ 

05,2256 

308 

3 

304 

320 

11  R™U— C.MKR 

24,2407 

568 

1 

568 

fi 

RROFF 

12,3473 

178 

1 

178 

REQEXLOC  05,2166  305 
Kt Y : SYMBOLS  DEFI NED  BY  EUUAL S ARE  FLAGGED  =, 


* R-,CHKDB  24,2456  569 


1 568 


RR0UT2 


10,2215  235 


1 235 


D UNDEFINED 
ty  nearly  defined  by-^ 


e failed  leftover  erase 
j fa i led  leftover  word 


m multiply  defined 

0 OVERSIDE-  TOR  ILL-DEFTNED 


t wrong  memory  type 

C CONFLICT  INMEMORY 


MM  MULTIPLE  eRRDRS 
DC  MISC,  TROUBLE- 
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SYMBOL  H 

Dei- inIt Ion 

References  f 

a SYMBOL  H 

Definition 

References 

F m 5YMB0L  H 

Definition 

REFERENCES  f 

« » 

RROUT 

10,2213  235 

2 234 

245 

■ RUPTREG1 

0074 

10 

46  149 

538 

■ SAUTLOCS 

14 

,5836  466 

1 

466 

RROUTLIM 

10,2241  235 

1 235 

* RUPTREG2 

0075 

10 

27  149 

538 

a SAUTOIFS 

14 

,3324  466 

1 

267 

RRRANGE 

10,2650  246 

1 257 

* RUP7RECT3 

0076 

10 

13  32 

589 

• SA  VET 

E5,l620  23 

15 

482  485  = 

RRRATFP5 

16,3004  505 

1 504 

» RUPTREG4 

0077 

10 

1 8 10 

538 

■ SAVtRATE 

24 

,2753  575 

- 

- 

RRRDOT  ' 

10*2646  246 

1 257 

• RUPT5T0R 

0070 

9 

8 222 

223 

= ■ 5B1T10 

76^6  377 

- 

- “ = 

RRRET  “ 

E3 .1460  ~ 19 

“ 5 227 

234 

• r urgency 

24,31  2"5" 

578 

- 

- 

■ SBIT11 

7645  377 

2 

394T595~= 

RR5CALU? 

10,2557  2^4 

1 244 

a KUTMXTAB 

16,2475 

354 

1 347 

a SBIT12 

7644  377 

2 

394  398  = 

RRSIM2 

15,3524  430 

- 

- 

a KUTMXl tM 

0137 

12 

2 321 

347 

■ SB  1 T 13 

7643  377 

- 

- - = 

RR5TM  ' 

' 15,-33*22  430 

2 43CT 

» RV33 

11 , 2S2  3 

271 

2 271 

277 

* Sdl T 14 

7642  377 

6 

385  399  = 

rrsimg 

15,3574  430 

2 430 

■ RVQ 

00 ,3224 

106 

1 44 

• SBIT15 

7641  377 

2 

361  395  = 

RR5QNLY 

10,2153  234 

2 232 

233 

a RWAITK 

1 1 , 4 1 2 4 

260 

2 260 

264 

■ 5BIT1 

7657  377 

- 

- " = 

RRSPGAIM 

T0T22T2  234 

1 234 

* KXOKLHK  39U 

...  ... 

- 

« SBIT2 

7656  377 

- 

- - = 

RRTARGET 

0415  16 

4 237 

462  = 

■ SBIT3 

7655  377 

* 

- s 

RRTONLy 

10,2150  234 

3 232 

233 

■ /AGREE 

OU , 272  5 

100 

1 99 

■ 5BIT4 

7654  377 

1 

393  = 

R"RTURnDT 

10V2000  230 

1 178 

a /BUF+ 

00,2637 

98 

2 97 

a SBIT5 

7653  377 

- 

— - = 

RRUSE 

CFO  10  9 

- = 

« /BUF- 

00  t^633 

97 

2 97 

a 5BIT6 

7652  377 

- 

— * = 

KKUbbF  Lo 

' 7651  236 

4 230 

459  = 

* /MPAC+ 

00,2714 

99 

2 99 

■ SB  I 1 7 

7651  377 

1 

395  = 

RRZ2 

10,2304  236 

1 236 

• ampac- 

00 , 2 7T0 

99 

2 99 

■ SBIT8 

7650  377 

- 

- - = 

RRZERO 

10, 2247  236 

4 260 

503 

* /NORM2 

00,2652 

98 

1 98 

■ 5BIT9 

7647  377 

2 

380  393  = 

RRZEROK 

11,2117  260 

1 259 

* /NORM 

00,2657 

98 

1 98 

« SBLANKS 

01 

,3051  402 

1 

403 

KRZtROSB 

T0,20r3  231 

2 T3O 

236 

aag&j9TBt3iiiiai!g9KiSB*iitnSBaai!!ifiHBBan'iwaaa« 

* SBNK03 

4506  377 

1 

394  = 

R5AMPDT 

E7,T435  25 

5 256 

271 

a 510gl I S 

6426 

377 

2 391 

392 

= * SBNKOpTN 

01 

,3000  401 

1 

378 

RSAMPTST 

11,2411  269 

1 269 

a S11CHAN 

01,3033 

401 

2 402 

403 

■ SBUSY 

20 

,3513  397 

1 

396 

IRSEMEACnr 

1 1 , 2475  Z7T 

1~Z69 

s 513BITS 

9 385 

399 

' a SCADR  ‘ 

~ 20 

,3442  396 

1 397 

R5TACK 

£7,1437  25 

53  256 

375 

a SI 

0050 

8 

17  117 

523 

= a SCALADU 

10 

,3111  252 

I 

250 

R5TGTS1 

21,2002  514 

1 527 

* S2 

0051 

8 

13  404 

491 

= ■ SCALCHNG 

10 

,3077  251 

1 

250 

R'STKLIST 

11 »24T2  ETO 

IT  269 

» S8B1TS 

5235 

377 

1 3 SO 

= » 5CALDELT 

E4 

,1611  20 

• 

- - S 

RSTj^LOC 

E?,1434  25 

7 256 

269  = 

a 5+1 

7657 

377 

25  380 

403 

= ■ SCALEA 

E4 

,1606  20 

-- 

* 5 

RTB 

01,2070  118 

1 118 

* S + 2 

7656 

377 

7 381 

390 

= a SCAlEB 

E4 

,1607  20 

“ - = 

RTB/BFUZ 

0 1 1 <^067  1 1 8 

1 43 

* 5+3 

6163 

377 

4 379 

389 

= '■  5CALECHK 

TO 

,3050  250 

1 

249  ~ 

RTERMCAO 

12*2423  159 

1 1 5<+ 

* S + 4 

7655 

377 

1 390 

= s SCALEDT 

E4 

,1610  20 

- - = 

RTjETADR 

24,2734  573 

1 567 

# S + 5 

7664 

377 

2 382 

389 

= s SCALER 

E4 

,1612  20 

- - = 

- RTRANSF 

-24,2467  569 
26,3431  626 

1 573 

* S + 6 

6162 

377 

1 390 

= a SCALFTR 

14 

,3677  472 

1 

454 

3 615 

616 

^ 5 + 7 

7663 

377 

2 378 

386 

= ■ SCAL5AV 

E3 

,1504  I9 

A 

2 8 1 2 83 

RT5TBA5c 

E7,i433  25 

3 256 

270 

* S+MAX 

20,3431 

396 

27  330 

399 

» SCHZEROS 

21 

,3342  533 

1 

526 

RTSTDEX 

-£7,1431  25 

6 *166  471 

• S+ZERO 

7665  377 

1 5 378  401 

= a 5CNBAZ 

T7 

,3704  499 

1 

493 

RTSTLOC 

E7,1434  25 

4 45 

469 

* SAC 

E5 , 1474 

22 

.. 

- 

a SCNBVER 

17 

,3716  499 

2 

493 

RTSTMAX 

E f ,1432  25 

3 256 

270 

* 5AM0DCHK 

16,2556 

501 

1 267 

a SCOMP 

15 

,3100  417 

2 

417 

RTSTNV 

11,2471  270 

1 269 

16  454 

512 

* SAMODRTFT  16,3235  511 

I 461 

a SCOUNT 

04 

1366  18 

4 

378  407  s 

Run 

E5,1550  23 

» SAMPL1M 

0414 

16 

7 158 

249 

■ SCOUTEND 

,2645  316 

4 

316  317 

KUP 1 AGN 

1070  17 

6 17 

255 

■ samplsum 

0415 

16 

7 16 

376 

a SDISpLAr 

20 

*3471  396 

2 

396 

ruptch< 

20 , 2 /1 6 383 

1 383 

a SAMPBUM 

0415 

14 

= a 5DSPTAB 

01 

,3045  402 

1 

402 

RUPTCON 

20,2747  388 

1 389 

« SAMPTIME 

0013 

— 7 — 

3 353 

357 

= » SELECTX 

16 

,2537  500 

1 

500 
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- SYMBOL  i 

definition 

References 

Tl 

V 

SYMBOL  H 

definition 

References 

F 

» SYMBOL  H 

Definition 

references 

7T“ 

ft  a 

SELECT Y 

16  ,2573  500 

1 500 

» 

si-outabr 

05,2525 

315 

1 

317 

■ S-7 

20,2017 

377 

2 

378 

386 

SELECTZ 

16  ,2577  500 

1 500 

i 

5FRET 1 

05 ,2733 

321 

k S-MAX 

20,3732 

396 

8 

387 

700 

selfadrs 

20  f 2017  373 

2 396  397 

ft 

SFRET 

05,2751 

322 

- 

- 

- 

■ S-ZERO 

7666 

377 

2 

385 

397 

= 

SELFBANX 

7503  137 

1 137 

1 

SFRUTMIX 

05,2721 

321 

7 

307 

327 

« SKEtPl 

1371 

18 

61 

377 

A01 

= 

5ELFCHK 

20,2101  379 

5 137-401 

ft 

SFRuTNOR 

05,2713 

321 

7 

313 

327 

■ SKEtp2 

1372 

18 

36 

381 

703 

= 

SELFERA5 

1360  18 

- 

a 

SFTEMP1 

oru? 

10 

16 

312 

378 

= 

• SKEEP3 

1373 

18 

27 

383 

703 

= 

5ELFRET 

1360  18 

6 137  396 

= 

y 

5FTtMP2 

0110 

10 

2 

326 

= 

* SKEcP7 

1374 

18 

23 

383 

400 

= 

SELPOSN 

17,3400  493 

... 

e 

SGNAGREE 

15,3406 

426 

6 

283 

506 

■ SKEEP5 

1375 

18 

15 

387 

395 

= 

SEND IT 

IT  ,2546  272 

2 272 

ft 

SGNCOM 

04,2302 

298 

1 

298 

■ SKEEp6 

T376 

18 

27 

381 

400 

= 

SENDPULS 

13,2222  195 

1 193 

ft 

SGNOFF 

0107 

10 

3 

298 

= 

■ SKEEP7 

1377 

18 

30 

380 

400 

= 

5ETADR 

12,2442  159 

1 151 

ft 

5GN0N 

0106 

10 

3 

298 

= 

■ SKIPPAX5 

23,2147 

577 

1 

556 

SEXAUG 

04*2607  316 

1 315 

R 

SGNT  ab 

04*2323 

298 

2 

298 

b SKIPQRAD 

24,2626 

571 

1 

571 

5ETEbAN< 

5171  355 

2 307  317 

e 

sgntoi 

04*2762 

325 

1 

325 

b SKIPQRAX 

24,2073 

563 

1 

571 

St  1 gLulx 

l2,5l56  172 

4 172 

a 

SGNTST1 

04  * 2 3 36 

299 

3 

299 

« SLAP1 

12,2000 

151 

2 

306 

471 

SETIDLE 

23,3115  556 

1 159 

h 

SGOT 

15,3105 

417 

1 

717 

■ SLEtPIE 

21  ,2666 

525 

6 

517 

526 

SETI55W 

12*3344  176 

6 170  197 

ft 

SHAFT  A 

E5  * 1 566 

23 

• 

* SLEFT5 

5216 

356 

1 

333 

5ETL0C 

01,2276  129 

3 1 29  1 33 

ft 

5H0LT5 

05,3462 

367 

1 

363 

■ SLOAD2 

6470 

50 

7 

50 

726 

5ETMULTF 

5“456  367 

I 367 

6 

5HiJRTMP~ 

7266 

66 

7 

296 

331 

■ SLQAD 

6505 

50 

I 

72 

SETNADD 

5167  355 

2 30a  323 

ft 

SHORTT 

00,2000 

78 

2 

71 

• 5L0PEHI 

00,2277 

86 

1 

IO9 

StTNCADR 

5161  355 

6 304  355 

a 

SHORTV 

00,2102 

8 1 

1 

71 

b SLOPELO 

00,2770 

100 

1 

110 

3ET0VF2 

7132  62 

I 58 

ft 

5412 

361 

1 

361 

b SMALLS 

00,3006 

101 

I 

103 

5ETCVF 

f061  60 

1 88 

« 

SHOW1 

17,3600 

797 

1 

797 

b SMAlL 

00,3057 

103 

1 

101 

SETPD 

7541  73 

1 42 

ft 

SHOW 

17,3576 

797 

6 

775 

792 

b SMDCALC 

17,2263 

779 

2 

775 

461 

5ETR0UNS 

00,2257  85 

3 85 

i 

5HOWLD 

TTV35F7 

796 

2 

775 

797 

> 5MD/EREF 

15,3000 

715 

1 757 

SETRRCTR 

1U,2Z24  235 

1 235 

s 

SHOWSUM 

20,3454 

396 

1 

268 

b SMNB1 

15,2776 

707 

- 

- 

- 

SETRRECR 

10,2106  232 

2 232  238 

KJ 

SHOWVB 

13,3347 

225 

2 

225 

b SMN6 

15,2773 

707 

5 

237 

416 

SET TIME A 

12,7546  T63 

2 162  163 

ft 

SIGN 

7603- 

75- 

• 5MODE 

1361 

18 

8 

151 

701 

= 

SETTRKF 

5042  229 

4 179  253 

ft 

SIGNFIX 

04,2744 

325 

2 

327 

» 5M0DECHK 

20,2077 

378 

9 

378 

701 

SETUPER1 

21*2631  523 

1521 

ft 

SIGTMRET 

0111 

11 

- 

- 

= 

• 5MPAC+ 

00,3333 

109 

3 

108 

ttIUPtK  i 1 * A 7i>3  526 

2~ 5I*P  524 

ft 

5lGTnX5T 

- 07,2336 

299 

2 

298 

k SN1  - 

00,3501 

112 

1 

I IT 

ot  1 UrTIo  j 

Ilf  Z604 

1 258 

ft 

SILVER 

16,2520 

500 

I 

783 

n SOMEERRR 

21,2716 

525 

1 

521 

SETVAC 

05*3336  336 

1 336 

ft 

SIN22.5 

24,3335 

581 

1 

581 

» 50MEKEY 

13,3233 

222 

1 

222 

SEVETT^ 

(bbi  76 

13  7X594 

9 

STNELAN1C 

04,2532 

T 

302 

b SOMLRR2 

21,2721 

525 

1 523 

SF  1 

0076  538 

6 619  621 

= 

B 

SINE 

00,3456 

111 

1 

77 

■ SOMETIME 

1 A ♦ 3502 

468 

1 

768 

SF2 

0077  538 

5 619  621 

= 

£ 

SI  NTH 

0022 

22 

12 

707 

770 

= 

« SOpTlONl 

20,2071 

379 

1 

379 

SFA  TL 

1364  18 

5 154  378 

S' 

ft 

srsz 

15,3070 

7T7 

1- 

717 

■ 50PTI0N2 

20,2072- 

379 

- 

SFCOM 

1 6 f ^043  348 

1 348 

six 

6162 

76 

18 

67 

583 

= 

* S0PTI0N3 

20,2073 

379 

- 

- 

or  LUhio  1 1 

1 3 * i 6 2 3 23 

2 483  485 

= 

ft 

SIZCHK 

17,3654 

798 

2 

785 

b S0PTI0N7 

20 ,207A 

379 

* 

" 

Or  LUlNo  1 

1 ( % 3653  498 

1 482 

ft 

SlZtOO|<T~ 

17 ,2760 

780 

1 

782 

■ SOpT IONS 

20,2075 

3 T9 

- 

* 

or  luinuivi 

2 314  323 

S-l 

7667 

377 

8 

381 

398 

= 

a 50PTI0N6 

20,2076 

379 

- 

- 

- 

or  1 IN  | M D 

1 0 * ccjc  551 

1 348 

ft 

S-2 

7670 

377 

3 

383 

399 

= 

b 50PTT0N7 

20  ,2077 

379 

- 

- 

iiN  i no/A 

1 324 

S-3 

7 671 

377 

1 

383 

= 

a 30PTT0N 

20,3737 

396 

I 

X95 

uruu i m q 

iOfLOJU  D D C 

1 348 

a 

S-4 

6045 

377 

■** 

“ 

s 

a SQpTIONS 

20,2060 

378 

2 

378 
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SYMBOL  H 

Definition 

Reference^  f: 

SYMBOL  H 

i?efinition 

References 

F 

■ 

5YMB0L  H 

definition 

References 

F 

a s 

SOPTONIO 

20,2100  379 

- 

- 

- 

5TDESIG 

10,2431 

241 

2 

233 

241 

s 

T3RUPT 

01,2736 

146 

2 

27 

28 

SOPTONII 

01,3012  401 

1 

401 

ST  EERADR 

E6 , 1 553 

539 

3 

604 

610 

8 

T4JUMP 

12,2547 

164 

- 

- 

SOWLY 

21,3354  533 

- 

- 

- 

STEPDLYT 

E4 , 1 5 2 5 

21 

1 

438 

= 

a 

T4CINIT 

12,2411 

158 

1 

158 

SOUTHDE  ' 

E5* 1552  23 

5 

476 

483 

STEPtXIT 

t4* 1604 

20 

- 

* 

•»* 

= 

a 

T4L0C 

0347 

15 

5 

158 

163 

SpCOS 

' 4232  123 

3 

lei 

430 

STILLOOK 

17,2620 

484 

1 

484 

a 

T4RpTBB 

4023 

27 

1 

160 

sp'dpmjtt 

2673302^624 

~~z 

623 

ST  I LLRCS^ 

24.3T22 

578 

6 

577 

618 

* 

T4RUPT 

4713 

160 

1 

2? 

5PECSTS 

21,2077  515 

7 

527 

STODLCDU 

24,3020 

576 

1 

576 

a 

T4RUPTA 

12,2451 

162 

2 

27 

160 

SPECTEST’ 

01,2266  129 

1 

133 

ST0PTE5T 

17,2760 

486 

2 

484 

485 

■ 

T5ADR 

0345 

14 

17 

151 

617 

= 

5PRU0T I 

R340'  124 

2 

124 

STOR'CDUY 

E6 ,1547 

539 

4 

6U5 

610 

a 

T5L0C 

0345 

14 

2 

1 4 

27 

SPROOT  2 

4351  125 

1 

124 

STORCDUZ 

E6  * 1550 

539 

3 

608 

610 

a 

T6ADR 

0343 

14 

- 

* 

* 

= 

SpROOTO 

'4311  124 

1 

125 

SI  OR El 

6627 

52 

4 

83 

119 

a 

T 6 jOb 

4203 

33 

1 

553 

' 5PR00T 

427  5 1 24 

3 590 

624 

ST  ORE 

6422 

47 

6 

46 

■ 

T6J0BCHKT 

4177 

33 

11 

33 

623 

5PSIN 

4233  123 

2 

181 

STOREDTA 

21,3047 

529 

2 

516 

529 

a 

T6L0C 

0343 

14 

1 

14 

PPT 

4236  123 

1 

123 

STOREPL 

E5  * 1 551 

23 

13 

445 

508 

a 

1 6|\EXT 

0766 

16 

19 

33 

558 

SQ 

1106  17 

2 123  = 

STORE  * 1 

6414r 

47 

5 

46 

« 

T6NEXTJT 

0770 

16 

17 

33 

555 

SukARG 

1107  17 

5 

124 

125 

STORE  *2 

6417 

47 

5 

46 

e 

T 6NXT  = + 

23,3023 

554 

1 

553 

SQRtSCAL 

26*3244  623 

1 

623 

STORJUMP 

6352 

46 

1 

45 

a 

T 60FFN0W 

23,2724 

553 

1 

553 

PORT 

00*3135  105 

1 

44 

14*2464 

454 

3 

445 

446 

a 

1 60RN0W 

23*2742  553 

2 

553 

SQRTAbRT 

00*3331  108 

2 

108 

STRTGYR2 

1 3 * 2406 

200 

4 

201 

204 

a 

T6RpTBB 

4055 

28 

“ 

SQRTNEG 

00  *3322  108 

1 

108 

STRTGYRO 

1 3 * 2402 

200 

2 

198 

203 

b 

T 6ZER0 

4230 

33 

1 

33 

bQKTINM2  U'J  f 3 4^3  110 

1 

1T0 

' STRTkACH 

17*2570 

48  3 

- 

- 

'»• 

11 

'TABLNTH 

12,2520  163 

1 

163 

SORTNORMi  00*3430  110 

1 

110 

STSHOSUM 

20*3304 

394 

1 

396 

a 

TAD 

7050 

60 

1 

42 

SQRTSHFT  03,3147  1G5 

1 

105 

SUBTR 

00,3630 

114 

1 

85 

a 

TAgSUB 

01 ,2061 

117 

10 

1 1 6 

1 1 f 

pQkTSUB 

00,3272  108 

3 

ror 

ITT 

6 

187 

633' 

* 

TANG 

0423 

16 

24 

16 

503 

SR 

0021  7 

44 

73 

3g3  = 

5UMRA1 ER 

t6,1641 

540 

5 

187 

633 

= 

at 

TAR1 

14,2356 

451 

1 

452 

SRADRS 

20*2016  378 

1 

380 

SVCT3 

<*571 

I4O 

1 

140 

* 

TAR/EREF 

14*2350 

451 

3 

448 

462 

SRDDv 

— 00,2005  ?S 

101 

swsrr 

'0IT3 

11 

5 

1Z0 

122 

= 

H 

TASKOVER 

4602 

T47 

'73 

139 

639 

SrgHI  t> 

07,2465  287 

2 

286 

SWBRANCH 

6703 

55 

1 

122 

£ 

TAU 

E4,1560 

20 

- 

* 

S 

SRTEST 

0O43404  110 

1 

109 

SWCALL 

4067 

29 

4 

150 

466 

m 

TAVEGON 

E4 , 1510 

20 

- 

- 

- 

= 

SSP- 

6624  52 

I 

42 

SWTNTT 

12*2444 

159 

2 152 

1 IS 

TAZEL1 

E5  *1553 

23 

'4 

451 

454 

STADR 

6334  45 

1 

44 

Switches 

01 ,2135 

120 

1 

122 

a 

TC 

E4.1444 

19 

- 

- 

• 

= 

STALL 

13*2717  207 

2 

207 

SWRETURN 

4076 

29 

13 

190 

528 

8 

TC+TCF 

20,2102 

379 

1 

379 

3TAR 

E5*1466  Z2 

" 

“ 

- 

SW7' 

01,2155 

X2Z 

r 

43 

= 

G 

TCFiNDVC 

5232  356 

1 

336 

STARAD 

£5,1444  22 

39 

413 

493 

SWSGN 

04,3367 

338 

1 

338 

ft 

TCNOVAC 

5227 

356 

1 

336 

ST  ARM 

0040  22 

- 

SWSKIP 

01*2216 

122 

2 

122 

B 

TCQ 

4712 

150 

2 

150 

229 

STARTDAp, 

23*3175  557 

1 

557 

» PWSTURE 

01,2172  121 

2 

121 

R 

Tcgewoo- 

00,3403 

109 

1 

109 

^TART DES 

10,2331  238 

1 

240 

PWTAB 

04*3416 

339 

4 

338 

343 

S 

i CsubTr 

00,2247 

85 

1 

113 

START  E3 

12 ,2414  159 

1 

156 

SWWORD 

0114 

11 

2 

120 

12 1 

= 

a 

TCTSKOVR 

5231 

356 

- 

mx 

12~,20&5  1 5 2 

• 

• 

- 

SKA 

01  ,2020 

116 

r 

43 

if 

TCWAIT 

5230  356 

1 337 

STARTST J 

6431  48 

1 

47 

SYSTEST 

11*2327 

267 

1 

258 

1 

TDEC 

£4  ♦ 1^00 

20 

2 

346 

3 = 3 

= 

ol AK 1 bUB 

1 £ * 22  1 4 156 

151 

153 

e 

TDELTAy 

E4 , 1414 

19 

STARTS/)- 

12,2064  152 

• 

510 

a T3RPTBB 
a T3RUPT2 

4056 

"2B 

1 

2 l 

u 1 EMi 

0125 

il 

4 

11 

101 

STATE 

006 1 9 

26 

120 

01 *2741 

146 

1 

147 

B 

1 tM2 

0126 

11 

8 

11 

430 
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symbol  h ; definition  references  f,  * JYMbol.  h def i mi ti .on  references  f ■ symbol  h definition  references  f 


TEW3 

OI27  11 

1 

11 

£ 

THREE  6165 

76 

27 

77 

632 

= 

E 

TOFjTCHG 

E 6 , 1 5 0 5 

537 

23 

545 

572 

TtM4 

U .1  i U 11 

3 

1 1 

£ 

fHROTADD  14,3347 

466 

1 

468 

M 

TOJTLST 

24,2674 

572 

3 

572 

TEM5 

0131  ll 

1 

a 

* 

THR07ASK  19,3460 

468 

2 

467 

468 

a 

TORK 

16,2530 

500 

1 

500 

TEMK 

1105  17 

10 

123 

s.  a 

1 hKU 1 UN  1 U6 , 246  t 

442 

1 

441 

a 

TORKSETP 

25,2326 

595 

1 

595 

temp 

E5, 1575  23 

8 

4b6 

469 

s ■ « 

THROTON  06,2505 

442 

2 

441 

442 

e 

torktabl 

25,2355 

596 

2 

595 

— TEWFAUD 

Eb,1574  23 

5 

438 

439 

= A 

TFiRSBTTS  14*3645 

472 

— 

... 

- 

R 

torkx 

16,2553 

500 

1 500 

TEMPOK 

1 2 , 32 1 6 173 

2 

173 

8 

TrlRSTART  06,2435 

441 

1 

432 

6 

“T0RKY 

16,2554 

500 

1 

500 

TEMPTIME 

E5 , 1561  23 

2 

453 

a 

THRSTCMD  E6,i533 

538 

1 

559 

= 

m 

torkz 

16,2555 

500 

1 

500 

I EN 

7661“  76 

9 

6 / 

480 

u 

THRTSTEp  E4 , 1605“ 

13  441  442 

= 

b 

TORQGyRS 

11,2266 

265 

— T 

258 

TtNMS 

<iU  , 2 it  A 3g8 

1 

388 

■ 

TFiRUST  0055 

8 

3 

442 

468 

= 

* 

torqgyrv 

11,2302 

265 

T 

265 

TERM  A 

E 6 , 1 5 2 1 537 

13 

579 

5gl 

a 

TIMAR  E3,1506 

19 

9 

281 

283 

* 

TORQINCH 

21,2645 

523 

1 

523 

1 EKMb 

£3*1522  587 

8 

579 

591 

a 

— TTMEl  0025 

7 

10 

28 

525 

s 

a 

TORQNDX 

£5,1574 

24 

6 

475 

S25  — 

1 tkMLALH 

4661  149 

1 

149 

* 

TIm£2  0024 

7 

12 

222 

425 

= 

■ 

TORQUE 

17,2075 

476 

I 

524 

TE5T 
TESTCADR 
TESTCALL 
"'TESTNN 


TESTNO 
TESTNV 
“TE5T0FUF“ 
TESTS I GN 
TESTmE- 
TESTVB 
TESTXACT 
TET 

TfiENTRy 
TGOFFCAL 
TGOFFNO/J 
THBUF — 

thcomm.1 

THC0MM2 
“THETA — 
THETAAPRi 
THETAD 
THETADLD 
THETAN 
THETAX  - 


01,2204  122 
11*2356  267 
17*2451  482 
TT5VZ03?  304 
E 5, 1563“  23 
11,2375  267 
04,307b  327 


23*2500  550 
17,3660  498 
05 12033“ 303“ 
11,2040  258 
£4*1446  19 

26,27476TB 
26,3442  628 
26,3511  629 
2471 40 5 
“24,1630 
£4,1636 
— 0024“ 


I TZ2 
1 267 
4 482  486 
T 330 
15  482  504 
“1  267 

4 324  331  r 
' I $49 
1475 


“21“ 
21“ 
21 
“22“ 
14*3675  472 
0400  16 

“1643102“ 
£5,162-4  “24 
E5 , 1616  24 


THLD1  1673110-508 

THR1C0MM  06,2475  442 
THR'l TIME  £471622 — 21 
THR2C0MM  06,2447  441 


8 260  273  * 

1 348  = * 

1 618  ■“ 

2 618  ST 

2 628  629  * 

2 442  = t 

1 “442 = ( 

1 441 Smt 

7“40“6  472“=  * 

“1-470 »“ 

192  511  — » 

501  502 IT 

12  521  526-  * 
4 522  526  =■  * 

“1101 B 

“1  508  * 

- 1 442 1 

1— 442 = r 

1 442 ■ 


30 


TIME4 
" T1ME5 
TIME6 
TIMED1FF“ 
TIMEHOLD 
TIMEOFFO 

TIHER- 
“TlMESAV 
“TTMEWATCFT 
TIX 

T-JETLAtf 
^TUETADTr- 
TJET-LAw 
TJETLA1““ 
“TJETSCAL 
TjmIN““- 
TJSR 
TJSUM 
TLTM — 
TLOAD 
“TMftLM 
TMARK 

tmexitl 

“THFATtn 
TMFAIL2 
TM INDEX 
“TNOMT£ST“ 
TNUV 


“0027“ 


0030 

0031 
E3,r5I0 

“0421  .w 
E6,1545  538 


7 

7 

19 

16 


5 141  471 
5 156  388 
11  156  615 
10  33  557 


£5,1624 
E 3 ,1502 
17,2627 
01,2047 
23*2663 
E6 ,1514“ 
2443644“ 
25,2000 
25,2164“ 
25,2044  589 
E6 ,1460  536 
“25,  Z 163 
12*3205 
— 6474 
“4606 


23 

19 

“484 

117 

552 

537 

587 

588“ 

590 


2 283 
5 247  376 
1 “557 


~2  484 
5 281  283 


torquev 

TOSMODE 

TP 

TpAGREE 

TPdVTT 

TRLEFT7 

TPS1G 


24 ,2554  571 
01,3015  4QT 
E6,1625  5aO 
7235  66 

6614  “52 
04,3054  326 
E6 ,1440  536 


1 484 
143 

2 552  589 
4 565596 
2 574  587 
1—556“ 

1“  588 
1 588 


TPSIGCHG  24,3573 
TPSL1  5263 
TPUSH  00,3222 
“TQORESTM  21,2723 


E5 , 1 564 
15,2151 
“0772457“ 
07,2452 
£7,1402 
12,2733 
£4*1422  19 


390“ 

173 

30 

287 

23 

372 

"285“ 

286 

25 

138“ 


1 591 
T 168 
“l — 42 
1 286 
5““447  461 
1 371 


2 287 

10  371  373 
“T  168 — 


—TOR 
TQRGTTMl 
— TR1 
TRACE1 
TRACE1S 
TRAN5M1 
TRANSpSE 
TRESUME 
TRIGI 
TRIG2 
trimcode 

TRIMIND 
TRIMMASK 
TRIMOFF 
TRIMOFFt 
TRTM0N1 
TRIM ON 
“TRIMONT  “ 
TR INSET 


£6,1626 
24*2567 
03,2417 
04,3132 
04,3143 
E5 ,1720“ 
15,2766 
E 4 , 1 5 1 2 
1572433“ 
15,2464 

06.2425 
E47137T 

06.2426 
06,2327 

' £4,1555 
06,2363 
“06,2350 
— E47T54T 
06,2342 


383“ 

357 

106 

5Z“6““ 

540 

571 

439 
331 
331 
~~2  4“ 
415“ 

“20“ 

"403 

4O6 

440 


440 

438 
21“ 

439 
439 

21 

438 


3 566  587 

2 401  402— 
10  540  552 
5 198  426 
“T  52 
2“ 317  326 
8 546  592 
2 585 

4 324  326 
1 106 

“ T“524  ““ 

10  558  587  = 
1 571— 

1 439 


4 476  bib 
“2—457““ 


“I  403 
1 406 
T “439  “ 


2 438  439 

1 439 

“r“437““- 

2 439  440 
2 439 
I-433  — 

1 438 — 


“KTY;  SYMBOLS  DtF  1NED  “BY  ^QUAtrSaVRE  FLAGGED  =. — OTHERS  ARE  NORMALLY  DEFINED- 


U UNDEFINED 
NNeARLYDeFINEC  BY“= 


e failed  leftover  erase 
J failed  leftover  “WORIT- 


M MULTIPLY “DEFINED 
0 OVERSIZE-  OR  ILL-DEFINED- 


t wrong  memory  type  mm 
c conflict  in  memory — x- 


multiple  errors 
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SYMBOL  Hi  DeTTNItIQN  Re^eReNCeS  F.  i SYMBOL  H DEFINITION  ReFeReNCeS  F ■ SYMBOL  H DEFINITION  ReFeReNCeS  F 

« ■ 


TRIM5TEP 

E 4 , 1 5 1 0 

7217 

12 

438  439  s 

4 

UPDATNN 

05 

2275 

308 

341 

8 

V21N30K 

06 ,2056~432 

r 

431 

TR1MTOP 

Ob  1 2 3 1 b 

438 

1 

432 

£ 

UPDATRET" 

0103 

10 

3 

308  309 

= a 

V21N43E 

13,3427  226 

1 

219 

TRKFLCO J 

12*3520 

" 

- " 

$ 

UPUATVB 

05 

23lX 

309 

8 

301  341 

e 

V24N30E 

14,3655  472 

1 

444 

TFTkFLON 

5061 

229 

2 

229 

fi 

UPLOCK 

0342 

13 

9 

151  376 

a 

V24N42E 

13,3430  226 

1 

220 

TRKOFF 

10  9 2 62  5 

245 

2 

245' 

3 

UPM 

23 

3112 

556 

2 

552 

h 

V25N22E 

14,3656  472 

1 

457 

TR'5LTT'W2 

2AY2645 

S72 

- 

- 

C 

' UP  OK 

“OT 

2431 

286 

- 

- 

8 

VS3N00X 

16,3354  513 

1 

510 

TRUNA 

E5  * 1567 

23 

* 

- 

a 

UPRPT1 

07 

2414 

286 

- 

- 

8 

V43< 

11,2632  273 

1 

273 

TRyCOuNT 

10*2715 

248 

* “ 

s 

uprptbb 

4057 

28 

1 

27 

= 3 

V47K 

06,2060  432 

1 

431 

TRY5WN 

TO, 2402 

240 

1 

240 

a 

U PR UPT 

07 

2402' 

286 

1 

27 

» 

V50K 

06,2430  440 

1 

439 

TRYSWS 

10,2351 

239 

1 

237 

s 

UP /DOWN 

12 

3637 

186 

— 

- 

fe 

VAC1 

0432  16 

- 

— 

— 

T5ELECT 

11*2351 

267 

2 

267  478 

■ 

UPTtST 

07 

2474 

287 

2 

286 

6 

VAC1ADRC 

12*2412  159 

r 

157 

i 5KADR5 

2072762 

389 

1 

388 

» 

UPTmFA'ST 

12 

3337  175 

1 

177 

9 

VACIuSE 

0431  16 

4 

128' 

218 

TSLC2 

00,2153 

' 83 

r 

^73 

a 

UQM 

24 

3524 

584 

2 

580  583 

= S 

VAC2 

0506  16 

- 

- 

- 

TSLC 

7544 

73 

i 

42 

a 

URGENCYQ 

E6 

1515 

537 

8 

578  583 

a 

VAC2U5E 

0505  16 

3 

128 

218 

ISLCLOOP 

00*2161 

83 

i 

83 

• 

URGtNCYR 

E6 

1516' 

537- 

11 

578  582 

a 

VACi 

0562  16 

- 

* 

f 5LCTE5T 

00  « 2 1 6 7 

83 

i 

83 

■ 

urgmult 

24 

3626 

586 

1 

586 

s 

VAC3USE 

0561  16 

3 

128 

2 1 8 

T5SL 

00*2062 

8U 

3 

76  87 

a 

URGROUTN 

24 

3525 

585 

3 

552  578 

a 

VAC4 

0636  16 

- 

- 

- 

( 55K 

00  * 2U06 

78 

- 

- 

a 

URGSTURE 

24 

3642 

586 

3 

586 

« 

'VAC4USE 

0635  16 

3 

128 

218 

TSTAB 

04,2377 

300 

1 

300 

s 

URGTOA 

24 

3641 

586 

1 

586 

8 

VAC5 

0712  16 

- 

- 

- 

T5TC0N1 

05,3457 

363 

1 

363 

s 

URM 

24 

3524 

584 

2 

579  582 

= 8 

VAC5USE 

0711  16 

3 

128 

218 

T5TC0N2 

0 5 ,3460 

3 '6  4' 

1 

363 

« 

U5EPRET 

4I7F 

31  ' 

- 

- 

8 

VA'CFOUND 

01,2235  128 

5 

128 

TSTCON3 

05  *3461 

364 

1 

364 

c 

USPRCADR 

4141 

3l 

* ™ 

8 

VAC5T0R 

13*3264  223 

1 

223 

TSTFORDp 

03*2420 

313 

1 

312 

a 

uvxform 

24 

3476 

584 

1 

584 

M 

vad 

6733  57 

1 

42 

T5TLTST 

03,5432  3fe3 

1 

363 

a 

UX  FORTY 

24 

34T4 

584 

A 

580  582 

8 

VALMI 5 

17,2223  478 

1 

524 

TSTLT52 

03,3463 

364 

1 

363 

lialiHRlBIHElPlB 

■ 

VARADAR 

10,3326  257 

1 

256 

T STLT  53 

05 , 3470 

364 

1 

364 

P 

VU1N10X 

16 

334  f 

513 

1 

509 

8 

VARDELAY 

4557  139 

4 

169 

192 

I5IMPAG6  12*21  ('A 

T54 

• 

" - 

fc 

VO 1N25K 

~06 

440 

T 

439 

6 

vavegon 

E4,1522  20 

- 

•- 

“ = 

1 5TURE 

6451 

48 

1 

48 

a 

V01N30D 

14 

3647 

472 

-• 

- 

a 

VB06N66 

17,3657  498 

2 

486 

497 

TSTUPL0< 

07,2444 

286 

2 

236 

4 

V01N30E 

14 

3651 

472 

2 

447 

8 

VB21N30E 

1 3 f 3432  226 

1 

225 

TWO- 

7656 

76 

89 

28  633  = 

I 

' V04N01X' 

06 

1 431 

ft 

VB50' 

13,3433  226 

1 

225 

a 

VO4N3OO 

14 

3643 

472 

I 

46  7 

a 

VB5 1 

13*3355  225 

1 

219 

u 

1 0 , 1 43  3 

336 

- 

* " 

a 

V05N30E 

14 

3652 

472 

1 

454 

M 

VB53 

13,3431  226 

1 

219 

UMANDACC 

t 6 f 1 6 6 7 541 

3 

580  634  : 

s 

V05N30X 

16 

33S0 

5T3 

I 

512 

8 

VBCOARK  - 

11,2073  259 

1 

258 

UMPAC+ 

UJ  *31  16 

104 

2 

104 

V 

V06N03E 

14 

3633 

4?2 

1 

470 

« 

VBFANDIR 

05,2133  305 

1 

30  5 

UMPAC- 

00*3110 

104 

2 

104 

a 

V06N20X 

16 

3351 

513 

2 

510  511 

8 

VBPR0C 

04 » 33 lO  337 

2 

306 

337 

unajump 

fc3 1 5 

44 

1 

41 

s 

V06N40X 

16 

r 510 

a 

VBRELDSP 

04 ,3320  33  7 

1 

294 

UNI  T 

00,2750 

101 

1 

44 

8 

VU6N66E 

i 4 

3654 

472 

1 

465 

8 

VBROEXEC 

05,3314  336 

1 

305 

UNI TDV 

00 ,3077 

104 

3 

102 

a 

V06N66X 

16 

3353 

513 

1 

507 

■ 

VBRQWA I T 

05,3340  337 

1 

305 

UNTTR 

1016 

17 

*" 

* — 

a 

V16N20S 

1 7 

3661 

4 90 

1 

479 

8 

VBSP1LD 

05,2673  321 

2 

319 

QWTTw 

1024 

17 

* " 

a 

V16N40S 

17 

3662 

498 

1 

481 

e 

VBSP2LD 

05,2674  321 

2 

319 

UNZ2 

12,3037 

170 

1 

170 

a 

VIST  025 

1 5 

3414 

426 

1 

412 

■ 

VBSP3LD 

05,2675  321 

1 

319 

' UP D ATI 

0 3 , 23  2 2 

309 

1 

309 

a 

V21N02K 

06 

4U53  434 

1 431 

* 

^VBTERW 

04,3315  337 

2 3U6  56** 

UPDATIME 

11,2312 

266 

m 1 

a 

V21N30E 

17 

49b 

1 

4b4 

a 

VBTSTLT5 

05,3414  363 

1 
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SYMBOL  H DEF  IN  I T I ON REFERENCES^ 


VBTJF 

0106  10 

58 

10" 

216 

a VSqSTJB 

00,3246 

107 

3 101 

106 

■ 

wedoq 

25,2065 

589 

I 

589 

" VBZERO 

11,2070  259 

1 

258 

« VSSL 

00  f d i 2 b 

82 

3 81 

87 

a 

WEDOR 

25,2063 

589 

1 

589 

VCV" 

E4,1436  19 

- 

- 

- 

= a VSSR 

09,2110 

81 

1 85 

WFORP 

E 6 , 1 6 5 5 

540 

5 

540  560 

VD1 

5237  356 

6 

158 

333 

* V 5 TORE 

644O 

48 

• - 

* 

WFORQR 

E6 , 1656 

540 

8 

559  633 

S 

"VDEF 

00,3160  i.06 

T 

44 

« vsu 

6 761 

58 

1 42 

m 

whimper 

5455 

367 

2 

367 

VECMODE 

T5,34CT4  426 

"T 

428 

* MM  7 SC 

7535 

74 

- - 

- 

a 

WKSEARCH 

5367 

361 

2 361  362 

VECTAB 

E4,1510  20 

•w* 

- 

- 

= »<  WXSC 

7357 

69 

- 

K 

WLARGE 

26,3071 

620 

2 

620 

"VELCHK 

10,2747  248 

1 

248 

« VXFORM 

24,3466 

584 

4 581 

582 

a 

WMATFLAG 

0000 

9 

- 

• 

= 

VELSC 

21,3365  533 

1 

517 

■ VXM 

7312  67 

1 42 

s 

WORCHK 

20,3007 

389 

- 

- - 

VERB 

04,2235  29? 

I 

294 

■ VXM/MXV 

7315 

68 

1 67 

e 

WPLATI 

E5  * 1 714 

24 

2 

519  520 

= 

VERBFAN 

05,2116  305 

"7" 

304 

307 

* VXSC 

7354 

69 

1 42 

IK 

WPLATO 

E5 , 1 620 

24 

3 

519  520 

= 

VERBREG 

0266  13 

18 

157 

330 

* vxv 

7434 

71 

1 42 

fi 

WPOINTER 

E6.1556  539 

5 

605  610 

VERbTAB 

05,2136  305 

1 

305 

fiaSBHBRtJSHIilSBaBBIgagBgGliaMBHKIIIMaBftaSBfii 

WRCHN12 

d b * 3*tUU 

625 

3 

618  625 

VERTDRFT 

17,2167  477 

*• 

- 

“ 

« WO 

to  t 1667 

539 

4 539 

608 

■ 

WRDRET 

0101 

10 

- 

* * 

= 

"VTGTTTON 

E4T14Q6  19 

- 

- 

= fc  "W1 

E6 , 1560  539 

3 539 

608 

= 

m 

WK I 1 ECHK 

20,2770 

389 

- 

VISFZADR 

23,3361  560 

2 

544 

558 

# W2 

to  1 16b 1 

539 

3 605 

609 

= 

WRITEUTS 

4220 

33 

8 

33  551 

" VLAuN 

E5,1644  24 

9 

24 

518 

= * W 

E4 , 1630 

20 

- 

e 

WRITEON 

24,2514 

570 

6 

570  571 

77LAUN5 

3 

24 

517 

= ■ WAIT2 

01,2566  141 

2 139 

R 

WR 1 i EQK 

422  5 

33 

4 

33  572 

VLOAD 

6511  50 

1 

42 

■ WAIT 

20,2744 

388 

1 388 

«P 

WSFT  ES  r 

26,3023 

619 

1 

620 

VLOADCOD 

7641  77 

1 

49 

= ■ WAITADR 

0070 

9 

3 139 

142 

S 

U 

WTABORT 

Oi ,27  15 

144 

1 

142 

VLOAD*  " 

6042  77 

T 

49 

= * W ATT  BAN'S 

0066 

" 9 

2 139  141 

= 

a 

wTGTSMPL 

21,2707 

525 

1 

525 

VMANDACC 

E6,l670  341 

3 

581 

634 

= * waitbb 

4553 

139 

2 139 

147 

8 

WTLI5TNT 

21 ,2676 

525 

2 

525  527 

VMESSAGE 

1 1 ,2745  276 

1 

275 

■ WAITER 

14,3650 

472 

3 467 

469 

B 

WTLPCADR 

17,3232 

491 

2 

491 

vm  ‘ 

1062  17 

* 

■ WATT  EXIT" 

0068 

9 

3 139 

= 

a 

WTL5T2 

01,2723 

145 

8 

143  144 

VN" 

1006  17 

* 

- 

* W'AITFIyE 

17,2542 

483 

1 483 

a 

WTLST4 

0 1 ,2613 

142 

1 

145 

VNCON 

2 Of 3^36  396 

1 

396 

a WAITLIST 

4536 

139 

86  151 

639 

a 

WTLST5 

01 f 2 642 

143 

1 

141 

VNLDRCDU1  264 

1 

064 

a W AI TLOOr  T7,3Z05  49l 

4 476 

483 

a 

WVECTOR 

26 ,2403 

612 

2 

0O5 

VNLQDCDU" 

VNLODDT 

"VRLODGYR 


11*2152  261 
11,2326  2 66 
-1172 


261  273 
266 


WAITLP1 

WAITLP2 


17*3210  49T 
17,3227  49l 


2 491 
4 477  483 
I 491 


"aaaaaaaaaai 

XI 

X2 


ban  a a a a a a 

0046 

0047 


a a a 

8 

8 


naaaiatibia 

10  38  518  = 

“1 47 = 


VPDVL 

6577 

52 

_ 

- ' 

■ 

WAITTEMP 

" 0071 9 

3 

145 

= * 

XACTO 

11*2060  259 

2 259 

264 

VPROU 

7400 

70 

1 

42 

a 

waketest 

01,2435  133 

1 

133 

fi 

XACTOQ 

11,2065  259 

2 259 

VRECT 

7:4*1406 

19 

- 

= a 

WANDCHK  " 

20 , 3023_~389 

- 

- 

■ 

"XACl  1 

11  ,2044"  258 

- 

VR IGH \2 

00  *2222 

85 

1 

85 

a 

WANGI 

E5 , 1 572  23 

5 

476  520 

= ** 

XACTALM 

11,2053  259 

2 258 

267 

VkOTATEX 

7373 

69 

3 

81 

102 

a 

WANGO 

£5,1570  23 

4 

476  520 

= 1 

XAD2 

01,2035  117 

2 117 

VROuND 

^7120 

62 

6 

69 

70 

a ~ 

WA"NGT 

E5T1574  23^ 

2 

24  519 

= a 

XAD 

01,2032  117 

1 43 

V/SC1 

7560 

74 

1 

74 

s 

WARESCAL 

26,3060  620 

1 

620 

i 

XAXUVRD 

11,3343  369 

1 368 

V/5C2 

00*2576 

97 

1 

74 

s 

WCENTKAL 

0070  538 

5 

619  621 

= s 

XCHX 

01,2024  116 

1 43 

"V7  SC 

7552 

74 

1 

42 

B 

WCHANGER" 

23*3352  560 

• 

B 

XDC 

E5 , 1422  22 

VSHR2 

VSHRRND 

VSO 


00,2041  79 
90,2054  79 
00*3174  106 


1~ 

“4 

1 


79 

8 r 1 1 5 


44 


WDCNT 
"W  DRET  ~ 
WEDOP 


0123 

0101 


11 

TO" 


5 331  333 

6 331  333 


25,2061  589  1 589 


E4  * 1401  21 

XJETMASK  06,2204  435  1 434 

"XTETS E4 ,1440 — 21 1434" 

XKEP  E4,1450  19 ^ 


KEY;  SYMBOLS  DEFINEO  BY  EQUALS  ARE  FLAGGED 


"Others  are 


U UNDEFINED 

n nearly  defined  by  = 


e failed  leftover  erase 

J FAILED  LEFTOVER  WORD"" 


M MULTIPLY  DEFINED 
3 OVERSIZE-  0"R"  ILL-DEFINED 


t wrong  memory  type 

C CONFLICT  IN  MEMORY 


MM  MULTIPLE  ERRORS 
""X" " "MI  SC.  TROUBLE  " 
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SYMBOL  TABLE  LjSTlNGt  INCLUDING  PAGE  NUMBER  OF  DEFlNiTlON,  ANp  NUMBER  OF  REFERENCES  WITH  FiRST  AND  LA ST  PAGE  NUMBERS 


SYMBOL  H'  ‘ 

DEFINITION' 

References 

F, 

• 

SYMBOL  H 

definition 

References 

F 

18 

SYMBOL  H 

definition 

references 

F ~ 

s e 

XMKkUpT 

13,3295 

223 

1 

222 

A 

YSM 

E5,1906 

22 

31 

911 

997 

= 

■ 

ZtROMAIN 

16,3160 

509 

2 

501 

511 

XNB 

E5 ,1922 

22 

6 

911 

960 

= ' 

a 

YUNIT 

1 5 , 3035 

916 

2 

915 

460 

■ 

zeromode 

16,3150 

509 

9 

501 

512 

XRZG 

“0270 

13 

3 

319 

322 

A 

YV 

E9*16l3 

20 

- 

— ■ 

— 

= 

S 

zerondx 

£5,1776 

23 

6 

951 

519 

= 

XREGLp 

~ '0273 

13 

T 

296 

322 

1 

yzjbuf 

E9 , 1902 

21 

9 

939 

= 

HI 

ZERGuRG 

29,3623 

586 

2 

586 

XSH I FT 

1015 

17 

•* 

* 

- 

i 

YZJETMSK 

06,2179 

935 

I 

939 

ZtRR 

23,2017 

592 

3 

592 

593 

XSM 

E5 ,1900 

22  51 

22 

530 

A 

YZjtTS 

E9 , 1950  21 

1 939 

= 

ZNB 

E5 , 1 936 

22 

9 

911 

960 

= 

XSMADR 

17*3703 

998 

1 

993 

i«HiNB»;i«)9iiH8aaiia(«gsMgK4ViiaRaBaaiHHi 

ZPRIME 

0026 

22 

7 

909 

905 

= 

XSmADRX 

19,3676 

972 

1 

951 

i 

Z3D0T 

1 6 1 1 6vJU 

539 

3 

611 

625 

ZREG 

0272 

13 

1 

309 

" X STORE 

01,2002 

116 

3 

1 1 6 

Z 

0005 

7 

13 

309 

398 

= 

zreglp 

0275 

13 

- 

— 

- 

xsu 

01 ,2093 

117 

1 

93 

■ 

ZDATA2 

12 f z 6 Ou 

165 

1 

167 

ZRUPT 

0015 

7 

9 

388 

389 

= 

XTRANS 

29,2509 

570 

9 

565 

587 

A 

ZDC 

E5 , 1936 

22 

9 

^05 

990 

= 

ZSM 

E5 , 19 19 

22 

27 

911 

997 

= 

XUNIT 

15,5037 

916 

2 

9 is 

960 

• 

ZERO 

7665 

76  290 

27 

636 

ZUNIT 

15,3033 

916 

2 

915 

960 

XYMARK 

0375 

15 

8 

218 

399 

t 

ZtROANS 

00  9 $ 6 <L  6 

108 

2 

108 

Z v 

E9 , 1621 

20 

- 

- 

• 

= 

■ sioar 

4*  M 8 *< ■ R 2 i 9 4 

HMHIlbafilBRI 

I 

ZEROCOEF 

25,3275 

633 

1 

630 

Y3D0T 

to  ♦ 1 5 f 6 

S39 

5 

606 

625 

R 

ZEROS ATa 

12,2712 

16  7 

1 

165 

( 1-K ) QR 

fc.6  f 165  r 

590 

6 

590 

633 

YCOm 

£6 , 1937 

536 

2 

369 

8 

zerodp 

15,3091 

916 

8 

909 

993 

9 

< 1 — K ) / 8 

E6 , 1660 

590 

2 

569 

630 

= 

YDC 

E5 , 1930 

22 

6 

905 

990 

S'' 

A 

ZEROERAS 

19,3613 

971 

i 

267 

(1-K) /8P 

23,2166 

595 

1 

595 

YT57 

1R  ,30  15 

917 

I 

917 

ZEROTCDU 

~975  5 

189 

2 

170 

191 

rr-Kvs 

25,3919 

639 

YMKRUPT 

13  »325l 

223 

1 

222 

1 

ZEROING! 

17,3290 

991 

1 

991 

(1-K) ,QR 

29,2715 

573 

* 

ynb 

E5 ,1930 

22 

2 

911 

960 

= 

V 

ZEROING 

17,3236 

991 

9 

951 

519 

( 1-KQ) /a 

29,2716 

573 

- 

* 

YRbG 

0271 

1 5 

“ 

- 

I 

ZER0LP1 

19,3639 

971 

r 971 

(2/3) 

26*3991 

626 

- 

- 

YREGLP 

C279 

13 

m 

* 

» 

ZEROLP 

19,3620 

971 

2 

971 

Key;  SYMBOLS'  DEFINED  BY  EQUALS  are  FLAGGeP~=t«  OTHERS  are  NORMALLY~DeFTT'TeD  EXCEPT  ^THOSe  FLSGGeOT 


t wrong  memory  type  mm  multiple  errors 

C CONFLICT  IN  MEMORY  X MISC.  TROUBLE 


U UNDEFINED 


TN£D  BY  = 


e failed  leftover  erase 
J FATLED  TeFTOVEFT  word 


M MULTIPLY  DEFINED 
IT  OVERSIZE-  OR  ILL*-DEFm EU~ 
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MEMORY  TYPE  & AVAILABILITY  DISPLAY 


0000 

"7  O' 

0057 

“SPECIAL  OR  NONEXISTENT  MEMORY 

06.2557 

TO  06,3777 

A V A 1 1 ABLE  FIXED  MEMORY 

0060 

AVAILABLE  ERASABLE  MEMORY 

07.2000 

TO  07,2503 

RESERVED  FIXED  MEMORY 

0061 

TO 

0375 

reserved  ERASA3i_E  MEMORY 

07.2504 

TO  07,3777 

AVAILABLE  FIXED  MEMORY 

0376 

TO 

0377 

AVAILABLE  ERA5ABLE  MEMORY 

10,2000 

TO  10,3342 

RESERVED  FIXED  MEMORY 

0400 

TO  0776 

RESERVED  ERASABLE  MEMORY 

10,3343 

TO 

10,3777 

11,3362 

AVAILABLE  FIXED  MEMORY 

0777 

AVAILABLE  ERASA3LE  MEMORY 

11,2000 

TO 

RESERVED  FIXED  MEMORY 

1000  TO  1110 

RESERVED  ERASABLE  MEMORY 

11,3363 

TO 

11,3777 

AVAILABLE  FIXED  MEMORY 

1111 

TO  1357 

AVAILABLE  ER4SA3Lt  MEMORY 

12,2000 

TO 

12,3770 

RESERVED  FIXED  MEMORY 

1360 

TO  E3  » 1 5 1 1 

RE5ERVED  ERASABLE  MEMORY 

12,3771 

TO 

12,3777 

AVAILABLE  FIXED  MEMORY 

E3 , 1512 

TO  E3.1777 

available  erasable  memory 

13,2000 

TO 

13,3435 

reserved  fixed  memory 

E4 ,1400 

TO  E4,i737 

RESERVED  ERASABLE  MEMORY 

13,3436 

TO 

13,3777 

AVAILABLE  FIXED  MEMORY 

E4 ,1740 

TO  “E47T777 

AVAILABLE  ERASABLE  MEMORY 

14,2000 

TO 

14,3727 

RESERVED  fixed  memory 

E5 ♦ 1400 

TO  E5  * 1747 

RE5ERVED  PRASA3LE  MEMORY 

14*3730 

TO  14,3777 

AVAILABLE  FIXED  MEMORY 

E5VT750 

TCT  E5,1777 

AVAILABLE  ERASABLE'  MEMORY 

IS, 2000 

TO  15,3576 

RESERVED  FIXED  memory 

E6 , 1400 

TO  t6 , 1675 

RESERVED  ERA5ABlE  MEMORY 

15,3577 

TO  15,3777 

available  fixed  memory 

£6,1676 

TO  E6.1777 

AVAILABLE  ERA5A3LE  MEMORY 

16,2000 

TO  16,3363 

RESERVED  FIXED  MEMORY 

E?,1400 

TO  E7,T606 

RESERVED  ERASABLE  MEMORY 

16*3364 

TO 

16*3777 

AVAILABLE  FIXED  MEMORY 

E7 , 1607 

TO  E 1 , 1777 

AVAILABLE  tRAsABLE  MEMORY 

17*2000 

TO 

17,3731 

reserved  fixed  memory 

4000 

TO  5513 

Rt  SERVED  FIXED  MEMORY 

17*3732 

TO 

17,3777 

AVAILABLE  FIXED  MEMORY 

5514 

TO  5777 

AVAILABLE  FIXtD  MEMORY 

20,2000 

TO 

20,3757 

RESERVED  FIXED  MEMORY 

6000 

TO  7702 

RESERVED  FIXED  MEMORY 

20,3760 

TO 

20,3777 

AVAILABLE  FIXED  MEMORY 

7703 

Tu  / 1 t f 

AVAILABLE  FIXED  MEMORY 

21,2000 

TO 

21,3430 

reserved  fixed  memory 

00  f 2000 

1 U 00 ,3660 

RESERVED  FIXED,  MEMORY 

2 i , 3431 

TO 

22,3777 

AVAILABLE  FIXED  MEMORY 

00  9 366  1 

TO  00,37  17 

AVAILABLE  FlXtD  MEMORY 

23,2000 

"TO 

23,3412 

RESERVED  FIXED  MEMORY 

01,2000 

TO 

01,3146 

RESERVED  FIXED  MEMORY" “ 

23*3413 

TO 

"23*3777 

AVAILABLE  FIXED  MEMORY 

01,3147  Tu 

01,3777 

AVAILABLE  FIXED  "MEMORY 

24*2000 

TO 

24,3724 

RESERVED  FIXED  MEMORY 

03,2000 

10 

03,3777 

SPECIAL  OR  NONEXISTENT  MEMORY 

24,3725 

TO 

24,3777 

AVAILABLE  FIXED  MEMORY 

04,2000 

TO 

04,3541 

RESERVED  FIXED  viEMORY 

25*2000 

TO 

25,3664 

RESERVED  FIXED  MEMORY 

^,35^2 

10 

U4 ,3777 

AVAILABLE  FIXtD  MEMORY 

25*3665 

TO 

25.3777 

AVAILABLE  FIXtD  MEMUKY 

05 ,2000 

TO 

05,3525 

RESERVED  FIXED  MEMORY 

26*2000 

TO 

26,3522 

RESERVED  FIXED  MEMORY 

05 ,3526 

TO 

05,3777 

AVAILABLE  TIXFD  MEMORY 

26,3523" 

TO  43,3777 

AVAILABLE  FIXED  MEMORY 

06 ,2000 

TO 

06,2556 

RESERVED  FIXED  MEMORY 

44,2000 

10 

67,3777 

SPECIAL  OR  NONEXISTENT  MEMORY 
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OCCUPIED 

TocTTHMS 

page 

OCCUP I eD 

LOCATIONS 

page 

OCCUPIED 

LOCATIONS 

PAGE 

OCCUPIED 

LOCATIONS 

PAGE 

“ 4000 

TO 

4045 

27 

6000 

TO 

6012 

34 

7552 

TO  7602 

74 

00,3536 

TO 

00,3577 

113 

4046 

“TO 

“4062 

28 

6013 

IU 

6035 

36 

7603 

TO  7635 

75 

00,3600 

TO 

00,3641 

114 

4063 

“TO 

41 1 1 

29 

6036 

TO 

6047 

36 

7636 

TO  7673 

76 

00,3642 

TO 

00,3656 

115 

4112 

“TO 

4130 

30 

6050 

TO 

6O7O 

37 

7674 

TO  7700 

77 

00,3657 

TO 

00,3660 

642 

4131 

TO 

4155 

31 

6O7I 

TO 

6134 

38 

7701 

TO  7702 

642 

01  ,2000 

TO 

01,2031 

116 

4156 

TO 

4174 

32 

6135 

TO 

6166 

39 

00,2000 

TO  00,2020 

78 

01  ,2032 

TO 

01,2066 

117 

417S 

“TO 

4231 

30 

6167 

TO 

6216 

40 

UUfZOZl  TO  00 | 206 1 

79 

01  ,2067 

TO 

01,2106 

118 

4232 

TO 

4274 

123 

6217 

TO 

6234 

41 

00,2062 

1 0 00,^101 

80 

01,2107 

TO 

01,2134 

119 

4275  TO 

4344 

124 

6235 

TO 

6274 

42 

00,2102 

TO  00,2124 

81 

01,2135 

TO  01,2151 

120 

4345  TO 

4362 

125 

6275 

TO 

6314 

43 

00,2125 

TO  00,2152 

82 

01,2152 

TO  01,2173 

121 

4363  TO  “ 

4415 

126 

6315 

TO 

6333 

44 

00,2153 

TO  00,2173 

83 

01 ,2174 

TO  01,2217 

122 

4416  TO  “ 

“ 4447 

127“ 

6334 

“TO  “ 

6 351 

45 

00,2174 

TO  00,2215 

84 

01,2220 

10  01,2252 

126 

4450  TO 

4503 

137 

6352 

TO 

6413 

46 

00,2216 

TO  00,2256 

85 

01,2253 

TO 

01,2316 

129 

4504  TO 

4535 

138 

6414 

TO 

6430 

47 

00,2257 

TO  00,2311 

86 

01,2317 

TO 

01 ,2371 

130 

4536  TO 

4566 

139 

6431 

TO 

6454 

48 

00,2312 

TO  00,2331 

87 

01,2372 

TO 

01  ,2374 

131 

4567  TO 

4601 

140 

6455 

TO 

6464 

49 

00,2332 

TO  00,2401 

88 

01,2375 

TO 

01 ,2413 

132 

4602  TO 

4613 

147 

6465 

TO 

6526 

50 

00,2402 

89 

01,2414 

TO 

01,2462 

133 

4614  TO 

4641 

148 

6527 

TO 

6562 

51 

00,2403 

TO  00,2443 

90 

01,2463 

TO 

01,2473 

134 

4642  TO 

4666 

149 

6563 

TO  “ 

663U 

52 

00,2444 

TO  00,2461 

91 

01,2474 

10 

01,2533 

135 

4667  TO 

4712 

150 

6631 

53 

00,2462 

TO  00,2511 

92 

01,2534 

TO 

01,2565 

136 

4713  TO 

4754 

160 

6632  TO 

6661  54 

“ 00,2512 

TO  00,2531 

93 

01,2566 

TO  01,2611  141 

4755 

TO 

4762 

189 

6662  TO 

6710  55 

00,2532 

TO  00,2546 

94 

01,2612 

TO  01,2641  142 

4763 

TO 

4776 

227 

6711  TO 

6732  56 

00,2547 

TO  00,2563 

95 

01,2642 

TO  01,2705  143 

4777 

TO 

“5041 

228 

6733  TO 

6760  57 

' 00,3564 

TO  00,2575 

96 

01,2706 

TO  01,2722  144 

“5042 

TO 

““5077 

“229 

“6  76  r 

T0““ 

7010 

56 

00,2576 

TO  00,2636 

97 

01,2723 

TO  01,2735 

145 

5100 

TO- 

5X05“ 

330 

Ton 

TO 

“ T04T 

59 

OCT,  2637 

10  00 ,2674 

98 

U1  ,2736 

TO  01,2772 

146 

5107 

TO 

5122 

340 

7050 

1 0 

7062 

60 

00,2675 

TO  00,2724 

99 

01,2773 

TO  01,2777 

367 

5123 

TO 

5130 

341 

7063 

TO 

7115 

61 

00,2725 

TO  00,2747 

100 

01  ,3000 

TO  01,3042 

40 1 

5 1 i 1 

l u 

5151 

34<: 

7116 

IU 

7133 

62 

00,2750 

TO  00,3017 

101 

01,3043 

TO  01,3120 

402 

5152 

TO 

5160 

343 

7134 

TO 

7174 

63 

00*3020 

TO  00*3056 

102 

01  ,3121 

TO  01,3144 

403 

51  6 1 

Tu 

“5210 

“355 

^T175 

TO 

7216 

64 

00,3057 

TO  00,3076 

T03 

01,3145 

TO  01  , 3146 

642 

od  1 1 

T 0 

5250 

356 

7217 

TO 

7234 

65 

00  ,3077 

Tu  00,3l2i 

104 

04,2000 

TO  04,2050 

294 

5^51 

1 u 

55U5 

55  1 

7<i35  IU 

00,3122 

TO  00,3157 

105 

04,2051 

TO  04,2117 

295 

55U4t 

1 u 

359 

( 3 J *+ 

1 u 

f314 

67 

00 ,3160 

TO  00,3226 

106 

04,2120 

TO  04,2200 

296 

0 DC  i 

1 u 

3 60 

7315 

1 u 

7353 

68 

00,3227 

TO  00,3271 

107 

04,2201 

TO  04,2247 

297 

5341 

1 0 

5412 

361 

7354 

TO 

Till 

69 

00,3272 

10  00,3332 

TCTBr 

04,2250 

TO  04,2323 

298 

5413 

TO— 

5445 

366 

7400 

TO 

7433 

“TO— 

00,3333 

TO  00,3403 

109 

04,2324 

TO  04,2366 

299 

5446 

IU 

5467 

“367 

7434 

I u 

-TA 

7472 

71 

“00,3404 

TO  00,3444 

~TI  0 

O4423 67 

TO  04,2430 

“ 300 

547U 
c c 1-9 

1 u 

-T-n — 

5511 

473 

7473 

1 u 

TA 

75l7 

72 

00,3445 

TO  00,3500 

111 

04,2431 

TO  04,2503 

301 



551  ^ 

5 515 

6 

75  du 

1 u 

7551 

73 

00  *3501 

TO  00,3535 

112 

04,2504 

TO  04,2554 

302 
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04 , 2555 

TO  04,3604 

315 

" 05,3131 

TO 

05,3176 

329 

10,2051 

TO  10,2114 

232 

11,2475 

10  i i 9 <L  p £ $ 

271 

04,2605 

TO  04,2653  " 

316 

05 ,3177 

0 57022  r 

330 

" 10,2115 

TO  10,2147 

233 

11  ,2524 

TO  ll*256b  uJL 

04,2654 

TO  04,2707 

317 

05,3222 

TO 

05,3245 

332 

10,2150 

TO  10,2212 

234 

11,2566 

10  11,2633 

273 

04,2710 

TO  04,2722 

318 

05 ,3246 

TO 

05,3266 

333 

10,2213 

TO  10,2246 

235 

1 1 ,2634 

TO  11,2703 

274 

04,2723 

TO  04,2742 

324 

05,3267 

TO 

05,3301 

335 

10,2247 

TO  10,2305 

236 

11,2704 

TO  11,2737 

275 

04,2743 

TO  04,3015 

325 

05,3302 

TO 

05*3337 

336 

10,2306 

TO  10,2330 

237 

11,2740 

TO  1 i 9 POuO 

276 

04,3016 

TO  04,3065 

326 

05 ,3340 

TO 

05,3343 

337 

TO  72331 

TO  10,2350 

238 

1 1 * 300 1 

TO  11,3027 

277 

04,3066 

TO  04,3100 

327 

05,3344 

TO 

05,3402 

341 

10,2351 

To  10*2362 

239 

il  ,3030 

TO  11,3060 

278 

04,3101 

TO  0 4 ,T  1 5 4 

331 

05,3403 

TO 

05,3413 

343 

10,2363 

TO 

10,2421 

240 

11,3061 

TO 

IT 

,3127 

279 

04,3155 

TO  04,3200 

332 

05,3414 

TO 

05,3457 

363 

10 ,2422 

TO 

1 0 ,2466 

241 

11,3130 

10 

11 

,3141 

280 

04,3201 

TO"  04,3216 

333 

05,3460 

TO 

05,3520 

364 

10,2467 

TO 

10,2506 

242 

11,3142 

TO 

11 

,3206 

2 8 1 

04,3217 

TO  04,3267 

334 

U5 , 3 5 2 1 

TO 

05,3523 

365 

TO, 2507 

TO 

10 ,2543 

243 

11 

* 3207  282 

04,3270 

nor  04, 3307 

335 

05,3524 

TO  05,3525 

642 

10,2544 

TO 

10,2572 

244 

11,3210 

TO 

11,3260 

283 

04  9 3 3 1 0 

TO  04,3333 

337™ 

06  * 2000 

10  06,2034 

43  r 

10,2573 

TO  10,2635 

245 

11,3261 

TO  11,3263 

284 

04,3334 

TO  04,3414 

338 

06 ,2035 

TO  06  1 2060 

432 

i U , 2636 

TO 

10 ,2651 

246 

11,3264 

TO 

11,3340 

368 

04,3415 

TO  04,3421 

339 

U6 ,2061 

TO  06*2120 

433 

10,2652 

TO 

10,2706 

247 

1 1 ,3341 

TO 

11,3360 

369 

U4 , 342  2 

TO  04,3435 

343 

U 6 * 2 1 c 1 

TO  06,2173 

434 

10,2707 

TO 

10,2754 

248 

11,3361 

TO 

11,3362 

642 

04,3436 

TO  04,3453 

344 

06 ,2174 

TO  06*2213 

435 

10,2755 

TO 

10,3023 

249 

12,2000 

TO 

12,2045 

151 

UH , 3454  [0  04,3475 

359 

U6*2^1*t  IU  U6f22b3 

T36 

' 10,3024 

TO 

10,3076 

250 

12,2046 

TO 

12,2071 

"T52" 

UH,3H76 

IU  OH, 3517 

360 

06,2254 

IU  U6*231U 

437 

10,3077 

TO 

10,3110 

251 

12,2072 

TO 

12,2143 

153 

04,3520  TO  U4 ,3537 

362 

06,2311 

TO  06,2344 

438 

10,3111  TO 

10,3136 

252 

1 2'  , 21 H4 

TO  12,2212 

154 

UH,35HU 

IU  UH,3541 

642 

06 ,2345 

TO  06,2420 

439 

10,3137  TO 

10,3171 

253 

12,2213 

155 

05,2000 

TO  O3 ,2033 

303 

06,2421 

IU  06,2430 

440 

10,3172  TO 

10,3234 

254 

12,2214 

TO  12,2266 

156 

0572034 

TCT~0  5 , 2112 

304 

"06 ,2431 

TO  06,2461 

44TT 

10,3235  TO 

10,3253 

255 

12,2267 

TO  12,2343 

157 

~?572TT3— 

TO" 05,2170 

"305" 

06,2462 

TO  0T> , 2 5 2 2 

442 

TO  ,3254 

TO 

10,3316 

256 

12,2344 

TO 

12,2411 

158 

05,2171 

TO  05,2175 

306 

06,2523 

TO  06,2554 

-4-43- 

TO  ,3317 

TO 

10,3340 

257 

12,2412 

TO 

12,2450 

15  9 

05*2176 

TO  05,2240 

307 

06,2555 

TO  06 ,2556 

642 

10,3341 

TO 

10,3342 

642 

12 ,2451 

TO 

12 ,2500 

162 

05,2241 

TO  05,2311 

308 

07,2000 

TO  07,2044 

211 

11,2000 

TO 

11,2050 

258 

12,2501 

TO 

12,2546 

163 

IU  us,tJ2 5 

3U9 

07,2045 

TO  07,2112 

212 

11,2051 

(0 

11,2107 

259 

12,2547 

TO 

12,2564 

164 

Up  * 2 3 2 6 

TO  05*2402 

312 

07,2113 

Tu  07,2155 

213 

11,2110 

TO 

11,2131 

260 

12  ,2565 

TO 

1 t , 263 1 

165 

05 ,2403 

TO  Op, 2452 

313 

0T,21 56 

1 0 07,2210- 

214 

11  * 2 1 32 

TO 

11,2153 

261 

12,2632  TO  12,2706 

166 

UP  * ^Hpp 

TO  05*2524 

314 

07,2211 

TO  07,2256 

215 

11,2154 

TO 

1 1 ,2203 

262 

12,^7U7 

1 0 

,271  f 

167 

US  ,2525 

10  U5 , 2 534 

015 

0 7 * 22  5 7 

TO  07,2321 

" 216 

11  ,2204 

TO 

11  ,2233" 

263 

12,2720 

TO 

12,2767  168 

UP  |2535 

|U  05*2604 

319 

07,2322 

TO  Of, 2361 

217 

11,2234 

TO 

1 1 ,2265 

2 64 

12,2770 

TO 

i C.  * PU  PO 

10  'i 

05,-2605 

TO  05,2662 

320 

07,2362 

TO  07,2401 

285 

11,2266 

TO 

11,2302 

265 

12,3037 

TO 

12,3102 

170 

06  * 2 663 

IU  U5*C  fjp  P2  l 

07,2402 

TO  07,2460 

286 

11 ,2303 

TO 

11,2326 

266 

12,3103 

TO 

12,3142 

171 

_ 

12,3204 

05 ,2734 

TO  0p*3006 

322 

0 f * 2 4 5 1 

TO  07,2501 

2 87 

11,2327 

TO 

11  * ^ P / 0 

267 

12 ,3143 

TO 

172 

u? T3UUT 

1 0 Op  * 3UP2 

323 

07,2502 

1 U Of,  2503 

642 

11 ,2377 

TO 

1 1 ,2402 

268 

12,3205 

TO 

12,3253 

173 

UP  * PUPP 

IU  op  * PU  r 6 

324 

10,2000 

TO  10,2012 

230 

1 1 ,2403 

TO 

1 1 ,2450 

269 

12,3254 

TO 

12,3321 

174 

Up  * PU77 

1 U Up  * p 1 30 

328 

10,2013 

TO  10,2050 

231 

1 1 ,2451 

TO 

1 1 ,2474 

^70 

12,3322 

"TO" 

12 ,3343 

175 
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12,3344  nri2,3405  176 

13,3315 

TO  13,3371 

225 

15,2253 

TO 

15,2320 

375 

16,2620 

TO 

16,2662 

502 

12,3406  TO  12,3437  177 

13,3372 

W T3 ,3433 

226 

15,2321 

10 

15,2366 

376 

16,2663 

TO 

16,2730 

503 

12 , 3440  “ TO  1 2, 3500  1 7 8 

13 ,3434 

TO  13,3435 

642 

15,2367 

TO 

15,2425 

404 

16,2731 

TO 

16,2772 

504 

12,3501  TO  12,3520  179 

14,2000 

TO  14,2043 

444 

15 ,2426 

TO 

15,2437 

405 

16,2773 

TO 

1 6 * 3022 

505 

12,3521  TO  12,3544  180 

14,2094 

TO  14,2115 

445 

15,2440 

TO 

15,247 2 

406 

16,3023 

TO 

16,3067 

506 

12,3545  TO  12,3561  1 8 1 

14,2116 

TO  14,2134 

446 

15,2473 

TO 

1 6 , 2 6 1 6 

407 

16,3070 

TO 

16,5101 

507 

12,3562 TO  1 2 ,3621  " 182 

14 ,2135 

TO  14,2207 

447 

15,2517 

TO 

15,2542 

408 

16,3102 

TO 

16,3131 

508 

12,3622  TO  12,3635  184 

14,2210 

TO  14,2246 

448 

15,2543 

TO 

15 ,2606 

409 

16,5162 

TO 

16,3166 

509 

12,3636  185 

14,2297 

TO  14,2315 

449 

15,2607 

TO 

15,2614 

410 

16,316? 

TO 

16,3232 

510 

12,3637  TO  12,3647  186 

1 4 1 2 3 1 6 

TO  14,2324 

450 

1 3 , 26 1 5 

TO 

15 ,2657 

411 

16,3233 

TO 

16,3257 

511 

12,3650  TO  12,3711  187 

19,2325 

TO  14 » 23  76 

451 

1 5 ,2660 

TO 

15  *2676 

412 

16,3260 

TO 

16*332  ( 

512 

12,3712  TO  12,3751  188  ' 

19,2377 

TO  14,2404 

452 

1 5 ,2677 

TO 

15,2735 

413 

16 ,5350 

TO 

16,3361 

513 

* 37b<c  TQ  I £ * 3766  636 

19,2905 

10  14,2453 

453 

15,2736 

TO 

15*2765 

414 

16,3362 

TO 

i 6 * 3363 

643 

12,3767  TO  12,3770  642 

14,2959 

lU  14,2627 

454 

13 ,2766 

TO 

15,3017 

415 

17,2000 

TO 

17 ,2046 

475 

13,2000  -TO  13,2034  190 

14,2530 

TO  14,2575 

455 

15,3020 

TO 

15,3050 

416 

17,2047 

TO 

17,2126 

476 

13,2035  TO  13,2054  1 9 1 

14,2576 

TO  14,2643 

456 

15,3061 

TO 

1 5 , 3 1 1 3 

417 

17 ,2127 

TO 

17,2207 

477 

13,2055  TO  1 3,2121  192  14 ,2644  TO  14 

13,2122  TO  13,2152 — 193  14,2706  TO  14 

13,2153 r0~-13yZ20"5 F94 1 4~,  2727 — T0”T4 

13 , 2206  TO  13,2226  “ 195  14,2760  TO  14 


,2705 

457 

15,3114 

TO 

15,3166 

418 

17,2210 

TO 

17, 

,2726 

458 

15,3167 

TO 

15,3172 

419 

17,2245 

TO 

17  ♦ 

* 2 f 5 7 

459 

T5 , 3 17  3 

TO 

1 5,3237 

-42O 

17,2322 

TO 

17, 

,3027 

460 

1 5 ,3240 

TO 

15,3242 

421 

17 ,2402 

TO 

17, 

127222  7 TO  13,2265 196  1473030  nr~I4 

13,2266  TO  1 3,2316  197  14,3062  TO  14 

13,2317  TO  13,2363  198  14,3123  TO  14 

1 3 , 2364 — T0“13“,240l T9? — — 14,3176 — TO  14 


3061 

3122 

3175 

3253 


461 

462 

463 

464 


15,3243  TO  15,3266 
15,3267  TO  15,3313 
15,3314  TO  15,3341 
15,3342  TO  15,3403 


422 

423 

424 

425 


T7 

17 

17 

~17 


2445  TO  17 
2526  TO  17 
2605  TO  17 
2662  TO-  17 


2244  478 

2321  479 

2401  480 

2444  481 


2525  482 

2604  483 

2661  484 

2736  485 


— 13,2402 

Ter 

13,2437 

-2TCT- 

14,3254 

-TO 

14,3323 

465 

15,3404 

TO 

15,3441 

428“ 

17,2737 

TO 

17,2770 

486 

1 3,2440 

TO 

1372472“ 

“201 

14 ,3324 

TO 

14 ,3360 

466 

15,3442 

TT  T5 ,3453 

427 

17,2771 

TO 

17,3051  48r 

13,2473 

TO 

13,2535 

202 

14,3361 

TO 

14,3441 

467 

15,3454 

TO 

15,3514 

428 

17,3052 

TO 

17,3062 

488 

13 ,2536 

TO 

13  * 2 60 5 

203 

14,3442 

TO 

14,3522 

468 

15,3515 

TO 

15 ,3521 

429 

17,3063 

TO 

17,3123 

489 

1 j * c.  6 v 6 

1 u 

1 -> 

2U9 

14,3523 

1 U 

14,3561 

469 

15,3522 

TO 

15,3574 

430 

17,3124 

TO 

17,3204 

490 

13 ,2633 

TO 

13,2663 

205 

14,3562 

TO 

14,3612 

470 

15,3575 

TO 

15,3576 

643 

1 7 ,3205 

TO 

17,3261 

491 

1 3t2  664 

TO 

13  , in  1 1 

206 

14,3613 

TQ- 

1 4 , 3642 

471 

1 6 , 2UoO 

TO 

1672036 

347 

17,3262  IU  17 ,3343 

492 

13  % c.(  L c. 

1 u 

1 3 ,2 742 

207 

14,3643 

TO 

14,3702 

472 

16,2037 

TO 

16,2107 

348 

17,3344 

10 

17,3421 

493 

13,2743 

13,2753 

13,3022 

13,3100- 


-Ttrt3v2752 — 208 
TO  13,3021  218 

TO  13,3077  219 

TO  13,3153  220 


15,2000- 


14 
-14 
TO  15 


3726 

3727 
2046 


474 

642 

643 
370  - 


16,2110  TO  16,21 62  349 

16,2163  TO" 16,2242  350 

16,2243  TO  16,2321  351 

16,2322  TO  16,2377  3527 


“1 

17 

17 

“IT 


7,3 


422 — TO  17 
3460  TO  17 
3524  TO  17 
35T4  TO  17 


13,3154  TO  13,3160-  221 
13,316-1 — TO-  IT  , 3235  222 

13,3236  TO  13,3311  223 

13,331 2 TO  13,3314  224 


15,2047  TO  15 
15,2116 — TO-15 
15,2167  TO  15 
15,2212  TO  15 


2115 

2T66- 

2211 

2252 


371  16,2400  TO  16,2454  353  17,3626  TO  17 

372  16,2455 — TO  1642517  354 17,3704  TTTTT 

373  16,2520  TO  16,2555  500 17,3730  TO  17 

374  16,2556  TO  16,2617  501  20,2000  TO  20 


3457 — 494 
3523  495 

3573  496 

3625 497 

3703  498 

3727  499 

3731  643 

2015  377 
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20,2016  TO  20,2066  378 

"2Cr, 2UI — TO  20, 2211  - 380 
20722T2 — TCT'20,2263  381 


20,2264  TO  2 0 ,2341  382 

20,^2T42~  TO  20^2414  '383 

2CT,-24l  5 TO  2 0 ,2473 384" 

20,2474  - TCT  20, 2553  385 


21,2764 

TO  21,3041 

527 

24,2426 

TO 

24,2502 

569 

25,3134 

TO  25,3205 

631 

21,3042 

TO  21 , 3044r 

'528 

24,2503 

TO 

24,2553 

570 

25,3206 

TO  25,3262 

632 

21,3045 

TO  21*3106 

529 

24,2554 

TO 

24 ,2651 

57l 

25,3263 

TO  25,3340 

633 

21,3107 

TO  21,3165 

530 

24,2632 

TO 

24,2712 

572 

25,3341 

TO  25,3415 

634 

21,3166 

IU  2 1 , 5 2 4 1 

531 

24,2713 

TO 

24,2734 

573 

25,3416 

TO  25,3442 

636 

2 1 , 32  42 

TU  21,3313 

532 

24,2735 

TO 

24,2742 

574 

25,3443 

TO  25,3514 

637 

21,3314 

TO  21,3370 

<^4*2743  TO  24,277U 

575 

25,3515 

"TO  25,3524 

638 

21,3371 

TO  21,3426 

534 

24,2771 

TO 

24,3036 

576 

25,3525 

TO  25,3573 

639 

20,2554  TO 

T07Z5Z6 

7T86 

21,3427 

TO" 

2I‘,343D" 

7543 

24,3037 

24,3104 

577 

25 

,3574 

TO 

25,3643- 

640 

20,2627  TO 

20 ,2701 

387 

23,2000 

TO 

23 ,2050 

542 

24,3105 

TO 

24,3155 

578 

25 

,3644 

TO 

2 3 , 3 662 

641 

20,2702  TO 

20,2754 

388 

23,2051 

TO 

23,2107 

543 

24,3156 

TO 

24,3225 

579 

25 

,3663 

TO 

25,3664 

643 

40,2733  IU 

ZVJJUT7  3 89 

23,2110  TO 

2 3, 2 i b b 544 

24 ,3226 

TO 

24,3277 

580 

26 

,2000 

TO 

26,2032 

604 

20,3030  TO 

20,3101 

390 

23,2156 

TU 

2 3 ,2233 

545 

24,3300 

TO 

24,3352 

581 

26 

,2033 

TO 

26,2103 

605 

2 U , 3 1 U |U  2 J * .3  i b U 3 9 i 

23,2234 

IU  2 b * 2 3U6 

546 

24,3353 

to 

24,3425 

582 

26 

,2104 

TO  26,2125 

606 

4<J  * 3 i b l iu 

20,3227 

392 

23 ,2307 

1 U 

2 3 , 2 b b 3 

547 

24,3426 

TO 

24,3465 

583 

26 

,21^6 

TO 

2 6 * 2 1 6U 

6O7 

20,3230  TO 

20  ,3303 

393 

23,2354 

TO 

23 ,2424 

548 

24 , 3466 

TO 

24,3524 

584 

26 

,2161 

TO 

26  * 2 2 3 3 

608 

~ZQ 

,3304 

- TIT  20  ,3350 

394  ^ 

23,2425  TO 

23 

,2472 

549 

"24,3525 

TO 

24,3572 

“585 

26,2234 

TO 

26,2303 

6p9 

20 

,3351 

TO  20,3426 

395 

23,2473  TO 

23 

,2547 

550 

24,3573 

TO 

24,3642 

586 

2 6 * 2304 

TO 

26 ,2361 

610 

20 

,3^27 

Tu  20, 3501 

396 

23  ,2  55  0~  TO 

2H ,36^3 

TO 

24,3651 

58T 

26 ,2362  TO 

26*2402 

611 

20 

,3502 

TO  20,3550 

397 

23 ,2624  TO 

23 

,2673 

552 

24,3652 

TO 

24,3714 

592 

26,2^03 

IU 

26,2453 

612 

20*3551  TU  20*3621 

398 

23,2674 

TO  23,2751 

553  - 

24", 37 15  TO  24,3722 

593 

“ 26,2454 

TO  26,2534 

613 

2 v * b b 2 2 

1 u 

^0, J675 

399 

23 ,2752 

TO  23,3032 
TO  23,3111 

554 

555 

24,3723  TO  24,3724 
25,2000  TO  25,2043 

643 

26,2535 

26,2564 

FO  26,2563 

614 

20 ,3676 

TO 

20,3751 

400 

23,3033 

588 

TO  *16*261? 

615 

23 , 31  i 2 

TO"  23,3140 

556 

"25,2044  TO  25,2121 

589 

26*2620 

|0  26,2663 

61 6 

20,3756 “ TO  20 ,5757" 

643 

23,3141 

TO  23 ,32o5 

" 557  ~ 

25,2122 

TO 

25,2173  590 

26,2664 

TO  26,2732 

61 7 

21  ,"20 0 0 TO  21 , 2041 

~514 

23  * 32 06 

TO  23,3260 

558 

25,2174 

TO 

25,2215  591 

2 6 1 2 7 33 

TO  26,2764 

6 1 8 

21*2042  TO  21*2103 

515 

23,3261 

TO  23,3326 

559 

25,2216 

TO 

25,2264  594 

26,2765 

TO  2 b * bO 2 7 

6 1 9 

21*2104  TO  21*2157 

5 16 

23,3327 

10  23,3377 

560 

25 ,2265 

TO 

25,2343  595 

26,3030 

TO  26,3100 

620 

21,2160  TO  21,2241  5l7 

21,2242  TO  21,2313  518  - 

21^2314 TO  21 ,2375 5lT“ 

21,2376  TO  21,2457  520 


21,2460  TO  21,253-5 — 521 
21,2537  TO  21,2602—  522— 
21,2603  TO  21,2654  523 

tTi2655 TO  21,2665  524 


23,3400  TO  23,3410  561 

23,3411  TO  23,3412  643 

"2T  f2000  TO  2472031" ' 562~ 
24,2032  TO  24,2103  563 


2472T04r  TO~24:72T6  5"564  " 
24 ,2166  TO  24,2240  565 

24,2241  TO  24,2303  566 

24,2304  TO  24,2354  567 


25,2344 

TO  25,2413 

596" 

26*3101 

TO 

26,3155 

621 

25,2414 

TO  25,2475 

597 

26,3156 

TO 

26*3226 

622 

2 5r2476 

TCT  25,2557 

598 

26*3227 

10  26 ,33UU 

623 

25,2560 

TO  25,2636 

599 

2 b * 3 30 1 

1 U 

2b  * 

624 

25,2637 

TO 

25,2720 

600 

2 5 , 272 1 

TO 

TO 

25,2775 

25,3046 

601 

602 

25,2776 

25,3047 

TO 

2b ,3063 

603 

26 

26 

26 

26 


3351  TO  26 ,3415  625 

UU  Tn  *26 


21,2666  TO  21,2724  525 

21,2725 — T0  21 ,2763  ~ 526 


24,2355  TO  24,2425  568 


25,3064  TO  25,3133  630 


26,3521  TO  26,3522  643 
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4000  TO- 

4377 

PARAGRAPH 

# 

010 

ROPE 

MODULE 

1, 

SIDE 

A, 

SENSE 

LINE 

SET 

05 

(WIRES 

65-80) 

4400  TIT 

4777 

PARAGRAPH  rtf  Oil 

ROPE 

"MUPUUE" 

1 , 

SIDE 

B, 

SENSE 

TINE 

SET 

05 

(WIRES 

65-80) 

5000  TO  “ 5377 

PAR AoKAPH 

if 

012 

RUPE 

MODULE 

T* 

SIDE 

A * 

SENSE 

LINE 

SET 

06 

(WIRES 

81-96) 

5400  TO 

5777 

PARAGRAPH 

ft 

013 

ROPE 

MODULE 

1, 

SIDE 

B* 

SENSE 

LINE 

SET 

06 

(WIRES 

81-96) 

6000  TCT 

6377 

" PARAGRAPH 

IT 

014 

ROPE 

MODULE 

1, 

SIDE 

A, 

SENSE 

LINE 

SET 

07 

(WIRES 

97-112) 

■ 6400  TOT 

6777 

PARAGRAPH 

if 

q15 

ROPE 

module 

1, 

SIDE 

B t 

sense 

LINE 

SET 

07 

(WIRES 

97-112) 

" 7000  TO 

7377 

~ PARAGRAPH 

it 

016 

ROPE 

MODULE 

1, 

SIDE 

A, 

SENSE  LINE 

SET 

08 

(WIRES 

113-128) 

7400  TO 

7777 

PARAGRAPH 

# 

017 

ROPE 

MODULE 

1, 

SIDE 

B t 

SENSE 

LINE 

SET 

08 

(WIRES 

113-128) 

00 » 2000  TO 

00 1 2377 

PARAGRAPH 

» 

020 

ROPE 

MODULE 

1* 

SIDE 

A* 

SENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

00,2400  TO 

004  2777 

PARAGRAPH 

# 

021 

ROPE 

MODULE 

1, 

SIDE 

B, 

5ENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

00,3000  TO 

00,3377 

PARAGRAPH 

W 

022 

ROPE 

MODULE 

1, 

SIDE 

A , 

SENSE 

LINE 

SET 

02 

(WIRES 

17-32) 

00, 3400  TO 

0043777  " 

PARAGRAPH 

it  023 

ROPE  MODULE 

1, 

SIDE 

B, 

SENSE  LINE  SET 

02 

(WIRES 

17-32) 

01,2000  TO 

01,2377 

PARAGRAPH 

* 

024 

ROPE 

module 

1, 

5IDE 

A, 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

01,2400  TO  01, 2777 

PARTTGRARH 

# 

025 

ROPE  MODULE 

1, 

SIDE 

B, 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

01,3000  TO 

01,3377 

PARAGRAPH 

ft 

026 

ROPE 

module 

I, 

SIDE 

A, 

SENSE 

LINE 

SET 

04 

(WIRES 

49-64) 

U4 ,2000  TO  04 *3377 

PARAGRAPH 

if  040 

ROPE 

module  1, 

SIDE 

A, 

SENSE  LINE 

SET 

09 

(WIRES 

129-144) 

04,2400  TO 

04,2777 

PARAGRAPH 

# 

041 

ROPE 

MODULE 

1, 

SIDE 

B f 

SENSE 

LINE 

SET 

09 

(WIRES 

129-144) 

04,3000  TO 

04,3377 

PARAGRAPH 

if 

042 

ROPE 

MODULE 

1 , 

SIDE 

A* 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

04  » 3400 _ TO 

04,5  i n 

HMKAoKAPh  ft 

043 

ROPE 

MODULE 

TT 

5IDE" 

B* 

sense  line 

SET 

ro 

(WIRES 

I45-16Q) 

05,2000  TO 

05,2377 

PARAGRAPH 

if 

044 

ROPE 

MODULE 

1, 

SIDE 

A, 

SEN5E 

LINE 

SET 

11 

(WIRES 

161-176) 

05,24770  TO  ^75 ,2777 

PARAGRAPH  W 

045 

ROPE" 

MUDULE  1, 

"5TPET 

B, 

11 

(WIRES  161-176) 

05,5000  TO 

05 ,55  f r 

PARAGRAPH 

* 

046 

ROPE 

MUDULE 

1, 

SIDE 

A* 

sense 

line 

SET 

12 

(WIRES 

177-192) 

05,3400  TO 

05,3777 

PARAGRAPH 

if 

047 

ROPE 

MODULE 

1 , 

SIDE 

B» 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

06,2000  10 

06,2377 

PARAGRAPH 

§ 

050 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

06,2400  TO 

06 ,2777 

PARAGRAPH 

if 

051 

ROPE 

MODULE 

2, 

SIDE 

B s 

sense 

LINE 

SET 

Ol 

(WIRES 

1-16 ) 

U t , 2000  TO 

U I *2377 

PARAGRAPH 

it 

054 

ROPE 

MODULE 

2, 

5IDE 

A, 

sense 

LINE 

SET 

03 

(WIRES 

33-48) 

0 t ,2400  TO 

07,2777 

PARAGRAPH 

ft 

055 

ROPE 

MODULE 

2, 

SIDE 

B 9 

sense 

LINE 

SET 

03 

(WIRES 

33-48) 

i0,500U  IU 

1 U 9 ^3  ( 7 

PARAGRAPH 

# 

050 

ROPE 

MODULE: 

2, 

SIDE 

A, 

5EN5E 

LINE 

SET 

05 

(WIRES 

65-80 ) 

10,2400  TO 

10 ,277  1 

PARAGRAPH 

# 

051 

ROPE 

MODULE 

2, 

SIDE 

B 9 

SENSE 

LINE 

SET 

05 

(WIRES 

65-60) 

l"Oy30P0""  TO- 

ITT 73377  " 

PARAGRAPH 

ft  062 — 

ROrc  MUUULt 

^ ♦ 

A, 

SENSE  LINE  SET  06  TWIRLS 

81-967 

11,^000  IU 

11  ft  J I f 

PARAGRAPH 

rtf 

064 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

07 

(WIRES 

97-112) 

1 i 1 U i i 9 £ 7 n 

PARAGRAPH 

065 

—ROPE  MODULE  2,  SIDE  6 , 

SENSE 

"LINE 

SET" 

07 

(WIRES 

97-112) 

L l 9J5UVU  I U 

1 1 ,55  1 ( 

PARAGRAPH 

» 

066 

ROPE 

MODULE 

2, 

SIDE 

A 9 

SENSE 

LINE 

SET 

08 

(WIRES 

113-128) 

pARAURAplT 

PARAGRAPH 

PARAGRAPH 

1272000  TO 

13,2377 

12,2777 

r 

070 

ROPE  "MODULE- 

2, 

SIDE  A, 

SENSE  LINE  SET  09 

TWIRES  129-144) 

12,2400  TO 

rtf 

071 

ROPE 

MUDULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

09 

(WIRES 

129-144) 

1 d 1 3000  TO 

12,3377 

rtf- 

072 

ROPE 

MODULE 

2, 

SIDE 

~~A  9 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160 ) 

ids 34Q0  TO 

12,3777 

paragraph 

rtf  075 

ROPE 

"MODULE" 

7," 

SIDE 

b ? 

SENSE  LINE  SET  10 

"TWIRES 

145-160) 

MODULE 

SIDE 

SENSE 

LINE 

SET 

(WIRES 

13,2000  TO 

1 5 , 2 3 n 

PARAGRAPH 

rtf 

074 

— ROPE 

2, 

A, 

11 

161-176) 

TO 

13 ,2777 

PARAGRAPH 

rtr-075 

ROPE" 

"MODULE 

2 , 

STDE 

B, 

"(WIRES  1 6T-176 ) 
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13,3000 

TO  13,3377 

PARAGRAPH 

0 76 

ROPE 

MODULE 

2, 

side 

A, 

SENSE 

LINE 

SET  12 

(WIrEs 

177-192) 

“ 13,3400 

TO  13,3777 

PARAGRAPH 

ft 

077 

“ROPE 

7TODULE 

2, 

stoe 

B, 

sense 

LINE 

SET'  12 

(WIRES  177-192) 

14,2000 

TO  14,2377 

PAKAoKAPH 

ft 

100 

ROPE 

MODULE 

3, 

SIDE 

A, 

SEN5E  LINE 

SET  01 

(WIRES 

1-16) 

“ 14,-24017 

TO  14,2777 

“PARAGRAPH 

ft 

101 

^rOPE 

“MODULE 

3, 

SIDE 

B, 

SENSE 

LINE 

set  01 

(WTrEs 

1-16) 

14,3000 

TO  14,3377 

PARAGRAPH 

ft 

102 

ROPE 

MODULE 

3, 

SIDE 

A, 

SEN5E 

LINE 

SET  02 

(WIRES 

17-32) 

14,3400 

TO  14,3777 

PARAGRAPH 

ft 

103 

ROPt 

MODULE 

3, 

SIDE 

6 f 

SEN5E 

LINE 

SET  02 

(WIRES 

17-32) 

13*2000 

TO 

PARAGRAPH 

ft 

104 

ROPE 

MODULE 

3, 

SIDE 

A, 

5EN5E 

LINE 

SET  03 

(WIRES 

33-48) 

15,2400 

TO  1 5 , 2777 

PARAGRAPH 

ft 

105 

ROpE 

MODULE 

3, 

SIDE 

B* 

SENSE 

LINE 

SET  03 

(WIRES 

33-48) 

15,3000 

TO  15,3377 

PARAGRAPH 

ft 

lO  6 

“ROPE 

MODULE  3, 

SIDE  A, 

SENSE  LINE  SET  04 

(WIRES 

49-64) 

15,3400 

TO  15,3  771 

PARAGRAPH 

ft 

107 

ROPE 

MUDULE 

3, 

SIDE 

D , 

SENSE 

LINE 

SET  04 

(WlRtS 

49-64) 

1^  1 2000 

TO  16,2377 

pAKAoKApH 

ft 

110 

ROPE 

MODULE  3, 

SIDE 

A, 

SENSE 

LINE 

SET  05 

(WIRES 

65-60) 

“ 16,2400 

TO  16,2777 

PARAGRAPH 

ft 

lil 

ROPE 

MODULE 

3, 

SIDE 

B 9 

5EN5E 

LINE 

SET  05 

( W I RES 

65-80) 

16,3000 

TO  16,3377 

PARAGRAPH 

ft 

112 

ROPE 

MODULE 

3, 

SIDE 

A 9 

5ENSE 

LINE 

SeT  06 

(WIRES 

81-96) 

17,2000 

TO  17,2377 

PARAGRAPH 

If 

114 

ROPE 

module 

3, 

SIDE 

A, 

SENSE 

LINE 

SET  07 

\ WlRc.5 

97-112) 

17,2400 

TO  17,3777“ 

PARAGRAPH 

#“ 

115 

ROPE 

module 

3 9 

SIDE 

B 9 

SEN5E 

LINE 

SET  07 

(WIRES 

97-112) 

TO  “17, 3 377 

PARAGRAPH  ft 

116 

3, 

Slut  At 

5eN5E  LINE 

SET  08 

(WIRES 

113-128) 

17,3400 

TO  1 7 ,3777 

PARAGRAPH 

tr 

117 

rope 

module 

3, 

SIDE 

B, 

sense 

LINE 

SET  08 

(WIRES 

113-128) 

20,2000 

TO  20,2377 

PAHA GRAPH 

ft 

120 

ropettoduue 

3, 

SIDE  A, 

SENSE 

LINE 

SET  09 

(WIRES 

129-144) 

20,2400 

TO  20,2777 

PARAGRAPH 

ft 

121 

ROPE 

module 

3, 

SIDE 

B, 

sense 

LINE 

SET  09 

(WIRES 

129-144) 

“20,3000 

TO  20*3377 

PARAGRAPH 

ft 

122 

ROPE 

MODULE 

3, 

SIDE 

A , 

sense 

LINE 

StT  10 

(WIRES 

145-160) 

20 , 34U0 

TO  20,3777 

PAHAgR A PH 

IT 

123“ 

-“ROPE 

MODULE" 

3, 

5IDET 

B* 

sense 

line  set  io 

(WIRE5 

145-160 ) 

21,2000  TO  21 

21 .2400  TCTTT 
2177000-  TO  21 

21.3400  TO  21 

23*2000  TO  2 3 

23.2400  TO  23 

23,3000 TO  23 

23.3400  TO  23 


“2472000 TO  24 

24,2400  TO  24 
24,3000  TO  24 
24Y34Q0  T0  24 


25.2000  TO  25 
25 ,2400  TO  25 
25,3000  TO  25 
25,3400  TO  25 

26.2000  TO  26 
26  r24oo  TO  26 

“26,3000  “TO  26 


2377 

2777“ 

3377 

3777 

2377 

2777 

3377 

3777 

2377 

2777 

3377 

tllT 

2377 

2777“ 

3377 

3777 

2377 

2777 

3377 


PARAGRAPH  if!  124 
“PARAGRAPH  ft  125 
PARAGRAPH  #“126 
PARAGRAPH  # 127 


ROPE  MODULE  3 
“ROPE  MODULE  3 
ROPE  MODULE  3 
ROPE  MODULE  3 


PARAGRAPH  ft  i34 
PARAGRAPH  ft  135 
PA  R AGRA PH  ff  136 
PARAGRAPH  if!  137 


ROPE  MODULE  4 
ROPE  MODULE  4 

ROPE  MODULE  4 


SIDE  A 
“STDE"Ef 
SIDE  A 
SIDE  B 

SIDE  A 
SIDE  B 
SIDE  A 
SIDE  B 


SENSE  LINE  SET  11  (WIRES  161-176) 
-SENSE  LINE “ 5ET11  (WIRES  "T6 1-176) 
SENSE  LINE  SET  12  (WIRES  177-192) 
SENSE  LINE  SET  12!  (WIRES  177-192) 

sense  line  set  o3  (wires  33-48) 

SENSE  LINE  SET  03  (WIRES  33-48) 
SENSE  LINE  SET  04  (WIRES  49-64) 
SENSE  LINE  SET  04  (WIRES  49-64) 


PARAGRAPH  #140 
PARAGRAPH  ft  141 
PARAGRAPH  ft  142 
PAR AGRAPH  # 143 

PARAGRAPH  # 144 
PARAGRAPH  * 145 
PARAGRAPH  * 146 
PARAGRAPH  ft  147 

PARAGRAPH  if!  150 
PARAGRAPH  ft  151 
PARAGRAPH  § 1 52 


ROPE  RODQLE-  4 
ROPE  MODULE  4 
ROPE  MODULE  4 
ROPE  MODULE  4 


SIDETA' 
SIDE  B 
SIDE  A 
SIDE  B 


“SENSE  LINE  SET  05  (WIRES  65-80)“ 
SENSE  LINE  SET  05  (WIRES  65-80) 
SENSE  LINE  SET  06  (WIRES  81-96) 
SENSE  LINE  SE T 0 6-  ( WIRES  31-96 ) 


ROPE  MODULE  4 
ROPE  MODULE  4 
ROPE  MODULE  4 
ROPE  MODULE  4 

ROPE  MODULE  4 
ROPE  MODULE  4 
ROPE  MODUtE 


SIDE  A 
-SIDE  B 
SIDE  A 
SIDE  B 


SENSE  LINE  SET  07  (WIRES  97-112) 
SENSE  LINE  SET  07  (WIRES  97-112) 
SENSE  LINE  SET  08  (WIRES  113-128) 
SENSE  LINE  SET  08  (WIRES  113-128) 

SENSE  LINE  SET  09  (WIRES  129-144) 

sense  line  set  o9  (wires  129-144) 

“SENSE  LINE  SETHO  (WIRES  145-160) 
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4000 

00004  0 

34054  1 

56006  1 

12072  1 

52011  0 

00006  1 

22012  1 

14175  1 

4010- 

52011  o"  - 

00006  1 

30346  0 

52006  0 

52011  0 

34056  0 

66006  1 

12736  0 

“1020  - 

6201  1 0 

37665  0 

14713  1 

C;  24006  1 

52011  0 

34057  1 

56006  1 

12362  0 

4030 

- 62011  0 

34060  0 

56006  1 

13161  0 

52011  0 

34057  1 

56006  1 

12402  1 

4040 

52011  0 

34061  1 

56006  1 

12047  1 

52011  0 

34062  1 

56006  1 

12707  1 

4050 

“ 52011  0 

37656  0 

54773  0 

14610  0 

Cs  24003  1 

Cs  04000  0 

Cs  02003  0 

C:  I6000  0 

4060 

Cl  26003  0 

c:  32007  1 

c:  20001  1 

52120  0 

50002  0 

30000  1 

24002  0 

54001  1 

U7O 

-22014  U““ 

76426  0 

56002  0 

50120“  0 

50002  0 

12000  0 

56120  1 

“ 56004  0 - 

4100  56120  1 00117  0 56002  0 500001  30000  1 54004  1 76426  0 56002  0 

UTO 50002  0 12000  1 36426  1 7011 7 I 60120  1 00002  0 54001  “1  32004  0 

4120 22121  0 76426  0 00006  1 500001  32001  1 56121  0 54004  1 30121  0 

130  00002  0 56002  0 54150  1 30004  P 54151  0 37650  0 54023  1 30002  0 


4T40  OOI5C  0 54150  1 37650  0 54023  1 30004  0 54I5I  0 ' 5OOO2  0 30000  1 

4150 540041 76426  0 56002  0 56150  0 50002  0 12000  1 52077  0 — 10002  0 

4160 300001 240021  54OOII  220041  764261  56002  0 52O77I  50002 1 

“417  0 020  0 0 0 560771 56004  0 56O77  1 OOO76  0 04177  1 14606  1 10031  1 


4200 

OOOO  2 0 

00002  0 

00002  0 

37665  0 

56767  1 

56766  0 

54031  1 

00006  1 

4210 

142301 

37641  0 

00006  1 

05013  0 

37665  0 

56772  0 

56771  0 

56770  1 

4220 

C0006  1 

64225  0 

00006  1 

01006  0 

00002  0 

00006  1 

01005  0 

00002  0 

“ 42  30  " " 

107701 

142201 

67642  0 

55105  0 

14236  0 

41105  0 

60000  1 

55105  0 

4240  14251  1 57I5I 51105  1 67640  1 40000  0 61105  1 15105  0 142511 

— 4250 14267  1 00006  I 71105  0 551061 00006  1 74274  0 64273  0 00006  1 

4260 71061 64272  1 000061 7IIO5  0 200011  55105  0 00002  0 50000  1 

4270 47640  0 00002  0 Cs  31103  1 C;  65552  0 Cs  01124  1 55107  1 — 10000  0 14303  1 


4300  000021 240010 000021 000061 23106  1 64363  1 54000  0 14351  0 

4310 57107  0 55107  1 54021  0 56021  1 551051 143601 10000  0 14361  1 

4320 04325“  1 143221 3764 51 6HO7I 60000  1 04340  1 04340  1 57106  1 

4330 100001 571061 043361 571061 000061 77644  I 51106  1 00001  0 


“ 4 340 

“ 56021  1 

‘ 41105  0 

22007  0 - 

00006  T 

10021  0 

56021 1 

00006  1 

1 

4350 

00002  0 

41106  0 

55106  0 

37651  1 

00006  1 

71107  1 

30001  0 

04311 

0 

4360 

C:  73777  1 

C j 24001  0 

C:  37401  0 

54070  1 

OOOOfe  1 

50002  0 

30001  0 

52073 

1 

43  70 

34447-  1 

56004  "O- 

54065  0 

- 1:2242-  0 

54070  1 

00006  1 

50002  0 

30u0 1 

0 
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OCTAL  LISTING  OF  PARAGRAPHS  011»  WITH'  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD;  DENOTES  UNUSED  FIXED  MEMORY, 


ALL  VAETP~W0KP5~ ARe  B“A“5TC““IN5tRUCTI0N5.  eXCeP~T  THOSE  MARKED  11 1 11  (INTERPRETIVE  'OPERATOR  a'OROS)  OR  »C"  (CONSTANTS), 

4400  52073  1 ““34447  1 56004-  O'  12220  1 3444?  1 54001  1 3006z  0 22006  1 

4410  00004  0“  123200  34447  1 540011  40150  I 14407  1 54150  1 34447  I 

4420 54004  T “~“17W3““0  54072  0 47656"  I 26 002” I 34447“ “I  56004  0 12414  0 

“4430 00004““0  540  7OI  34  447  1 5600  6~1  5 4T51  “0  “30002“  0 124630“  05401  4 


4440  34447  1 54004  1 12474  0 30065  1 54OO4  1 50002  0 00002  0 Ci  022“20“"0~“ 

“4450  47665  I 54067  1 00003““1  47656  T 00006  1 03011  1 r4461““I  00006  1 

4460 2336 C 0 10067  1 14474  0 37656  0 14470  1 “ 34503  0“  54006  0 01360  0 

“4470  00006  1 05011“  1 52T5T “0  52006  0 37656  0 ■00006“!  05011  “1  34447  1 


“ 4500 

54004  1 

00004  0 

12317  1 

c:  40002  1 

c; 

03000  1 

c:  05000  1 

C:  06000  1 

c:  07000  0 

4510 

c:  iiooo”! 

c;  12000  1 

c:  13000  0 

C;  14006  1 

cs 

15000  0 

c;  I6000  0 

cs  17000  1 

C?  210CH)  I 

4520 

C J 22000  1 

C;  23000  0 

c:  24000  1 

c:  25060  0 

c: 

26000  0 

c:  27000  1 

C:  30000  1 

Cs  31000  0 

4530 

C ! 3 2 u 0 0 0 

C!  33000  1 

c:  34000  0 

C:  35000  1 

c: 

36000  1 

c:  37000  0 

56002  0 

54065  0 

30066  1 
56002  0 
Cs  73206  1 
C;  02257  0 


4600 

C!  16007  0 

14602  0 

11070  0 

34553  0 “ 

54006  0 

12741  0 

00006  1 

22012  i 

4610 

30016  0 

54006  0 

52011  0 

50017  1 

00004  0 

50002  0 

30000  1 

54077  0 

4620 

75224  1 

60000  1 

56077  1 

0000b  1 

77647  1 

14634  0 

00004  0 

54077  0 

4630 

50002  0 

3 0 0 00  1 

60000  “1 

“56077  1 

54001  1 

40000  0 

50077  1 

53072”! 

4640 

00006  1 

64655  0 

54074  0 

00006  1 

22075  0 

30077  l 

00006  1 

77642  1 

4650 

50000  I 

34661  1 

04162  “O  ' 

53075“  1 

22002  0 

40000  0 

00003  1 

50002  0 

4660 

c 0 0 0 1 0 

C;  00000  1 

C:  00000  1 

C ; 00000  I 

C:  00000  1 

Cs 

00000  1 

C:  00000  1 

50002  0 

4670 

30000  1 

24002  0 

56276  1 

40000  0 

60276  1 

00006  1 

14712  0 

34701  0 

47UU 

J.4U6?  U 

L • 1 d.  u U i u 

50002  0 

40000  0 

60276  1 

00006  1 

14711  0 

50002  0 

4710 

00001  0 

50002  0 

00002  0 

00006  1 

01010  1 

50347  1 

10000  0 

iU35*j  0 

4720 

147 22  0 

37663  0 

54350  t) 

34023  2 

56006  1 

12451  1 

34735  r “ 

14?31  1 

4730 

34736  1 

54027  0 

34737  0 

54347  0 

14612  1 

C; 

37767  0 

C:  37766  1 

Cs 

04717  1 

474U 

c:  : 4uuu  1 

c:  04025  1 

CT  17003  0 

CS  14031  0 

CT  20033  0 

c; 

24017  1 

CS  30036  1 

c: 

“34034  1 

4750 

C!  40023  1 

C:  44035  i 

c:  50037  0 

CS  54000  0 

c:  60000  1 

37665  0 

54032  1 

54033  0 

4760 

p4U3h  i 

00002  0 

CS  00454  1 

00006  1 

64766  1 

i4767  1 

40000  0 

50002  0 

4770 

60000  1 

00006  1 

64775  C 

“50002  0 “ 

— 0000 10 

50OU2“  0 “ 

00)002  0 

50002  0 

4540  00006  1 50000  1 36001  0 “54070  1 34553“ 0 56006  1 i2566  1 
4550  540O6““O  50065  1 00002  0 C:  02003“  0“  50002  0 30000  1 24002  0 
4560  54070”!  30006  1 54001  1 34566  0 54065  0 14544  1 14600  I 
4570  Ci  73774  1 10063  0 14602  0 14602“ 0 14575  0 34533  0 04363  0 
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OCTAL  LIStIW~OF  PARAGRAPH  »-  012 > WITH!  PARITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  «§»  DENOTES  UNUSED  FIXED  MEMORY. 


“ALL  VALID  WORPSTARe  BA5IC  INSTRUCT  IONS.  EXCEPT  THQSeMARKeD""!11  (INTERPRETIVE  OPERATOR  WORDS)  OR  11 C"  (CONSTANTS), 


5000 

30000“! 

24002  0 

00006  1 

50000  1 

30001  0 

52Q6o  0 

22002  0 

37644  0 

5010 

70413  0 

10000  0 

15025  1 

30065  1 

04763  1 

L;  66l6i  1 

00001  0 

35037  0 

5020 

60066  1 

“04763  1 

c;  64420“0 

0000 1 0 

05035  1 

35041  1 

60066  1 

04763  1 

5030 

C:  65673~cr 

00001  0 

30065  1 

04763  1 

C:  54343  1 

50001  0 

00001  0 

C;  00765  0 

5cm) 

C:  00707  1 

C:  16450  1 

37657  i 

70370  1 

10000  0 

00002  0 

35076  0 

704i3  0 

5050 

0000&  1 

15061  1 

40413  0 

75077  0 

00006  1 

15061  1 

37654  1 

70413  0 

5060 

I0000~0  “ 

37650  0 

60322  1 

77650  1 

00006  1 

14712  0 

54001  1 

30322  1 

“5073 

00006  I 

06001  0 

77637  0 

67641  0 

“ 54322  0 

00002  0 

C:  10102  0 

C;  00220  1 

5100  35106  0 70305  0 54107  0 “ 05123  1 05105  0 04440  0 C:  07700  1 54107  0 

5110  10277  1 00002  “ 0 30OO2“O 67657  I 54325“  I 05131  1 35122  0 560061 

5120  54326  1 02000  0 C:  12000  1 30002  0 67657  l 54325  1 05116  1 52326  1 

5130 52006  0 47641  1 00004  0 70306  0 67641  0 54306  0 00003  1 00002  0 


5140 

37657  1 

54277  1 

22004  0 

56002  0 

52120  0 

04112  1 

54323  1 

04416  0 

5150 

O444O  0 

10301  1 

15157  0 

15140  0 

00002  0 

50002  0 

00002  0 

50002  0 

3160 

oouotu 

5430A  1 

“54003  O' 

75235"  I" 

65236  0 

54131  0 

“00002“  0 

30304  0 

5170 

15162  0“ 

54003  0 

75235  1 

65236  0 

00002  0 

C;  00016  0 

C:  00011  1 

C:  00004  0 

52X10 

5402C  1 

40020  1 

40020  1 

40020  T 

40020  1 

56020“0T 

00002  0 

54022  0 

5210 

“40022  XT' 

40022  0 

40022  0 

40022  0 

56022  1 

00002  0 

60000  1 

60000  1 

5220 

60000  1 

60000  1 

60000  1 

00002  0 

Cj  00037  0 

C!  01740  0 

C:  76000  0 

04363  0 

5230 

0 45  3 6 0 

04602  1 

04374  0 

C : 30U0TT  1 

Cl  03777  0 

c;  00377  1 

C:  01400  1 

C!  00023  0 

5240 

c:  00021  1 

c:  00025  0 

c:  00012  1 

3765i  1 

00006  1 

05011  1 

00002  0 

47651  0 

5zya 

00006  1 

03011  1 

00002  0 

“ 37653  0 

“00006  1 

“ 050111 

00002  0 

“00006  1 

5260 

30025  0“ 

52014  0 

00002  0 

00006  1 

30142  0 

20142  1 

60140  1 

26140  0 

5270 

54007  1 

00002  0 

54105  1 

00002  0 

37652  1 

0000&  1 

050 1 1 1 

00002  0 

5300 

47652  0 

00006  1“ 

““020111“““ 

00002  0 

10324  0 “ 

00002  0 

37657  1 

54324  0 

5310 

50002  0 

00001  0 

36426  1 

7OOO2  1 

60004  0 

04102  0 

C;  10000  0 

10324  0 

5320 

1 53 1 2 u 

37657  1 

54324  0“ 

00002  “0 

45331  1 

60002  0 

6OOO4  0 

04102  0 

5330 

Cl  10001  1 

C:  02003  0 

54107  0 

IO277  1 

15337  1 

30002  0 

i 5 1 1 4 1 

534U 

15524  0 

56002  0 

54130  1 

37667  r 

60324  1 

00006  1 

65354  0 

05367  0 

5350 

05354  0 

04422  1 

37657  1 

54324  0 

00004  0 

47653  1 

0 0 U 0 6 1 

03011  1 

5360 

37  66  5 0 

54277  1 

00003  1 

00130  0 

56002  0 

54130  1 

05354  0 

37665  0 

5370 

56327“! 

5 6 330  1 

56331  0 

00006  1 

15400  1 

00004  0 

50U02  0 

00001  0 
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OCTAL  LISTING  OF  PARAGRAPH  # Qi3t  W I THI  PARITY  BIJ  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD;  *§»  DENOTES  UinUSeD  FIXED  MEMORY, 


ALU  VALI  D” 

'TORD'5~ARe  basic 

instructions: 

EXCEPT  THOSE 

MARKED  "I" 

(INTERPRETIVE  OPERATOR 

: WORDS) 

OR  »C"  (CONSTANTS), 

5400 

00002  0 

56002  0 

54130  1 

00004 

0 35412  0 

04536  0 

C;  03520  0 

Cj 

10000  0 

5410 

00003  1 

00130  0 

C!  01130  1 

00004 

0 56002  0 

54077  0 

i 1363  1 

05425  1 

"”  '5420  '” 

05430  0 

30077  1 

00003  1 

50000 

1 0000 1"  0 

66042  1 

55363  1 

05421  0 

' 5430 

05440  I 

34535  0 

04363  0 

C:  02773 

0 c:  02002  1 

50077  1 

30000  1 

05426  1 

544cf 

4 544 5 0 

70322  0 

65445  1 

54322  0 

00002  0 

C;  40400  1 

00004  0 

50002  0 

5450 

30000  1 

54065  0 

11363  1 

05456  0 

05460  0 

05455  0 

66042  1 

05462  1 

5460 

05440  1 

56065  1 

55363  1 

05455  0 

56002  0 

55364  0 

05446  i 

Cj  01103  1 

547(7 

00004  13 

130006  1 

00004  0 

54001  1 

00006  I 

06004  0 

00006  1 

15503  0 

5500 

00006  1 

00004  0 

54001  1 

47637  0 

60001  0 

00006  1 

15471  1 

00006  1 

5510 

00003' 1 

00002  0 

05  51 2 1 

”05513  0 

CkSM  63274  0 

@ 

g 

1 

5520 

# 

@ 

® 

<§ 

e 

@ 

5530 

§ 

S 

@ 

@ 

@ 

5540 

® 

@ 

e 

e 

® 

@ 

5550 

<§ 

@ 

® 

@ 

s 

® 

@ 

§ 

5560 

W 

@ 

@ 

® 

& 

@ 

e 

@ 

5570 

@ 

' ® 

@ 

@ 

& 

e 

@ 

§ 

5600 

® 

e 

@ 

@ 

@ 

e 

e 

5610 

@ 

§ 

@ 

@ 

& 

@ 

@ 

e 

5620 

@ 

® 

9 

@ 

e 

e 

@ 

5630 

I 

@ 

@ 

@ 

@ 

® 

e 

5640 

<3 

@ 

§ 

e 

g 

e 

@ 

@ 

5650 

w~ 

@ 

~ r 

S 

@ 

e 

@ 

5660 

@ 

@ 

e 

® 

e 

e 

§ 

@ 

5670 

® 

@ 

@ 

e 

s 

e 

& 

e 

5700 

e 

@ 

@ 

® 

@ 

® 

§ 

@ 

5710 

® 

® 

® 

e 

@ 

@ 

§ 

5720 

@ 

® 

® 

® 

@ 

® 

® 

5730 

® 

§ 

® 

@ 

e 

@ 

5740 

® 

@ 

& 

® 

e 

e 

e 

e 

5750 

e 

@ 

@ 

@ 

@ 

@ 

@ 

@ 

5760 

@ 

§ 

® 

@ 

@ 

e 

@ 

e 

57T0 

@ 

® 

® 

® 

@ 

- @ 

® 
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octal  listing  of  paragraph  § oi4t  withi  parity  bit  in  binary  at  the  right  of  each  woRd;  «@»  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARe~Ba5TC  INSTRUCTIONS  EXCEPT  THOSE  MARKeD  iiIii  (INTERPREtIVE~OPeRAtOR  WORDS)  OR  l(C ''(CONSYANTSiT^ 


6000 

00006  1 

22150  0 

30004  0 

54151  0 

77641  1 

54101  0 

66426  1 

54100  1 

601 0 

16023  1 

22006  1 

J.60U3  U 

54147  1 

30151  1 

54004  1 

10023  1 

1 6032  1 

602TT 

TO  067  1 

14412  0 

24150  0 

50150  0 

30000  1 

10000  0 

16342  0 

C:~ooi77  o 

6030 

54023  1 

76027  0 

54020  1 

10020  1 

16167  0 

16731  0 

77657  0 

10000  0 

6040 

16073  1 

50150  0 

40001  1 

10000  0 

16135  1 

C:  77773  1 

24i50  0 

54102  0 

6050 

66 1 7 1 0 

10000  0 

66234  1 

16060  0 

30104  1 

26102  0 

50020  0 

76234  0 

6060 

UU006  1 

66056  1 

60100  0 

54004  1 

76426  0 

67645  1 

54102  0 

50020  0 

60?0 

76234  3 

37676  1 

54020  1 

30104  1 

54114  1 

24150  0 

50150  0 

40000  0 

6100 

10000  0 

24114  0 

16T03~T 

54102  0 

76232  0 

OOOOfe  1 

16111  1 

30101  1 

6110 

26102  0 

50114  0 

40046  1 

26102  0 

76231  0 

00006  1 

16131  0 

76232  0 

6120 

00006  I 

H133  1 

30102  1 

54004  1 

76426  0 

67645  1 

54102  0 

50020  0 

6130 

36234  1 

30104  1 

26102  0 

50020  0 

36234  1 

36227  0 

70020  1 

66142  0 

6140 

lOUOO  0 

16153  1 

e:  77767  1 

66045  0 

10000  0 

50000  1 

4616A  0 

16155  1 

6150 

~ 50147  0 

46162  0 

16155  1 

50147  0 

46164  0 

26152  0 

54102  0 

50020  0 

6160 

76234  "0 

C:  T70002T  0 

c:  00006  r 

Cl  00006  1 

C:  00002  0 

“ Cl  00003  1 

c:  0000b  1 

10020  1 

6 1 ?0 

16217  1 

C!  77722  0 

24 1 50  0 

50150  0 

30000  1 

54103  1 

54102  0 

76231  0 

6Z00 

10000  0 

16203  1 

162 io  0 

3623o  0 

54004  1 

70020  1 

50000  1 

16275  0 

6210 

30104  1 

26102  0 

36230  0 

54004  1 

70020  1 

50000  1 

16275  0 

54004  1 

6220 

10020  1 

50000  1 

16315  1 

IOI47  1 

12000  1 

12000  1 

12102  1 

Cs  00023  0 

6230 

C5  02T77  l 

“ Cl  77700  0 - 

C:  76000  0 

CS  36000  1 

C T 76056  0 

16511  0 

17050  1 

17603  I 

64H0 

1735*+  0 

16674  0 

16474  1 

16465  1 

17552  0 

16505  0 

16624  0 

16527  0 

6250 

" 1 7307~cr~ 

16363  0 

16632  1 

17312  1 

17544  1 

17522  1 ~ 

17525  0 

17531  0 

6260 

17547  1 

16733  1 

16761  0 

17011  1 

17304  0 

17434  1 

17400  0 

16777  1 

6270 

17035  1 

16751  0 

16272  1 

17520  0 

17541  1 

12000  1 

12005  1 

12010  0 

6300 

12014  1 

12020  0 

12024  1 

12040  0 

I2O47  I 

1203  2 ~0 

12043  "0“ 

12107  1 

6310 

12114  0 

12127  0 

12067  0 

12135  0 

12077  1 

13135  1 

13456  1 

13445  0 

6330 

13536  0 

13540  1 

13122  1 

12077  1 

17616  0 

13160  1 

12750  0 

13124  1 

6330 

13174  1 

16334  1 

13224  1 

I3I77  1 

30 1 5 1 1 

54004  1 

24150  0 

50 1 50  0 

" 6340 
6350 
_ 6360 
^6370 


~400U0~'0 

67667  1 

54102  0 

76426  0 

56102  1 

76233  1 

00006  1 

77652  0 

50000  1 

16352  1 

06422  0 

16022  0 

06414  0 

16022  0 

06417  0 

16022  0 

06422  0 

16455  1 

06414  0 

16455  1 

06417  0 

16455  1 

06422  0 

I6O7I  0 

36414  0 

1 60  7 1 0 

06417  0 

‘16071  0 

06422  0 

16460  1 

06414  3 

16463  1 
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octal  listing 

OF  paragraph 

# 015  * WITH 

PARITY  bit  in 

BINARY  AT  THE 

RIGHT  OF  EACH 

word;  denotes 

unused  fixed 

MEMORY. 

ALL  VALID  WORDS  ARe  "BASIC 

instructions 

EXCEPT  those 

MARKED  "I"  (INTERPRETIVE  OPtRATUR  WORDS)  OR  "C 

" (CONSTANTS) 

• 

6 WO 

06417WT 

16460  1 

06422  0 

16463  1 

06414  0 

16463  1 

06417  0 

16463  1 

6410 

06422W 

37674  0 

5402U  1 

16172  1 

50104  1 

40046  1 

16421  1 

50104  1 

~ 6420 

40047  0 

“26102  0 

'"30102  1 

66171  0 

10000  0 

16431  0 C: 

01777  1 

30104  1 

6430 

~ 26102"  0 

00006  1 

30141  0 

50102  1 

52001  1 

10147  1 

16451  0 

00002  0 

6440 

OtTOOb  1 

30144  0 

50102  1 

52003  0 

00006  1 

30146  1 

50102  1 

52005  0 
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12552  0 

00006  1 

26140  0 

60114  0 

22007  0 

00,2550 

00006  1 

10114  1 

54141  1 

10122  1 

00002  0 

00002  0 

00002  0 

00006  1 

00,2560 

4014 I 1 

52141  1 

37665  0 

U0TO2  0 

40140  0 

60114  0 

00006  1 

12571  1 

00,2570 

12512  1 

3/637  1 

54140  0 

40115  0 

60141  0 

12546  0 

47657  0 

54123  0 

00,2600 

54113  0 

10114  1 

12637  0 

12605  1 

12633  1 

56115  1 

56114  0 

56141  0 

00 ,2610 

56140  1 

00006  1 

12614  1 

12355  1 

56144  0 

56143  1 

00006  1 

12621  1 

00,2620 

12355  1 

56146  1 

56145  1 

00006  1 

12626  0 

12355  1 

10114  1 

12637  0 

00  1 2 630 

12355  1 

1 2 63  3 1 

12355  1 

00006  1 

40115  0 

52115  0 

24113  1 

37642  0 

00,2640 

60000  1 

60115  1 

54115  0 

37665  0 

67637  l 

26114  1 

“56117  0 

30115  1 

00 , ^650 

54I2CT“0 

12657  0 

0 0 U U 6 1 

24123  1 

00006  1 

30115  1 

20115  0 

30114  0 - 

00, 2660 

60000  1 

54000  0 

12652  0 

02675  1 

52144  1 

52141  1 

52144  1 

02675  1 

UU ,2670 

52146  0 

52141  1 

52146  0 

02675  1 

17373  0 

30113  1 

54122  1 

10140  0 

uu  9 27UU 

12714  0 

12703  u 

12710  1 

10141  1 

12714  0 

00002  0 

12710  1 

00002  0 

uu f ^7 1 u 

UUUU6  1 

40141  1 

52141  1 

24122  0 

47657  0 

54124  1 

40140  0 

60117  0 

os , 272  0 

00006  1 

62725“  0 

“52141  1 

50123  1 

12 50 7 0 

37642  0 

60000  1 

‘ 60141  0 

uu ,2 73U 

54141  1 

37665  0 

67637  1 

26140  0 

40140  0 

60117  0 

10000  0 

12722  0 

00,2740 C!  32506“0 12355“! 5*T2*n 40141  1 60120  1 aUU05““l 6235  5 0 IZlZZ  0 

00,2730 O75O6  0 37665  0 56105  0 54125  0 03246  l 30125  1 56105  0 00006  1 

00,2760 12762  1 12355  1 00006  1 30141  0 50104  1 — 52043  1 03272  0 10140  0 

OOt2 770 12775  1 54001  1 50T04~1 52045  1 12355  1 43076  1 60121  0 r0000~0~ 
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—OCTAL  LISTING  of  PARAGRAPH  # 022 , WITHI  parity  bit  in  BINARY  At  THe  RIGHT  OF  each  WORD;  Hgu  DeNOTES  UNUSeD  FIXED  MfcMORTT- 

ALT:"V^LIP~lfoR05~AR^BA~SrC~ INSTRUCT  IONS  'EXC~EFf"THOSE^ffRXEO~,rrir  ( IMTeRPRETIVE  OPERATOR  WORDS)  OR  »C"  (C0N5TANtS)  . 

00,3000  40D0CT13  I3O57I  13011  0 ^3075  1 54121  1 30140  1 54001  1 37665  0 

00,3010 13036  0 10121  1 13020  1 42005  1 54121  1 00006  1 30141  0 13036  0 

00,3020  4UU0TT“0  54121”!  40000  0 jjOOOO  1 37642  0 “ 54I 14  I 00006  l 70T4T“T“ 

— 00,3030 56ll4”0 00006  I 70140  O 56001  0 60114  0 56001  0 50104  1 52045  1 


00,3040 

47657  0 

54124  1 

52107  0 

52141  1 

52115  0 

O3O77  1 

52111  1 

52141  1 

00,3050 

52144  1 “ 

“ 03077  1 

52113  0 

52141  1 

52146  0 

03077  1 

17373  0 

54121  1 

00,3060 

37665  0 

56107  1 

56106  0 

56111  0 

56110  1 

56113  1 

56112  0 

40121  1 

00,3070  '“ 

50000“  1 

37642  0 

00006  I 

70 140  0 

13006  0 

C;  00015  0 

C;  00016  0 

10140  0 

00,3100 

13116  0 

13103  1 

13110  0 

10141  1 

13116  0 

00002  0 

13110  0 

00002  0 

00,3110 

" 47665  1 

“ 54122  1 

00006  1 

40T41  1 

50121  0 

12506  1 

54122  1 

“ 521411 

00,3120 

50121  0 

12506  1 

03227  0 

16014  0 

10147  1 

13154  0 

13154  0 

03246  1 

00,3130 

22147  0 

00006  1 

ju I4 1 0 

^OiO^  1 

52043  1 

03272  0 

10121  1 

13141  1 

00,3140 

16014  t) 

62273  0 

00006  1 

63147  0 

22007  0 

22102  1 

12263  0 

50121  0 

00,3150 

37641  0 

54121  1 

37665  0 

12017  1 

06711  U 

16014  0 

16014  0 

17616  0 

00,3160 

47655  1 

46152  U 

00006  1 

““50000  1 

30003  1 

52144  1 

00006  T 

“50152  1 

00,3170 

30001  0 

52146  0 

47657  0 

1 60 1 3 1 

03246  1 

37665  0 

16013  1 

00006  1 

00,3200 

301 400 

50152  1 

52001  1 

50T47  0 

36164  1 

26152  0 

10147  1 

13222  1 

00,3210 

16014  “0” 

00006  1 

30144  0 

50152  1 

51775  0 

00006  1 

30146  1 

50152  1 

00,3220 

51777  1 

16014  0 

30142  0 

16560  0 

50104  1 

30052  0 

16652  1 

30141  0 

“ 00 ,3230“ 

00006  1 

70000  0 

54T42  1 

27665  CT 

56141  0 

“00006“  1 

“ 70140  0 

20001“  1 

00,3240 

20142  1 

56140  1 

00006  1 

70000  0 

20141  1 

00002  0 

00006  1 

22123  1 

00  1 3 2 5O 

03227'  0 

52144  1 

52141  2 

“52125  0 

30142  0 

54116  0 “ 

03227  0 

52142  1 

00,3260 

20116  0 

60140  1 

60114  0 

54114  1 

1 3266  1 

54105  1 

52146  0 

52141  1 

00,3270 

“03227~  0 “ 

1?  165  0 

37665  0 

54121  1 

10140  0 

13333  0 

13300  0 

13322  0 

00,3300 

56142  0 

56141  0 

54140  0 - 

37663  0 

54121  1 

10140  0 

13333  0 

13311  0 

00,3310 

13325  1 

66141  0 

54140  0 

37663  0 

26121  1 

10140  0 

13333  U 

00002  0 

00,332 0“ 

T3325  T 

00002  “0 

10000  0“ 

13331  1 

10141  1 

37665  0 

13401  0 

13331  1 

00  9 3330 

13401  0~ 

05446  1 

C;  01302  1 

62410  0 

00006  1 

63404  1 

52141  1 

22021  i 

00,3340  “ 

00005”  1 

77642 -I 

5214  r I 

56021  1 

26141  1 

32274  T““ 

00006  1 

70140  0 

00,3350 

62510  1 

54114  1 

30140  1 

22007  0 

00006  1 

10114  1 

000U6  1 

f i 1 

00  9 3360 

26114  1 

OOQOo  i 

77642  1 

52141  1 

00006  1 

10114  1 

54115  0 

37665  0 

00“,  33  70 

56001  “0 

“00006  1 

10114  1 

54001  I 

30115  1 

20141  1 

00006  1 

13403  1 
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OCTAL  LISTING  Of  PARAGRAPH"  if!  023,  WITH!  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WQRDj  »g»  DENOTES  UNUSED  FIXED  MEM0RY7 
ALL  TALI  D WORDS ~ARe  B ASTC  I NSTRUCT  TONS.  EXCEPT  THOSEMARKeD^I'1  (INTERPRETIVE  OPERATOR  WORDS  T OR  11 C"  (CONSTANfSTT 


0OV3400 

37637  1 

54140  0 

54141  I 

00002  0 

67643  1 

00006  1 

63430  0 

52141  1 

^ 00,3410 

22021  T" 

00006  1 

77642  1 

52141  1 

5602T  1 

26141  1 

32740  0 

00006  1 

OUT3420 

70140  0 ' 

62250  1 

13351  1 

00006  1 

30142  0 

20 142  I 

60140  1 

26140  0 

OO"  ,3430 

24121  0 

00006  1 

30142  0 

20142T 

60140  1 

26140  0 

60000  1 

54022  0 

00,3440 

10022  0 

10022  0 

13423  0 

13345  1 

13416  0 

06711  0 

13451  0 

13454  0 

00,3450 

' 13454  0 

00006  i 

40141  1 

52141  1 

37643  1 

26140  0 

52141  1 

20001  1 

00,3460 

54000  0 

13464  0 

00006  1 

40001  1 

52141  1 

30140  1 

60000  1 

54001  1 

00,3470 

13501  1 " 

50000  1 

37641  0 

60000  1 

00006  1 

60140  I 

54140  0 

40141  1 

00,3500 

54141  1 

00006  1 

30141  0 

52120  0 

03227  0 

07202  0 

c:  00003  1 

Cl  14441  0 

OUf  3510 

Cl  37325  1 C: 

53250  0 

Ci  60764  T 

C • 1 2 146  1 

C!  21276  1 

c:  75466  1 

c:  71471  cr 

C ST50236  0 

00,3520 

C!  32757  0 

32434  0 

O7O66  0 

00006  1 

30142  0 

2ui42  1 

60140  1 

26140  0 

00,3530 

00006  1 

30142  0 

20142  1 

60140  1 

26140  0 

16014  0 

33557  0 

13541  0 

00*3540 

33641  1 

54122  1 

06711  0 

13553  0 

13655  0 

00006  1 

40141  1 

52141  1 

00,3550 

32247  1 

56122  0 

54123  0 

47642  1 

60140  1 

10000  0 

13647  0 

13635  0 

0073560 

135?T  1 

10141  1 

37665  0 

13565  0 

13570  1 

54141  1 

54140  0 

00122  0 

00,3570 

00006  1 

<+0141  1 

67642  0 

52141  1 

52120  0 

03272  0 

10121  1 

13642  0 

00,3600 

52141  1 

52120  0 

52141  1 

07202  0 

Ci  00006  1 

Ci  13240  0 

Ci  23630  0 

Ci  74721  0 

Ou , 3610 

c:  47775  1 

c:  02440  0 

C:  20237  0 

C ! 75067  1 

c;  70742  1 

c:  03436  0 

Ci  26756  1 

c:  74037  0 

00  1 36^0 

C:  57640  1 

C!  03046  0 

c:  071^3  0 

Ci  76654  1 

C!  42244  0 

32434  0 

O7O66  0 

00122  0 

00  9 3630 

00005  1 

40141  1 

67642  "0 

52141  I 

00123  1 

00006  1 

401 41  1 

67643  1 

00,3640 

00V3650 

"00*3660 

00.3670 


52141  I 16014  0 50000  1 37642  0 54121  1 02054  1 13600  0“  10000  0 

13652  1 13565  0 13 36 5 0 0544'6  1 Ci  0I3QIT  3T643T I3566~0 03657  0 

03660  1 CKSM  72412  0 @ g g W 

g gr  @ ~g  ^w.  w ¥ @ 


00,3700 

g 

@ 

@ 

® 

gl 

g 

§ 

UO , 3 7 1 U 

@ 

@ 

@ 

g 

g 

@ 

e 

00,3720 

@ 

@ 

@ 

g 

§ 

e 

00,3730 

S 

@ 

® 

g 

g 

§ 

® 

00,3740 

— g— 

® 

® 

g 

g 

& 

~ g ' 

00,3750 

@ 

@ 

e 

g 

s 

@ 

00,3760 

@ 

@ 

® 

@ 

g 

00,3770 

g~ 

€ 

® - 

® 

® 
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e 
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octal  listing  of  paragraph  # Q24»  witHi  parity  bit  in  binary  at  tHe  right  of  each  woRDt  «e«  Denotes  unused  fixed  memory. 


ALL  VALID  WQKD5~AftEr~BA5lC  INSTRUCTIONS  eXCeFt  THQ5e  MARKED  "I1*  (INTERPRETIVE  OPERATOR  WORDS)  OR  11 C"  (CONST ANtS)  , 


01,2000 

~02061  1 

30103  0 

“ 50114  0 

54046  r 

16014  0 

02061  1 

40103  1 

02002  1 

01 ,2010 

"02061  1 

50102  1 

30000  1 

12002  0 

02061  1 

50102  1 

40000  0 

12002  0 

or, 2020 

02061  1 

” 50114  0 - 

30046  0 " 

16627  0 

732061  I 

50102  1 

30000  1 

50114  0 

01 ,2030 

36046  0 

16627  0 

02061  1 

50102  1 

30000  1 

50114  0 

26046  1 

16014  0 

01,2040 

— 02061  1 

30103  0 

12035  1 

02061  1 

50102  1 

40000  0 

12035  1 

02061  1 

01,2050  “ 

"50114  "0" " 

40050  0 

50114  0 

60046  0 

00006  1 

66014  1 

50114  0 

56046  0 

01,2060 

"16651  1 

30104  1 

54114  1 

10020  1 

24114  0 

00002  0 

00002  0 

10020  1 

01 ,2070 

30103  0 

14105  0 

10 140  0 

16014  0 

1665 1 1 

16014  0 

16651  1 

1010T  1 

01,2100 

12102  1 

16014  0 

54105  1 

10020  1 

12070  0 

C!  00360  1 

16651  1 

10020  1 

“ 01,2110 

"06711  0 

lb014  0 

16651  1 

16014  0 

1700273  1 

12123  r 

C:  12000  1 

“06717  0 

01,2120 

TT6014  0~ 

16014  0 

1 663 1 1 

06711  0 

1 663 1 1 

i 665 1 1 

16014  0 

10020  1 

01,2130 

16644  0 

05464  1 

50104  1 

30052  0 

16627  0 

37673  1 

70103  1 

50000  1 

01,2140 

37641  0 

54115  0 

37651  1 

00006  T 

7OIO3  1 

54114  1 

OOOO4  0 

5OOOO  1 

" 01,2150 

30061  0 

54002  1 

37645  1 

00006  1 

70103  1 

72215  1 

50000  1 

12160  0 

or, 2160 

“30115  I 

0 0 07)6  7 

O4OO2  T 

12172  0 

30115  1 

00006  1 

06002  0 

r2172  0 

01,2170 

40115  "O' 

70002  1 

50114  0 

54061  1 

00003  1 

37643  1 

00006  1 

70103  1 

01,2200 

72215  1 

50000  1 

12203  0 

40002  1 

70115  0 

1000CT  0 

12216  1 

16703  1 

01 ,2210 

1 2 2 1 6 1 

05464  1 

05464  1 

30002  0 

12204  1 

C;  00014  1 

24150  0 

16014  0 

01,2220 

54065  Or 

10431  0 

1 2235  0 

IO5O5  0 

12235  0 

10561  1 

12235  0 

10635  0 

01  1 2 2 30 

12235"  0 

“IO7TI  1 

12235  0 

05446  1 

CT  01205  0 

67656"  0 

2200 7 0 

50u0u  1 

Ui ,224U 

21777  0 

26O7U  1 

37665  0 

54071  U 

32251  0 

54066  0 

5OU7I  1 

10153  1 

Oi ,2230 

1 23 1 1 1 

C:  "O0006"  1 

72311  1 

30070  0 

50071  1 " 

34l5 3 1 

7767Z  1 

57)077  r 

01 ,2260 

54152  0 

10071  0 

12276  1 

54105  1 

30152  1 

54104  0 

10067  1 

12276  1 

01 ,2270 

05464  1 

05464  1 

54067  1 

52073  1 

52151  0 

14443  1 

52073  1 

5OO7I  1 

01,2300 

52157  0 

50067  0 

40153  1 

6OO7O  ~0 

00006  1 

64443  0 

30071  1 

54067  1 

01,2310 

14443  1 

32424  1 

26071  0 

10066  0 

12245  1 

05446  1 

C;  01202  0 

52151  0 

0 1 1 2 320 

' 5006"?  "0“ 

52151  0 

- 52151  0 

52T4I  1 

" 50067  0 " 

“ 52741  1 

521  47  1 

5214  3 0 

01  ^2330 

5 006 7 0 

52143  0 

52143  0 

52145  0 

50067  0 

52145  0 

52145  0 

52147  1 

□ 1 ,2340 

50067  0 

52147  1 

52147  1 

37665  0 

56105  0 

00006  1 

12351  0 

40152  0 

01 f 2 3 50 

54152  0 

52153  1 

50067  0 

52153  1 

52153  1 

37672  0 

70153  1 

54104  0 

01 ,2360 

10152  0 

37665  0 

12367  0 

40152  0 

54152  0 

37657  1 

56105  0 

54067  1 

01,2377) 

(too  cnr  1 

52151  C 

00006  r 

~ 62375  1 

52  0 06  "0 

40000  0 

67657  1 

54150  1 

473423A  YJL  SYSTEM  FOR  BLK25  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10*  1966  PAGE  693 


octal  listing  oFTaragra^ih  § 025*  with,  parity  bit  in  binary  at  the  right  of  each  word;  «@»  denotes  unused  fixed  memory, 

ALtrVALrD~WUffDS  ARe  BASIC  INSTRUCTIONS.  E^CePT  THOSE  MARKED  "I"  < INTERPRET I Ve"OPeRATOR  WORDS)  OR  11 C"  (CONSTANTS}  » 


01,2400 

36232  1 

70001  1 

16011  0 

00004  0 

40153  1 

54153  1 

360 2/  1 

7OOO6  0 

_ 01,2410 

54151  cr 

47665  1 

54115  0 

12504  0 

54065  0 

3766b  0 

54071  0 

32251  0 

01,2420 

54066  0 

50071  1 

10153  1 

12426  1 

c:  00014  1 

12435  0 

32424  1 

26071  0 

01,2430 

10066  0 

12420  1 

47657  0 

54071  0 

14443  1 

40072^0 

5OO7I  1 

60150  0 

01,2440 

00006  1 

12443  1 

12426  1 

50071  1 

40153  1 

54070  1 

5OO7I  1 

54153  1 

01,2450 

46232  0 

70072  0 

67645  1 

56072  1 

76232  0 

50071  1 

60151  1 

54073  1 

01,2460 

10071  0 

12276  1 

12266  0 

54150  1 

37665  0 

54114  1 

37672  0 

70153  1 

01,2470 

6UU7O  0 

54153  1 

40000  0 

12412  0 

00004  0 

47665  1 

54115  0 

56153  0“ 

01,2500 

77672  1 

10000  0 

50000  1 

54000  0 

10167  0 

02551  1 

05464  1 

12510  0 

01,2510- 

10203-  1 

02551  1 

05464  1 

12514  1 

10217  1 

02551  1 

C:  67624  0 

12520  0 

01,2520 

10233  1 

02551  1 

05464  1 

12524  1 

10247  1 

02551  1 

05464  1 

12530  1 

01,2530 

10263  r 

0255  i 1 

05464  1 

12534  0 

roTis  0 

05464  1 

05464  1 

12541  1 

01,2540  144500  10114  1 12544^1  12370^0  — 50UOO  1 27777  O-  62516  1 54067  1 

01,2550  12317  l 54116  0 60115  1 10000  0 40116  0 1256rTT  12557  0 50002  0 

■01' ,'2750 00002  0 54117  0 00006  1 22114  0 57TT4“0r  “ 00002  0 54066  0“  40026  1 

01,2570  '“62571  0 10000  0 66042  1 -4000170  62722  1 60002  0 10000  0 61400  1 


01  ,2600 

12642  1 

“ 12602  0 

40002  1 

67642~0 

67642  0 

56026  0 

67641  0 

60002  0 

01,2610 

00006  1 

22007  0 

57400  1 

57401  0 

57402  0 

57403  1 

57404  0 

57405  1 

01 ,2620 

57406  1 

57407  0 

30070  0 

50002  0 

12625  0 

53411  0 

53413  1 

53415  1 

01,2630 

53417  0 

53-42 1 0 

53423  I 

53425  1 

53427  0 

534 3i  1 

64567  1 

00006  1 

01,2640 

14547  1 

12715  1 

10000  0 

61401  0 

12650  1 

67657  1 

02723  0 

c:  00001  0 

01 ,2650 

rOOO'0”O 

61403  0 

“ 12656  1 

6 f 657  1 

02723  0 

C:  00002  0 

10000  0 

61403  1 

01 ,2660 

“12664  0 

67657  1 

02723  0 

C:  00003  1 

10000  0 

61404  0 

12672  1 

67657  1 

01 ,2670 

02723  0 

c:  00004  0 

10000  0 

61405  1 

12700  0 

67657  1 

02723  0 

C!  00005  1 

01*2700 

10000  0 

6y406“  1 

12706  0 

67657  1 

02723  0 

c;  00006  1 

10000  0 

61407  0 

01,2710 

12714  “CT 

67657  1 

02723  0 

C;  OOOO7  0 

10000  0 

05446  1 

C:  01203  1 

67657  1 

■“0172720" 

“02723  0 

c : 0001-0  “0 

C:  “50001  0“ 

5407I“0 

50002  0 

30000  1 

54002  1 

37657  1 

01 ,2730 

6OO7I  1 

50002  0 

27377  1 

40071  0 

50002  0 

12612  1 

54016  1 

00006  1 

0172740 

22012 I 

37640  I 

5740?  0 

57406  1 

57405  1. 

57404  0 

57403  1 

574U2  U 

01  ,2750 

57401  “0 

57400  1 

67637  1 

26026  1 

55070  0 

47665  1 

55070  0 

00006  1 

01*2 760 

4457O  0 

53431  1 

53427  0 

53425  1 

53423  1 

53421  0 

53417  0 

53415  1 

01 ,2770 

“ 53413  1 

53411  0 

52006  0 

05317  1 

32777  1 

05332  0 

04437  O 

Cl  0 0531  0 
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OCTAL  LI5fING  OF  PARAGRAPH  # 026,  WItH> 

parity  bit  in  binary  at 

the 

right  of  each  word,  "0"  Denotes  unused  fixed 

MEMORY', 

• 

All  valid 

WORqS  are  basic 

instructions 

EXCtPT  THOSE  marked  " 1 " 

(INTERPRETIVE  OPERATOR  WOR^S)  OR  « 

C"  (CONSTANTS), 

01,3000 

55371  1 

40000  0 

67656  0 00006 

1 

63013  0 

37665  0 

55361  0 

31371 

0 

01,3010 

50000  1 

03011  1 

03034  0 37665 

0 

55361  0 

04102  0 C 

: 40047  0 C: 

05265 

0 

0173020“ 

C;  04143  0 

C:  0547I  T3 

c;  055 7 3 0 C:  04757 

0 

C!  05736  0 

C:  05634  0 C 

: 05163  0 c; 

05675 

D 

01 ,3030 

Cl  05777  0 

c:  0 7 2 6 5 1 

C;  00013  0 c:  00042 

1 

37661  1 

55373  0 

00004  0 

37657 

r 

01*3040 

04536  0 

C:  03075  0 

c:  02003  0 00003 

1 

03015  0 

55373  0 

00004  0 

51373 

1 

0 1 * 3U5U 

¥3017  0 

54307  I 

54310  1 54311 

0 

54312  0 

54313  1 

54314  0 

54315 

1 

01,3050 

54316  1 

54317  0 

54320  1 54321 

0 

33032  0 

54303  0 

00004  0 

37646 

1 

01 ,3070 

04536“0 

C;  O3O75  0 

C:  02003  0 00003 

1“ 

04602  1 

11373  0 

03045  0 ~ 

03104 

1 

01,3100 

03121  0 

11374  1 

03135  0 03141 

0 

47657  0 

55373  0 

33033  1 

00006 

1 

OT  ,3110 

05011  r 

43031  1 

00004  0 543O7 

1 

54312  0 

~ 54314  0 

36165  0 

54303 

0 - 

01,3120 

03066  1 

47665  1 

55373  0 37657 

1 

55372  1 

00004  0 

43031  1 

54310 

1 

01,3130 

54313  1 

54315  1 

36165  0 54303 

0 

03066  1 

55372  1 

47644  1 

00004 

0 

01,3140 

03051  0 

43033  0 

00006  1 03011 

1 

04602  1 

03145  1 

03146  1 CKSM 

65636 

1 

01*3150 

0 

0 

¥ g 

0 

0 

0 

0 

01 *3160 

I 

e 

0 © 

0 

0 

© 

0 

01*3170 

e 

e 

@ 0 

0 

0 

© 

0 

01,3200 

© 

@ 

0 0 

0 

0 

0 

0 

01*3210 

© @ 

0 

© 

0 

0 

01,3220 

¥ 

© 

® ® 

0 

0 

0 

© 

OT*  3200“ 

0 

0 

@ @ 

© 

0 

0 
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01,3240 

© 

@ 

0 0 

© 

0 

0 

© 
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© 

@ 

@ © 

0 

0 

0 

© 

01*3260 
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© - 

0 @ 

0 

0 

© 

0 
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¥ 

© 
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0 

0 

0 

© 

01,3300 
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@ 
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0 

© 

0 

0 

01*3310 

§ 
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0 0 

0 

© 

0 

0 

01  * 3320 

¥ 

0 ~ 

0 

0 
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© 

01 *3330 
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0 
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OCTAL  LISTING  OF  PARAGRAPH  # 040 ♦ WI THi  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD;  »§»  DENOTES  UNUSED  FIXED  MeMQRYT 
ALL  VALID  WORDS  aRe  BASr~C~IN5TRUCTI0N5.  eXCePT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WQROSTOR  "C”  (CONSTANTS)* 


0 A, 2000 

03454  1 

03476  I 

37657  1 

56277  0 

54101  0 

56140  T 

54103  1 

50000  1 

04,2010 

7)2011  0 

03275  1 

02062  1 

02062  1 

02062  1 

02062  1 

02062  1 

0206 2 1 

04,2020 

“027)62  1 

7)2053  0 

02053  0 

03275  I 

03275  1 

03275  1 

03275  1 

“ 03275  1 

04  f 2 0 30 

“03275  “I 

02060  0 

02235  1 

02343  1 

03275  1 

03275  1 

03275  1 

03275  1 

04,2040 

03275  1 

03275  1 

03320  0 

02267  0 

02254  0 

02051  1 

03275  1 

02431  0 

04,2050 

02250~1 

04102  0 

C:  12003  1 

36165  0 

70265  1 

10000  0 

02062  1 

03275  1 

04,2060 

3 7666  0 

54103  1 

10264  0 

02067  1 

02067  1 

02066  0 

04440  0 

02205  1 

04,2070 

T0302  1 

.37665  U 

54302  1 

02074  0 

50103  0 

34741  1 

75224  1 

54110  0 

04,2100 

30264  1 

54127  1 

03201 

1 

36165  0 

70265  1 

10000  0 

02117  1 

50123  1 

04,2110 

56266  7) 

54022  0 

40022 

0 

40022  0 

56022  1 

607  0 3 0 

02134  0 

50123  1 

04,2120 

56266  0 

54140  0 

37665 

0 

54141  1 

37661  1 

07266  1 

56141  0 

60103  0 

04,2130 

54141  1 

02134  0 

26140 

0 

02152  0 

50123  1 

54266  1 

40264  0 

50123  1 

04,2140 

62176  0 

00006  1 

12144 

0 

02173  0 

36165  0 

70265  1 

10000  0 

02152  0 

04,2150 

40264  0 

02174  1 

07063 

0 

C:  02203  1 

36l65  U 

70265  1 

50000  1 

02157  0 

04 ,27.60 

02164  7) 

00006  1 

40142 

I 

52142  1 

56142  0 

50123  1 

54271  1 

56147  0 

04,2170 

50123  1 

54266  1 

02150 

1 

10264  0 

54264  0 

04440  0 

C:  00022  1 

Ci 

! 00020  0 

04,2200 

Ci  00012  1 

CS  00005  1 

c;  00000 

1 

CS  05174  0 

CS  13261  0 

50264  1 

32211  1 

54123  0 

04,2210 

00002  C 

c:  00004  0 

Cl  00004 

0 

c:  00004  0 

CS  0000a  0 

C!  00004  0 

CS  00003  1 

Ci 

O0UU3  1 

04,2220 

c;  00003  1 

CS  00003  1 

cs  00003 

1 

c:  00002  0 

C!  00002  0 

CS  00002  0 

CS  00002  0 

C: 

00002  0 

04,2230 

05464r  1 

cs  "ooooi  0 

c;- 00001 

0 

c : 00000  1 

cs  00000  1 

37665  0 

54266  1 

3 523  7 1 

04,2240 

54264  0 

02541  XT 

37665  0 

"54265  1 

54300  0 

3 5 1 5 0 0 

54122  1 

04440  0 

04, 2350 

" 37665  0 “ 

54267  0 “ 

35240  1 

02240  0" 

02326  1 

02313  1 

37656  0 

50126  1 

04,2260 

67651  1 

26265  1 

10302  1 

37665  0 

54302  1 

02266  1 

04440  0 

02326  1 

04,2270 

02273  0 

37657  1 

02257  0 

22002  0 

02205  1 

50123  1 

32321  0 

54107  0 

0 A , 2300 

6765?  1 

54106  1 

37665  0 

54110  0 

56107  1 

03263  0 

37645  1 

541 1U  U 

04  $ 2 3 1 0 

56106  0 

03263  0 

00001  0 

22002  0 

02205  1 

50123  1 

32321  0 

54106  1 

04',' "2320 

77 6 57”  "7 

54707—O 

02302  1 

C;  00005  I " 

C:  00003  1 

C:  00000  1 

22002  0 

45175  0 

OA , 2330 

02336  0 

45176  0 

02336  0 

45I77  1 

02336  0 

04440  0 

60264  1 

00006  1 

04,2340"  - 

72342  1 

00002  0— 

■■■OOOOI  0 — 

56701  1 

54277  1 

00004  0 

37646  1 

—00006  1 

Oh  9 2 350 

05011  1 

37652  1 

70322  0 

67641  0 

54322  0 

44515  0 

70370  1 

64515  1 

OH  y 2360 

54370  1 

47646  0 

70367  1 

67646  1 

54367  1 

42427  0 

70413  0 

67651  1 

04,2370 

54412  0 

47646  0 

~ 00006  1 

03013  0 

42426  1 

"00006  1 

03071  1 

05242  0 
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OCTAL  LISTInS  pF  P~Aft'AGRAPfl~>  Q4j,  W X yHi  PARITY  BIT  IN  BINARY  Aj  THe  RIGHT  OF  EACH  WORD;  «<g»  DENOTES  UNUSeD  FIXED  MEMORY,  ~ 

ALL  VALID  WORDSARg  BA5IC  INSTRUCTIONS  eXCePT  THOSE  MARKeD"  lrI,v  ( INTERPRETIVE"  OPERA  T Q R~  WOR  PS  V ~Q  R "C"  (CONSTANTS),  " 

04,2400  54lO~3“l  00004"  0 50103  0 10307  1 67657  I 02412  1 67657  1 40000  0 

04,2410  72430  0 02415'  0 40000  0 7243O  0 4OOOO  O)  50103  0 5430?  1 00003  1 

04 ,2420“  10103  1 ”02400~T“  37665” 0 55363  1 55364  0~  04440  0 C;  00104  1 (T*- 00330  1 

04,2430  c:  73777  1 10264  0 67657  1 02435  1 67657  1 54264^0  02205  1~  10302  1 


04,2440 

02446  0 

024^73  0 

02443  0 

“30123  1 

02470  0 

02463  1 

10123  0 

5 4 1 2 3 0 

04 ,2450 

02470  0 " 

32537  1 

26300  0 

30123  1 

54111  1 

0q0U  6 1 

26266  1 

04063  0 

04,2460 

Ci  12315  0 ' 

30111  0 

54123  0 

02466  1 

24302  0 

04440  0 

22002  0 

02500  0 

04,2470 

67670“ 1 

“ 10000  0 “ 

00002  13 

05464  1 

04440  0 

00002  0 

22002  0 

02205  1 

04,2500 

37665  T> 

50123  1 

54266  1 

50123  1 

54271  1 

54110  0 

50123  1 

47651  0 

04 , 25 ITT 

70265  1 

72540  0 

54265~  T 

50123  1 

32530  0 

54127  1 

03 201  “I 

50123  T 

04,2520 

32533  0 

54264  0 

02541  0 

47656  1 

26^64-  0 

02541  0 

50123  1 

35173  1 

04,2530 

54264  0 

00001  0 

C ; OOu 16  u 

G;  00GU5  1 

C:  00004  0 

C:  00015  0 

C;  00011  1 

C:  00003  1 

04,2540 

C!  77774  0 

30264  1 

54021  0 

42554  0 

00004  0 

50021  1 

56307  0 

00006  1 

04,2550 

62552  1 

24303  1 

00003  1 

00002  0 

C:  04000  0 

37665  0 

54142  1 

02614  0 

“0  4^72^5  60 

02562  1 - 

02607  1 

02625  T 

T0140  0 

56  T40  1 

0 2570  1 

02577  0 

67667  1 

04,2570 62641  0 54140  0 02575  1 37641  0 26140  0 37656  0 02556  0 56140  1 


f 2 600 

62641  0 

IOOOO  0 

02571  cr 

05464  1 

67657  1 

40000  0 

02571  0 

00006  1 

04 1 2 6 1 0 

50 1 42  13 

32636  0 

52110  0 

00002  0 

10140  0 

00002  0 

00002  0 

12620  0 

04,2620 

47641  1 

7OI4O  0 

54140  0 

50002  0 

00001  0 

00006  1 

50142  U 

52 636  0 

04,2630 

52T4T  1 

O7ZM  r 

~52T10  Or 

2minri 

02645  1 

C;  05605  1 

C;  03656  1 

C;  16314  0 

04,2640 

CT  31463  T 

n:: “I6040  1 

52110  0 

52141  1 

07  2 6 6 1 

04102  0 c: 

12513  0 

02661  1 

04y263Tl 

56142 

56141  cr 

~54i4inr 

~02645  1 

02661  1 

02645  1 

02661  1 

03054  0 

04  * 2 660 

02645  1 

56002  0 

54105  1 

50124  0 

02664  1 

02702  0 

50103  0 

30134  1 

04*2670 

75234  0 

05 1 7 1 0 

00006  1 

50000  1 

30001  0 

52141  1 

07235  1 

07063  0 

0^,2700 

LJ  UUIU7  1 

00105  0 

30131  1 

02672  0 

50124  0 

O27O5  1 

02710  0 

03277  0 

04,2710 

cooo6  1 

50131  1 

30001  0 

52141  1 

35175  1 

54264  0 

37665  0 

54142  1 

04  ,272tT“ 

07235  1 

03155  0“ 

00122  0 “ 

07063  0 

O 02766  1 

10141  1 

37645  1 

02731  0 

04,2730 

47645  0 

60141  0 

030^6  1 

05263  0 

05263  0 

03075  0 

062 63  0 

10140  0 

0^,2740 

02744  1 

^2744^  1 

40000  T) 

“ 54154  0 0 

10105  1 

“ 02762  0 

02756  1 

10140  0 

04 ,2750 

05464  1 

02760  1 

02753  1 

56140  1 

77637  0 

54140  0 

04102  0 

C:  13040  1 

04*2760 

47637  0 

02755  1 

40140  0 

77637  0 

40000  0 

02755  1 c: 

26 1 6 1 0 

c;  30707  1 

04,2770 

C \ 2 1 6 1 6 0 

C • 0 7O7 1 0 

C5  71527“! 

07O63“0 

c:  00107  1 

56142  0 “ 

56141  0 

56140  1 
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OCTAL  LISTING'  OF~PARAGRAPH  0 Q42<  WItHI  PARITY  BIT  IN  BINARY  Aj  THe  RIGHT  OF  EACH  WORD;  ”6"  DeNOTeS  UNUSeD  FIXED  MEMORY. 
ALL  VALID  WORDS-  ARe  BASTCI N5TRUCTT0N5.  EXCEPT  TH0Se  MARKeD  iiI  ii  (1NTeRPRETWe  OPERATOR  WORPS)  OR  ''C'MCONSTANtST.- 


04,3000 

OUOO  6~T~ 

13003  0 

03277  0 

03064  0 

03075  0 

02756  1 

10140  0 

0301 3”0 

04 ,5010 

0301 3”0" 

03277  0 

03277  0 

32772  1 

26140  0 

07063  0 

C!  02770  0 

37644  0 

04,3020 

60141  0 

03066  1 

02734  0 

07063  0 

C;  001 07  1 

56142  0 

60000  1 

54142  1 

04,3030 

37665  0 

60141  U 

03066  1 

03075  0 

50124  0 

03035  1 

03046  0 

30103  0 

04,3040 

60131  1 

54002  1 

56141  0 

50002  0 

54001  1 

02756  1 

37665  0 

03040  0 

04,3050 

- 07063  0 "" 

C:  00107  1 

03054  0 

03025  0 

56002  0 

54110  0 

36162  1 

54107  0 

04,3060 

' 05263  0 ' 

10107  0 

03057  0 

00110  1 

56141  0 

60000  1 

54141  1 

00002  0 

04,3070  " 

60140  1 

54140  0 

00002  0 

54105  1 

00002  0 

10105  1 

03277  13 

00002  0 

04,3100 T32T277  0 56P07~~0  54101  0 10140  0 03X13  1 03I13~I  67657  1 $41  AO  0 


“04T3TT0 02313”! WRn  031T5”!  02273  o 5614T~Q  531541  5¥T4T”I 3766b  0 


04,3120 

60140  1 

54140~0 

03126  1 

37637  1 

54140  0 

54141  1 

37655  0 

54123  0 

04,3130 

35242  0 

07266  1 

50140  1 

34741  1 

75224  1 

54110  0 

37665  0 

56142  0 

04,3140 

56141  0 

54140  0 

56264  1 

54127  1 

10000  0 

54264  0 

03201  1 

10123  0 

04,3150 

03127  0 

45237  0 

54264  0 

00101  1 

Cs  02476  0 

56002  0 

54101  0 

37665  0 

04,3160 

541 rc~o 

36165  U 

03263  0 

37655  0 

03263  0 

10140  0 

03176  1 

03 176  1 

04,3170 

67657  1 

54140  0 

02313  1 

40141  1 

54141  1 

03177  0 

02273  0 

35176  1 

04,3200 

03127  0 

56002  0 

54100  1 

35224  0 

70127  1 

54021  0 

56021  1 

54125  0 

04,3210 

376  57"  1 

70127  1 

10000  0 

032 1 5 1 

03225  1 

56110  1 

05216  1 

54110  0 

04,3220 

37642  0 

70127  1 

10000  0 

37656  0 

67657  1 

54127  1 

00004  0 

50125  1 

04,3230  “ 

10307"  i 

"032  33  O' 

"05464  I 

67657  1 

54126  0 

50127  0 

73257  0 

OOOOe  1 

04,3240 

60110  1 

00006  1 

13255  1 

50127  0 

43257  0 

70126  0 

60110  1 

40000  0 

04,3250" 

50125  i 

563U  J 0 

00006  1 

63255  0 ' 

24303  1 

00003  1 

00100  0 

Cj  "00037  0 " 

0^ | 32 6^ 

C5  OI74O  0 

c:  02000  0 

c:  03740  1 

54125  0 

37656  0 

5412?  1 

56002  0 

54100  1 

04,3270 

03226  1 

03201  1 

33274  0 

O4IO5  1 

c:  13250  1 

35150  0 

54122  1 

05243  1 

04,3300"  " 

43307  1 

60l22  0 

00006  1 

l33o5~ 0 

00122  0 

05446~i" 

C:  oi5oi  1 

05i27  0 

04,3310 

37657  1 

54301  1 

05341  1 

05300  1 

03422  0 

05131  1 

47657  0 

03311  1 

04 , 332  0 

47655  1 

"00006  1 

U3Ui I i 

05341""!"" 

04440  0 ~ 

37664  1 

542640 

34127  1 

04 ,3330 

37657  1 

70127  1 

56127  0 

54021  0 

56021  1 

50000  1 

10307  1 

03341  1 

UH ,3i40 

05464  I 

67657  1 

50 127  0 

73257  0 " 

50127  0 

03346  O 

03350  1 

052 OCT  0 

04 ,3350 

541 10  0 

47664  0 

60264  1 

10000  0 

67657  1 

03357  0 

05464  1 

54127  1 

04  « 3 360 

C3201  1 

40264  0 

65175  1 

10000  0 

56264  1 

67657  1 

03326  0 

37665  0 

04,3370 

54264  "CT 

63420  1 

- 50000  1 

10307  1 

03376  0 

" 05464  1 

67657"! 

77645  0 
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ALL  VALID" WORDS  ARe  BASIC  INSTRUCTIONS.  EXCEPT  TH05e  MARKED"  "I"  ( INTERPRET1 VE  OPERATOR  W0RD5)"OR  "C11  (CONSTANTS)  , 


04 ,3400  ~ 

54110  0 

50264  I 

33416  1 

03263  0 

40264  0 

63420  1 

10000  0 

56264  1 

04,3410 

67657  1 

033?0  0 

35175  1 

54264  0 

02476  0 

00122  0 

C:  00000  1 

C;  00001  0 

~04,3420 

C:  WUST  1 

c:  0000 4 0 

10323  1 

03430  13 

O444O  0 

03430  0 

54323  1 

03446  1 

04,3430  “ 

37665  CT 

56323  0 

00004  0 

04422  1 

10301  1 

0345^  1 

O444O  0 

03450  0 

04,3440 

37656  0 

50071  1 

60150  0 

50071  1 

54150  1 

00003  1 

05364  0 

04440  0 

04,3450 

37665  0 

03441  0 

37657  1 

03441  0 

54001  1 

10324  0 

03461  1 

30001  0 

f 346^ 

04105  1 

37656  0 

54130  1 

50130  0 

10327  0 

03467  1 

03472  0 

10130  1 

0 A, 3470 

03462  1 

03536  1 

30001  "0 

50130  0 

54327  0 

04416  0 

54001  1 

10277  I 

04,3500 

03503  1 

30001  0 

04105  1 

37656  0 

54324  0 

30001  0 

56331  0 

56330  1 

04,3510 

56327  I 

10000  0 

03536  1 

03515  0 

03536  I 

' 05253  0 

30001  "0 

04416  0 

Ofy f 35^0 

35433  U 

04363  0 

c ; 03525  0 

C;  10000  0 

04602  1 

05367  0 

03534  0 

04422  1 

04,3530 

00003  1 

37657  1 

54324  0 

04440  0 

37665  0 

U3532  U 

05446  1 

c:  01206  1 

04,3540 

0354q  0 

03541  1 

C<SM  6520°  0 

© 

© 

© 

© 

© 
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© 
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OCTAL  LISTING 

OF  PARAGRAPH 

044,  WIT-HI 

parity  bit  in  binary  at  the 

RIGHT  OF  EACH 

word;  denotes 

UNUSED 

fixed 

memory. 

ALL  VALID  WORDS  ARe  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C 

" (CONSTANTS), 

~ 06,2000 

03344  1 

13403 

1 

02663  0 

37665  0 

54302  1 

35150  0 

54122 

1 

10300  0 

05,2010 

02031  1 

02031 

I 

02013  1 

36165  0 

70265  1 

10000  0 

02020 

1 

02024  0 

■ 06,2020 

T026A  0 

“01324 

0 

02324  "0 

02024  0 

40300  0 

54300  0 

05300 

T 

OO3OO  1 

05,2030  C 

; C0Q3C  1 

37665 

0 

54265  1 

40266  1 

62030  0 

00006  1 

62116 

0 

00006  1 

05.20A0 

32076  1 

52006 

0 

50124  0 

02043  1 

02046  1 

02176  0 

10132 

0 

02114  i 

05,2050 

■ 02324  0 

O2O55 

0 

24304  0 

05167  I 

02102  0 

37641  0 

54302 

1 

45150  1 

05,2060 

60122  0 

00006 

1 

1206*+  0 

02100  1 

02256  1 

10265  1 

02324 

0 

56272  0 

05,2070 

05161  1 

00006 

1 

32076  1 

52006  0 

02116  0 

C:  02000  0 C: 

34000 

0 

C: 

77772  0 

05,2100 

30142  0 

05161 

1 

47654  0 

70266  1 

62O77  0 

00006  1 

12116 

1 

35177  0 

05,2110 

54264  0 

30304 

0 

03222  0 

02116  0 

67657  1 

05161  1 

42131 

T 

60266  0 

05,2120 

1000CT  0 

67657 

1 

02124  1 

02133  1 

54140  0 

05341  1 

56140 

X 

62132  0 

Ob  ,2 130 

O4IO5  1 

C: 

00040 

0 

C:  22000  1 

50266  0 

32136  1 

04105  1 C; 

12324 

1 

C; 

12340  0 

05,2140 

C!  12345  0 

CS  12352  0 

C:  12333  1 

C:  12326  0 

Ci  12445  1 

c;  10704  0 < 

:s  11277  0 

CS  13077  0 

05,2150 

cs  13077  0 

c;  13077  0 

c;  13077  0 

Cs  13077  0 

c:  13077  0 

cs  13077  0 < 

::  12324  1 

CS  12620  0 

0^,2160 

L ! 1 263  1 0 

C:  12646  0 

c:  12572  1 

Li  1 4 53 5 I 

CS  12324  1 

Ci  13214  1 Ci  13314  0 

CS  13340  1 

05,2170 

Ci  11325  0 

c:  11310  0 

c:  11315  0 

Ci  13414  1 

Ci  24000  1 

CS  13267  0 

10132  0 

02203  1 

05,2200 

02324  0 

02203  1 

02203  1 

46162  0 

60266  0 

00006  1 

622i0  0 

02116  0 

05 ,2210 

37656  0 

54103  1 

62235  1 

54131  0 

50103  0 

30134  1 

54106  1 

02721  1 

05,2220 

02236  1 

02223  0 

24106  0 

30106  0 

75234  0 

05171  0 

50000  1 

30000  1 

05 ,2230 

50131  1 

56000  1 

10103  r 

trzzi  1 I 

02116  0 

~ 00111  0 

50000  1 

12240  1 

05,2240 

00002  0 

00002  0 

00002  0 

00002  0 

12250  0 

12250  0 

00002  0 

12250  0 

05", 2250 

5000Z~0 

D0001  0 

35175  1 

12257  1 

35176  1 

12257  I 

35177  0 

54264  0 

05  9 Z2bO 

40002  1 

54300  0 

04063  0 

C;  IO476  0 

05274  0 

45150  1 

60122  0 

00006  1 

05,2270 

12273  1 

A-7665  1 

54323  1 

00122  0 

54267  0 

56002  0 

54103  1 

00006  1 

■“05,2  300 

32076  1 

52006  0 

10132  0 

67657^^ 

12307  0 

12310  0 

12310  0 

05161  1 

05 ,2310 

35240  1 

54264  0 

30267  1 

12322  1 

54266  1 

56002  0 

54103  1 

35237  1 

05  ,ZS20 

54264  ~C r 

30266  0 

03255  0 

00103  0 

04102  0 

C:  11277  0 

47656  1 

02376  1 

Ob t 2 3 30 

50131  1 

40002  1 

56116  1 

47657  0 

02376  1 

50131  1 

40001  1 

56115  1 

U b * 4 34U 

U242U  0 

50131  1 

40000  or 

56114  0 

02357  1 

47657  0 

02376  1 

50131  1 

US  * 

*tUUUi  1 

02343  1 

47656  1 

02376  1 

50131  1 

40002  1 

02343  1 

47656  1 

US , 236U 

60266  0 

lQOQU  0 

02365  0 

00122  0 

02365  0 

54106  1 

50000  1 

35175  I 

Ob  % 2370 

S'4'264  0" 

50106  0 

401 1 H 1 

03222  0 

56106  0 

02361  I 

54107  0 

22D02  0 
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OCTAL  LISTING’  OF  PARAGRAPH  # 045,  WItMI  PARITY  Bly  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  »eH  DENOTES  UNUSeD  FIXED  MEMORY, 


ALL  VALTDIqRDS  ARg  BASIC  INSTRUCT IO^JS  eXCeFt  tHOSe  MARKED“lrlir1 INTERPRETIVE  OPERATOR  WORDS)  OR  "C11  (CONSTANTS). 


05,2400 

47657  0 

60267  1 

00006  1 

121?  0 

50124  0 

32442  1 

50000  1 

30000  1 

0 5 , 2 41 0 

75226  0 

0520?  1 

60107  1 

10000  0 

00001  0 

05464  1 

02324  0 

00001  0 

05,2420 

2 2 002  O 

30132  r 

67657  1 

00006  I 

12436  0 

50124  0 

02426  0 

02431  0 

05,2430 

100011  _ 

02713  0 

02236  1 

0000 1 0 

24131  1 

00001  0 

00006  1 

50304  0 

1)5,2440 

COOOG  1 

40000  0 

12343  0 

c:  00133  0 

CJ 

00132  1 

50124  0 

32442  1 

5OOOO  1 

05,2450 

30000  i 

75226  0 

05207  1 

54103  1 

54106  1 

60131  1 

50000  1 

40000  0 

05,2460 

50106  0 

562?0  1 

10106  1 

02454  0 

37665  0 

54141  1 

54142  1 

50103  0 

05,2470 

35176  1 

54264  0 

50103  0 

40270  0“ 

54140  0~ 

02734  0 

54107  0 

00006  1 

0 1?  f 2 5 00 

32512  0 

52006  0 

50124  0 

02503  0 

02507  1 

02721  1 

02522  0 

02713  0 

0 5 , 2 5 ro 

025221 

C:  12037  1 

C:  34000  0 

04063  0 

c: 

11101  1 

10103  I 

' 02520  1 

131221 

0*>  1 2 5 2 0 

54103  1 

02464  0 

50000  1 

32525  1 

O4IO5  1 

c:  11277  0 

CJ  12513  0 

CJ  10555  0 

05,2530 

C#  10642  0 

C:  10647  0 

C!  10654  1 

C ! 10563  0 

c: 

10656  0 

47656  1 

02376  1 

32673  1 

05 *254o  o23],4  o 02252  o 32674  o 023^4  0 02254  Q 32675  j,  o23l4  0 qZ256“7 

05,2550 46162  0 02676  1 00006  1 32076  1 52006  0 37665  0 02762  0 ““  50131  1 

05,2560  54000  0 37657  1 02762  0 50T31  I 54001  1 37656  0 02762  0 501311 

05,2570  54002  1 02663  0 47657  0 02376  1 32673  1 023141  0 2 2 5 2 0 3 2 6741“ 


05,2600 

023140 

02254  0 

476641 

02676  1 

00006  1 

32076  1 

52006  0 

37665  0 

05,2610 

02762  0 

50131  1 

54000  0 

3765?  1 

02762  0 

50131  1 

54001  1 

U2663  U 

05  9 2 6 2 0 

02252“  0 “ 

00006  1 

32076  1 

52006  0 

37665  0 

02762  0 

50131  1 

54000  0 

05,2630 

02663“  0 

■4765?  0 

1237t>  1 

37641  0 

“54302  1 ' 

12254  0 

00006  1 

32076  1 

05,2640  52006  C 

05,2650 3T64T  “0“ 

05,2660 50131  1 

0572670 54264  0 


37657  1 027521  50131  1 54001  1 02663  0 47656  1 02376  1 

54302  1 02256  1 00006  1 32076  1 520061  376561  02762  0 

54002  1 02663  0 37665  0 54265  1 47665  1 54301  1 45237  0 

041020  C:  11422  0 Cj  00021  l Cj  000221  C;  00023  0 54103  1 40265  1 


15,2700 

05,2710 

1572720 

05,2730 


54021  0 40021  0 40021  0 100001  12706  0 000021  60103  0 00006  1 

12712  0 02324  0 00002  0 “ 56002  0 54100  1 352251“  70133  1 05200  0 

501001  56002  0 541001 50103  0 327531  54001"!  50103  0 352241 

70137  0 50001  0 000001“  00100  0 56002  0 54100  1 ““ 50124  0 ““  02737  0 


0542740 

02756  1 

50T03'  0 

32753  1 

“54001  1“ 

50103  0 

35224  0 

70133  1 

50001 

0 

05,2750 

00000  1 

60000  1 

00100  0 

02712  1 

05200  0 

0 5 2 0 7 1 

35224  0 

70133 

1 

05 ,2 760 

60000  1 

00100  0 

54103  1 

56002  0 

54101  0 

37665  0 

54105  1 

50103 

0 

0572770 

56273““! 

54141  1 

50103  0 — 

56273  1 

“54140  0 

50124  0 

02776  0 

03023 

0 

— 

- 
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05,3000 

50103  0 

30134  r 

75234  0 

05161  1 

00006  1 

60103  0 

54131  0 

10265  1 

05,3010 

- 03051  0 

02721  1 

02236  1 

03040  0 

24131  1 

30 1 3 i 1 

26103  1 

37665  0 

05,3020 

~ 50103  '0 

53777  0 

03040~0 

05 1 6 7 1 

10265  1 

03051  0 

02713  0 

02236  1 

05,3030 

03034  7T 

37665  0 

54103  1 

03014  1 

30132  1 

67657  1 

00006  1 

13044  0 

05,3040 

56140  1 

00101  1 

C!  02045  1 

c:  34000  0 

56140  1 

00006  1 

50304  0 

01000  0 

05,3050 

" C2663  0" 

02734  0 

54107  0 

00006  1 

33043  0 

52006  0 

50124  0 

03057  0 

05,3060 

03063  1 

02721  1 

03064  0 

02713  0 

50000  1 

33067  0 

04105  1 

c:  11277  0 

05,307CT 

C:  11003  1 

C!  10723  0 

C:  10773  0 

C:  11023  0 

c:  11050  1 

C!  11006  1 

c:  11023  0 

47641  1 

05,3100 

70304  1 

54i4i  1 

33401  1 

70266  1 

05207  1 

54022  0 

56022  1 

60267  1 

05,3110 

54140  0 

40324  0 

67656  0 

100730  0 

05364  0 

03121  0 

05464  1 

37665  0 

05,3120 

54277  1 

00004  0 

10305  0 

03130  0 

37657  1 

0453o  0 

C:  03134  1 

C;  12000  1 

05,3130 

52141  1 

52306  0 

00003  1 

00122  0 

05257  1 

10306  0 

03142  0 

03142  0 

05,3140 

03153  0 

03153  0 

33157  1 

04536  0 

c:  03134  1 

C:  12000  1 

35233  0 

04363  0 

05,3150 

c:  03160"  0 

c:  12000  1 

04602  1 

37665  0 

54305  0 

54306  0 

04602  1 

C;  00144  0 

05  1 3 1 60 

10306  "0 

03165  0 

03165  0 

"04440  0 

04440  0 

10277  1 

03212  0 

33401"  1 

05,3170 

70305  0 

54107  0 

05123  1 

04440  0 

33210  1 

70305  0 

05200  0 

54020  1 

05,3200 

5 60  273  0 

54266  T 

33211  0 

54 122  7L 

47641  1 

70306  0 

54142  1 

02037  1 

05,3210 

C ; C0700  0 

G;  05100  0 

05253  0 

04440  0 

35175  1 

54264  0 

30304  0 

04116  0 

05,3220 

03222  0 

O444O  0 

54022  0 

56002  0 

54101  0 

37642  0 

26264  0 

37655  0 

05  , 3 2 3U 

54123  0 

40022  0 

4 0772  2 7) 

40022T7 

40000  0 

“ 77663  r 

- 50000  I 

34741  1 

05,3240 

75224  1 

54110  0 

56264  1 

54127  1 

10000  0 

54264  0 

04102  0 

c:  '11271  0 

05,32  5U 

10123  77  " 

03230  0 

45237  0 

54264  0 

07)101  I 

" 54020  1 

~ 56002  0 

54101  0 

326^ 

37657  1 

54123  0 

40020  1 

40020  1 

56020  0 

54022  0 

03235  0 

03302  0 

05 ,3270 

37665  0 

56267  1 

54140  0 

35240  1 

54264  0 

04063  0 

C:  10541  0 

30140  1 

U5 ,33UU 

04102  0 c: 

11277  0 

40002  1 

54300  0 

35240  1 

54264  0 

37665  0 

54267  0 

05,3310 

04063  0 c: 

10541  0 

05274  0 

00122  0 

37657  1 

70333  0 

10000  0 

03336  1 

05,3320 ~ 

3522"T~0 

54140  0 

47657  0 

" 70333  0 

54144  1 

05341  1 

35150  0 

54143  0 

O5 ,3330 

00006  1 

30335  1 

52142  1 

30 1 44  ^ 

00004  0 

00140  1 

35232  1 

03321  1 

— 05,3340 35230"  0 54140  0 30333  1 03324- 1 33363  1 54122  1 33401  1 7010?  0" 

05,3350 54140  0 33402  1 70107  0 05200  0 54020  1 56020  0 54141  1 10140  0 

05,3360  03364  0 56141  0 02314  0 05127  0 10141  1 03371  1 56140  1 02274  1 

05,3370 05127  0 35T41rO 02314  0 56140  1 02274  I 37665  0 54301  1 54302  r 
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"047,  WlTHi  PARITY" BIT  IN  BINARY  At 

THe 

RIGHT  OF  each 

word;  Denotes 

unused  fixed 

memory. 

ALL  VALID 

words  akf  basic 

INSTRUCTIONS  EXCEPT  THOSE  MARKeD  "I" 

(INTERPRETIVE  OPERATOR  WORDS)  OR  "C 

' (CONSTANTS) 

• 

05,3400 

02031  1 

C: 

OOO77  1 C;  O77OO  1 

35241 

0 

56264  1 

54124  1 

30276  1 

22002  0 

05,3410 

03255  ¥ 

56124  0 54264  0 

00001 

0 

00004  0 

47657  0 

70370  1 

67657  1 

05,3420 

5437^1 

33457  1 00006  1 

05011 

i 

33460  0 

54322  0 

37646  1 

00006  1 

05,3430 

~ C5013  0 

37661  1 54103  1 

43455 

1 

50103  0 

54307  1 

10103  1 

03432  1 

05,3440 

43456  1 

54310  1 54313  1 

54315 

1 

37660  0 

54303  0 

00003  1 

33462  1 

05,3450 

¥0004  0 

04536  0 C:  03463  0 C: 

12000 

1 

04441)  ¥ 

C;  05675  o C; 

07675  1 C 

: 00175  1 

05,3460 

C!  40650  0 

c: 

00115  1 c:  00764  1 

35233 

0 

04363  0 

C!  O347O  1 C: 

12000  1 

04602  1 

- 03, 34^7 0 

43461  0 

00004  0 00006  1 

03011  1 

47646  0 

00006  1 

03013  ¥ 

37641  0 

05,3500 

54322  0 

43521  0 70370  1 

64515 

1 

54370  1 

43523  1 

70367  1 

64514  0 

05,3510 

' 54367  1 

43522  0 70410  O 

67651 

1 

54413  0 

00003  1 

02001  1 

04ior  0 

05,3520  ^ 

C;  71 3 1 5 0 

C; 

Uool  1 C:  00330  1 C: 

55000 

1 

03524  1 

03525  0 C«5N 

72644  1 

2 

05,3530 

§ 

2 

2 

2 

2 

<2 

05,3540 

I 

2 

2 

2 

2 

2 

2 

0 5 , 3 55  0 

2 ~ 

2 

2 

2 

2 

2 

2 

2 

05 ,3560 

2 

2 

2 

2 

2 

2 

2 

2 

05,3570 

§ 

2 

2 

2 

2 

2 

2 

2 

05,3600 

2 

2 

2 

2 

2 

2 

2 

2 

05,3610 

2 

2 

2 

2 

2 

2 

2 

05,3620 

2 

2 

2 

2 

2 

2 

2 

2 

~05T363¥ 

(2 

2 

2 

2 

2 

2 

2 

2 

05,3640 

2 

2 

2 

2 

2 

2 

2 

2 

05,3650 

~W 

2 

I 

2 

2 

2 

2 

2 

05,3660 

2 

2 

2 

2 

2 

2 

2 

2 

05 ,3670 

<2 

2 

2 

2 

2 

2 

2 

2 

05,3700 

2 

2 

2 

2 

2 

2 

2 

2 

05,3710 

2 

2 

- @ 

2 

2 

2 

2 

2 

0543720 

2 

€ 

~ 2 ~ 

2 

2 

2 

2 

05 ,3730 

2 

2 

2 

~¥~ 

2 

2 

2 

2 

05 

05 


05 


3740 

3750 


3760 


05 


3770 


¥ 

2 

W 

¥ 


2' 

<2 

¥ 

¥ 
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OCTAL  LISTING1  OF  PARAGRAPH  # 050*  WITHi  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD;  DENOTES  UNUSED  FIXED  MfMORY» 
ALL"  "VALID  W0RDSARe^A5IC  INSTRUCT  IONS  EXCgPT~"TffO~5E  MARKED  "I11  (INTERPRETIVE  OPERATOR  WORDS)"  OR  “C11  (CONSTANTS) , 


06,2000 

05317  1 

32054  1 

10000  0 

54142  1 

32057  1 

05332  0 

24142  0 

32055  0 

06  *20  10 

05332  0 

05140  1 

02015  1 

02014  0 

02004  1 

32056  0 

05332  0 

05140  1 

06,2020 

04437  0 

02024  0 

30333  X 

02002  1 

32060  0 

05332  0 

00004  0 

37656  0 

06*2030 

"04536  0 

C*  02065  0 

C:  14004  0 

37657  1 

04536  0 

C;  02220  0 

C;  14004  0 

36165  0 

06*2040  04536  0 C:  02315  1 C!  T4004  0 37655  0 04536  0 CJ  02435  T CS  14004  0 37664  1 

06,2050  04536  0 Ci  02523  1 Ci  14004  0 04437  0 C;  O2OO7  1 C;  02102  0 C;02130H  Cj  00401  I 

06,2060  Ci  04700  1 ' 11407  T 02064T"  04602  1 55407  1 51407  0 11410  1 02071  0 

16 , 2070  OZO  6X"  1 51407  0 3T4Z01  04536  0 Ci12110  0 C:  14004  0 046021 37665  0“ 


06*2100  00006  1 — 01005  0 00006  1 01006  0 5l4o7  0 Il4l0  1 5117  0 554i0  1 

06X2XT0 51407  0 1X4101  021141  OZ06TX  51407"  0 31430  1 04536  0 C:  02IZ2  1 

06,2120  C!  14004  0 04602  1 51407  0 31440  0 55401  1 51407  1 314501 55402  1 

06,2130  OOOOfe  1 00032  0 40000  0 55403  0 37663  0 55404  1 31403  1 51404  0 


06,2140  77650  1 10000  0 02161  0 11404  1 02135  I 31401  0 000061  01005  0 

06,2150  31402  0 00006  1 01006  0 ' 514071  " 31460  1 045361 C;  020771 C{  14004  0 

"06,2160 045021  514041  42Z04  1 714011  55WT1  5X4041  421741  7X4021 

06,2170 554021 05413  1 Ci  01410  0 02143  0 C:  00010  0 C:  00020  0 Cs  00004  0 C*  00200  0 


"06,2200  Ci 00001  0 Cl  CTO 5021  Ci  0004151  Ci  OOlOO  0 Cl  0O040  0 Cl  00020  0 Ci  00100  0 CS  00200  <7 

06,2210 -Cl  00010  0 Ci  00001  0 CS  00004  0 Ci  00002  0 11470  1 02217  1 04602  1 5547O  1 

06,2220 51470  0 H47I  0 022241 02214  1 514701 31474  1 04536  0 Ci  02250  1 

— 0-6X2220 0 1414-  0 04602  - 1 445251 00006  1 02011  0 675421  00006"  I 01011  0 


06*2240  51470  0 11471  0 10000  0 02245  0"  022l4l  67657  1 51470  0 ~ 55471  0 

05,2220 514701 31502  1 55406  0 51470  0 3X4TT1  04536  O C;  02261  0 Cj  140041 

06,2260 045021 44525  0 00006  1 02011  0 "67543“! 00006  1 01011  0 11406  0 

06,2270 02277  1 514701 315051 045351 Ci  02232  0 Ci  14004  0 04602  1 11406  0 


06,2300 

02302  X 

02267  1 

55406  0 

32310  1 

04536  0 

Ci  02277  1 

Ci  14004  0 

04602  1 

06,2310 

Ci  27340  0 

1 1510  0 

02314  0 

04602  1 

55510  0 

5 1 5 1 0 1 

1 1 5 1 1 1 

02321  0 

06*2320 

“G231T1- 

51510- 1 

“ 31525  1 

1536  0 

C i 0Z34Z  0 

cr  14004  0 

04602  1 

42426  1 

06,2330 

00006  1 

03012  1 

51510  1 

1 1 5 1 1 1 

10000  0 

02337  1 

02311  0 

67657  1 

16X231 

5T5W  1 

55511  1 

51510  1 

J1541  0 

04536  0 

Ci  02350  0 

Ci  14004  0 

04604  1 

U b , 2 3 5 0 

32425  0 “ 

00006  1 

06032  0 

72425  1 

00006  1 

12363  1 

34533  0 

04363  0 

06 , i J60 

C:  02376  1 

C:  14004  0 

04602  1 

51510  1 

31571  0 

72426  1 

00006  1 

05012  1 

06,2370 

51510  1 

31555  0 

04536  0 

CT12327  0 

Ci  14004  0 

04602  1 

05317  1 

32425  0 
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ALL  VALID  WORDS  AR(-  BASIC  INSTRUCTIONS  £XC£PT  jHOSe  MARKeD  "I»  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C»  (CONSTANTS) , 


Ob, 2^00 

54333  0 

“32427  I 

05332  0 

32430  1 

05332  0 

05274  0 

05140  1 

04437  0 

06,2410 

~ 02417  1 

“ 00004  0 

37656  0 

04536  0 

c:  02350  0 

c;  14004  0 

04437  0 

00004  0 

06,2420 

37656  ~0 

04536  0 

Cl  02363~0 

C;  14004- CT 

04437  0 

C;  01400  1 

C:  07400  1 

C:  730125  1 

06,2430 

C:  C5COO  1 

11605  1 

02434  0 

04602  1 

55605  1 

51605  0 

11606  1 

02441  1 

06  *244o 

C243i  0 

5^605  0 

0 1 6 ],4  0 

04536  0 

c:  02467  0 

c:  14004  0 

04602  1 

5 1 605  0 

06.2450 

31636  0 

02505  0 

67657  1 

04536  0 

C:  02457  0 

C:  14004  0 

04602  1 

51605  0 

06 , 2460 

11606  1 

10000  0 

02464  0 

02431  0 

67657  1 

51605  0 

55606  1 

51605  0 

06/2470 

' 731620^0“ 

04536  0 

C!  02475  0 

C!  14004  0 

04602  1 

51605  0 

31630  0 

02505  0 

06,2  500 

62522  0 

04536  0 

C: 

02447  1 

c:  14004  0 

04602  1 

54055  0 

55405  0 

37654  1 

06,2510 

00006  1 

05014  1 

31405  1 

00006  1 

62516  1 

40000  0 

40000  0 

00006  1 

" 06,2520 

77646  0 

00002  0 

c; 

00031  0 

11654  0 

02526  1 

04602  1 

36165  0 

55655  1 

06,2530 

51655  0 

31644  0 

00006  i 

51655  0 

02030  0 

51655  0 

57644  0 

51655  0 

06,2540 

31650  0 

00006  1 

51655  0 

04030  0 

51655  0 

57650  0 

11655  1 

02527  0 

06,2550 

37661  1 

04536  0 

C: 

02523  1 

C:  14004  0 

04602  1 

02555  0 

02556  0 

CK5M  40777  1 

06,2560  ———  § ' _ g ' g — g g g @ g 


06.2570 s @ i s e § w e 


06,2600 

e 

@ 

e 

@ 

g 

g 

g 

g 

06 ,2610 

@ 

® 

@ 

@ 

g 

g 

g 

g 

Oo , 2520 

e 

@ 

i 

@ 

g 

g 

g 

g 

06 ,2630 

i 

g 

® 

e 

g 

g 

g 

g 

06 *2640 

g 

@ 

e 

e 

g 

g 

g 

g 

06 , 2 600 

g 

@ 

g 

' ® 

g 

- e - 

06 ,2660 

@ 

s 

® 

@ 

g 

g 

g 

g 

06,2670 

® 

g 

® 

@ 

g 

g 

g 

g 

06  9 2700 

e 

e 

e 

g 

g 

g 

g 

06,2710 

® 

@ 

® 

@ 

g 

g 

g 

g 

06 , 2 720 

— @ 

I 

® 

- g 

g 

"® 

g - 

g 

06,2730 

® 

@ 

@ 

g 

g 

g 

g 

g 

06,2740 

e 

@ 

e 

g 

g 

g 

g 

@ 

06,2750 

& 

@ 

® 

g 

g 

g 

g 

g 

06 , 2760 

@ 

@ 

§ 

@ 

g 

g 

® 

g 

06.2770  S g @ @ § ® g W 
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OCTAL  LISTING  OF ~FARAGRAPH~ir  054*  WlTHi  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD}  »@»  DeN0TE5  UNUSED  FIXED  MEMORY. 


ALL  VALID  W0RD5  ARE  BASIC“IN5TRUCTT0N5:  “EXCEPT  THOSE  MARKeD  11 1 11  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) . 


07,2000““ 

32233  1 

56003  1 

54147  I 

37655  0 

54116  0 

50000  1 

30403  0 

54106  1 

“ 07,2010 

“ 50116  1 

41432  1 

00006  1 

71110  1 

00006  1 

77654  0 

22107  1 

50116  1 

07,2020 

31433  T 

00006  1 

70106  r 

221 10  1 

00006  1 

77652  0 

20107  0 

30110  1 

07,2030 

00006  1 

77652  0 

54001  1 

37665~0 

20107  0 

00006  1 

3010?  1 

50116  1 

07,2040 

52404  0“ 

10116  0 

67667  1 

12004  0 

12045  0 

55457  1 

54114  1 

- “00006  1 

07,2050 

404040" 

52141  1 

31443  0 

02127  1 

UO0O6  1 

40406  1 

5 2 i 4 1 1 

41446  1 

07,2060 

02127  1 

41440  1 

02156  1 

00006  1 

40406  1 

52141  1 

31444  1 

02127  1 

07,2070 

00006! 

40410  0 

52141  r 

41447  0 

02127  1 

41441  0 

02156  1 

00006  ! 

07,2100 

40406  1 

52141  1 

31450  1 

02127  1 

00006  1 

40410  0 

52141  1 

31445  0 

07,2110 

02127  I 

31442  1 

02156  I 

11457  1 

12116  1 

12124  0 

00004  0 

34533  0 

07,2120 

0 4 3 6 3 “ 0 _ 

C:  02211  1 C: 

160U3  0 

00003  1 

30147  0 

54003  0 

14076  0 

56140  1 

07,2130 

00006  1 

70140  0 

52107  0 

30141  0 

OOUU6  1 

70140  0 

54001  1 

37665  0 

07,2140 

20107  0 

30106  0 

00006  1 

77647  1 

50114  0 

21452  1 

30107  1 

00006  1 

07,2150 

77647  1 

54001  1 

37665  0 

50114  0 

21452  1 

00002  0 

00006  1 

22115  1 

07T2T50 00006  1 7TTI0n  22141  0 00006  “I  7765?FO  SOTm)  21452  1 30141  0 

07*2170  00006  1 77654  0 “ 54001  1 37665  0 50114  0 21452  1 37656  0 60114  0 


-nr?, 220u  56114  CT  5O000““l  11451  I 12205  0 00115  I 72255  0 10000  0 55457  1 

07,2210 00115  1 37655  0 54TPF”! 501T4  0 31452  0 00006  1 T7650  1 50114  0 

07,2220 55452  1 37665  0“  50114  0 57451  0 00006  1 77650  1 50114  0 21452  1 

07,2230 10114  “I 67667  1 T22T2“0  C;  0T451  0 322T3- 1 04063  0 C;  26317  0 CWJ63r“0 — 


07,2240  C!  2671 6“0  14440““!““  37655  0 $4114  1 50114*  0 31452  0 00006“T“  77650  1 

07,2250 50114  0 23452  “0 10114  I 67667  1 12243“1  Ci  77776  1 14440  1 30025  0 — 

07  72260 57110  0 40000  0 61110  0 10000 “0 67657  1 12272  0 12270  1 14440“ l 

07,2270  40000  0 67637  1 00006“!  77646  0 52IO7  0 00006  1“  30107  1 52141  1 


“07,2390 

37665  0 

55457  1 

54114“! 

41440  1 

02322  0 

00006  1 

40107 “0 

52141 

1 

0 1 9 2 3 1 0 

31441  1 

02322  0 

00006  1 

4OIO7  0 

52141  1 

41442  0 

02322  0 

1 1457 

1 

0 f 9 2 3 20 

1 22 1 1““0 
21452  1 

14440  1 

56002  0 

“ 54115  0“ 

30002  0 

CO CO 6 1 

70140  0 

50114 

0 

O7 ,2330 

30002  0 

00006  1 

70141  1 

54001  1 

37665  0 

50114  0 

21452 

1 

“ 07,2340 12176  1 5T1TO  O 40000  0 

07,2350  37665  0 55451  1 55452  1 

07,2360  54003  0 I4O76  0 54016  1 

— 0772370 02015“! 54077  0 35233'  Q 


60140  1 12263  0 32233  1 56003“!  54147  1 

55453  0 55454  1 55455  0 — 55456  0 30147  0 

56002  0 54012  0 05257  1 35224“!) 00006  1 

O4363”0 Cl  02002  1 Cl  ”10000“ 0 30077  1 50071  1 
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OCTAL  LISTING  OF  PARAGRAPH  # Q55 , WlTHi  PARITY  BIj  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD?  '>6"  DENOTES  UNUSED  FIXED  MEMORY, 


"All  valid  woRpa  ahe  basic  instructions:  except  those  marked  "i"  (Interpretive  operator  wQRpS)  or  »cm  (constants). 


07,2400 

54140  0 

04606  0 

54016  1 

56002  0 

54012  0 

05257  1 

37665  0 

56045  0 

07,2410 

54077  "0 

37655  0 

00006  1 

05011  1 

35224  0 

70077  0 

56077  1 

56021  1 

~ 07,2420 

55070  0 

02465  1 

7522  4 I 

62477  r 

02474  1 

02465  1 

75224  1 

4000a  0 

07 ,2430 _ 

02474  1 

0246 1 0 

42436  0 

6OO77  1 

10000  0 

02444  1 

C:  00022  1 

02444  1 

07 ,2440 

47657  0 

70342  0 

54342  0 

02450  1 

37657  1 

70342  0 

10000  0 

04606  0 

07,2450 

56077  1 

02371  0 

02461  0 

47657  0 

70342  0 

67657  1 

54342  0 

04606  0 

0 f ,2460 

04606  0 

57070  1 

60000  1 

54021  0 

00002  0 

40021  0 

40021  0 

40021  0 

07,2470 

40021  0 

40021  0 

400W~0 

00002  0 

6OO77  r 

10000  0 

""  02452  0 

" C:  77740  1 

U f f 2 5^0 

02452  0 

00002  0 

02502  1 

02503  0 

CKSM  04763  1 

g 

g 

g 

07 1 2 5 1 o 0 " — g § @ @ g " g ~ ® 

THTZ5Z0  @@@@@@@@ 


07, 2530  e g e e @ e e t 


07*2540 

@ 

g 

g 

§ 

g 

g 

g 

g 

07  *2550 

g 

§ 

g 

g 

@ 

g 

g 

g 

OT*  2560 

§ 

g 

g 

§ 

g 

g 

g 

g 

07*2570 

g 

g 

§ 

§ 

g 

§ 

& 

g 

07.2600 

g 

@ 

g 

g 

g 

@ 

g 

07*2610 

& 

§ 

g 

g 

g 

g 

g 

07*2620 

g 

” e 

@ 

g 

g 

g 

g 

0 7 * 2630 

g 

g 

@ 

§ 

g 

g 

g 

@ 

07,2640 

@ 

g 

g 

g 

g 

g 

g 

07 ,2650 

g 

g 

g 

g 

g 

g 

§ 

07,2660 

"¥ 

g 

g 

g 

g 

g 

g 

07,2670 

g 

g 

g 

@ 

g 

g 

g 

g 

07,2700 

@ 

g 

g 

g 

g 

g 

g 

g 

07,2710 

@ 

g 

g 

g 

g 

g 

g 

g 

074  272  CT 

g 

““ f “ 

g 

"g  " 

g 

"g 

g 

07,2730 

g 

g 

g 

g 

g 

g 

g 

07,2740  " 

g 

g 

g 

" @ 

g 

g 

g 

07,2750 

g 

g 

g 

g 

g 

g 

g 

g 

07 ,2760 

g 

g 

g 

g 

g 

g 

g 

g 

07*2770  @ @ @ @ @ @ @ r 
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OCTAL  LISTING-  OF  PARAGRAPH  # 060«  WlTHi  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD}  DENOTES  UNUSED  FIXED  MEMORY. 


ALL  VALID  WORDS  ARe  BASIC  INSTRUCT  I QNS~  eXCeFT“THOSe  MARKeD^T11  {TNTeRPRET  I VE  OPERATOR  WORDS)  OR  "Cir  (CONSTANTS) . 


10,2000  “ 

C2013  1 

04554  1 

C:  00144  0 

47657  0 

70413  0 

54413  0 

40061  1 

77651  0 

10,2010 

10000  0 

14602  0 ' 

13235  1 

00006  1 

23460  1 

37657  1 

00006  1 

05012  1 

nr 2020  “ 

C;  00002  0 

37665  13 

~ 54035  0 

54036  0 

47657  0 

00006  1 

03012  1 

10,2030 

“04554  1 

c:  00454  1 

47643  0 

70413  0 

54413  0 

30035  1 

04763  1 

C!  57777  1 

10,2040 

12043  0 

37665  0 

12044  1 

37644  0 

564i3  l 

74360  1 

264 i3  0 

05Q42  1 

10,2050 

0146CT  1 

02106  1 

37657  1 

70413  0 

10000  0 

12060  1 

05413  1 

C;  00501  0 

10,2060 

04554  1 

c:  00002  0 

37644  0 

70413  0 

10000  0 

37641  0 

02150  1 

37644  0 

10,2070 

70413“0 

loooa  0 

47642  T 

02153  1 

47645  0 

70413  0 

54413  0 

77646  0 

10,2100 

10000  0 

12422  0 

47656  1 

00006  1 

03012  1 

14602  0 

37656  0 

00006  1 

10T2T10 

05012 T * 

37665  0 

54362  I 

54363  0 

00002  0 

37644  0 

70413  0 

10000  0 

10,2120 

37641  0 

02150  1 

32137  0 

02153  1 

40413  0 

77644  1 

10000  0 

32141  1 

10,2130 

62 l4l  1 

02150  1 

02142  1 

47642  1 

70413  0 

54413  0 

02431  0 

C;  7OOOO  0 

TO, 2140 C5  67070  1 C!  61615  1 22413  1 37644  0 ~“  00006  1 06001  0 54413  0 00002  0 

10,2150  55461  1 37665  0 12155  0 55461  1 37657  1 55462  1 00006  1 23460  1 

“T0721T0 12163 ~0 04T54TT a 00062  0 404T3“0  74520T  00006“!  12074  T 3I4TT7J 

10,2170  00006  1 51462  0 20035  0 54002  1 00006  1 72212  0 54001  1 30002  0 


10,2200  0476 3“T  C;  77644-1  12204  1 01460  1 11462  1 12207  1 56001  0 52424  1“ 

10,2210 02213  0 12161  1 C5  22715  1 22002  0 37657  1 54066  0 50000  1 30423  1 

10,2220  54065  C 04763  1 C!  77177  0 12241  0 30065  1 50066  1 56362  0 40000  0 

10^2230 6036TT TCO^T 54053“0 10066  0 12215  1 345O6“0 OOOU6“I 050T4“T~ 


10,2240 

C000I“0“~ 

10065  0 

42222  0 

12245  1 

32222  1 

54065  0 

12225  1 

00004  0 

10,2250 

A765T  0 

fOU6l  I 

67651  1 

54061  1 

37657  1 

70413  0 

70000  0 

12302  0 

10  f 2 2 bO 

37645  1 

70413  0 

10000  0 

13227  1 

47643  0 

70413  0 

67643  1 

54413  0 

10,2270 

37657  1 

04536  0 

C:  02304  1 

C;  20003  0 

40413  0 

77656  1 

10000  0 

12302  0 

10,2300 

05413  1 

c:  00510  0 

00003  1“ 

14076  0 

02013  1 

13235  1 

1:  43030  0 

cs  00427  0 

10*2310 

C:  0027I  0 

1 : 66224  0 

CJ  33361  0 

Cl 

COO5I  0 

c:  00024  1 

C!  22025  0 

C:  00416  1 

c:  36041  1 

UT,2320 

C!  324  7*3*  0 

11  77634  0 

C!  33267  1 

1 : 

77776  1 

- 00004  0 ~ 

04777  1 

c;  00423  1 

12351  0 

10  * 2 3 30 

24427  0 

32350  0 

54430  1 

37646  1 

26413  0 

77645  0 

iOOOO  0 

12345  0 

U21U6  1 

57656  O 

04536  0 

CT 

tJ2422  1 

c:  20003  0 

COO 03  1 

30427  0 

14105  0 

10*2350 

c:  00074  1 

02142  1 

04777  1 

C: 

00425  1 

12361  0 

02142  1 

37642  0 

26413  0 

10*2  360 

12330  1 

02142  1 

12345  0 

I 1 

77430  0 

c;  00427  0 

00004  0 

04777  1 

C:  00423  1 

10  * 2370 

12402  1 

00003  1 

06000  1 

1 • 

77634  0 

Cl  33247  1 

c;  00416  1 

IT  77414  0 

C ! ~ OOO7I  1 
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"OCTAL  LISTING  OF  PARAGRAPH-#  Qbj*  WltHi  PARITY  BIT  IN  BINARY  Aj  THe  RIGHT  OF  E^CH  WORD?  DeNOTES  UNUSeD  FIXED  MEMORY  * 


ALL  VALID  WORDS  AR'e  BASIC  INSTRUCTIONS.  EXCEPT  THOSe" MARKeD  »Ih  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C»  (CONSTANTS), 


10,2400 

GOOD  4 O 

^ 12331 

0 

02142  1 

O4777 

1 

c:  00423 

1 

“12412  0 

02142 

T 

37642  0 

lO ,2410 

26413  0 “ 

12371 

1 

37657  1 

04536 

0 

cs  03251 

1 

c:  20003  0 

02142 

1 

05413  1 

10,2420 

C:  00502  0 

12346 

0 

37642  0 

70413 

“ 10000 

0 ' 

12113  T 

12431 

I 

04554  1 

10  f 2430 

C:  ooo62  0 

37645 

1 

70413  0 

10000 

0 

12454 

1 

10413  0 

12441 

0 

12441  0 

10 ,2440 

12461  1 

404i3 

0 

77646  0 

10000 

0 

13235 

1 

10430  1 

12460 

0 

054i3  1 

10,2450 

C{  00503  1 

42466 

0 

00006  1 

0301 2 

I 

47646 

0 

70413  0 

54413 

0 

13251  0 

10 ,246U 

54430  1 

34524 

0 

04374  0 

C: 

02467 

0 

c:  20003 

0 

12427  0 

c:  20002 

1 

00006  1 

10,2470 

00036  I 

52424 

1 

U6000  1 

rs 

77775 

1 

c:  00416 

1 

c:  00041  1 

I:  45014 

0 

C:  00311  1 

10*2500 

c:  1 

C.S  3336 1 

0 

1 : 

77731  1 

cs 

0005 1 

0 

C!  00024 

1 

CJ  36023  0 

C:  32473 

0 

IS  67201  0 

1072510“ 

'CI'TTOOOT'O 

C$  00425 

1“ 

I : 

41424  0 

C; 

33345 

0 

I : 65356 

1 

IT  41546  0 

I:  65205  0 

“ C;  00041  1 

10,2520 

C ; QOO46  0 

I : 44205 

0 

cs 

00001  0 

I : 

77626 

0 

c;  77352 

0 

I 5 45135  1 

c:  00424 

0 

C;  33345  0 

10 ,2530 

1!  71406  0 

I:  73525 

1 

I ? 

41206  0 

C: 

00003 

1 

1:  65352 

0 

c:  00005  1 

IS  41325 

0 

cs  00007  0 

TOTZITSo  c;  00001  0 I;  55552  0 Ii  7744 1 0 C:  000*1  1 4oi4o  0 54423  0 404^3  0 77644  ^ 

10,2550  IOOOC  0 ' — 12554  0 40424  1 54424  1 37665  0 54141  I 37657  1 54140  0 

10,2560  50000' 1 3 04Z31  00006  1 72635  1 50T40  1 56423  1 04?63  I Cs  77715HT 

10,2570  24141  0 I014CTO)~  12057  0 00004  0 ~TO4T3~0~  12600  1“  12600  1 12625  0 


1072600 
10,2610 
— 1072620 
10,2630 

10,2640 

— 10,2650 
10,2660 
10,2670 


10,2700 

30025  0 

20422  1 

37665  0 

54001  1 

52416  0 

12302  0 

C;  00230  0“ 

54016  1 

10,2710 

^)0006  1 

22012  1 

OO0O6  1 

30036  1 

52420  0 

10414  1 

12730  0 

12723  1 

11072720 

05413'! 

Cl  00520  0 

04506  0 

' 05413  1 

CS  00521  1 

47657  0 

54414  1 

03247  0 

10 ,2730 

54414  1 

37655  0 

00006  1 

02013  1 

00006  1 

13014  0 

30413  1 

00006  1 

iu,274»0 

06033  1 

77652  0 

00006  1 

12747  0 

' 05413  1 

C S 00522  1 

02725  0 

36165  O' 

10 ,2750 

00006  1 

06013  0 

'( b 1 b5  1 

00006  1 

13010  1 

37637  1 

70046  1 

63167  1 

10,2760 

54001  1 

3UU46  0 

60000  1 

77657  0 

52071  0 

37650  0 

03137  1 

10425  0 

“Id,  277O 

03000  1 

47657  0 

544T4~1 — 

40065  0 

70413  0 

54413  C 

05042  1 

03242  0 

10141  1 

12625  0 ' 

'40061  1 

77653  1 

TOOOO'  0 

126160“ 

'576^2-17  ' 

WOO  6 r 

“05012  1 

37654  1 

00006  1 

02033  0 

10000  0 

12630  1 

47646  0 

70413  0 

54413  0 

47656  1 

00006  1 

03012  1 

14440  1 

47642  1 

00006  1 

03012  1 

~40~413“0 

“77  6~45  0 

IOOOO  O' 

022IT"0' 

14440  1 

C:  21122  0 

02652  1 

C:  00017  1 

U2653  0 

CS  U0U16  0 

02653  0 c: 

00015  0 

02653  0 

c:  00014  1 

02652  1 

C;  00012  1 

02652  1 

cs  00011  1 

376  57  1 

000XT4  O' 

'54421  1 

“00006  1 

77655  1 

52422  1 

looocrn 

54425  0 

67657  1 

54414  1 

32706  1 

00006  1 

02033  0 

54427  1 

42637  0 

00006  1 

03013  0 

50002  0 

30000  1 

00006  1 

05013  0 

00006  1 

— 
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OCTAL  LTSTlt 

■G  OF  PARAGRAPH 

» 062*  winr 

parity  bit  in 

"BINARY  AT  THE 

RIGHT  OF  EACH 

word?  "g"  denotes 

UNUSED  FIXED 

memory. 

ALL  VALID  “WORDS ~ARe  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C 

" (CONSTANTS). 

1073300 

54425  0 

10414  1 

13004  1 

13156  1 

37654  1 

00006  1 

05013  0 

04606  0 

10,3010 

37653-0 

54065  0 

37647  0 

03047  1 

37645  I 

704X3  0 

10000  0 

12725  1 

10,3020 

- 40413  0 

77651  0 

10000  0 

12725  7 

37644  0 

70413^0 

roooiru 

37641  0 

TO,  3 030 

-00006  1 

20035  0 

04763  1 

C ; 66 1 6 1 1 

12725  1 

37654  1 

54065  0 

37657  1 

10,3040  C'0006  "1  02013  1 5400 1T\~  “TOOOO^O-  13046  1 13060  0 37655  0 54001  1 

— 10,3050  00006  1 02033  0 56001  0 70413  0 00006  1 06001  0 10000  0 03077  1 

10,3060 37637  1 70046  1 54071  0 30046  0 60000  1 77657  0 54070  1 10002  1 

10,3070  1311TT-  00006  1 43T71  r “2007rcr  30065  1 0 3 1 4TT  ^ 02771  1 224  m- 


10,3100 

67657  I 

00006 T"  “ 

06001  0 

54413  0 

32706  1 

00006  1 

02033  0 

54427  1 

10,3TTCT 

12725  I 

10001  1 

13114  1 

130  7 4 0 

52071  0 

20001  1 

20001  1 

20001  1 

10,3120 

52071  0 

3?655  0 

00006  1 

02013  1 

00006  1 

13074  0 

33166  0 

00006  1 

10,3130 

-7OO7I  0 

54071  0 

37665  0 

56070  0 

UU006  1 

73166  1 

13073  1 

54065  0 

10,3140 

00006' r 

02033  0 

54001  1 

40065  0 

70427  1 

60001  0 

56427  0 

70065  0 " 

10 , 5 1 50 

6UUU1  0 

10000  0 

03001  0 

52071  0 

20416  0 

00002  0 

40065  0 

70413  0 

10,316CT 

60065  1 

54413  0 

52071  0 

52416  0 

05042  1 

12723  1 

C:  23773  0 

C;  50437  1 

10,3170 

c:  000010 - 

C:  01150  1 

00004  0 

47652  0 

70413  0 

67652  1 

54413  0 

37651  1 

10*3200 

00006  1 

02033  0 

00006  l 

13227  1 

37643  1 

00006  1 

05012  l 

33234  l 

10*3210 

04536  0- 

C;  03214  0 C: 

20003  0 

02302  1 

47643  0 

OOOOe  1 

03012  1 

37651  1 

10*  3220 

C0006  T 

02033  0 

00006  1 

13244  1 

05413  1 c: 

00523  0 

13251  0 

37657  1 

10,3230 

04536“- 0 

C:  0324-4  0 c: 

20003  0 

32302  T 

C:  00764  1 

37651  1 

70413  0 

10000  0 

10 »3240  13244  1 13251  0 47665  1 55070  0 37656nO  Q4].o2  0 CT  26667  1 47665  1 

TO ,7250  55070  0 376T6  0 04102  0 C:  26664  1 rT435“0 13257  0 14602  0 04536  0 

10,3260  c;  03254  1 c:  20007  1 34523  1 04363  0 C:  03274  0 cr  20007  1 33325  0 00006  1 

10,3270 71434  1 61433  1 55431  1 14602  0 03326  0 04063  0 CS  26712  1 25436  1 


l0.3300  00004  0 

10,3310  51434  0 

10,3320 T5434  1 

10,3330  ~ 51431  0 


32 4 1 0 

5],434  0 

5344“o  1 

5242o~0  ~ 

5, 1 494  0 

53442  0 “ 

52422  1 

53444  0 

41434  1 

61432  0 

00006  1 

13320  I 

31434  0 

66162  I 

1x43-5  0 

14440  1 

T4440  1 

13274  1 

C i 015341  T 

37657  1 

54117  1 

33333  1 

14067  0 

C ! 2Q6bO  0 

Ci  20646  1 

C!  20644  0 

C!  20642  0 

c:  20640  1 

10*3340  CT“20"636  0 03341  1 03342  1 — CK5M  6706o  0 & @ S ® — 

10*3350  @ "f  @ g: gr ¥ — 

10*3360  ¥ ¥ g; ¥ ¥ g ¥ ~ ¥ — 

10*3370  @ g @ @ ¥ g g @ — 
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OCTAL  LISTING  qF~~ PARAGRAPH  # Q64,  WlyHI  PARITY  BIT  IN  BINARY  Ay  jHg  RIGHT  OF  EACH  WORD;  DgNOTES  UNU5eD  FIXEP  MEMORY, 
ALL  VALID  WORQS  AR^  BASIC  INSTRUCTIONS  £XCePt  THOSE  MARKeP  "I11  (INTERPRETIVE  OPERATOR  W0RD37~5R~T,C"  (C0N5TANTS)  , 


“IT,  2DW 

C2O7O  1 

02073  1 

02204  0 

02566  ~0 

02066  0 

12126  r 

02407  0 

02401  0 

11,2010 

02 2620 

02262  0 

02262  0 

02262  0 

02266  1 

02303  0 

02377  0 

02327  0 

11,2020  “ 

037  42  "0 

03210  1 

02634  I 

72524  1 

12066  1 

12066  1 

12066  1 

12066  1 

1172030 

12066  1 

12066  1 

1 2066  1 

13122  1 

13130  1 

12066  1 

12066  i 

02066  0 

11,2040 

37655  0 

70332  1 

10000  0 

02053  0 

47655  1 

00004  0 

70332  1 

67655  0 

11, 2050 ~ 

""  54332  1 

00003  1 

00002  0 

05243  1 

04440  0 

05401  1 

02060  0 

04440  0 

11,2060 

47655  1 

00004  0 

70332  1 

54332  1 

00003  1 

00002  0 

05243  1 

02056  0 

11,2070 

02076  I 

02110  0 

O2II7  1 

02D76  1 

02132  0 ~ 

02234  0 

47653  1 

60267  I 

11,2100 

00006  1 

12065  1 

24002  0 

62107  0 

00006  1 

12065  1 

02066  0 

Ci  77757  1 

11,2110 

" UZOTCTl 

04063  0 

C:  26000^0 

041063  0 c: 

26716  0 

' 02116  0 

02056  0 

"02040  1 

11,2120 

04063  0 

CJ  2U247  1 

04063  0 

C:  26712  1 

12125  1 

12056  1 

02040  1 

04063  0 

11,2130 

c:  21172  0 

12122  0 

02040  1 

O53I7  1 

32152  0 

05332  0 

O5I4O  1 

02055  0 

11*2x40 

02 1 54  0 

32i53  x 

05332  0 

054oi  1 

04063  0 

c; 

26055  0 

04o63  0 

CJ 

267 16 

0 

11,2150 

"02056  0 

02056  0 

C:  02522  0 

C:  04100  1 

32202  0 

05332  0 

05140  1 

02055 

0 

11 * 2 1 60 

0214n 

02163  i 

02141  1 

56002  0 

54140  0 

32203  1 

54114  1 

37656 

0 

11,2170 

54141  1 

50000  1 

56336  1 

04063  0 

C:  33470  1 

10114  1 

54114  1 

10141 

1 

11,2200 

02170  0 

OOI4O  1 

C!  02523  1 

C:  00402  1 

O2O4O  1 

05317  1 

32232  0 

05332 

0 

1 1 *2210 

05l4tr  1 

02055  0 

02213  0 

32233  1 

05332  0 

05401  1 

04063  0 

C; 

26227 

1 

1 1,2220 

04063  0 

CS  26716  0 

02056  0 

32301  1 

04063  0 

c: 

26317  0 

04063  0 

C a 

2671  6 

0 

“11,2230 

02056  0 

02056  0 

C!  02567  1 

C:  042"C0  T 

02040  1 

0531?  1 

32255  1 

"05332 

0 

11 ,2240 

05 140  1 

02055  0 

02243  0 

04063  0 

CJ  23001  1 

32153  1 

05332  0 

00004  0 

17 , 2250 

37642  "0 

~04"374“0 

C:  02256  1 

C7  22005  1 

12055  1 

C:  02447  1 

06000  1 

I J 77634  0 

11*2  260 

C a 20363  0 

02122  1 

O53OO  1 

02060  0 

O4IO2  0 

CJ  12002  0 

O2O4O  1 

05317  1 

11,2270 

32232  0 

05332  0 

O5I4O  1 

02055  0 

02275  0 

32302  1 

05332  0 

05401  1 

1 1 , 2300 

12223  1 CJ 

UU4U3  0 

c:  05400  u 

32326  1 

54107  0 

05123  1 

04440  0 

05140  1 

11  * 2 5 1 0 

04440  0 

O444O  0 

00004  0 

37665  0 

54142  1 

54OOI  1 

52025  1 

52141  1 

1 1 * 2320 

52  3 34"  1 

20141  1 

07235  7 

"52741  r 

20025  1 

04440  0 

CJ  02124  1 

10276  0 

1 1 ,2330 

12053  1 

O53I7  1 

32376  1 

54142  1 

32375  1 

05332  0 

05140  1 

04437  0 

11,2340 

02332“! 

'04667  1 

c:  00007  0 " 

0 otro4  0 

37642  0 

— 04374  0 — 

CJ  02351  1 

Ci  22005  1 

1 1 ,2350 

04440  0 

35224  0 

71546  0 

50000  1 

32356  0 

04105  1 

CJ  22066  1 

C S 36000  i 

1 1 * 2 3 & 0 

CJ  3&024  1 

c:  30000  1 

Ci  36245  1 

CJ  36445  1 

CJ  22364  0 

CJ  43413  0 

CJ  34556  0 

C:  31324  0 

1 1 * 2 3 f 0 

Cl  31562  1 

c:  31120^0 

CJ  22403  0 

Co  3 1 6 1 3 i 

CJ  23030  0 CJ  02101  O 

CJ  02546  1 

04102  0 
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AXL^VMTlT~ffORDS  ARe'BASIC  TNSTKOCT I 0N5T EXCEPT  THOSE  MARKED  11 1 11  ( 1NTERPRETIVE~0PeRAT0R  WORPSTOR  "C"  (CONSTANTS)  , 


— — " ' v ■ -*■ 

11T2A00 

C: 

41454  1 

04102  0 

c: 

14000  1 

32472  1 

54411  1 

47657  0 

12411  0 

05317  1 

1 1 ,2410 

32473  0 

54142  1 

00004  0 

42474  0 

70413  0 

54413  0 

32474  1 

00006  1 

11,2420 

U2033  0 

26413  0 

00003  1 

32444  1 

54003  0 

56142  0 

55435  0 

37665  0 

11,2430 

65434  1 

55436  0 

32470  0 

55432  1 

32471T1 

05332  0 

05140  1 

04437  0 

11,2440 

12475  1 

05401  1 

11435  0 

12447  0 

c: 

03431  1 

04102  0 

c:  21274  0 

36162  1 

11,2450 

714311 

10000  0 

12456  0 

55433  0 

36162  1 

12461  1 

37656  0 

55433  0 

11,2460 

32467  0 

55432  1 

00004  0 

04536  0 

CS 

03254  1 CS 

20007  1 

04440  0 c: 

00022  1 

11,2470  - 

CT 

~DO102  1 

CT  02101  0 

C: 

02253  1 

C:  00K5  1 

C: 

00444  0 

00004  0 

34523  1 

04363  0 

11*2500 

CS  3274  0 

c : 

20007  1 

00003  1 

37664  1 

5543i  1 

32523  1 

05332  0 

05274  0 

11,2510 

~0~514C  1 

02516  1 

12514  1 

1Z505  1 

11431  1 

12504  0 

37665  0 

55435  0 

11,2520 

04667  1 

C: 

00000  1 

04437  0 

C: 

03300  1 

10412  1 

02066  0 

30025  0 

62564  1 

11,2530 

54001  1 

02546  1 

00004  0 

32564  1 

54412  1 

04536  0 

CS  02541  0 

c;  22007  0 

ll«254o 

0444q  0 

34:>26  1 

04363  0 

C: 

02546  1 

CS  22007  0 

046q2  1 

00004  0 

32565  0 

11,2550 

56411  0 

54412  1 

32563  0 

04536  0 

C:  02557  1 

Cs  22007  0 

14440  1 

37665  0 

“ 11,2560 

564  rz"  0 

54411  1 

14602  U 

c:  01750  1 

CS  02260  1 

C:  02001  1 

~ 02040  1 

42631  0 

11,2570 

00006  1 

03012  1 

O53I7  1 

32152  0 

05332  0 

05140  1 

02055  0 

02600  0 

11,2600 

32632  1 

05332 

0 “ 

37652  1 

00006  1 

05012  1 

37656  0 

00004  0 

04536 

0 ” 

11,2610 

Cs  02613  1 

C: 

22007 

0 

12055  1 

37656  0 

54002  1 

50000  1 

30400  0 

00006 

1 

11 9 2 620 

77643  0 

50002 

0 

54050  0 

10002  1 

12614  1 

32633  0 

00006  1 

05014 

1 

11, 263U 

14602**0 

C: 

00050 

1 

C:  04300  0 

C;  70000  0 

37657  1 

UU004  0 

- 04536  0 

CT{  02644 

“0 

11,2640 CS 

22007  0 

04440  7) 

04554  1 

CS  00062  0 

37656  0 

55606  1 

50000  1 

31603  0 

1 i ,2650 

— CTO  OO  6 1 

51606  0 

06030  1 “ 

5*1606  0 

72724  0 

00006  1 

12721  0 

54002  1 

11  f 2 6 60 

51606  0 

23603  0 

00006  1 

06001  0 

51606  0 

55603  1 

40000  0 

56002  0 

11,2670 

70002  1 

00006  1 

12721  0 

54001  1 

31606  0 

60000  1 

60000  1 

77655  1 

11,2700 

70001  r 

00006  r 

12714  0 

36 I 62  1 

04536  0 

C!  03264^1 

CS  22006  T 

37642*0— 

11 ,2710 

C4363  0 

c:  02733  1 

C:  22007  0 

12721  0 

32727  1 

61606  0 

54075  1 

40002  1 

1 1 ,2720 

02745  0 

716067  1 

12645  0 

12642  1 

ct  00017  r 

c:  77777  0 

C:  03777  *0 

CT 

7J0030  1 

11,2730 

02740  0 

C?  OOU  1 6 0 

04606  0 

05317  1 

32737  0 

05332  0 

04437  0 

CT 

01645  1 

11  *2740 

->4076  1 

=0002  0 

30000  1 

24O02T  0 

56075  0 

54074  0 

00006  1 

22076  0 

11 ,2750 

34525  1 

04363  0 

C:  02763  1 

C:  22007  0 

52075  1 

5OO7I  1 

52141  1 

30025  0 

1 1 ,2760 

50071  1 

54142  1 

OOO76  0 

05317  1 

00006  1 

30141  0 

52334  i 

30142  0 

1 1 * 2770 

5433-5-  0 

33U0CT  1 

05107  1 

12775  1 

04437  0 

32777  1 

05327  1 

CT 

22764  1 
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octal  listing  of  paragraph  * 066 , withi  parity  bit  in  binary  at  the  right  of  each  word;  y Denotes  unused  fixed  memory. 


ALL  YALTD  wCrDs  Are  BASIC  INsTkOCTrONs  EXCEPT  THOsE  KArKED  »l»  ( INTErPrETI VE  OPErATOr  WOrOs)  Or  »C»  (CONSTANTS). 


ii  .wox" 

C:  OO535  1 

~04ll2~l 

54427  1 

32523  1 

O5332  0 

05274  0 

O5 I4O  1 

13012  0 

11,3010 

37653  0 

13013  1 

37665  0 

00004  0 

56061  0 

73027  0 

26061  1 

77653  1 

11 ,3020 

TOO  WO 

13024  0 

37641  3 

26413  0 

0000X1 

30427  0 

14105  0 

C!  77757  T 

11,3030 

"33120  1 

05332  0 

O5I4O  1 

13055  0 

13035  0 

33121  0 

05332  0 

05140  1 

11, 3040 

13055  0 

13042  0 

00004  0 

47657  0 

54351  1 

00006  1 

30353  1 

52365  0 

11,3050 

37657  1 

" 04536  0 

Ci  03063  1 C: 

22007  0 

14437  1 

05401  1 

04667  1 

C;  00000  1 

11,3060 

04440  0 

04554  1 

c:  00062  0 

00006  1 

30356  1 

52066  0 

00006  1 

40365  0 

11,3070 

20066  0 

10065  0 

"13112  X 

13075  1 

13116  0 

10066  0 

13112  1 " 

13101  0 

" 11,3100 

T3TT6  0 

37665  0 

54354  X 

52356  0 

52353  0 

37642  0 

04363  0" 

C;  03056  1 

11,3110 

" c:  22007  ir 

14602  0 

30354  0 

00006  1" 

63101  1 

13061  1 

40354  1 

1311.5  0 

11 ,3120 

c:  02444  1 

C!  02564  1 

00004  0 

47646  0 

70765  1 

67646  1 

54765  1 

14440  1 

11,3130 

00004  0 

47646  0 

70765  1 

54765  1 

00006  1 

30033  1 

52775  0 

30034  0 

11,3140 

54776  0 

14440  1 

33263  0 

56003  1 

00004  0 

3002b  0 

55502  0 

32727  1 

11 ,3150 

55506  1 

41502  0 

60025  0 

00006  1 

13161  0 

U0006  1 

30025  0 

53503  1 

11 9 3 1 60 

"1316  7 0" 

11506  1 

03 150  0 

00003  1 

10067  1 

04404  0 

03147  0 

05470  1 " 

1 1 9 3 1 7O 

53505  1 

00003  1 

47654  0 

70367  1 

67654  1 

54367  1 

37654  1 

00006  1 

11,3200 

03012  1 

37654  1 

"00006  I 

05 0 12  1 

37645  1 

00006  I 

05013  0 

04440" 0 

11,3210 

33263  0 

56003  1 

05470  1 

53  5 0 7 0 

00003  1 

31506  0 

00006  1 

6 1 30H  1 

11 ,3220 

00006  1 

63244  0 

06000  1 

I;  45345  1 

C;  01507  1 

C;  01505  0 

I:  45061  1 

C{  01606  0 

11,3250 

CS  3340'6"0 

IS  77615  0 

CS  01503  0 

C : ~"0T5  0 7 1 

IS  77776  1 

00006  1 

31507  1 

52025  1 

11,3240 

X7645  0 

00006  1 

03oi3  0 

04440  0 

OOOOfc7!- 

37637  1 

535ii  1 

06000  1 

1 1 , 52  5U 

1 j 4"5345  1 

C;  1511  0 

C:  01505  0' 

I ; 54215  0 " 

Ci  01507  1 " 

C:  031606  0 

" I:  77615  0 C 

• "01503  "0 

11 9 3 2 60 

C:  01507  1 

1 : 

77776  1 

03235  0 

C:  01400  1 

37641  0 

00006  1 

02031  1 

000U6  1 

11 ,3270 

13272  1 

13353  0 

37655  0 

00006  1 

02031  1 

10000  0 

13353  0 

37665  0 

1 1 9 5 j U 0 

54042  0 

54043  1 

54044  0 

37650  0 

67647  0 

00006  1 

05013  0 

37653  0 

11,3310 

04536  0 

C: 

03314  1 

C;  22006  1 

04602  1 

47650  1 

00006  1 

03013  0 

37645  1 

1 1 ,3320 

00006  1 

02032  1 

' 00006  T 

13325  1 

03343  0 

30042  1 

00006  1 

77646  0 

11 ,3330 

33360  1 

00006  1 

70001  1 

55435  0 

30044  1 

00006  1 

77646  0 

33360  1 

11,3340  " 

COCOfc  1 

70001  1 

"55426  0" 

30043  0 

00006  1 

77646  0 

33360  1 

00006  1 

11 ,3350 

70001  1 

55437  1 

13264  0 

37665  0 

55435  0 

55436  0 

55437  1 

04602  1 

11 ,3360 

C;  1 6 1 7 1 1 

03361  0 

03362  0 

CKSM  51136  1 

e 

@ 

& 

e 

TT  i3370 

X" 

§ 

@ 

- @ 

V 

" e 

f 
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octal  LISTING  of  PARAGRAPH  # 070,  WItHI  PARITY  BIT  IN  BINARY  Aj  THe  RIGHT  OF  EACH  WQRD{  wg"  DENOTES  UNUSeD  FIXED  MEMORY, 

ALL  VALID  WORDS  AR£“BA5IC  INSTRUCTIONS" EXCEPT  THOSE  MARKED  n'^TlNTERPRETl  VE  OPeRATORWORPS)  OR  i,Ci|-TCONSTANtS), 

12,2000  o0004“'0“  02214  1 "3"7“641  0 54322  0 37665  0 5 5363~T“  37665  0 55361  0 

12,2010  54276  0 54412  1 54342  0 “54032  1 54033  0 “ 54034  T~  55072  1 55074  1 

12,2020"  550T6- 0 55100  0 55lD~2“T“  55104  1 40000  0 55071  l 55073”0  55075  0 

12, 2030  55077  1 ~ 5T5T01  1 55103  0 “ 32433  1 SttWJZ  37646  1 04536  0 C;  02247  1 


■ 12,2040 

~ C126003  0 

02006  1 

32443  0 

52346  1 

32450  1 

54765  1 

O0006~l 

32445  0 

12,2050 

52062  1 

00006  1 

32447  1 

52064  1 

37652  1 

70322  0 

10000  0 

47647  1 

12,2060 

“ 26367  1 

00003  1 

04063  0 

C 2 12001  0 

14452  1 

37642  0 

04374  0 

C;  77777  0 

12,2070 

C*  77777  0 

14452  1 

2566^  1 

"02214  t; 

32436  1 

70322  0 

67641  0 

"56322  1 

12,2100 

77652  0 

10000  0 

37654  1 

00006  1 

05012  1 

00006  l 

3244i  1 

52346  1 

12,2110 

34535  5“ 

04363  0 

C!  02773  0 

C;  02003  0 

00006  1 

00015  0 

62431  0 

00006  1 

12,2120 

12122  0 

12130  0 

37653  0 

00006  1 

02016  1 

62432  0 

0000b  1 

12006  1 

1 2 , 2 1 30 

37664  1 

54145  0 

bOUOU  i 

00006  1 

50000  1 

31072  0 

00006  1 

06001  0 

12,2140  IOOOO  0 112203  0 12203  0 12203  0 10145  0 12131  1 54146  0 37664  1 

12,2150 54145  C 60000  1 50000  1 11072  1 12177  0 12172  0 54140  0 50145  1 

12,2160 32423“ O 5400 TTl  24TWI  4 OO27“0  7OI4O  0 n>TTOO“0 122O"3"0 24146  1 

12,2170 30001  0 04067  1 10145  0 12150  0 10146  0 12207  1 12006  1 54140  0 


12,2200  50T45~1  32415  0 r2T6T~I  32206  1 55364  0 12 00 6^1  C:  OI1O7  0 32404  0 

1272210 70367“! 62434  0 54367  1 12054  0 56002  0 54114  1 37665  0 00006  1 

12,2220  01012  0 00006  1 01014  0 00006  1 01011  0 34532  1 00006  1 01013  1 

12,2230 37537~T 54030“0  54026  1 54027  ° 32414  1 5400X"0 37540“! 554XTTT 


12",  2 2 40 

55406  0 

55405  0 

55404  1 

55403  0 

55402  1 

5540  n, 

55400  0 

44567  0 

1 2 , *?2  5O 

55410“ I 

55412  0 

55414  0 

“55416  1 

55420  1 

55422  0 

" 55424  0 

"5542  6 1 

12 1 2 2 6 0 

55430"  0 

44570  0 

55411  0 

55413  1 

55415  1 

55417  0 

55421  0 

55423  1 

12,2270 

55425  1 

5542?  0 

55431  1 

47665  1 

54153  1 

54167  0 

54203  1 

54217  1 

,230U 

54233  1 

54247  1 

54^63  1 

5406?  1 

32412  1 

54431  U 

62413  0 

54505  0 

12,2310 

62413  0 

54561  1 

62413  0 

54635  0 

62413  0 

54711  1 

37661  1 

54351  1 

1372320 

54l40~"0 

47644  1 

50 140  1 

54307  IT" 

10140  0 

"02320  1 

57045  1 

54341  0 

1 2 1 2 3 30 

54366  0 

54323  1 

54300  0 

54302  1 

54277  1 

54305  0 

54306  0 

54324  0 

I27234O  54266"!  54267  0 54327  0 54330  0 5"433T“I 54374  0 54332  I 543?1  0 

12 ,2350 54372  0 54373  1 — — 54357  1 54350  0 3766O  0 54303  0 47657  0 54414  1 

12,2360 32411  1 “ 54347  0 32435  1 54370  1 37652  1 00006  1 0203 3 0 62437  0 

12,2370  54413  0 32410  0 55360  1 4522? “0 54264~0 3T4CT6~1 54003  0 32405  1 
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octal  listing  of  paragraph  # 071 1 withi  parity  bit  in  binary  at  the  right  of  each  word;  "e11  denotes  unused  fixed  memory, 

ALL  VAL~ID  WORDSAReBASIC  INSTRUCTIONS.  EXCEPT  W5e~MARKeP~  "I"  (INTERPRETIVE  OPeRAtORWRDS)  OR  11  (Tir( CONSTANTS ) . 


12,2400 

5 540 1 

1 

32407 

0 

5441 1 1 

00114  0 

c; 

00035  1 

C; 

02052 

l 

C;  03401 

1 

C;  02321 

0 

12,2410 

c:  02101 

0 

c:  C4730 

1 

C! 

00431  1 

C ! 

OOO54  0 

c: 

01400  1 

CS 

00000 

1 

CS  42764 

I 

Cs  00000 

1 

12,2420 

Cs  00000 

1 

c:  00000 

1 

c: 

00000  l 

c: 

00000  1 

cs 

00000  1 

c: 

00000 

1 

CS  00000 

1 

CS  00000 

1 

12,2430 

C 5 COOOC 

1 

C:  77755 

0 

cr 

77757  1 

C • 

37411  1 

C! 

37400  1 

c: 

16000 

0 

CS  00440 

1 

cs  00102 

1 

1272440 

Cs  03141 

0 

C:  46006 

0 

CS 

03 l l5  1 

C: 

46006  0 

CS 

00000  1 

c: 

00000 

1 

CS  00000 

1 

C;  00000 

1 

12,2450 

C:  C4012 

54016 

“I 

00006  I 

22012  l 

10366  0 

12471 

0 

-1 

I247I 

0 

35234 

1 

T2YZ470 


1254fc”0 


10322  0" 


0250 11 


CTZ501  I 


56222"  1 


75234  0 


54322”Q 


“S47S4  0 


” 12,2500  C2541  0 10303  0 12505  1 32522  0 12546  0 54303  0 47665  1 54077  0 

12,2510 56341  1 67665T0  54341  0 5TJ34I  1 10307”! TOT4T“0  0251TD 0253OMJ 

— 12,2520 Cj  C0012  1 IOO77  0 Cs  37764  0 54303  0 12503  1 54O77  0 ~ 32520  1 02512  0 

12 yZ530  WWW? 7 1 5034l“"T”  54307  1 75234  0 54O77  0 35226  1 50341^1  74741  0 


12,2540 60077  1 00006  1 01010  1 32561  1 54347  0 32564  1 54027  0 

12,2550 12551  0 02565  0 13440  0 12720  1 13545  1 02632  1 13440  0 

12,2560 13545  1 C;  04730  I C:  04726  0 C“;  37775  0 C;  37776~0  02640"!  47656  1 

— 12,2570 03014  1 10352  1 12576  0 12576  0 12602  0 54352  1 ~ 47657  0 


50350  1 
12720  1 
'00006  I 
52353  0 


12,2600 

523  6 5”0 

i 2 62 21 

30354  0 

00006  r 

72715  1 

60365  1 

54365  0 

37665  0 

12  9 2 6 1 0 

26664  1 

37537  1 

67657  1 

60365  1 

54365  0 

37665  0 

67637  1 

60364  0 

12,2620 

54364  1 

12712  0 

10364  1 

37641  0 

60365  1 

54060  0 

32716  0 

00006  1 

14 ,26 JU 

050!  4 1 

12711  0 

02640  1 

37656  0 

00006  1 

05014  1 

30354  0 

12625'  0 

12,2640 

10351  1 

12711  0 

12&43  0 

37652  1 

00006  1 

02030  0 

10000  0 

127Q6  0 

12,2650 

1035!ri  " 

12652  0 

12673  0 

37650”CT 

00006  1 

0^012  1 

27665  0 

54351  1 

12  9 2 660 

54363  0 

54362  1 

36162  1 

04536  0 

Cs  02667  1 

C;  24006  1 

02711  1 

37656  0 

1 2 ,2670 

00006  1 

05012  1 

04602  1 

40363  0 

60360  1 

54054  1 

30360  1 

54363  0 

12,2700  40362  1 

1272710 03012  1 

12,2720  313367  ” O 

— 1272730 013006  1 


60361  0 

54053-0 

30361  33 

54362  1 

00002  0 

427I7O 

00006  1 

13752  0 

37665  0 

54001  1 

12600  1 

Cj  06432  1 

Cs  06004  0 

Cs  00202  1 

00006  1 

06030  1 

73412  1 

O0OO6  1 

12755  cr 

54074  0 

22367  0 

06001  0 

54367  1 

47657  0 

56074  1 

U0006  1 

63205  0 

12741  0 

— 12,2740 6765T- 1 24074  1 60000  1 54000  0 12741  0 56075  0 50074  1 37642  O' 

— 12 i 2750 70367  1 50074-1 03406  0 IOO75  1 12740  1 40367  1 ^7651  0 10000  0 ~ 

12,2760 13103  1 37650  0 ?0367  1 10000  0 12770  1 37650  0 26367  1 13103  1 

1272770  43430  1 70367  1 54367  1 77642  1 10000  0 13066  0 40367”! 77647  1 
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OCTAL  LISTING  OF  PARAGRAPH  # 072 ♦ WlTHi  PARITY  BIT  IN  BINARY  Ay  THE  RIGHT  OF  EACH  WORD;  DENOTES  UNUSED  FIXED~MeFiQR Y . 


ALL  VALID  WORDS  ^RT^ASTC  IT^TRUCTlCn^  EXCEPTTHOS^WfflKED^I 11  < INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS)  . 


12,3000 

TOO 00  0 

13004  1 

05413  1 

C:  00213  1 

03373  0 

33436  0 

04536  0 

C;  03014  1 

1 2 , 6U  lu 

0!  24UU6  1 

13103  1 

33436  0 

04557  1 

47656  1 

70367  1 

56367  0 

77656  1 

12,3020 

00006  1 

T3034  1 

37642  0 

70367  1 

00006  1 

13012  0 

40061  1 

77650  1 

12 , 3O3O 

10Q0TT  0 

14602  0 

04102  0 

CS  26641  0 

37641  0 

00006  1 

05012  1 

04755  1 

l2,3o4o 

43425  0 

00006  1 

03012  1 

34762  0 

04557  1 

43426  0 

70367  1 

54367  1 

1 2 , 305U 

03344  1 

47641  1 

00006  1 

03012  1 

37645  1 

04536  0 

C:  02262  0 

Ci  26006  0 

12,3060 

40061  1 

77650  1 

10000  0 

14602  0 

04102  0 

C:  26633  0 

37650  0 

70061  1 

I2~,3070 

roooo  0 

13T.03  1 

03401  1 

37653  0 

00006  1 

05012  1 

37652  1 

04536  0 

12,3100 

c:  03037  0 

C:  24006  1 

13103  1 

30370  0 

74515  0 

54001  1 

34515  1 

00006  1 

lZ'tBllO 

03033  T 

00006  1 ~ 

06001  0 

330006  1 

13143  0 

54074  0 

22370  CT  ” 

00006  I 

12,3120 

C6001  0 

54370  1 

37665  0 

56074  1 

60000  1 

13130  1 

67657  1 

24074  1 

12,3130 

60000  1 

54000  0 

13127  1 

56075  0 

50074  1 

37643  1 

70370  1 

50074  1 

12,3140 

03414  0 

IOO75  1 

13126  0 

10034  1 

13150  1 

13156  1 

13150  1 

13156  1 

1 2 1 3 1 50 

63203  0 

00006  1 

63155  0 

37652  1 

13156  1 

37665  0 

60322  1 

77652  0 

1 2 , 3 1 6 0 

QOQOb  1 

' 13752  0 

70322  0 

— roooo  0 

13200  1 

37652  7 

70367  1 

10000  0 

12,3170 

13752  0 

40322  0 

77652  0 

67641  0 

56322  1 

73204  0 

26322  0 

13752  0 

12 , 320U 

03417  0 

13752  0 

13171  1 

C:  63434  1 “ 

0:  37737  0 

77637  0 

54075  1 

10367  1 

12,3210 

1 3 2 1 6 0 

13216  0 

37654  1 

00006  1 

05011  1 

12753  0 

03417  0 

12753  0 

12 ,3220 

47654  0 

00006  1 

03011  1 

12753  0 

37656  0 

70367  1 

10000  0 

12753  0 

1 2 1 3230 

37642  O 

70367  1 

00006  T ~ 

13247  1 

37641  0 

00006  1 

02012  0 

130006  1 

12^,3240 

13242  1 

12753  0 - 

37656  0 

26367  1 

05413  1 

C!  00207  1 

12753  0 

47651  0 

12,3250 

70367  TT 

67651  1 

54367  1 

12753  0 - 

10000  “0 

1275  3 0 

43433  1 

00006  1 

12 f 3 2 60 

030 1 4 1 

033y3  0 

37665  0 

54050  0 

54051  1 

54052  1 

54047  0 

43432  0 

12 ,3270 

00006  1 

03014  1 

12753  0 

00006  1 

13304  1 

40061  1 

77650  1 

10000  0 

1 c.  | 3 3UU 

12753  0 

U5413  1 

c:  00214  0 

12753  0 

37656  0 

70367  1 

10000  0 

12753  0 

12  1 3 3 1 0 

1324?  1 

10000  0 

37646  1 

56367  0 

73435  1 

26367  1 

03344  7 

40367  l 

1273320 

7765T- 0~ 

10000  0 

13T41  1 

30367  ”0 

73431  0 

roooo  0 

13141  1 

05413  1 

12 , 3330 

Ci  00212  0 

1 3 1 4 1 1 

10000  0 

1 3 1 4 1 1 

05413  1 

C;  01105  1 

13141  1 

10000  0 

12 ,334U 

13141  1 

1 

0:  oiiU6  1 

13141  1 

33424  0 

70367  1 

~~  00006  1 

77646  0 

1 c 9 3 

$ Q ( U 

UUUU6  1 

Uh-UUI  1 

hOOOO  0 

74514  1 

10000  0 

13367  1 

37657  1 

12 | 3360 

70370  i 

1 u u u u u 

UUUUt  0 

4765  1 0 

00006  1 

03011  1 

00002  0 

37657  1 

12 ,3370 

0U00&  i 

0)50  1 1 1 

U 000 2 U 

43434  ~0 

0000  6 1 

0301 2 1 

33425  T 

00006  T 
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QCjAL  LISTING  OF  PARAGRAPH  # Q73t  WITH)  PARITY  BIj  IN  BINARY  Aj  THg  RIGHT  OF  EACH  WORD;  »@w  DENOTES  UNUSeD  FIXED  MeMQETT 
"ALL  VALID  WQRD3“ARe  BA"STCIN3tRUCtI0N5.  eXC^Pt  THqSe  MARKED  11 1 11  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  TCQNStAWtS)  » 


12,3400 

0501 2 1 

43427  1 

70367  1 

63427  0 

54367  1 

00002  0 

13224  1 

13344  0 

12 ,34lO 

13344  0 

13254  0 

C:  76400  1 

13273  0 

13311  0 

13332  1 

13337  1 

4O37O  1 

12 , 3420 

77657  0 

lOO'OO  0 

24002^0 

00002  0 

c:  00015  0 

c:  00030  1 

c:  00054  0 

c: 

00075  0 

12,3430 

" CS  00300  1 

C:  o i 720  o 

cr  01700  1 

C:"7iooo  1 

c;  40040  1 

C!  76777  1 

c:  21450  0 

Cs 

00014  1 

12,3440 

304i3  i 

00006  1 

06033  1 

77656  1 

00006  1 

13501  1 

22413  i 

00006  l 

12 ,3450 

C 60  0 1 0 

54413  0 

77656  1 

10000  0 

13473  0 

37651  1 

70061  1 

10000  0 

12 ,3460 

13501  1 

43472  1 

70413  0 

63472  0 

54413  0 

37657  1 

04536  0 

Cj 

02000  0 

12,3470 

CS  20006  0 

13545  1 

C5  10001  1 

40061  1 " 

77651  OT 

10000  0 

13501  1 

"03413  T 

l2 ,3500 

CS  00514  1 

304i3  1 

oooo3~T“ 

Q6030  1 

7765i W 

00005  1 

l35Zr~0~ 

37656  0 

12 , 35  ro 

704l3""0 

10000  0 

13545  T 

37651  1 

22413  T 

00006  1 

06001  0 

54413  0 

12 1 3 5^0 

0^0^2  1 

33543  0 

70413  0 

10000  0 

13545  1 

04777  1 

C;  00035  1 

13531  1 

12,55^0 

13545  1 

37645  1 

26413  0 

43544  0 

00006  1 

03012  1 

37656  0 

04536  0 

12,3540 

c:  02051  1 

CS  20006  0 

13545 

r 

cs  32002  l 

CS  20002 

I 

30034 

0 

04233 

T 

55404  1 

12  f 3 5 

30034  0 

04232  0 

55466 

0 

30032  0 

04233 

1 

55401 

1 

41401 

1 

00006  1 

1 , i 56U 

71466  0 

“55406  0 

30032 

3D 

04232  0 

55403 

cr 

"00006 

1 

71466 

0 

55405  0 

12 1 3 57O 

i 1466  1 

67640  1 

00006 

1 

63610  0 

31403 

1 

00006 

1 

77642 

1 

00006  1 

12,3600 

T1466~"0 

55400  0 

41401  1 

- ooooti" 

77642  1 

00006  1 

11466  0 

13621  0 

12  9 3 6 1 0 

11403  0 " 

3763?  1 

13614  0 

37641  0 

55400  0 

11401  1 

37637  1 

13621  0 

12 y 3 62  0 

37641  0 

55402  1 

37643  1 

00006  1 

02031  1 

00006  1 

13635  0 

40765  1 

12 , 6630 

77643  0 

10000  0 

13635  "CT  " 

33747  0 

_ 13636  0 

3 3 75 11 

55415  1 

37656  0 

J12 ,364U 

UUU06  1 

U 2 0 3 0 0 

10000  0 

13725  0 

37643  1 

00006  1 

02011  0 

100UU  U 

12 , 3630 

"1066017" 

47  6 50  1 

70T65  1 

54765~  1 

- 33751  T 

55647  1 

55646  0 

14606  1 

12  y 3 660 

37650  0 

70765  1 

10000  0 

14606  1 

33750  0 

55415  1 

37650  0 

26765  1 

12,3670 

41415  1 

55647  1 

37665  0 

55646  0 

37665  0 

55640  0 

55641  1 

55671  1 

12,3799 

mr?  1 

55644“"!  ~ 

31421  1 

55645  0 

33746  1 

04536  0 

"CS  03064  0 

C!  52006  0 

12,3710 

37657  1 

04636  0 

CS  03525  0 

CS  52006  0 

37657  1 

04536  0 

CS  03536  1 

CS  52006  0 

12,3720 

3 7b57  1 

04336  0 

cr  03547  1 

CS  "52006  0 

14606  1 

37643  1 

00006  t 

0201 1 0 

12 ,3730 

10000  0 

13742  1 

47656  1 

70765  1 

67656  0 

54765  1 

37665  0 

55642  1 

1273740 — 

“ 55643" 

"0 

14606" 

1 

33730  XT 

55415  1 

14606  1 

1460b  1 

c:  00310  0“ 

- c:  0070ri 

12,3750 

C • 00133 

Cr 

c: 

00033 

1 

11510  0 

14606  1 

31511  0 

00006  1 

06032  0 

75235  1 

12  y 3 '(  60 

00006 

1 

14606 

1 

00006  1 

33766  0 

52006  0 

C!  03416  1 

CS  52006  0 

03767  1 

12,3?  to 

03  j j 0 

~T“ 

CK5M 

O 

-i 

ro 

■\J 

"0" 

<S 

rr 

@ —g 

“@  ” 
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octal  Listing  of  paragraph  * 074,  w i thi  parity  bit  in  binary  at  the  right  of  each  word;  "e11  denotes  unused  fixed  memory* 

ALL  VALID  W0RP5~A~Rs  BASIC  INSTRUCTIONS  EXCEPT  TH05e  MARKUP  » I ii"  ~( I N T E R P R E T 1 VeOP eR  A T 0 R WORDS)  OR  »C»  (CONSTANTS) , 


13*2000 

00004  0 

47650  1 

70061  1 

67650  0 

54061  1 

02650  0 

I2O33  1 

42743  1 

13,2010 

70367  1 

62743  0 

54367  1 

42744  0 

00006  1 

03012  1 

37653  0 

00006  1 

13,2020 

05012  1 

37652  1 

0453b  0 

C:  02035  0 

C:  26003  0 

40367  1 

77647  1 

10000  0 

13,2030 

12033  1 

05413  1 

CS  00210  1 

00003  1 

14076  0 

02650  0 

14602  0 

04755  1 

1 3 » 2040 

47653  1 

00006  l 

03oi2  1 

34762  0 

04557  1 

02650  0 

14602  0 

42743  1 

13,2050 

70367  1 

54367  1 

04156  1 

Cj  25344  0 

12633  1 

37654  1 

00004  0 

00006  1 

1 3 f 2060 

05012~  1 

47654  0 

70367  1 

67654  1 

54367  1 

36162  1 

04536  0 

c;  02072  0 

13  9 2 0 70 

C!  26U03  0 

12033  1 

02643  1 

^37652  T 

00006  1 

05012  1 

37656  0 

55454  1 

1 3 *2 100 

514540 

30400  0 

00006  1 

51454  0 

20032  1 

00006  1 

77643  0 

56001  0 

13,21 10 

60000-  1 

54065  0 

12114  0 “ 

26001  1 

51454  0 

23451  0 

11454  1 

020  7 7 0 

13,2120 

37656  0 

04557  1 

02643  1 

54065  0 

37656  0 

55454  1 

51454  0 

11451  1 

1 3 , 2 1 30 

02134  0 

02143  0 

02206  1 

02143  0 

62747  1 

00006  1 

62216  0 

51454  0 

13,2140 

65451  1 

42750  0 

24065  I~' 

51454  0 

54050  0 

11454nr~ 

02125  0 

10065  0 

1 3 9 2 1 £>0 

12222  0 

04554  1 

C!  00226  1 

37656  0 

54065  0 

50000  1 

30032  0 

00006  1 

1 3 ,2 i6u 

~50065~  1 

20400  1 

10000  0 

12177  0 

12166  0 

12177  0 

10065  0 

12154  1 

1 3 | 2 1 7O 

55451  1 

55452  1 

55453  0 

55454  1 

55455  0 

55456  0 

12633  1 

62205  1 

13,2200 

00006  1 ~ 

62166  1 

05413  1 

C:  00211  0 

12641  1 

c:  77511  I 

62747  1 

00006  1 

13,2210 

622  1 6 0 

40000  0 

51454  0 

55451  1 

32750  1 

02142  1 

37665  0 

51454  0 

13 ,2220 

57451  0 

02142  1 

32746  0 

00006  1 

O5OI4  1 

32751  0 

12121  0 

00004  0 

13  ,2230 

02653  U 

42745  1 

00006  1 

TTOTZ  1 

37646  1 

04536  0 

C:  02247  r 

Cl~26003  0 

13,2240 

32752  0 

04536  0 

CJ  02245  0 

C : 26003  0 

12033  1 

02643  1 

12633  1 

02650  0 

1 3 ,2250 

14602^0 

37654  1 

00006  1 

~ tT2  0 1 2 0 

10000  0 

14602  0 

47654  0 

70367  1 

1 3 • 2 260 

54367  1 

14602  0 

02650  0 

14602  0 

47653  1 

12257  1 

02650  0 

14076  0 

13,2270 

00004  0 

37663  0 

54037  1 

54040  1 

54041  0 

47657  0 

70367  1 

54367  1 

13 ,2300 

~04156  I 

c:  25344  0 

12033  1 

00004  0 

47657  0 

70367  1 

67657  1 

54367  1 

13,2310 

77646  0 

10000  0 

12033  1 

05413  1 

c;  00212  0 

00004  0 

12300  1 

54145  0 

13T2^320 

02655  0 

10357  1 — 

02364  1 

54142  1 

37632  1 

U0UU6  1 

05014  1 

37655  0 

13 ,2330 

00004  0 

04536  0 

C 5 02402  0 

c:  26003  0 

30145  1 

56003  1 

56145  1 

54357  1 

13*2340 

75235  1 

54063  0 

37656  0 

54743  0 

60000  1 

60063  1 

l 

00006  1 

13,2350 

50000  1 

31401  0 

52141  1 

07235  1 

52141  1 

50144  0 

53401  1 

1 0 1 43  0 

13,2360 

12343  0 

3U  i 4-5  1 

54003  0 

12033  1 

00006  1 

30120  1 

52141  1 

32401  0 

13  y2370 

' 14416  1 

10357  1 

12367  0 

54142  1 

00006  1 

30141  0 

52120  0 

37657  1 
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OCTAL  LT5TIN5  of  PARAGRAPH  # 075,  WlyHI  PARITY  Bty  IN  BINARY  Aj  THe  RIGHT  OF  EACH  WORD;  »@n  DENOTES  UNUSeP  FIXeP  MeMQRY^ 
ALL  VALID  WcRDS  ARe  ^ASIC  INSTRUCTIONS  £ X C £Pt  THQSe  MARKeD 11 1 11  (INTERPRETIVE  OPERATOR  WORDST  AR  "C"  (CONSTANTS), 


13,2400 

12330  1 

“X]““2637l  0 

42630  1 

00006  1 

O3OI4  1 

02643  1 

30357  0 

00006  1 

13,2410 

77654  0 

5UUUU  1 

1 24 1 3 1 

02442  1 

c:  00202  1 

02442  1 

c:  00302  0 

02440  0 

13 ,2420 

“ c:  coioo  0 

37665  0 

54357  1 

32401  0 

04422  1 

37656  0- 

70370  1 

10000  0 

13,2430 

12437  r 

IOO7I  0 

12437  1 

12437  1 

47652  0 

00006  1 

03014  1 

12245  1 

— 13,2440 

47655  1 

26357  1 

50002  0 

30000  1 

54071  0 

77663  1 

67643  1 

26357  1 

13,2450" 

“54003  0“ 

75235  1 

54065  0 

47663  1 

70071  0 

54071  0 

00006  1 

50065  1 

13,2460 

31401  0 

52075  1 

10074  0 

12476  1 

12466  0 

12611  1 

IOO75  1 

12473  1 

13,24TG 

12405~“U 

1 2 60  6 1 

12406  0 

62527  0“~ 

00006  I 

62406  1 

00006  1 

32632  T 

13,2500 

20076“!“ 

3OO7I  1 

00006  I 

05014  1 

36027  1 

7OO75  1 

56075  0 

00006  1 

13,2510  ““ 

77650  1 

54066  0 

30074  1 

00006  I 

77647  1 

54074  0 

30001  0 

00006  1 

13 ,2520 

77642  1 

26066  0 

00006  i 

30075  0 

67667  1 

10000  0 

12552  0 

Cj  77600  1 

13,2530 

12534  0 

37642  0 

26066  0 

37665  0 

50065  1 

53401  1 

30066  1 

54047  0 

13,2540 

00006  1 

77646  0 

66165  0 

04536  0 

CS  02402  0 

c:  26003  0 

37646  1 

00006  1 

1 3 , 2 55  0 

“05014  1 

14602  0 

50065  1 

53401  1 

37642  0 

60066  1 

54047  0 

00006  1 

13 ,2560 

77646  0 

67671  0 

04536  0“ 

C:~G2566“G 

CS  26003  0 

12546  0 

02643  “1 

30357  0 

13,2570 

54003  0 

75235  1 

54065  0 

50065  1 

11400  0 

12601  0 

37642  0 

26047  0 

13,2600 

12540  0 

50065  1 

" 55400  0 " 

37642  0 

26047  0 

1255  7 0 

62527  0 

00006 

1“ 

1 3 , 2 6 1 0 

62406  1 

00006  1 

42632  0 

20075  1 

30071  1 

67647  0 

00006  1 

05014 

1 

13,2620 

40074  0 

54074  0 

40075  1 

76027  0 

40000  0 

56075  0 

40000  0 

12507 

0 

13,  2630 

C;  0170U  1 

'Cfooooo  1 

C:  00034  0 

30006 T 

00011  1 

77657  0 

10000  0 

“12640 

1 

13,2640 

126  67  0 

37665  0 

12664  0 

T?652  1 

70367! 

10000  0 

12641  1 

00002  0 

13 ,2650 

~4036T“I 

77652  0 

lOOOO  O' 

“3400 2~0 

00002  0 

40367  1 

77652  0 

10000  0 

13  f 2660 

00002  0 

47665  1 

54371  0 

12033  1 

54075  1 

47665  1 

12671  1 

54075  1 

13 ,2670 

47657  0 

54076  1 

50075  0 

10371  0 

12676  0 

12706  0 

37665  0 

50075  0 

13,Z7UU 

56371  1 

04422  1 

40076  1 

5OO7I  1 

26150  1 

14602  0 

30076  0 

50075  0 

1 3 , 27 1 0 

54371  0 

14602  0 

37656  0 

12717  0 

37657  1 

02717  1 

37665  0 

00004  0 

13 ,2720 

54075  1 

50000  1 

10371  0 

12741  0 

“ 12735  0 

12731  1 

50075  0 

54371  0 

13,2730 

12033  1 

10000  0 

12741  0 

24117  0 

12726  1 

04112  1 

50075  0 

54371  0 

13,2740 

144X5"  1 

05446  I 

c:  01210  0“ 

c: “ooo 14  1 

c:  00050  r“ 

c:  "00070  0 

CS  700000 

c:  77500  1 

I 3 f^7t50 

c;  77477  0 

C;  OOO74  1 

C!  21450  0 

00004  0 

54075  1 

10374  0 

02760  1 

02763  1 

* 3 t 2 7 60 

C 5 4 1 3 1 

c # 00105  0 

04440  0 

10431  0 

02777  1 

10505  0 

02777  1 

10561  1 

1 3 ,2770 

“02777"  1 

1 0 6 3S>  0 

02777  1 

10711  1 

02777  1 

05446  1 

c s 01207  0 

67656  0 
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octal  listing 

07~PARAGRAPH  0 076,  U If  Hi 

PARITY  bit  in 

~B I nary  at  the 

RIGHT  OF  EACH 

word;  Denotes  unused  fixed 

memory 

• 

ALL  VALID 'WORDS  ARE  BASIC 

INSTRUCTIONS 

except  those 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 

»C"  (CONSTANTS) 

• 

13,3000  - 

54374  0 

37665  0 

54375  1 

50374  1 

53777  0 

30075  0 

263?4  0 

34530 

0 

13,3010- 

04363 “0  “ 

Ci  03022  1 

c:  26003  0 

02033  0 

37665  0 

56374  1 

10000  0 

50000 

1 

13,3020 

“54UWo 

04076  1 

37665  0 

54375  1 

37642  0 

70374  0 

1000O  0 

03036 

T 

13,3030 

'47645  0 

70374  0 

67645  1 

54374  0 

33355  I 

03037  0 

33431  1 

05332 

0 

13,3040 

05274  0 

05 140  1 

03023  0 

03023  0 

37646  1 

70374  0 

10000  0 

03051 

0 

13,3050 

03055  1 

37645  1 

70374  0 

10000  0 

03063  I 

05413  1 

c:  00111  0 

44516 

0 

13,3060 

70374  0 

54374  0 

03022  1 

47644  1 

70374  0 

67644  0 

54374  0 

33427 

0 

13,3070 

05332  0 

05140  1 

03067  0 

03067  0 

46165  1 

70375  1 

10000  0 

03067 

0 

13,3100  013103  0 03102  1 03067  0 36165  0 70375"!  lOOOU'D'  03110  1 03067  0 

1373 HO 3W2U  7VTTT\ 0 57U02"!  50375  0 31465  1 50002  0 54011  0 50375“0~ 

13,3120  “ 31462  0 50002  0 54010  1 37642  0 70374  0 10000  0 03146  '1  03130  0 

13,3130  33430  0 05332  0 057407  031300  03130  0 37672  0 70374  0 54002  1 


13,3140  30336  1 50002  0 54003  0 30337  0 50002  0 540050  37672  0 70374  0 

13,3150  54374  0 00004  0 37657  1 04536  0 C:  03157  1 C;  26003  0 04440  0 37657  1 

' T373T60 12667'  0 54016  1 30033  “1  54072  7!  30034  0 54074  0 3TJOJ2"  0 54076  I 

~ 13,3170  00006  1 30025  0 52071  0 56002  0 54012  0 “ “ 33425  1 00006  1 02016  1 


13,3200 

1000-0— 0 

03203  0 

05233  0 

37644  0 

70374  0 

1000(7  0 

04606  0 

10374  0 

1 3 , 32  10 

03214  0 

05413  1 

C:  00112  0 

04606  0 

37653  0 

00006  1 

02016  1 

10000  0 

13,3220 

03361  "0— 

37654  1 

00006  1 

02016  1 

10000  0 

03251  1 

37655  0 

00006  1 

1 3 , 34  30 

“02016  1 

10000“  0 

03245  1 

-33-426  1 

00006  I 

02016  1 

00006  1 

13242  1- 

i 3 , 3240 

04104  0 

l:  42730  0 

05413  1 

c;  00113  1 

04606  0 

37665  0 

54065  0 

37646  1 

13  f 32 bO 

00254  1 

37657  1' 

54065  O' 

37645  1 

54375  1 

70374  0 

10000  0 

03261  1 

1 3 , 3260 

03264  1 

05413  1 

c:  00114  0 

03315  0 

37672  0 

70374  0 

54066  0 

OOOOo  1 

13,3270 

30071  1 

50066  1 

52001  1 

30066  I 

26065  0 

30072  1 

50065  1 

54002  1 

13,3300 

30074  1 

50065  7 

54004  x 

30076  0 

13,3310 

40000  0 

70374  0 

60375  0 

54374  0 

13  9 3 3 20 

70374—0 

10000  0 

-03325-  0 

37650 '0 

13,3330 

03333  1 

37651  1 

26077  0 

34530  0 

50065  1 54006  0 37643  1 60375  0 

03315  0 37665  0 54077  0 37645  1 

“54077  “0  37646  1 70374  0 rOOOO  0 

04363  0 Cj  03343  CT  C;  26003  0 30077  1 


13,3340 

5007T  T 

-54I4O-O 

04606  0" 

10X40  0 

13,3350 

60140  1 

54107  0 

30323  0 

54150  1 

13, 3360 
13,3370 

04440  0 
- 0341 4 0 

37642  0 
- 03376  0 

70374  0 
345041  “ 

10000  0 
70374  0 

03347  1 33432 “ I 03351  '0 33433  t! 

05112  0 “Cj' 05100-0 — 30150  0 54323-  1 

03372  1 37646-1 70374-Q 10000  0 

rtrooo-o 03401  1 03413  1 cr  -00115-1 
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OCTAL  LISTING  OF  PARAGRAPH  # Q77,  WIjHi  PARITY  Blj  IN  BINARY  Ay  THg  RIGHT  OF  EACH  WORD?  D~eMOTES  UNUSeD  FIXED  M£MQRY« 


All  VAlId  WORpS  ARE  basic  INSTRUCTIONS  except  THOSE  MARKED  11 1 ir  ~(TNTERPRETlVE  OPERATOR  WORpS)  OR  11 C"  (CONSTANTS)  * 


0*3400 

”03414  (T 

47643  0 

70374  0 

67643  1 

56374  I 

77643  0 

10000  0 

03414  0 

13*3410 

40375  1 

70374  0 

54374  0 

03315  0 

44504  0 

70374  0 

56374  1 

77642  1 

1 3 * 3420 

IOOCTOIO 

03315  0 

37645  I 

26374  0 

03315  0 ' 

c:  00034  0 

C:  00140  1 

C;  02143  0 

13,3430 

C!  02442  1 

C:  O53OO  1 

c;  02130  1 

c;  05000  1 

03434  1 

03435  0 

CK5M  61247  1 

@ 

l3  *3440 

@ 

,9 

© 

@ 

® 

@ 

§ 

@ 

13*3450 

@ 

§ 

® 

e 

e 

@ 

e 

13,3460 

§ 

e 

@ 

® 

@ 

e 

® 

@ 

13,3^70 

@ 

s 

@ 

® 

@ 

® 

e 

@ 

13,3500 

e 

e 

® 

® 

e 

@ 

e 

e 

13*3510 

@ 

@ 

® 

@ 

e 

@ 

@ 

# 

13,3520 

® 

e 

® 

® 

e 

® 

e 

e 

13*3530 

@ 

@ 

® 

@ 

e 

§ 

e 

e 

13*3540 

@ 

e 

® 

e 

® 

e 

e 

e 

13*3550 

@ 

@ 

@ 

® 

® 

® 

e 

@ 

13  * 3560 

@ 

@ 

@ 

@ 

® 

@ 

e 

e 

13*3570 

e 

@ 

® 

e 

e 

@ 

e 

e 

13*3600 

e 

@ 

@ 

@ 

e 

® 

e 

13*3610 

@ ' 

@ _ 

@ 

® 

@ 

@ 

e 

e 

13*3620 

e 

© 

@ 

@ 

e 

® 

e 

@ 

1 3, 3630 

® 

@ 

@ 

@ 

e 

® 

@ 

13,3640 

@ 

@ 

e 

@ 

e 

e 

e 

e 

T3T36T0 

1 

¥ 

® 

@ 

e 

® 

@ 

13  * 3660 

® 

@ 

® 

@ 

® 

® 

® 

® 

13 *3670 

& 

@ 

e 

e 

e 

® 

e 

13,3700 

& 

e 

@ 

® 

® 

e 

@ 

@ 

13*3710 

@ 

® 

@ 

® 

@ 

@ 

@ 

13  * 372*0 

® 

<§ 

e 

@ 

® 

e 

e 

@ 

13,3730 

@ 

& 

® 

® 

® 

@ 

® 

@ 

13,3740 

@ 

@ 

@ 

@ 

® 

e 

e 

@ 

1 3 « 3 f SO 

® 

e 

® 

® 

@ 

® 

e 

@ 

13*3760 

e 

@ 

@ 

® 

e 

@ 

§ 

e 

13*3770 

® 

w 

® 

® 

@ 

@ 

® 
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OCTAL  LISTING  OF  PARAGRAPH 

loot  w I T H> 

PARITY  BIT  IN  BINARY  At 

the 

RIGHT  OF  EACH 

WORD; 

Denotes 

UNUSED  FIXED 

memory 

• 

except  those  marked  "I" 

ALL  VALID  W0RU5  ARE  BASIC 

INSTRUCTIONS 

(interpretive  operator  words)  or  "c 

" (CONSTANTS), 

14,2000  37657  1 

55512  1 

04063  0 C:  26000 

0 

06000  1 

Is  77634 

0 Cj 

30530  1 Ij 

77634 

0 

14,2010  c:  30325  0 

I : 

47014  1 

CS  00065  1 C:  30405 

0 

IS  77776  1 

33655 

1 

05332  0 

05140 

1 

14,2020  ""  12745""  1 

12015  0 

56333  1 55544 

1 

10334  I 

12760 

0 

02576  1 

02501 

T - 

14,2030  " 02135  1 

04063  U 

CS  26716  0 12745 

"I 

02247  1 

02737 

0 

02727  1 

04063 

0 

1 4 » 2"o 4 0 Ci  2622?  i 

04063  0 

CS  26716  0 12745 

1 

02135  1 

05401 

1 

02263  1 

04063 

0 

14,2050  C:  30422  0" 

11512  1 

12065  1 12047 

1 

12745  1 

55512 

l 

00004  0 

34517 

0 

14,2060  04374  0 

cs 

03062  0 

CS  30005  1 00003 

1 

02047  0 

05470 

1 

52141  1 

00003 

1 

14,2070  37665  0 

54037  1 

54040  1 5404T" 

cr 

55551  0 

55537 

0" 

02454  0 

00004 

0 ' 

14,2100 

33666  1 

04536  0 

CS  02106  I 

C;  30005  1 

32134 

0 

04416  0 

32134  0 

0442  2X 

14,2110 

774602  I 

31542  0 

55541  I 

04063  0 

CS  36771 

0 

00003  1 

02454  0 

31543  1 

14,2120 

55541  1 

04063  0 

CS  36771  0 

00003  1 

02454 

0 

00004  0 

33665  1 

04536  0 

14,2130 

C « 02106  1 

C S 

30005  1 

32134  0 

04416  0 

CS  30111 

0 

00006  1 

23546  1 

04063  0 

14 ,2  ]40 

CS  27014  x 

37657  1 

54333  0 

3365 i 0 

05332 

0 

37665  0 

04063  0 

CS  26753  1 

14,2150 

04063  0 

C ! 

26714  1 

12745  1 

00006  1 

50374 

1 

30001  0 

53565  1 

02242  1 

14,2160 

C6000  1 

rs 

47140  1 

CS  00374  I 

"XT  33051  0 

is  47O14 

l 

C:  00305  1 c: 

30T70  1 

C:  32517  0 

14,2170 

CS  01445  0 

C; 

OloQl  1 

IS  77776  1 

04063  0 

C:  27014 

1 

37656  0 

54333  0 

33651  0 

1 4 *2  2 0 0 

033  32"  0 

37665  0 

04063  0 

CT  2 6 7 53  1 

37646  1 

70061  1 

10000  0 

1 22 1 5 

1 

14,2210 

04063  0 

C*  30422  0 

10372  0 

12216  1 

12210  1 

12216  1 

04063  0 

Cs 

26714 

1 

1 4 * 2 22U 

12745  1 

02242  1 

06000  1 

1:  47140  1 

CS  00374  1 

cs  33051  0 

IS  47014  1 

c: 

00205 

0 

14,2230 

" C!  30232  1 

CS  32517  0 

CTXTI453X. 

" C:  016O7  x 

I S 77634  0 

CT  30350  1 

IS  77634  0 

Cs 

"32677" 

0 

l4,2240 

I I 77776“  l " 

01546  1 

37656  D 

60374  l 

50104  l 

54050  0 

00002  0 

00006  1 

14,2230 

23543  T 

06000  1 

"Ti  77634  0 

C ; 32615  1 

IS  77776  1 

04063  0 ( 

C;"  26055  0 

X74063  0 

14,2260 CS  26716  0 12745  1 01546  1 00006  1 23546  1 06000  1 I:  64375  1 CS  01401  0 

14,2270 Cs  01445  0 17  43172  1 - C;  00345  0 C;  30276  1 C!  36041  1 “ CS  32517  0 CS  23423  0 C:  01407  0 


i4,2300  It  76521  q C:  0l445  o I7~T76i4  i C:  00345  0 C:  3o3o7  0 CS  36o4i  l C:  325x7  0 Ci  234310 

14,2310 C'S  01423  0-  Is  76435  1 C;  01431  0 C:  37437  0 Cj  32367  2 Is  45170  0 C;  02500  0 Cs  33515  0 

1472320  IS  77776  “I 04063  C C7“267r6"  0 12745"  1 01546  1 n_77776“  1 33660  1 55776  1 

14t2320 33676  0 04063  0 CS  37236  1 37642  0 55400X 06000  1 1:  73545  1 ~ CS  01507  1 


1“»  ,2340 

"CT" 

XT  4 1 r 

1 

" CS  07421  1 

CS  01507  1 

"XT 

77746  1 “ 

CS  01413  0 " 

IT  77676  0 

CT  0 14 17 

1 

I ; 

77616 

0 

14 1 2350 

I : 

7717^ 

1 

C;  00002  0 

C l 00014  1 

I ; 

77731  1 

Cs  00052  0 

C{  00006  1 

I ; 60533 

1 

C ; 

01557 

1 

14,2360 

c r 

0000 1 

Cr 

I 5 77756  0 

CS  12023  0 

Cs 

00001  0 

I S 41546  0 

IS  45133  1 

C:  01556 

0 

C : 

33345 

0 

14,2370 

Cr 

XOOOT 

I" 

T!  4 1356  1 

cs  00001  0 

rs 

77752  1 

cs  12027  1 

C:  uo0u3  1 

" 1 : 41346 

0 

I • 

57552 

1 

4Y3423A  Y JL 

SYSTEM  FOR 

BLK2* 

REVISION 

12  OF  PROGRAM 

AURORA  BY  DAP 

GROUP 

NOV 

10,  1966 

PAGE  722 

OCJAL  LI SylNG  QF  PARAGRAPH  # 

101  ♦ WITH!  PARITY  BIT  IN 

BINARY  AT  THe 

RIGHT  OF  EACH 

WORDS 

denotes  unused  fixed  memory. 

ALL  \/RLID  WORDS  ARE  BASIC  INSTRUCTIONS 

EXCEPT  THOSE  MAKkEO  » I « ( INTERPRET *VE  OPERATOR  WORL55) 

OR  »C»  (CONSTANTS), 

14,2400 

CS  04025  1 

Is 

6H7O 

15 

Ci  00000  1 

C 

! 30356  1 

I S 77616  0 

IS  65345 

0 

CS  33042  1 

Ci  01511  0 

14,2410 

IS  57546  1 

I: 

73525 

I 

C 5 0 1 5 1 1 0 

I 

S 74266  0 

C:  31702  0 

CS  01514 

0 

IS  77624  1 

Ci  33342  1 

' 14,2420 

C l 01 5 6 snr 

IS 

77616 

0 

04112  1 

55547  1 

06000  1 

IS  77624 

1 

CS  33342  1 

Cj  01562  1 

14,2430 

I : '542252T 

C: 

01565 

0 

Ci  00212  0 

I 

S 64361  1 

CS  01514  0 

CS  01401 

0 

IS  77655  i 

C;  OI772  1 

l 4 , 244Q 

Ci  07772  i 

C; 

0i562 

1 

CS  0l565  0 

I 

S 45  ]7o  0 

C:  0277i  1 

CS  335J.5 

0 

l!  77776  1 

q4o63  0 

14,2450 

C:  26716  o 

12745 

1 

31547  0 

14105  0 

00006  1 

23546 

1 

06000  1 

I;  54340  1 

14,2460 

CS  01537  1 

c: 

00204 

1 

I r 45005  0 

C 

: 31700  1 

C!  33406  0 

OS  U3 37 i 

”1" 

IS  77776  1 

57551  1 

14,2470 

'51'537  1 

'55572 

1 

'4X537  0“ 

63664^0" 

00006  1 

63123 

T 

36165  0 

27537  0 

14,2500 

01546  1 

00006 

1 

23546  1 

37657  1 

22007  0 

23550 

0 

54335  0 

33652  0 

14,2  5T0 

06332  0 

6T550 

0 

536  5 4 C ' 

52334  1 

02554  1 

C:  00661 

0 

I2745  1 

5A334  1 

14 ,2520 

51550  0 

53554 

0 

11550  1 

12527  1 

37656  0 

540U  i 

1 

12505  1 

01546  1 

14 ,2530 

I:  62545  1 

C: 

01511 

0 

Ci  06335  1 

c 

! 015C7  1 

I : 77424  0 

C:  33410 

1 

56140  1 

54333  0 

1 4 1 2 5 40 

02554  1 

c: 

00661 

0 

12745  1 

06000  1 

I!  45135  1 

CS  00334 

0 

CS  33345  0 

c:  01507  1 

14,2550 

1 • 60535  1 

cs 

00335 

1 

c:  01511  0 

1 

S 77616  0 

00006  1 

23545 

1 

51545  1 

30000  1 

14  ,256U 

051U7  1 

12573 

O'" 

"05274  0 

06140  1 

12667  0 

12571 

~T 

12556  1 

51546  1 

14,2670 

0000 1 ~tr 

51545 

1 

C0002  0 

32575  1 

05327  1 

CS  30556 

“I" 

00006  1 

23546  1 

1472600 

5|T44  0 

1 2 6 0 2 0 

12745  1 

l26'io  0 

126x5  0 

12633  1 

12654  0 

12706  0 

14,2610 

37657  1 

55542  1 

37656  0 

55543  0 

01546  1 

06000  1 

Ii  57575  1 

C;  01401  0 

14  1 2620 

Ii  77715  1 

Ci  01415  0 

C!  23401  0 

I!  77626  0 

Ci  76362  1 

17  77776  1 

37665  0 

55542  1 

1"4 , 2630 

37657  1 

55543  0 

“Cn5'46  1 

06000  I 

I i 63375  0 

CS  01401  0 

Ci  01407  0 

17  77715  1 

1^*2640  CS  0l4i5  o C{  23401  0 1}  77626  q Cs  54362  l 1:  77626  o CS  76370  1 Ij  77776  i 37665  Q 

14,2650  55542  1 37656  0 55543  0 0T546-  1 37653' 0 60104  1 50104  1 54050  0 

1472660 33656  l 05372"0 05140  1 12745  1 12660  1 30400  0 50104  1 5402 4 0 

14,2670 30401  1 50104  1 54020  1 30402  1 50104  1 54022  0 06000  1 I • 47024  1 


14,2700  C:  32766  1 CS  33000  1 15  77624  1 C!  32766  1 IS  77776  1 01546  1 31546  1 55551  0 

14,2710  — 02501  1 06000  1 IS  77634  0 Cj  30350  1 IS  41575  0 CS  00007  0 CS  01407  0 — Is  76435  1 

14,2720  C!  00015  0 CS  01461-0 IT_T643T“I 1 5 ”77626  0 CS  76362  1 17  77776  1 01 551  “I 00006  1 — 

14,2750 23546  1 06000  1 IS  77775  1 CS  33042  1 CS  01772  1 IS  77776  1 01546  2 37652  1 

l4,274~0  70322  o 00006  "i  12744  0 l2745  1 00002  0 37650  0 67651  1 40000  0 

14,2750  00004  0 70061  1 54061  1 046672  Cs  00000  l 04063  0 C:  27014  1 04437  0 

14,2760  06000  1 IS  57575  1 CS  33036  1 CS  01437  0 CS  23461  0 CS  33040  0 CS  01423  0 CS  23445  0 

"14,2770 CS  33034  0 CS  01431  0 CS  01453  1 Tr  77776  1 41544  1 66165  0 00606  1 73001  1 
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OCTAL  LIS~fmG  OF  PARAGRAPHS  102*  l^HTFARTTY  BIT  IN  BINARY  At  THe  RIGHT  OF  EACH  WORDS  i,@ii~D~eNOTES  UNUSeP  FIXED  MeMQRYT 


ALLTyAUID  WORDS  ARC  BA5TC~TN5TKOCTION5.  EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C11  (CONSTANTS) . 


1473000 

13014  0 

06000  1 

IS  57575  1 

CS  01423  0 

IS  77715  1 

CS  01437  0 

CS  01423 

0 

CS  23445 

CT 

14,3010 

I ! 

! 77626  0 

CS  76340  1 

CS  01461  0 

I : 77776  1 

04063  0 

CS  26716  0 

12745 

1 

02576 

1 

14,3070 

05 40T  1 

02247  1 

02737  0 

04063  0 

CS  26227  1 

04063  0 

C:  26716 

0 

I2745 

1 

14,3030 

30032  or 

50104  1 

54024  0 

30033  1 

50104  I 

54020  1 

30034 

0 

50104 

1 

14,3040 

54022  0 

37653  0 

60104  1 

50104  1 

54050  0 

02263  1 

06000 

1 

I:  77624 

1 

14,3050 

C 

: 33342  1 

CS  01565  0 

IS  77776  1 

41512  1 

67656  0 

00006  1 

13060 

0 

12051 

0 

14,3060 

04063  0 

C:  35235  0 

33674  1 

55546  0 

04063  0 

C!  20247  1 

04063 

0 

C:  23001 

1 

14,3070 

“72524  1 

“04063  0 

C:  26712  1 

14440  1 

06000  1 

is  77I7O  1 

c:  00000 

1“ 

c:  00006 

1 

l4 , 3 1 00 

I; 

! 77634  0 "“ 

Cj  30353  1 

IS  64375  1 

Ci  000 l 5 0 

CS  01401  0 

IS  77772  0 

CS  364i6 

1 

CS  20306 

0 

14,3110 

7 3 17"5“0 

04063  0 

C!  26712  1 

14440  1 

14440  1 

05413  1 

c:  00524 

1 

14440 

1 

14,3120 

47665  1 

55512  1 

12002  0 

0531?  1 

37665  0 

55537  0 

51337 

1 

41674 

1 

14,3130 

51537  1 

27702  1 

33662  0 

61537  1 

10000  0 

46165  1 

27537 

0 

13126 

0 

1 A,  3 1 AO 
14,3150 
— 1 A, 3 160 
14»3l70 


55537  0 06000  1 I:  70750  1 C:  01537  1 C:  01701  0 IS  77625  0 CS  01571  0 CS  03701  1 

IS  77776  1 — A1537  0 63663  1 10000  0 36165  0 27537  0 13141  1 555501 

36165“  0 55537  0 06000“!  IS  77775  1 CTT3042  1 CT~0005T~0  CT_OOOr37~0  I:  77735  0 

CS  31660  0 C!  00041  1 IS  77776  1 06000  l I:  70750  1 CS  01537  1 CS  OI7OI  0 I : 47423  1 


~T4T3 zoo  CS  151673  1 1:  42742  0 

14 , 3210 1;  63412  0 1:  7761 5 0 

14,3220 63662  0 10000  0 

“74*3230 rr“6’6T40'7 01771537  1“ 


Cl  016T3  1 CS  03701  1 Is  433 i2  0 

C:  00033  1 C:  00033  1 1:  77776  1 

36162  1 27537  0 13173  0 


CS  0003 1 0 CS  14031  0 C$  01701  0 

31550  0 61537  1 40000  0 

— 61550  0 55537  0 06000  1 

1 : 54206  1 C S““GOZTI“0 rs  43265  1 


14,3240 


14,3260 
— 1 4, “3270 


C!  00043  0 CS  00035  1 

n~7T605“I  IT  77615  0“ 

— 10000-0 36162  1 

7:  41325  0 C:  00033  1 


Ci  06035  1 17  55267  1 CS  00207  1 CS  00043  0 I;  42523  0 C:  01602  1 

C!  00037  “0 Cl  00637  0 1 : 77776  7 4153  ? 0 636  61  0 6T 550“CT“ 

27537  0 13227  1 06000  1 IS  41345  0 CS  00031  0 CS  00037  0 

CS  00035  1 — 77  77625  0 I:  63525  0 CS  00031  0 Is  65342  7 CS  00041  1 


1 4 ,33(30“  IS  4i267~i  Cj  002^2  o CS  00033  x I;  55225  i 

14,3310  I : 77776  1 “37544  “0 54340  1 33654  0 

1473320  36165“  0 55550  1“ 37665  0 13161  0 

14,3330 5557-573 03533  1 25577  0 51 577  0 


IS  54205  i CS  3i673  1 C:  00204“!  C:  00337  0 
05332  0 05274  0 05140  1 12745  1 

— 37537  I 55576  0 37665  0 555777T 

33336  1 14067“0 C:  31352  1 C;  31370  1 


14,3340 

“ CS  31376  1 

CS  31410  0 

“ CS  31422  1 

C:  31447 

“T 

14,3350 

C:  31527  0 

C;  315^*+  1 

37664  1 

54333 

0 

in  1 

'-'1005  0 

33643  0 

05332  0 

33650 

1 

14,3  370 

25576  1 

24333  1 

37665  0 

00006 

“1“ 

CS  3152473 

—35235  0 

—05332  0 
— 070057T 


C!  315577 
54334  1 
0 5140-ir- 
— 03354-0 — 


C ! 30745  7 
00006  1 
02745  0 

376621 


C!  31454  0 
51575  1 
03332  0 
54333  CT 
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T4,3400 

37700  T 

54334  1 

00006  1 

05011  1 

37665  0 

00006  1 

01006  0 

03361 

0~ 

14,3410 

37661  1 

54333  0 

47700  0 

00006  1 

03011  1 

33646  0 

54334  1 

00006 

1 

14, 3412  CT 

05012  I 

03361  0" 

43646  1 

LJD006  T 

03012  1 

37665  0 

54333  C 

54334 

1 

14,3430 

35575  0 

37657  1 

55576  0 

00004  0 

04536  0 

C:  03460  0 

Cs  30005  1 

00003 

1 

14,3440 

33650  1 

05332  0 

05140  1 

02745  0 

37665  0 

55576  0 

03332  0 

37665"  0 

14,3450 

“ 54055  0 

33347  1 

55574  1 

04416  0 

37637  1 

55575  0 

37651  1 

03433  0 

14,3460 

11576  0 

03466  0 

31574  0 

55576  0 

04422  1 

04602  1 

11575  0 

03502  0 

14,3470 

35234  1 

54055  0 

37654r  1 

00006  1 

05014  1 

37652  I 

04536  0 

C:  03460  0 

14,3500 

c:  30005  1 

□4602  1 

45234  0 

03471  0 

11576  0 

03512  1 

31574  0 

55576  0 

14,3510  _ 

04422  1 “ 

04602  1 

33644  1 

54060  0 

37655  0 

00006  l 

05014  1 

37652  1 

14,3520 

~ '04536  0 

C;  03504  0 

C!  30005  1 

04602  1 

33350  1 

55574  1 

04416  0 

37665  0 

14,3530 

55575  0 

47654  0 

00006  1 

03014  1 

00004  0 

37657  1 

04536  0 

C:  03504  0 

14,3540 

C:~3ooo5  1 

00003  1 

33650 

1 

05332  0 

05i4o 

l 

02745  0 

37665  0 

55576 

0 

14,3550 

03332  0 “ 

33351  0 

55574 

1 

04416  0 

37657 

1 

55575  0 

37656  0 

00006 

1 

14,3560 

05014  1 

0 3534  0 

060  OX 

1 

1 : 

77414  0 

C:  00065 

r 

02135  1 

06000  1 

n 47375 

X) 

1 4 , 357u 

C ! 01601  1 

c: 

OI6O7  1 

I S'  77646 

0 

CT 

22023  0 

c:  01601 

1 

IT  77641  1 

CT 

OI6O7  1 

C S 3602  1 

1 

14,3600 

c;  32A4Q  0 

I: 

77624  1 

CS  234iO 

1 

C: 

00025  0 

IS  77776 

1 

33675  0 

60104  l 

54 142 

1 

14,3610 

33653  1 

05332  0 

12745 

1 

00004  0 

37665 

0 

54026  1 

33642  1 

54003 

0 

1 4 1 3 6^ 0 

22007^0 

50000  1 

23401 

0 

67656  0 

26003 

0 

75235  1 

10000  0 

i 3620 

1 

1 4 1 3 6 30 

totkjxtt  - 

13&34  1 

04102 

X 

' CT 

" 24000 ' I 

00003 

1 

37665  0 

54350  0 

' 00004 

0 

1 H-  f 5 

47657  0 

13620  1 

c:  00027 

1 

c: 

00430  0 

CS  52525 

1 

c:  70707  0 

cr 

37400  1 

CS  0U13U 

0 

14 , 3650 

XT  03300  X 

c • 

xroiscnr — 

c:  00530 

T 

c s 

00603  1 " 

CT  00666 

1 

CT  02430  1 

cs 

02522  0 

cr  00013 

XT 

1 4 1 3 6 60 

c:  0002 i 1 

c : 

00074  1 

CT  OOO77 

1 

Cs 

00 1 0 5 0 

c * 00110 

1 

CS  05670  0 

Cl 

13560  0 

C 5 0 1 500 

0 

14,3670 

ct  C157O  1 

C: 

02570  1 

cr  00322 

1 

Cs 

14366  1 

c:  03071 

1 

CS  00024  1 

c • 

01400  1 

CS  24365 

1 

l4 , 3700 

C S 3q244  0 

— cr 

07623  1 

CT  26552  1 

0^053  0 

“ CT  267 16  X) 

12745  1 

0272 n- 

06000  1 

14,3710 

IS  77634  0 

C; 

30405  0 

IS  77776  1 

31617  0 

67670  1 

55616  0 

00006  1 

13722  1 

14,37  2 

3 7 6 56  XD 

03723  1 

37657"  1 

55672  1 

04063  0 

CTXT6545  0 

03726"  I 

XT3727  0 

1 ^ « 3?30 

C K S vl  f6260  1 

© 

© 

@ 

© 

© 

© 

© 

14,3740 

© 

© 

© 

© 

© 

© 

© 

© 

14,3750 

© 

© 

© 

@ 

© 

© 

© 

© 

14,3760 

© 

© 

© 

@ 

© 

© 

© 

© 

14,3770 

© 

~W~ 

© 

© 

© 

" © 

473423A  YULTsTSTEM  FOR  BLKz:  REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10,  1966  PAGE  725 


OCTAL  LISTING  OF  PARAGRAPH  # 1Q4,  WITHi  PARITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  "6"  DENOTES  UNUSED  FIXED  MEMORY. 
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15,2000 

Cj  CX>437  1 

CT  00342  1 

C;  00025~0 

C: 

00024  1 

C:  00412  0 

C;  03602  0 

C:  03601  0 

Cs  03600  1 

15,2010“ 

C:  03577  1 

c:  00412  0 

c:  03576  0 

C: 

03575  0 

c:  03574  1 

C!  03573  0 

c;  00412  0 

C • 0 3 Jp  7 ^ 1 

15,2020 

XI  03571  1 

c:  03570  0 

XT  03567  0 

C: 

004T2  0 

CS  03566  1 

L!  03563  1 

c:  03564  0 

Cs  03563  1 

15,2030 

Ci  O04TZ  0“ 

c:  035&2  0 

c:  03561  0 

c • 

01560  0 

c:  01557  1 

C5  00412  0 

CS  01556  0 

C:  01555  0 

1 5, 2046 

c:  01554  1 

CS  01553  0 

c:  00412  0 

LI 

01552  1 

c;  0l55i  1 

c;  01550  0 

CS  01547  0 

54016  1 

15,2050 

51401  0 

10000  0 

30411  0 

55400  0 

76426  0 

00006  1 

01034  1 

47651  0 

15,2060 

“ 00006  1 

03U 13  0 

32212  1 

55401  1 

32000  0 

12151  1 

37651  1 

00006  1 

15,2070 

050 1 3 U 

37665  0 

54065  0 

37661  1 

54066  0 

61400  I 

00006  I 

50000  1 

15,2100 

50032  0 

30001  0 

50065  1 

53404  1 

37656  U 

26065  0 

10066  0 

12074  1 

15,2110 

32220  0 

55402  1 

32213  0 

55401  I 

00006  1 

51400  1 

50045  0 

30001  0 

15,2120 

12146  1 

55402  1 

00006  1 

50000  1 

52230  1 

30001  0 

12146  1 

11402  1 

15,2130 

12121  0 

32214  1 

55401  1 

32217  1 

55402  1 

61400  1 

00006  1 

50000  1 

15.2140 

“30001 

54003  u 

75235  1 

00006  1 

50000  1 

31401  0 

00006  1 

01034  1 

15,2150 

30001  0 

00006  1 

01035  0 

1 46 1 0 0 

11402  1 

12134  1 

32215  0 

55401  1 

15,2160 

361.62  “1 

55402  I 

00006  1 

50000  1 

52221  1 

30001  0 

12146  1 

11402  1 

15,2170 

1 2 1 6 1 1 

32216  0 

55401  1 

36165  0 

55402  1 

00006  1 

50000  1 

52247  1 

1 5 , 2200 

■ 00000  1 “ " 

54OOI  1 

00006  1 

5 1402  0 

52243  0 

00000  1 

12146 

1 

11402  1 

15,2210 

12174  0 

12052  0 

C;  02066  0 

C;  02127  1 

Cs 

02154  0 

Cs  0216?  0 

C;  02207 

0 

C;  00031  0 

15,2220 

Ci  00013  0“ 

CS  00024  1 

CS  00321  1 

CS  OO3I7  1 

c: 

00315  0 

CS  00313  0 

cs  00311 

1 

cs  00307  0 

15,2230 

Xi“Ol42T  1 

CS  01425  0 

“ CJ“01423“0 

CS  01421  1 

Cs 

01417  1 

C S 01415  0 

CS  01413 

IT 

C;  01411  1 

1$  t2240 

CS  Cl407 

0 

Cs  0l405  1 

c— 1 

m < 
0 

O' 

u 

C; 

00032  0 

CS  00030  1 

CS  000l3  0 

C;  oooii  1 

C: 

00033 

1 

15,2250 

■ C'S  0003T 

U 

X;  00014  1 

cs  00012  T 

C j 00342  1 

XT  03436“  0 

Cs  03545  0 

CT  03543  0 

X; 

03541 

1 

15,2260 

CS  03537 

"0 

c;  03535  1 

cs^ 03533  1 

CS 

03531  0 

cs  03527  1 

CS  03525  0 

CS  03523  0 

Ci 

03521 

1 

15,2270 

CS  03517 

1 

cs  03515  0 

C ! 03513  0 

Ci 

03511  1 

cs  03507  0 

C S U3505  1 

CS  03503  1 

CS 

03501 

0 

J,3 ,2^00 

cs  oi^ri 

0 

c:  1 

C!  03473  1 

CS 

03471  0 

CS  03467  1 

C!  0l465  1 

CS  01463  1 

Ci 

Ol46i 

0 

15,2310 

Cj  01457 

0 

C ; 01455  1 

Cs  01453  1 

C; 

01451  0 

Cs  01447  1 

Cs  01445  0 

C;  01443  0 

C; 

01441 

1 

157  2 320 

c : c 1 4 3 7 

u 

Cs  00342  1 

CS  02634  1 

c: 

02632  1 

CS  02630  0 

CS  02626  1 

CS  02650  0 

C; 

"02644 

0 

1 5 ,2330 

Ci  02634 

1 

CS  02632  1 

CS  02626  1 

cs 

02624  0 

CS  02576  1 

C!  02640  1 

L ; 02636  0 

c : 

00374 

1 

J3*2J40 

CS  00402 

1 

CS  U040XT  0 

C 5^00423  x 

cs 

00362  0 

CS  00366  1 

CS  01362  1 

CS  00063  1 

C! 

00061 

0 

15*2350 

C ; COO 3 5 

i 

C;  00034  0 

C;  00032  0 

c ; 

00360  1 

Cj  00355  1 

Cs  00364  0 

C:  00354  0 

C : 

00352 

0 

15 ,2360 

CS  00421 

0 

C l 004 1 7 0 

C!  00415  1 

c : 

00427  0 

CS  00413  1 

c?  00041  1 

cs  00037  0 

I s 

71230 

0 

15,2370 

CS  C0G51 

0 

CS~Oi423  0 

IS  65325  0 

cs 

33042  1 

Ci  01427  1 

IS  55476  1 

IT  77656  1 

CS 

06027 

1 
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15,2400 

c;  0O027~I 

1 : 77742  0 

C5  06023  0 

CS  00033  1 

I ; 77742  0 

CS  36021  1 

C!  32440  0 

Cj  07503  0 

15,2410 

Qi  C 1 4 2 5 0 

I:  77742  0 

c:  06023  0 

Cs  00027  l 

I;  65205  0 

CS  01427  1 

CS  00033  1 

I 5 45205  1 

15,2420 

Cj  01 42  315 

r : 77626  0~ 

C;  41756  0 

C;  32W)  0 

C;  23505  0 

C;  OOO27  1 

I-  77641  1 

Cj  C 143  7 0 

15,2430 

- CT  22021  1 

C:  00027  1 

I 5 77641  1 

CS  01431  0 

CS  36023  0 

CS  32440  0 

CS  37501  1 

Cs  00051  0 

l 5 ,2440 

I;  5i545  1 

CS  00023  0 

1:  5oo25  0 

Cs  33o3o  1 

CS  32453  1 

Is  72545  0 

CS  0002 1 1 

I;  75326  i 

“ 15,2450 

C:  C0023  0 

C:  00025  0 

1 5 776 1 6 0 

I;  72545  0 

Cs  00023  0 

1 : 77736  0 

Cs  06025  0 

Cs  00021  I 

- 15,2460- 

I ! 77640  0 

C:  32464  0 

I 5 43545  1 

cs  00025  0 

IS  75345  1 

CS  33032  0 

CS  00023  0 

IS  77625  0 

15,2470 

c:  C 0025  0 

C:  00025  c r 

15  77616  0 

1 S 43030  C 

CS  00057  0 

CS  00264  1 

I;  77I70  i 

C;  COD  04  T 

j.5,2500 

cs  coooo  1 

1;  77634  0 

C 5 3254:1  1 

i : ('l'O  1 

CS  00002  0 

CS  00004  0 

I S 77634  0 

CS  6043  1 

15,2510 

I:  77170  r - 

C:  00000  1 

Cs  001502  ~0 

1 s 77634  CT 

Cs  32543  I 

I ; 77650  r 

C : TC051  0 

I ; 43030  0 

15,2520 

c:  00C5I  0 - 

C!  00064  0 

I!  77170  1 

c:  00000  1 

CS  00002  0 

IS  77634  0 

CS  32543  1 

I:  77170  1 

15,2530 

c:  00002  c 

cr  00004  0 

n 77634  0 

C:  32543  1 

IS  77I7O  1 

CS  00004  0 

c;  00000  1 

I S 77634  0 

15*2540 

L 5 0 2 5 H 3 1 

15  77650  1 

c:  ooo5i  0 

1 : 66660  1 

C!  00050  1 

CS  00005  1 

i : DbQZH  1 

C!  3530  0 

15 ,2550 

cs  00050- 1 

C:  00037  0 

I 5 77746  1 

C;  loon  0 

C:  00037  0 

I S 77756  0 

Cs  02013  1 

I • 72403  0 

- 15,2560 

CS  77732  1 

I 5 40723  XT 

CT  00011  T 

CS  77732  1 

IS  64752  0 

C 5 00013  0 

I S 72403  0 

CS  150045  0 

15,2570- 

1:  77614  1 

c;  00344-  t 

C!  32604  1 

I!  45421  1 

CS  57732  0 

CS  00011  1 

I S 72403  0 

Cs  00045  0 

15,2600 

r : 454 1 5 0 

c;  53732  1 

C:  00Q4T  1 

TS  776 16  0 

IS  454i5  0 

CS  57732  0 

CS  00011  1 

IS  72405  0 

15,2610 

C : 00045  0 

I:  45425  0 

Cs  53732  1 

Cj  00041  1 

Is  77616  0 

I ; 47375  0 

Cj  01423  0 

Cj  01407  0 

15,2620 

1 : 41456  C 

I:  46041  0 

c:  01437  0 

CS  00051  0 

CS  22021  1 

C:  00001  0 

IS  77641  1 

Cs  01431  0 

1572600 

- Cl  36023~U 

C:  32440  0 “ 

c:  23501  1 

- c:  00001  0 

I S 502  35  0 

CS  0 1423  0 

CS  01407  0 

IS  77752  1 

15, 2640 

c:  ^202 1 1 

CS  0 l4o7  0 

I 5 77641  1 

CS  01423  0 

CS  36023  0 

CS  32440  0 

CS  01505  0 

I ; <000  0 

15-  ,2  650 

C;  33050-1  ' 

I : 77644  1 - 

C:  32671  TT 

1 ; 5U375“0“ 

Cs  01415  0 

Cs  00001  0 

C;  *2Q2T  1 

C;  151401  0 

1 b 1 2660 

Ii  45441  1 

cj-  41754  1 

CS  32440  0 

CS  23503  0 

CS  01501 T 

- IT  77624  1 

C r 33414  0 

CS  36401  1 

15  f 26?0 

C'S  ~C0  05T  -0“ 

lr“77776  1 

05413  1 

CS  00401  1 

06000  1 

IS  77650  1 

CS"  32653  0 

1 : 66370  0 

15,2700 

CS  01452  0 

cs  ooo5i  0 

CS  01436  1 

IS  46773  0 

CS  0 l46 1 0 

C?  Ol46 7 0 

I S 77656  1 

c;  oner  1 

15,2710 

C:  01461  C 

I : 76433  1 

Cs  01467  0 

Cj  03475  1 

I;  77700  0 

Cs  32703  1 

I;  66160  0 

Cj  00006  1 

15,2720“ 

C ; 00036  1 

-n~65370  0 

CS  00C22  I 

CT  00051  0 

CS  00006  1 

IT  66374  1 

CS  UUUU6  1 

C:  00052  0 

15 ,2730 

c:  00002  c 

I 5 76720  0 

CT  00036  1 

c;  00001  0 

I!  62757  0 

CS  76324  0 

c;  00007  0 

is  77757  i 

15,2740 

CS  f 63 1 6 1 

C5  3003 r 0"  ' 

0.5  00013  0 

1 : 53357  0 

CS  76310  1 

IS  76455  1 

CS  00031  0 

1 ! ( I U-  0 1 

15,2750 

Cj  00036  1 

Cj  03445  1 

is  77700  0 

C;  32754  0 

I;  77704  1 

C!  32731  0 

Is  77775  1 

C j 01423  0 

1 5 ,2760 

C!  23445  0 

C!  01431  0 

C!  23453  1 

c:  01437  0 

CS  01461  0 

I S 77616  0 

53447  0 

53453  0 

15,2770 

- 53447  0 - 

53451  1 

53461  1 

53451  1 

53457  1 

53463  0 

53457  1 

16014  0 

47 3423A  YJL  SYSTEM  FOR  BLK2 S REVISION  12  OF  PMGRAM  AURORA  BY  DAP  GROUP 


NOV  10*  1966  PAGE  727 


OCTAL  LISTING  OF  PARAGRAPH  0 106*  WlTHi  PARITY  BIT  IN  BINARY  At  THE  RIGHT  OF  EACH  WORD;  »@»  DENOTES  UNUSED  FIXED  MeMOR Y, 


TILL  VALID  WORDS  AR^~B715TC~IWSTRUCTlON5rEXCEPT  THQS~lT^TORKiED^lTn  flNTERPRETl VE  OPERATOR  WORP57  OR  "C*1  (CONSTAWT^TT 


15 ,3000 

IS  77230" 

13 

Cs 

00014 

"I 

C; 

33040  0 

C; 

36041 

1 

c: 

32473 

0 

IS 

76521 

0 

Cs 

01445 

0 

C; 

23401 

D “ 

15,3010 

CS  33036 

1 

C • 

36041 

1 

c • 

32473  0 

rs 

76521 

0 

c; 

01445 

0 

CS 

23407 

0 

C: 

33U34 

0 

Cs 

36041 

1 

13,3020  “ 

CT  32473 

~0 

TT 

76521 

0 “ 

‘ Cs- 

01445  0 

C: 

37415 

u 

c: 

00014 

T 

c; 

67777 

1 

cs 

77777 

0 

Cs 

05520 

0 

15,3030 

CS  26075 

I 

C: 

20000 

0 

c: 

00000  1 

cs 

00000 

1 

c: 

00000 

1 

c: 

00000 

1 

Cs 

00000 

1 

c: 

20000 

0 

i'573o4o 

CT  OOOOC  i 

CT 

00000 

1 

c: 

00000 

1 

C! 

00000 

1 

cs  00000 

1 

c;  ooooo 

1 

CS  ooooo 

1 

Cs  05252 

l 

15,3050 

CT  25253  1 

i ; 

666U 1 

0 

C: 

00001 

0 

C; 

00004 

0 

I:  41424 

0 

Cs  33345 

0 

C;  00017 

1 

I:  65346 

0 

15,3060 

IS  41556  1 

I : 

45133 

1 

c: 

OOQOfc 

1 

cs 

333^5 

0 

CS  00021 

1 

IS  52054 

1 

cs  33070 

0 

CS  33100 

0 

15,3070 

TT'53145T 

Cs 

'00017 

1 

CT 

33075 

0 

i : 

77fo5T 

1 

CS  33100 

0 

IS  52145 

0 

c:  33042 

1 

C!  33105 

0 “ 

l5T3iOO 

IT 

45345  1 

CS  000 l7 

1 

c: 

0002 1 1 

Is 

7762! 

1 

cs  33172 

0 

Is  4i4o5  0 

CS  33i70  1 

IS  65346 

0 

" 15,3110 

TT 

4135  6~T 

I s ’72405 

0’ 

C: 

00001  0 

# 

06001 

0 

CS  00003  I 

I S 45405  IT 

Cs  77774  0 

I 5 45133 

1 

15,3120 

CS 

00012  1 

C!  33345 

0 

n 

73406  1 

I : 

71525 

0 

IS  41206 

u 

C!  00001  0 

I 5 41325  0 

c:  00005 

1 

15,3130 

cs 

00007  0 

I S 72415 

1 

IS 

77626  0 

Cs 

71736 

0 

IS  77605 

1 

CS  00005  1 

CS  06005  1 

I ! 44205 

0 

IP ,3 i^o 

C! 

00001  0 

IS  66606 

1 

cs 

00011  1 

I s 

‘*1424 

0 

CS  33345 

0 

IS  65346  0 

I ; 77756  0 

CS  00001 

0 

15,3150 

1 : 

65205  0 

C ; 0000  5 

1 

cs 

00007  0 

I : 

43205 

1 

C:  00003 

1 

I 5 77712  0 

Cj  06043  0 

I s 45405 

1 

1 5 9 3 1 60 

“ CT 

71732  1 

T!  77605 

I 

I*. 

62421  I 

Cs 

00045 

0 

CS  22045 

O' 

CS  000 41  1 

I:  77616  0 

C:  0^525 

I 

15,3170 

CS 

12  5 2T0 

CS  37777 

1 

cs 

37777  1 

I s 

77630 

1 

C!  00035 

I 

IS  70001  1 

C:  00015  0 

c;  00050 

1 

1 P , 32  00 

is 

41545  0 

CS  33042 

1 

Is 

45 133  1 

C; 

00007 

0 

CS  33345 

0 

IS  71406  0 

I;  73525  1 

Is  41476 

l 

15,3210 

I s 

45133  1 

C;  00010 

0 

Cj 

33345  0 

Is 

71406 

0 

Cj  06041 

1 

1 j 41556  1 

I:  72405  0 

Cj  00021 

1 

15 ,3220 

c: 

0 6 0 4 3 0 

Is  57405 

1 

C! 

00017  1 

I : 

77752 

1 

CS  36045 

0 

CS  32517  0 

I S 45515  1 

CS  77736 

0 

15',  3230 

r ; 

62120  (J 

CT~Otr050 

1 

C!" 

0 on  or  0 

I 

471 201 

CS  00050 

r 

CS  32517“  0 

IS  76435  1 

IS  77676 

0 

1 5 ,324o  C!  000^1  1 ' 1;  7T650  1 C!  00035  1 TS  45j35  1 CS  00^2 A 0 C;  33345  0 I S 4i401  1 C;  0000 1 0 

~ 15,3250  IT- 57556“0  C;  06043  0 I;  41546  0 I;  45135  I CT  004C5T  “Cs  3334“5~ 0 IT  7 1^0  6"  "0  1 5 72405  O' 

15,3260  c:  00001  0 c:  06045  0 IS  41356  1 IS  77752  1 CS  22041  1 Cl  00041  1 IS  77616  0 Is  57545  1 

15,3270 CS  00043' 0 I;  67401  0 CS  OOOCl  0 IS  44206  0 CS  ^3032  0 CTQ6005T  C!  33042  1 CST2043  0 

1 5 ,3300  C:  0004 i~T  I 1 4*056  i CS  20346  i Cs  06o4i  i CS  0004 1 1 I J 46i42  \ CS  00051  0 Cl  06023  o 

13,3310 CS  C0045  0 U 77742  0 C;  36021  1 C*  32440  0 I ; 43206  1 C;  33032  0 C;  22007  0 C;  00005  1 

1313320  IT^77624  1 CS~3343l“  2 CS  22426  1 C!  00001  0 irT162W  T CS  33431  1 CS  00424  0 1 : 77776  1 

— 15,3330 40413  0 77644  1 10000  0 13337  1 52424  1 52426  0 52424  1 06000  1 


15,3340 HS  77530  I cmcasm 30006  I 30025  0 I64T0“0  IOT4CTO  376653 13352  1 

~ 15,3350 13351  1 47642  1 54141  1 37665  0 56140  1 00006  1 77642  1 20141  1 

15,3360  16472  1 00004  0 30033  1 54140  0 30034  0 54143  0 30032  0 13376  1 

— 13,3370 00004  0 30037  0 5414033 30040”0  54143  0 30041  1 00003  1 54145  0 
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l b , 3400  3766b  0 54141  1 " 54144  I 54146  0 47657  0 16013  1 07235  1 16014  IT 

T573410 07440“! 37665  0 54141  1 16013  1 03440  1 52146  0 52141  1 03440  1 

15734^0“  54142  1 52144  1 52141  1 03440  1 54141  1 30145  1 54140  0 37657  1 

15*3430  U013  1 03440  1 52144  1 52141  1 03440  1 “ 54001  1 30143  1 16470  0 


15(3440 

52141  1 

20001  1 

10000  0 

67657  1 

13446  0 

4OOOO“0 

54l40  0 

00002  0 

15,3450 

50000"  1 

37640  1 

26140  0 

00002  0 

33467  1 

54114  1 

30140  1 

03470  1 

15,3460 

24114  0 

30143  1 

03470  1 

24114  0 

30145  1 

03470  1 

13404  0 

Cj  00400  0 

15,3470 

54 126  “IT 

50114  0 

100(30  "0 

6765?  T 

13500  0 

67657  1 

67657  1 

40000  "0 

15,3500 

60126  1 

10000  0 

67657  1 

13505  0 

40000  0 

54126  0 

13512  0 

50000  1 

15,3510 

37640“  1 

60126  1 

50ii4~cr 

54000  0 

00002  0 

50104  1 

30046  0 

U4U63  u 

15,3520 

C;  26317  0 

16014  0 

04554  1 

C:  00062  0 

37656  0 

00006  1 

02012  0 

00006  1 

15,3530 

13522  0 

30126  1 

54074  0 

33573  0 

56114  0 

54075  1 

30362  0 

60000  1 

15,3540  00006  1 73574-  0 03  47 0 1 24114  0 30035  1 00006  1 2000 7 1 04232  0 

15,3550  00006  1 77642  1 10000  0 13556  0 135560  135560  67657  1 540650 

“15,3560  30363“ 1 0OUO5“T 73574  0 00006  1 10065  0 05470 “1  30074  I 54126  0“ 

15,3570  30075  0 54114  1 13522  0 C;  00035  7 C{  22755  0 03575  0 03576  0 CkSM  50366  1 


15,3600 

8 

8 

§ 

@ 

8 

8 

8 

8 

15,3610 

8 

" "8  ‘ 

§ 

@ 

8 

8 

8 

8 

15,3620 

8 

8 

@ 

§ 

8 

8 

8 

8 

1 5 ,3630 

8 

e 

§ 

8 

8 

8 

8 

1 0 * 3640 

§ 

@ 

@ 

e 

8 

8 

8 

8 

T5 , 366  0 

8 

@ 

8 

8 

8 

8 

8 

15 ,3660 

8 

w 

‘ 8 

8 

8 

8 

8 

8 

15,3670 

§ 

8 

§ 

8 

8 

8 

8 

15,3700 

8 

@ 

e 

8 

8 

8 

8 

8 

15,3710 

8 

® 

® 

8 

8 

8 

8 

8 

15,3720 

8 

r 

' 8 “ 

8 

8 

8 

8 

15,3730 

8 

§ 

8 

8 

8 

8 

8 

15,3740 

§ 

§ 

@ 

8 

8 

8 

8 

8 

15,3750 

8 

@ 

8 

8 

8 

8 

8 

15,3760 

8 

@ 

e 

8 

8 

8 

8 

8 

15(3770  8 g g § @ g g W 
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lot  2000 

i6,2orcr 


52136  1 
62036  0 
SOZFTT 


50267  1 
00006  1 
32420  0 


32052  IT 
620I6-!- 
54137  0 


54132  0 
37657  1 
"36426  1 


50267  1 
54124  1 
70132  CT~ 


32152  0 
02034  1 
54002  1 


54133 

37656 

50000 


40267  0 
54124  1 
32406  1 


16,2160 

16, 2 1 ?0 


X5  "00343""0" 
CT  00200  0 


XI 

c: 


000001 
0024I  0 


X 

c 


16,2030 

54134  0 

00006  1 

50002  0 

32410  0 

52136  1 

52006  0 

C;  00055  1 

52110  0 

16,2040 

00006  1 

50000  1 

32331  1 

52110  0 

52006  0 

52110  0 

00006  1 

50000  1 

16,2050 

32253  1 

12U43  0 

c : 

OOOOO  1 

C: 

40000  0 

c:  40000  0 

c: 

40000  0 

C:  40000  0 

C:  40000  0 

16,2060 

C!  40000  0 

c:  00000  1 

C! 

77776  1 

Cl 

OOOOO  1 

c;  00000  1 

C! 

OOOOO  1 

c:  00000  1 

c:  77777  0 

16,2070 

cr' 00024  1 

C:  00024  1 

c: 

00032  0 

c:  00037  0 

cs  00400  0 

C: 

00336  1 

c;  00333  1 

c ; X0333'  1 

16 ,2 1.00 

C:  C 0 3 3 3 1 

c:  01361  1 

C! 

00333  1 

c: 

01363  0 

c:  02 l66  1 

c: 

02046  l 

c:  02i74  1 

c:  00333  1 

16,2110 

C!  01474  1 

CT  01477  I 

c: 

00035  1 

C S 

00423  1 

C:  00336  1 

C: 

00375  0 

c:  00360  1 

c:  03035  1 

16,2120 

C ! U U 0 0 0 1 

c:  00000  1 

C 5 

OOOOO  1 

cr 

OOOOO  1 

c:  01440  0 

c: 

01443  U 

c:  01446  0 

CS  02000  0 

16,2130 

c:  02002  1 

c:  02004  1 

cr 

02006  0 

c * 

02010  1 

c;  04012  0 

c: 

lb  1 

c:  04020  1 

CS  02023  1 

1 6 , 2 1 40 

c:  qhqzd  ^ 

c:  04030  0 

C: 

02q33  0 

C: 

0^035  0 

c:  04037  1 

c: 

04q42  0 

c:  04045  1 

C;  04q5q  0 

I 

00000  1 
04102  cr 


c:  ~ooooo 

c:  04140 


C;  00140 

C:  ooootrr 
c:  04102  0 


~xs  oocroo  T 

C?  04102  0 


C;  00241  0 

Cl  000 001 
c:  00200  0 


C;  00200 
C;  OOOO  CTX 
C:  00140  1 


16,2200 

c:  04000  0 

c:  ooi4o  1 

C:  O4i'40  0 

C:  o4ooo  0 

cr  00252  1 

CT  00252  1 

C:  00350  1 

C:  04000  0 

16,2210 

C:  X400tr~ o~ 

C;  O4OOO  0 

Cs  02102  0 

C:  02102  0 

C:  02102  0 

C:  X0140  1 

C:  02161  0 

C:  04162  0 

16,2220 

c:  xoooon. 

c:  00000  1 

c:  00000  1 

c:  00000  1 

c:  04144  1 

cr  04145  0 

c:  04145  0 

C:  00016  0 

1 b f 2 2 30 

XT  ~00023~0 

C!  00024  1 

CT  000 2y  0 

CT  00542  1 

c:  04114  1 

cr  0411s  0 

CS  40757  0 

c:  coooi  0 

l6  »224o 

c:  00000  1 

C:  06143  1 

CT  00l26  1 

C:  00126 

1 

C: 

2o4 iO  0 

XTX245 1 1 - 

C:  004i2  0 

C:  20450 

1 

16,2250 

C:  204T0- c 

C:  2245T  1 

C:  000O6  r 

C:  03240 

1 

c: : 

00253  0 

Cs  25124  1 

C:  00000  1 

Cj  xoooo 

1 

16,2260 

cr  10707X 

C:  O3435  0 

cr  00001  0 

c:  02133 

1 

cr 

00011  1 

c:  30322  l 

c:  00004  0 

C:  14021 

1 

1 6 « 22  /O 

Cr  00314  1 

CS  31463  1 

cr  23420  0 

c:  00000 

1 

cr 

00201  1 

C:  30327  1 

cs  01371  0 

C:  3475O 

1 

1 b 

0;  00001  0 

c;  03434  1 

cr  00000  1 

c:  20 1 62 

0 

c: 

00011  1 

C!  27066  1 

c:  00016  0 

C:  04245 

0 

1 6 1 2 3 1 0 

C;  00002  0 

C;  23224  1 

C:  00014  1 

C ; 06300 

1 

C: 

00012  1 

C;  36455  0 

C:  04256  1 

C;  07071 

0 

1 6 ,2320 

CT  T776TT3  - 

Cr  60044  1 

c;  00004  x> 

CT  34(755 

0 

c: 

00007  0 

CT  0414  7 1 

cr  00005  1 

Cj  21616 

0 

16,2330 

C:  O51 74  0 

C • 13261  ^ 

cr  27670  0 

C!  31357 

1 

c • 

OOOOO  1 

C!  OoOOO  1 

c:  00714  0 

CS  31463 

1 

l b f Z 3 4 0 

Li  00(00  0 

L*  >22323  1 

c:  03216  1 

c:  o64oo 

0 

cr 

07437  0 

cr  37  7 76  0 

c:  00120  1 

c:  00000 

1 

16,2350 

C:  00321  1 

C ; 26706  1 

C:  37441  1 

Cr  14247 

0 

c ; 

05300  1 

Cj  20305  0 

C;  34631  1 

Cj  23146 

0 

16, 2360 

Cr  04725  0 

Cr  35454  1 

CS  03225  1 

C:  07470 

0 

c : 

U22U7  U 

U U325b  0 

Cr  1422b  1 

C • 31 ?57 

u 

16,2370 

Cr  02476  0 

cr  05531  0 

CT-  027  2 7 1 

cs  1 b4, 1 5 u 

CT 

00007  0 

cr  13734  0 

c:  74502  0 

Cr  7 640  r 

0 
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16,2400 

CS  06436  0 

C!  35664  0 

X5  O437I  0 

c:  17420 

1 

CS 

05605  1 

CS 

03656 

1 

~c:  03461 

1 

C:  03465 X 

16,7410 

”'  C:  0343?  1 

c;  03443  1 

c:  03445  l 

C:  03451 

1 

C: 

03453  0 

cs 

03457 

1 

CS  00333 

1 

CS  00334  0 

16,2920 

“X:  7J343  7X 

C:  0344I  0 

C:  03442  0 

C:  03445 

1 

CS 

03447  0 

c; 

03450 

0 

c;  00352 

0 

CS  00355  1 

16,2930 

c:  ”00354  cr 

XS  00013  0 

c:  00013  0 

c:  00336 

1 

C! 

00337  0 

c: 

00340 

0 

C!  OO4O3 

0 

CS  OO4O5  0 

16,2440 

c:  00407  1 

c:  01471  1 

c:  0 l47 1 1 

C;  01471 

1 

CS 

01471  1 

cs 

02052 

1 

CS  02054 

1 

Cs  0 2 0 5 6 0 

16,2450 

C:  02060  0 ■ 

C:  02062  1 

C:  02064  1 

C;  02166 

1 

Cs 

02174  1 

Cs 

02200 

1 

C:  00333 

1 

C:  00335  1 

16,2460 

c:  02176  O' 

c:  00333  1 

c;  00335  1 

cs  00337 

0 

Cs 

00333  1 

C ! 

00335 

1 

cs  00337 

0 

cs  00000  1 

16,2470 

Ci  00000  1 

c:  00000  1 

ci  00000  1 

c:  ooooo 

1 

CS 

00000  1 

c • 

00204 

1 

C:  00204 

1 

CS  00204  1 

\o f 2500 

c:  00204  1 

C:  00142  0 

c:  o4 1 o4  0 

c:  o4io4 

0 

c: 

06204  1 

c: 

0020= 

0 

CS  06043 

0 

C;  16347  0 

16,2510  ” 

” C;  00104  1 

C;  00104  1 

cy  16347  0 

C:  12245 

1 

C: 

06345  0 

C; 

16247 

1 

C;  16347 

X 

C;  12245  1 

16,2520 

OOOOfc  1 

23546  1 

11614  1 

37647 

0 

02526  1 

02530 

0 

00006 

T 

05014  1 

16,2530 

37637  1 

54047  0 

1 1 6 1 6 0 

02537 

1 

05464  1 

0254  1 

0 

02543 

1 

32553  0 

X 6, 2 540 

00006  1 

05014  1 

01546  1 

32554  1 

00006  1 

05014  1 

01546  1 

32555  0 

16,2550 

00006  1 

05014  1 

01546  1 

C:  01100  1 

C:  01200  1 

CS  01300  0 

37665  0 

55563  1 

16,2560 

“ 55550  1 

03150  0 

03174  0 

03244  0 

03160  0 

“03174  0 

03150  0 

37665  0 

16,2570 

X3102  1 

33332  0 

03102  1 

03260  0 

33334  0 

03102  1 

33335  1 

03102  1 

16,2600 

33332  O 

03X04  1 ” 

03260  0 

33340  0 

54400  1 

54401  0 

33333  1 

03104  1 

1 6 1 2 6 1 0 

33341  1 

03102  1 

37665  0 

03102  1 

37656  0 

55672  1 

33342  1 

51672  0 

1 6 1 2620 

54400  1 

04063  0 

C:  26055  0 

33336  1 

03023  0 

33337  0 

03023  0 

03046  0 

16*2630 

04063  XT 

CS  '26716  0 

12766  0 

03244  0 

11672  1 

12615  0 

43332  1 

03102  1 

1 6, 2640 

0X260  0 

43335  0 “ 

54400  1 

544qi  0 

“43333  0 

03104  1 

03260  0 

03244  0 

16  *2650 

032T5”  1 

xjziyi  - 

43X46  1 

00006  1 

03012  1 

376X5  0 

~ 04536  0 

C ; ”02663  0 

1 6 ,2660 

CS  3400^5  0~ 

33355  1 

04416  0 

33355  1 

04422  1 

04602  1 

^6i62  U 

61563  0 

1 6 , 2670 

0000b  1 

62673  1 

12714  0 

51563  0 

32770  0 

54400  1 

54401  0 

54402  0 

16 ,2700 

37652  1 

00006  1 

U5012  1 

00004  0 

37656  0 

04536  0 

CS  02613  i 

C S 22UU5  1 

1 6 1 2 7 i 0 

X0003  1 

03174  0 

25563  0 

12652  0 

03244  0 

37665  0 

55563  1 

04063  0 

lb,  2720 

c*  20247  1 

04063  0 

CS  26712  1 

12766  0 

51563  0 

32777  1“ 

54424  1 

54423  0 

lo,  2750 

06000  1 

IS  77634  0 

CS  20363  0 

04063  0 

CS  26712  1 

12766  0 

03167  I 

25563  0 

~ T6 


16,2740 

4T655 

1 

1 b , 2760 
16,2760 

54353 

25563 

0 

0 

2T70' 


03013“ 0” 


47657  0 
47  6 5X^  1 
XI  02660  0 


00006  1 627ZX~1  3T6X5”0  55563  i 54354  l 54352  \ 

54351  1 51563  0 33004  0 ~~  54360  0 54361  1 03167  1 

67656  0 61563  0 00006  1 62753  l 04063  0 C:  30745  1 

XT”  01042  0 CS  00000  1 Cl  76735  7 Cl  75120  0 CS  747650  Ci  0 1 46 3 1 
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16,3000 

c;  01042  0 

Ci  OOOOO  1 

C!  76736 

1 

c: 

76315  1 

CS 

00000  1 

c: 

00001  0 

CJ  00002 

0 

C: 

00004  0 

16,3010 

c:  oooic  o 

c;  00020  o 

c;  00040 

0 

C; 

00100  0 

c: 

00200  0 

C: 

00237  1 

c:  00400 

0 

c; 

00545  0 

16,3020 

Cs““CD544“T  ' 

c:  77540  0 

C:  77232 

1 

00006  ”1 

23546  1 

55577  1 

10067 

r 

04404  0 

16,3030 

41577  1 

51672  0 

60032 

0 

00006  1 

63026  0 

51672  0 

30032 

0 

57575  1 

16,3040 

57576  1 

05470  1 

53573 

0 

53571  1 

00003  1 

01546  1 

00006 

1 

23546  1 

16,3050 

53576  0 

00006  1 

20001 

1 

55677  1 

06000  1 

I : 

45345  1 

C:  01573 

1 

C: 

01571  0 

16,3060 

1.*  67206  1 

c:  01700  1 

IS  56261 

1 

C: 

OO6I7  1 

1 : 

45005  0 

c: 

35361  0 

C:  33406 

0 

Cs 

00337  0 

““  16,3070 

1 : 77776“  1 

33353  1 

05332 

0 

05274  0 

05140  1 

12766  0 

13100 

r 

13071  0 

l6 ,3100 

255500 

01546  1 

54400  l 

544oi  0 

54402  0 

00006  1 

23546  1 

37663  0 

“ 16,3110 

“55551  “0“ 

04063  0 

C:  26055  0 

04063  73 

Cs  26716  0 

12766  0 

11551  0 

03110“  1 

16,3120 

03174  0 

01546  1 

00006  1 

23546  1 

04063  0 

CS  26227  1 

04063  0 

Cs  26716  0 

16,3130 

12766  0 

01546  1 

00006  i 

23546  1 

33344  1 

54142  1 

33547  1 

05332  0 

16,3140 

U5274  0 

05140  1 

12766  0 

13145  0 

13134  0 

05300  1 

25550  0 

01546  1 

16,3150 

00006  1 

23546  1 

04063  0 

C:  26000  0 

04063  0 

CS  26716  0 

12766  0 

01546  1 

1 b , 3 1 6U 

“43346  1 

00006  1 

03012  1 

37653  0 

00006  1 

05012  1 

00002  0 

O0UU6  i 

16,3170 

23545““! 

25550  0 

33352  0 

13200  1 

00006  1 

23545  1 

25550  0 

33351  0 

T* 


16,3200 

05332  0 

“33354  0 “ 

05332  0 

31550  0 

73343  1 

05332  0 

05274  0 

051 40“ 1 

16,3210 

12/66  U 

13213  0 

1 3 1 7 / 1 

05300  1 

01545  1 

00006  1 

23545  1 

04063  0 

16,3220 

Ci  26000  0 

37656  0 

55512  1 

37655  0 

55544  1 

00004  0 

47646  0 

70061  1 

1 0 » 36 JU 

67646  1 

34061  1 

00003  1 

04TT63““0“  C! 

30760  0 

05317  1 “ 

33351  0 

03332“  0 

Ito  f 

03160  0 

03132  1 

03150  0 

01545  1 

37665  0 

54400  1 

54401  0 

54402  0 

16 ,3250 

00006  1 

23546““! 

04063  0 

Cs  26055  0 

04063  0 

CS  2671b  0 

12766  0 

01546  1 

1 b f 3260 

0 0 OD  6 1 

23545  1 

03122  0 

30032  0 

55575  0 

30033  1 

55576  0 

30034  0 

16,3  27 0 

55577  1 

03150  0 

33345  0 

04536  0 Cs 

03300  1 

Cs  34005  0 

33356  1 

04416  0 

16,3300 

33356“71~ 

04^22 

“1  _ 

04602  1 

31575 

“T“ 

00006  1 

20032  1 

54333  0 

31576  1 

1 6 , 33  1 0 

00006  1 

20033 

0 

54334  1 

31577 

0 

00006  1 

20034  1 

54335  0 

33350  1 

1 6 9 3 3 20 

05532  0 

“05274 

0 

“05140““! 

12766 

0“ 

13326  1 

13317  0 

2 5550  “0  “ 

“01545  1 

16,3330 

C:  00133  0 

C: 

0 6 0 0 0 

1 

C:  10000  0 

Cs 

14477 

0 

C;  20000  0 

Cs  30000  1 

C;  01616  1 

C; 

34344  0 

16,3340 

c:  40QQU  0 

c; 

50000 

I 

C!  36162  1 

0:  UUU77 

JL 

CS  00030  1 

Cl"  00454  “1 

CS  00050  1 

c; 

00110  1 

16,3350 

16.3360 

C:  00630  1 
CT  0004^-Q — 

c : 
c : 

00^20 

05000 

0 

-1  — 

CS  00640  0 
03362-0 

^666 

03363 

1 

1— 

CS  03300  1 
C(f6M  66076  1 

c:  34666  0 

IS 

CS  35303  1 

— 

3370 


@ 


433423A  YUU  SYSTEM  FOR  BLKgi  REVISION)  12:  OF.  PROGRAM  AURORA,  BY  DAP.  GROUP 


NOV  10,  1966 


PAGE fiZ 


octal  listing  of  paragraph  fn  wiyHi  parity  bit  in  binary  at  the  right  of  each  word;  n@it  Denotes  unused  fixed  memory7 


ALL  YALTD^ORDS  AR'E  BASIC  'IN5TKUCtT0N'5~£XCePT  THQSe  MARK eP'  " P'TrNfEpPRETl  VE  OPERATOR  WORDS)  OR  "C"  TCONSfANTS)  , 


' 17,2000 

“37665  CT 

55576  0 

557A2  0 

33626  0 

55744  0 

06000  1 

1:77634.0 

3 0530  1 

17*2010 

n 77776  1 

37657  1 

55544  1 

54340  1 

54400  1 

54401  0 

54402  0 

04063  0 

T?,2020 

C;  Z60oo  o 

04063  0 

C!  26716  0 

r2243^r 

37665  0 

54337  1 

55537  0 

55574  1 

17,2030 

' 55575  0“ 

33660  1 

5^336  0 

04063  0 

c:  26055  0 

03567  0 

03576  0 

04063  0 

1 7 ,2040 

CS  26716  0 

022 A3  0 

03344  i 

03077  1 

02106  1 

03 l24  0 

04063  0 

C:  26716  0 

17,2050 

12243  1 

1 1742  0 

02072  0 

06000  1 

I;  71545  0 

C;  01511  0 

I;  72476  1 

C;  07573  1 

17,2060 

CS  01511  0 

I : 72556  1 

C • 0 

L S 37630  U 

c:  23721  1 

C!  37636  0 

c:  23727  1 

c:  37644  0 

17,2070  - 

Ci  01735  1 “ 

~TS  77776  1 

03612  1 

04063  0 

c:  4200a  1 

04614  0 

C:  000001 

37665  0 “ 

17,2100 

54336  0 

3 i640  1 

54337  1 

5i544  0 

5555i  0 

03576  0 

5i537 i 

02 1 10  0 

17,2110 

04063  0 

C ; 30  4 22  0 

33663  I 

55632  0 

37646  1 

5552?  1 

37657  I 

55673  0 

17,2120 

37665  0 

51541  0 

54037  1 

55626  0 

33675  0 

03205  0 

00004  0 

02771  1 

17,2130 

00003  1 

03065  1 

37664  1 

55673  0 

51537  1 

02 1 3o  1 

04063  0 

Cj  30422  0 

IT,  21 40 

rr676  0 

03227  0 

11627  I 

02147  1 

05464  1 

41632  0 

55632  0 

00006 

“l 

17,2150 

4162T  1 

21633  1 

06000  1 

I:  45345  1 

C:  01635  0 

C:  01631  1 

I:  56325  0 

Cj  01633 

0 

1 7 , 2 1 60 

TT  41325  0 

C:  37665  0 

IS  77624  1 

Cl  33406  0 

C:  00337  0 

I : 77776  1 

03576  0 

35656 

1 

17,2170 

55327  1 

04063  0 

C!  30422  0 

30032  0 

55530  1 

51544  0 

41550  1 

55576 

0 

T7,Z2q0 

03612  1 

37663  0 

~554oO  0 

554oi  1 

'35404  l 

55435  0 

35406  0 

55407  1 

1 ( 1 2. 2. 1 0 

55412  CT 

55413  1 

55414  0 

55415  1 

55420  1 

55421  0 

37637  1 

55574  1 

17*2220 

55575  C r 

04063  0 

C;  42000  1 

04614  0 

C:  00000  i 

3163b  0 

54337  1 

30032  U 

I f f Z 2. 30 

'33331  0 

‘ 37665  0 

54336'  O' 

0357  6 0 

37657  1 

61544  0 

54340  I 

37656  U 

17,2240 

55546  3' 

■ 040  63'  0 ' 

CS  22343  0 

04063  0 

CS  30745  1 

33666  1 

00006  1 

02030  0 

1T*2250~ 

lOuOO  0 

'32  440'  0 

33631'  CT" 

' 05332  0 

05401  1 

04053  "O' 

C : 26000  0 

174063  0 

17*2260 

0 ! 26716  lr 

12243  1 

37650  0 

55776  1 

33671  1 

U3236  0 

03344  1 

03077  1 

17,2270 

12245  1 

03124  0 

04063  0 

CS  26716  0 

12243  1 

37656  0 

55672  1 

51672  0 

1 r,2300 

40400  1 

51674  0 

60032  0 

5555 1 0 

ll55i  0 

02313  1 

023iO  1 

02313  1 

17*2310 

1 1 6 72  1 

02276  0 

02317  0 

73674  0 

10000  0 

02440  0 

02310  1 

37657  1 

17,2320 

53573  “0 

47657  0 

55570  0 ' 

"37565' 0 

54337  1 

54040  1 

54041  3 

37645  1 

17,2330 

55527  1 

3765?  1 

03205  0 

11676  0 

03227  0 

33675  0 

03205  0 

37656  0 

17,2340 

55541  1 

00004  0 

02771  1 

' 00003  1 

37665  0 

51541  0 

54037  1 

03065  i 

17,2350 

57673  1 

67655  0 

55673  0 

11541  1 

02340  1 

47655  1 

6 1 67^  1 

55673  0 

17,2360 

22007  0 

51673  1 

31626  1 

22000  1 

51673  1 

21572  1 

3 1 673  1 

71670  0 

17,2370 

10000  0 

0)2355  LT 

37661  1 

' 65  165  0 

55673  0 ' 

40000  0 ' 

55670  0 

1 1 6 7 ^ 0 
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17*2400 

0322  7 0 

03250  0 

33662  0 

05332  0 

05274  0 

05140  1 

02243  0 

02410  0 

17,2410 

” 27665  0 

54424  1 

33676  0 

54423  0 

U4U63  0 

C:  20247  1 

04063  0 

C; 

26712  1 

17 ,2420- 

””02243  O'” 

06000  1 

H 77634  ”0 

CT  20363  0 

04063  0 

C!  26712  1 

02440  0 

05274  0 

17,2430 

05140  1 

0^243  0 

02433  1 

37665  0 

54423  0 

43676  1 

54424  1 

02414  1 

17,2440 

56002  0 

55546  0 

05413  1 

C:  01411  1 

01546  1 

06000  1 

I : 77634  0 

CJ 

30530  1 

17*2450 

H 77776  1 

33651  0 

05332  0 

05140  1 

12243  1 

02451  0 

56333  1 

55614  1 

17,2460 

00006  1 

62466  1 

77671  1 

00006  1 

12470  1 

02451  0 

40000  0 

02462  0 

17*2470 

31614  0” 

67655  0 

50000  1 

02474  1 

02451  0 

025  0 3 0 

02502  1 

025  01  1 

17*2500  02474  1 02504  1 02510  1 02513  1 37655  0 55544  1 02515  I 02515  1 

T77Z5T0 37656  0 55544  1 02'5T5”I  37657  1 55544  I 55617  1 55621  I 05401  1 ” 

17,2520  37665  0 55536  1 55622  1 55563  1 55615  0 33653  1 55623  0 04063  0 

17*2530  C;  26000  0 04063  0 C;  26716  0 12243  1 03344  1 03077  1 12243  1 03124  0 


17,2540 

04063  0 

C:  31703  1 

55552  0 

37652  1 

02557  1 

37652  1 

00006  1 

05014  1 

17*2550 

00004  0 

47656  1 

70370  1 

67656  0 

54376  1 

37656  0 

55552  0 

55527  1 

17,2560 

57657  1 

03205  0 

11676  0” 

”03277 

04063  0 

C:  34520  1 

11552  0 

02542  0 

17.2570 

11615  0 

02652  1 

11621  1 

02612  0 

02 6 1 6 i 

37665  0 

54357  1 

04063  0 

17*2600 

c;  30422  0 

37657  1 

54357  1 

55622  1 

27563  1 

41563  1 

77664  0 

00006  1 

1 7 1 26 1 0 

12760  0 

02564  1 

37665  0 

55621  1 

51672  0 

54032  1 

00004  0 

37653  0 

1 r *1620 

55624  1 

51672  0 

10032  1 

02635  0 

02627  0 

02440  0 

02646  1 

11624  1 

1 1 * 2630 

02620  1 

0CUU3  1 

10067  I 

”04404  0 

02616  1 

43652  1 

51672  0 

54032  1 

17*2640  37657  1 55615  0 30047  1 55620  0 00003  1 02652  1 33652  0 51672  0 

17,2650  34032-1  0Z640  1 5T672'  0 10032  1 02660~0 0Z673T 02660”0 02675  1 

17*2660  37646  1 00006  1 02014  0 10000  0 02672  0 11622  1 02 670  1 02575  1 

-17T2670 55622— 1 02564  1 10067  1 04404  0 02652  1 00004  0 '37665  0 54357  1 


17*2700  56047  1 55621  1 

— 17*2710 61621  0 55622  1 

17,2720 73654  1 00006  1 

— 1772730 61622-0  O2733  l 


47656”! 

7O37O  1 

54370  1 

- 00003  1 

31620  1 

00006  1 

00006  1 

62732  0 

73654  1 

U0UU6  1 

12724  0 

41622  1 

12726  1 

02760  1 ' 

31622  0 

02732  0 

37637  1 

00006  1 

40000  0 

22007  0 

00006  1 

i 1623  0 

54336  0 

02740  0 

17,2740” 

17,2750 

17*2760 

1772770 


U63TT4' 

”0 — 

'O53T2  l 

” 31614  a' 

” 54340  1 

"33657  0 

05332  0 

”0  5274  0 

_ 05T4O” 

T 

02  J 52 

0 

02451  0 

04063  0 

Cj  26000  0 

04063  0 

C 5 16716  0 

12243  1 

12243 

i 

04063 

0 

C:  26000  0 

04063  0 

C:  26716  0 

12243  1 

37665  0 

54357  1 

02440 

0 

1 2~243- 

1 

-00006  1 

23546  1 

0~0003  1 

10067  1 

04404  -Q 

00004  0 

37665 

IT 
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octal  listing  of  paragraph 

* 116,  WITH! 

parity  bit  in  binary  At  the 

right  OF  each 

word;  »@»  Denotes  unused  fixed 

memory. 

ALL  VALID 

WORDS  ARe  BASIC 

INSTRUCTIONS  EXCEPT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR 

"C"  (CONSTANTS) 

• 

1 7 1 3 00  0 

51541  0 

56037  0 

55551  0 

11551  0 

03010  0 

03063  1 

03023  0 

03063  1 

17,3010 

37652  1 

55540  0 

51541  0 

10037  1 

03036  1 

03020  0 

03063  1 

03020  0 

17,302CT 

11540  0 

030H  r 

03063  1 

37652  I 

55540  0 

51541  0 

10037  1 

“ 03063  1 

17,3030 

03033  1 

“03036  1 

03033  1 

II54O  0 

03024  1 

03063  1 

05470  1 

52141  1 

17,3040 

37654  1 

55540  0 

51541  0 

IOO37  1 

03050  1 

0306 3 1 

03050  1 

03063  1 

1 7 ,3050 

" 11540  0 ~ 

"03041  1 

03055  1 

55551  0 

01546  1 

57551  1 

51541  0 

6003/  0 

17,3060 

51541  "0" 

5403?  1 

00002  0 

03055  1 

02773  0 

31551  1 

51673  1 

55626  0 

17,3070 

30140  1 _ 

51673  1 

55627  1 

30 1 4 1 0 

51673  1 

55630  1 

“ 00002  0 

“00006"  1 

17 ,3100 

23546  1 

06000  1 

IT  77634  0 

C!  32615 

1 

i:  77776  1 

04063  0 

C:  26055  0 

33123  1 

" 17,0110 

71363  1 

“10000  "0" 

03113"  1 

25546 

1 

03117  0 

37656  0 

55537  0 

D4063  0 

17,3120 

C!  26716  0 

12243  1 

01546  1 

C;  00401 

1 

00006  1 

23546  1 

04063  0 

G!  26000  0 

17,3130 

04063  "0  " 

c:  26716  0 

12243  1 

04063 

0 

C!  26227  1 

04063  0 

C!  26716  0 

12243  1 

17,3i40 

30032  0 

50104  1 

54024  0 

30033 

l 

50104  1 

54020  1 

30034  0 

50104  1 

1 j t 3 1 50 

54022  0 

37653  0 

60104  1 

5UiU4 

1 

54050  0 

06000  1 

I;  64375  1 

C;  01401  0 

17 ,3 1 60 

OS  01446  U 

I;  77772  0 

C!  36041  1 

XT  32]5 1 7 

0 

C!  23423  V 

c: 

01407  0 

l:  76521  0 

C!  01445  0 

l7,3l70 

C!  3&041  1 

C;  325170 

C!  23431  0 

C!  01423 

0 

15  76435  1 

c; 

01431  0 

c:  37437  U 

C:  32367  1 

l7  *3200 

1 ■ 77776  1 

33673  0 

04065  0 

c:  263 13 

0 

0 1 546  1 

00006  1 

23545  x 

55676  0 

17,3210 

11676  0 

032 1 5 1 

01545  1 

03215 

1 

03207  1 

00004  0 

31527  0 

04536  0 

17,3220 

C;  0 3 2 3 3 ' D “ 

C;  36005  1 

00003  1 

11676 

0 

01545  1 

01545  1 

13227  1 

55676  0 

17,3230 

33232  1 

O44I6  0 

c:  37210  0 

“ 32232 

T“ 

04422  1 

04602  1 

54001  1 

13241  1 

1 I * P24Q 

35776  l 

37665  0 

=0001  0 

54000 

0 

24001  0 

11776  1 

13240  0 

0000^  0 

17,3250 

U6UUU  i 

rr  77i7D“  1 

C:  00026" 0" 

C;  OO012 

1 

T:  77731  1 

C; 

00051  0 

C;  00004  0 

I : 77731  1 

If,  3260 

c : 00052  0 

G!  00004  0 

I : 44743  1 

C:  76120 

0 

c:  01657  1 

I 5 

41323  0 

G 5 76156  1 

C • 37665  0 

17,3270 

rr  77671  1 

I:  55504  0 

c:  37277  1 

I : 45046 

1 

C5  33406  0 

c: 

36337  0 

C!  37301  1 

I • b0006  1 

1 7 ti^OO 

C.:  372  6 ^ 0 

I ! 77776  ]_ 

053i7  1 

03576 

0 

06000  1 

IT 

4 1 5 35  1 

g:  oi63o  0 

IJ  41553  1 

17,3310 

C ; 01634  1 

I ; 55535  1 

C;  01640  1 

I ! 76456 

1 

I;  77606  1 

I • 

41535  1 

C;  01644  0 

I ; 41535  1 

1 7 , 332  0 

C • 0165'-'  0" 

r;  55333  1 

C!  01634  V 

1 T T6436 

1 

H 45325  1 

CT 

01655  0 

CT“  01641  0 

I:  77612  1 

I7 ,3330 

I ! " 77  6 5 2 0 

C:  23530  0 

I ! 51435  1 

1 : 56205 

0 

c;  37670  1 

G: 

01530  0 

I;  77624  1 

C!  33406  0 

173334Q 

L : 00337  0 

r{  77776  1 

03576  0 " 

12402- 

1 

00006  1 

23546  1 

06O00  1 

I!  54160  1 

1 7,3350 

C;  37704  u 

C ; 01536  0 

1 : 77773  1 

C;  00001 

0 

C;  01445  0 

I : 

54160  1 

G:  37716  0 

C;  01536  0 

1 7 ,3360 

I : 77773  1 

C;  00001  0 

C:  07453  1 

C:  33042 

1 

C • 06007  o 

C 5 

01507  1 

I;  57546  1 

G • 06011  1 

1 7 , 33  ( 0 

C:  01 507  IT 

I : 77756  0 

c:  00013  0 

i ; 77775  i 

c:  37717  1 

CT" 

36015  0 

C • 3 2677  0 

I:  77776  1 

f. 
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~!KrraU~LISTlNG  OF  PARAGRAPH-#  Ii'77'WtH.  PARITY  B1 T IN  BINARY  Aj  THE  RIGHT  OF  EACH  WORD?  "011  DENOTES  UNUSED  FIXED  MEMORY* 


A LL'V A U I D 'WUR D 5 AR"e"BA5IC  INSTRUCTIONS  EXCEPr  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C»~TCONWAN T 5 ) » 


17,3400  " 

3 3 6 6 s 1 

55776  1 

33703  0 " 

03236  0 

51544  0 

03406  0 

03524  1 

03422  0 

17,3410 

C343I"  1 

03436  0 

03450  0 

03460  0 

03470  1 

03500  1 

03513  0 

03542  1 

17,3420 

~0  35  5T  1 

03564  4) 

37642  0 

55400  0 

55410  1 

55420  1 

37665  0 

55541  1 

17*3430 

01546  1 

47642  1 

55400  0 

55412  0 

55416  1 

03426  1 

37642  0 

55414  0 

r7,3440 

40000  0 

55402  1 

55412  0 

37656  0 

55541  1 

37665  0 

55576  0 

01546  1 

17,3450 

47642  1 

55414  0 

40000  0 

55410  1 

55404  1 

37656  0 

55541  1 

01546  1 

17,3460 

37642  0 

55406  0 

40000  0 

55404  1 

55416  1 

37657  1 

55541  1 

03445  1 

17,3470 

37642  0 

55402  1 

55420  1 

40000  0 

55406  0 

37657  1 

55541  1 

ID  1546  1 

17,3500 

47642  1 

55402  1 

33677  1 

55406  0 

55414  0 

55420  l 

40000  0 

55412  0 

1.  ( *33lU 

' 37665  0 

55363  1 

03445  1 

37642  0 

55404  1 

33677  1 

55406  0 

5547  6 1 

17*3520 

55414  0 

40000  0 

55410  1 

03445  1 

33700  0 

55400  0 

55410  1 

55412  0 

1^*3530 

55414  0 

33677  1 

55406  0 

33702  1 

55402  1 

55420  1 

43701  0 

55404  1 

17*3540  55416  1 ~ 01546  1 37642  0 55416  1 33677  1 55400  0 55404  1 55406  0 

17*3550 — 40000  0 55412  0 03445  1 37642  0 55420'!  33677  1 55400  0 55406  0 

17*3560  55410  1 40000“0  55402  1 03445  1 04063  0 CT"43I07_0  01546  1 30336  "1 

17T3370  55527  1 30337  0 55536  1 30340  0 55544  1 00002  0 00006  I 23546  1 


17*3600  31544’ 0 54340  1 33657^0  05332  0 05274  0 06140  1 02234  0 01546  1 

17*3610 C3567  0 13600  0 00006  1 23546  1 06000  1 1:  77775  1 C:  01401  0 C;  23750  1 

17*3620  CS  01407  0 C:  23756  1 C!  01415  0 C:  01764  0 1!  77776  1 01546  1 C:  00144  0 X!  17127  41 — 

T7T3630  C"5  16705  I CS  073 ir  0 C7'36223"7. CT'04XZI  0 C!  31140  0 CT  75755“! Cr^73521  0 C:  72476  1 — 


17*3640 

C:  54 176 “XT 

c:  04771 

1 

C! 

03365 

1 

C: 

75644 

0 

cr 

7o66 1 

1 

Cr  47762  1 

CS  75077 

0" 

CS  70023  1 

1 7 * 3630 

C:  737  40  0" 

0:  U2J.3U  1 

C; 

04000 

TT  ~ 

C | 

'04143 

0“ 

cr 

34000" 

0 

C:  00264  T 

"C:  "07626 

1 

Cj  00666  1 

1 ( *3660 

cs  01130  1 

^ • U l ^ £ U 

1 

cr 

01640 

1 

Cs 

00021 

1 

c: 

06200 

0 

c:  00000  1 

CS  00400 

0 

CS  00024  1 

17*3670 

c;  35474  0 

C:  01506 

0 

C # 

02521 

0 

Cr 

02500 

0 

c: 

77760 

0 

c:  00070  0 

CS  10000 

0 

C!  13241  1 

1 ( t 3 f 00 

OS  10000  0 

13520 

1 

c: 

02260 

1 

c; 

01400 

1 

C; 

OOOOO 

1 

c:  00000  1 

c:  00000 

1 

Cs  OOOOO  1 

17*3710 

Cj  20000  0 

C:  00000 

1 

C S 

00000 

1 

C; 

OOOOO 

1 

Cs 

OOOOO 

1 

Cs  OOOOO  1 

Cs  20000 

0 

C;  OOOOO  1 

17  * 3720 

“Cl  OOOOCr  1 

C:  ooooxr 

1 

C ! 

OOOOO 

1 

CT" 

OOOOO" 

I 

XT 

"OOOOO 

"1 

g:  00000  1 

CS  57777 

~1 

C S 77777"  0 

1 / * 3 f 30 

03730  0 

03731 

1 

C<SM 

63000  1 

@ 

0 

" 0 

@ 

U 

0 

0 

© 

© 

- i - 

“ @ ~ 

0 

© 

17,3750 

© 

© 

© 

© 

© 

0 

0 

i f ♦ 5 ( OU 

© 

© 

© 

© 

© 

0 

0 

© 

1 f *3770 

§ 

0 

¥ 

0 

© 

0 " 

© "" 
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OCTAL  LISTING  oFTARMRAPH  # 120,  with,  parity  bit  IN  BINARY  At  THe  right  OF  EACH  WOKdT 


»@»  denotes  unused  fixed  memory. 


ALL  VALID 

words  are  basic  instructions  except  those 

MARKED  "I" 

(Interpretive 

OPERATOR  WORDS)  OR 

"C"  (CONSTANTS), 

20,2000 

C:  00051  0 C:  00062  0 c: 

01374  0 

Cj  01400 

1 

C:  01462 

0 

c:  01774  l 

C;  17777  0 C; 

25252 

0 

20,2010 

c:  37737  0 C:  37776  0 c: 

52400  1 

C;  76777 

1 

c:  7777O 

1 

c:  01371  0 

c:  00021  1 c; 

02101 

0 

207  2020 

70002m  55364  0 

25365  0 

05413 

1 

c:  01102 

0 

11361  0 

37665  0 

5 5 361 

0 

2O72O3O 

mmioim  mi364  1 

40000  0 

10000 

0 

12020 

0 

12020  0 

12020  0 

00002 

0 

20,2040 

4oaoo“o 

igooo  0 

12310“  0 

12020  0 

10000  0 

12020  0 

00002  0 

00006  1 

20,2050 

23371 m _ 

04457  0 

11361  0 

02060  0 

02051  1 

02060  0 

25366  0 

01371  0 

20,2060 

620140  “ 

mooo6  1 

62U65  0 

04102  0 

C:  03000  1 

25366  0 

67663  0 

50000  1 

20,2070 

~ 0207rm~ 

02102  0 

02767  0 

03043  0 

03137  r 

03307  0 

03516  0 

G3605m 

20,2100 

“01371  0 

020470?” 

02104  0 

02111  1 

12106  0 

02020  1 

46165  1 

00002  0 

20,2110 

“02020  1 

10000  0 

02020  1 

02020  I 

02116  0 

02020  1 

10000  0 

02123  0 

20,2120“ 

“02020  1 

02020  1 

02020  1 

55371  1 

1 1 37 1 1 

02131  0 

02020  1 

02020  1 

20,2130 

O2O2O  1 

10000  0 

02020  1 

02136  1 

O2O2O  1 

02020  1 

40000  0 

lOOOO  0 

20,2140  C2O2C  1 O2O2C  1 O2O2O  1 lOOOO  0 UjjOgU”  1 02l5^n  O2O2O  1 Q2O2O  1 

20,2150 41371  1 02041  0 37647  0 00006  1 62175  0 40000  0 00006  1 62161  0 

— 207ZT60 02070  I BI43T1  67657 "1  00006  1 62176  0 37665  0 00006  1 62171  1 

20,2170  0707cm  40000m  00006  1 62177  1 02020  1 ””  02020  1 “ ' 02020  1 32016  1 


2O777OO  65377  1 35235  0 51377  0 54000  0 10021  0 5T3TT“0  40000  0 60021  1 

— 20,2210 C0006  1 20021  0 00006  1 60021  1 30021  1 70021  0 O7O4O  I 00006  1 

— 20,2220 70021  0 00006  1 10021  C 30021  1 02040  1 320 15  1 55376  0 37667  1 

— 20,2230 55371  1 40000m 57371m 57372m 00006  1 51376  1 3000X70  00006m 


20,2240 

52015  1 

40001  1 

02041  0 

30007m 

02040  1 

00006  1 

51376  1 

30001  0 

20,2250 

CT2040T1 

30001  0 

020400 

37641  0 

55571 “1 

37656  0 

55372  1 

37657  X 

20  f 2 2 60 

- 01371  0 

02041  0 

01371  0 

02033  0 

37664  1 

00006  1 

12311  1 

40000  0 

20,2270 

OO  006  1 

12312  1 

33431  1 

67657  1 

00006  1 

12313  0 

40000  0 

00006  1 

2U,230U 

12314  1 

37665  0 

00006  1 

12305  1 

02020  1 

40000  0 

00006  1 

12315  U 

20,2310 

-02020  1 

02020  1 

02020  1 

02020  1 

02020  1 

33431  1 

67656  0 

55371  1 

20,2320 

02020  1 

40000  0 

55372  T“ 

4345X00 

54001  1 

40000  0 

53372  1 

02040  1 

20,2330 

30001  O 

02041  0 

00OU6  1 

27371  1 

00006  1 

27372  1 

33431  1 

61372  0 

20,2340 

C2040  1 

43431  0 

613710  - 

02041  0 

37657  1 

“ 00006  1 

26000  0 

00006  1 

20 ,2350 

26000  0 

02033  0 

00006  1 

26000  0 

02032  1 

37667  1 

54001  1 

37656  0 

20,2360 

20001  1 

67671  0 

02040  1 

37657  1 

60001  0 

02041  0 

00006  1 

33432  1 

2D, 23 7O 

53374  O. 

37670  1 

54001  1 

36165  0 

2X374  1 

22000  1 

02032  1 

“30001  0 
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OCTAL  LISTING 

Or  PARAGRAPH 

# 121  * W I Hi  parity  bit  in 

binary  at  the 

right  of  each 

word;  »@»  Denotes 

UNU5ED  FIXED 

memory. 

ALL  VALID  WORDS  A*e  BASIC 

INSTRUCTIONS  EXCEPT  those 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  »C 

" (CONSTANTS). 

“ 20,2400 

02O4D  1 

00006  1 

31374  0 

22000  1 

02041  0 

30001  0 

02040  1 

25374  0 

20,2410 

61374  0 “ 

02033  0 

24000  1 

02040  1 

00006  1 

43432  0 

53372  1 

36165  0 

“ 20,2420 

“ 54001  1 

40000  0 

21372  1 

02014!“  0 

00006  1 

41372  1 

56001  0 

67657  1 

20,2430 

" 02041  0 

3UUU1  U 

02040  1 

37657  1 

00006  1 

24000  1 

55375  0 

40000  0 

20,2440 

54002  1 

40000  0 

00006  1 

73431  0 

60001  0 

00006  1 

70002  1 

26001  1 

20,2450 

6^011  0 

02041  0 

30001  0 

00006  1 

71375  0 

55376  0 

00006  I 

25376  1 

20 ,2460 

60001  0 

OuuOb  1 

71376  0 

02040  1 

40001  1 

62011  0 

02033  0 

37657  1 

20,2470 

~2?376  “0 

02041  0 

31376  1 

0204!  0“ 

37642  (T 

55371  1 

60000  1 

6 7657  1 

“ 2072500  54001  1 02020  1 40000“0““  55372  I 376660  23371  0 00006" 1 11371  1 

2077510  40000  0 22000  1 02032  1 00006  1 n.372  ! 55374“!  40QW“0  5537 3“0 — 

2072520  67642  0 02033  0 30001  0 020330  33431  1 54001  1 320060 00006  1 

20,2530  11373  0 5600r~0  40000  0 00006  1 11374  1 62011  0 02041  0 33431  1 


20,2540 

“56001  0 

67642  0 

02040  1 

42006  1 

00006  1 

11374  1 

60001  0 

62011 

0 

20,2550 

02040  1 

56001  0 

02041  0 

42011  1 

54002  1 

40000  0 

00006  1 

10002 

1 

20,2560 

00006  ! 

22001  0 

60002  0 

““0204!  0 

30001  0 

63431  1 

02040  1 

00006 

r 

20,2570 

^337 1 u 

30002  0 

02040  1 

41371  1 

67656  0 

02041  0 

37665  0 

55371 

1 

20*2600 

4DU0Tnm 

55372  1 

00006  1 

20000  0 

02 032  1 

00006  1 

21372  1 

020 40  1 

20,2 6 1 0 

0 0 0 U 6 i 

33432  1 

00006  1 

20001  1 

54OOO  0 

02617  0 

02020  1 

02041  0 

20  f 2620 

37663  0 

54001  1 

72014  1 

02032  1 

37657  1 

70001  1 

02040  1 

37657  1 

20  $2630 

“54001  1 

55371  1 

50000  I 

~&oooo  I 

00006  1 

61371  cr 

02040  1 

00006  1 

20,2640 

50001  0 

60000  1 

02041  0 

37656  0 

54001  1 

37657  1 

00006  1 

40001  1 

20 ,2650 

0204m 

52002  r “ 

55373  CT 

60002  or 

02040  1 

30001  0“ 

02032  1 

37667  1 

20  f 2 6 60 

54002  1 

40000  0 

00006  1 

30002  0 

60002  0 

61373  1 

02040  1 

30001  0 

20 1 26  JO 

“02041  0 

37670  1 

5^002  1 

33432  1 

26002  1 

40002  1 

54000  0 

02020  1 

20,2700 

00U06  1 

30002  0 

54000  0 

02705  1 

02020  1 

02041  0 

37642  0 

54002  1 

20,^710 

26002  1 

26002  1 

54000  0 

02020  1 

26002  1 

02040  1 

00004  0 

37665  0 

“2012720 

54015  1 

0UGO3“  1 

60027  1 

5537T“1 

41371  1 

60027  1 

00006  1 

12724  0 

20,2730 

“ 00004  0 

30015  0 

00006  1 

12735  0 

02716  0 

37657  1 

04536  0 

Cj 

02762  0 

$0 *2740 

Cl 40003  0 

33431  1 

62010“  1 

00003  1 

“ “ 40000  0 

10000  0 

02752  U 

c: 

02756  1 

20  1 2750 

67656  0 

02744  1 

00004  0 

55375  0 

02020  1 

00003  1 

40015  1 

00006  1 

20 , 2760 

1202c  0 

02766  1 

40015  1 

62747  I 

02041  0 

04602  1 

02047  0 

37667  1 

20,2770  - 

00006  1 

01002  1 

22002  0 

02  04!  Cr  - 

00006  1 

00001  0 

02041  0 

30001  Cr 
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20,3000 

“ C2O4I  0 

46165  1 

54001  1 

32011  0 

00006  1 

04001  1 

02041  0 

32011  0 

20,3010 

00006  1 

O5OOI  0 

02041  0 

30001  0 

O2O4I  0 

42011  1 

54001  1 

32006  0 

20,3020 

00006  T 

— 02001  1 

0204CTT^ 

32006  0 

00006  1 

03001  0 

02040  1 

47664  0 

20,3030 

56001 "0 

02040  1 

3 6 1 6 2 1 

00006  1 

06001  0 

67656  0 

02041  0 

30001  0 

2*0 ,3040 

67655  C 

0*2041' 0 

02047  0 

00006  1 

33432  1 

53377  1 

31376  1 

56002  0 

20,3050 

OOOOfe  i 

40002  1 

10000  0 

03062  0 

03067  0 

55376  0 

61377  0 

02041  0 

20 , 3060 

25377  0 

03046  0 

60u0jl  0 

02041  0 

04457  0 

41376  0 

03047  1 

31377  0 

20,3070 

61376  1 

02333  0 

33432  1 

55375  cr 

40000  0 

00004  0 

63431  i 

67657  1 

20,3100 

56002  0 

10002  1 

03117  0 

02020  1 

55373  0 

02020  1 

31373  1 

61376  1 

20,3110 

02041DT 

“007003  1 

04457  0 

31374  0 

00006  1 

27375  0 

03075  0 

55374  1 

20,3120 

O3 1 30  0 

31374  0 

6 i 875  1 

02041  0 

31375  1 

63432  1 

67667  I 

03100  0 

20  9 3 1 30 

31375  1 

02033  0 

41374  1 

62u  j.1  0 

02041  0 

00003  1 

02047  0 

37657  1 

20,3140 

553T4  1 

37665  0 

54003  0 

32004  1 

55377  1 

36^26  1 

55373  0 

03167  1 

20 ,3150 

32003  0 ~ 

55377  1 

36426  1 

55373  0 

03167  1 

32003  0 

55377  1 

32005  0 

20,3160 

55373^0 

0316  1 1 

55374  T 

32001  1 

55377  1 

32002  1 

55373  0 

00004  0 

20,3170 

31377  Cr 

54001  1 

24001  0 

50000  1 

52001  1 

53376  0 

51377  0 

40001  1 

20,3200 

51377  0 

60000  I 

02041  O 

DO 00  6 1 “ 

51377  0 

40001  1 

51377  0 

52001  1 

20,3210 

51377  0 

40000  0 

51377  0 

60001  0 

02041  0 

53376  0 

51377  0 

52001  1 

20,3220 

00003  1 

30003  1 

55372  1 

04457  0 

31372  0 

54003  0 

25377  0 

41377  1 

~20732'3O -■ 

61372“  I 

00006  1 

13234  0 

0316  7 1 

“D1374  1 

03162  1 

25374  0 

30003  1 

20,324U 

67647  0 

54003  0 

62013  1 

00006  1 

13155  1 

10003  0 

03150  0 

32003  0 

2073250 

54003“0 

“ 32000“ 0 

55172  1 “ 

67654  1 

““50000  1 

40000  0 

11574  1 

D3252  1 

20 9 3 2 60 

32007  1 

54020  1 

54022  0 

54021  0 

54023  1 

60020  0 

60022  1 

60021  1 

20 ,3270 

60023  0 

62012  0 

02041  0 

60020  0 

60022  1 

60021  1 

60023  0 

67657  1 

20,3300 

02041  0 

25367  T 

0204?  0 

03307  0 

05304  0 

20  f 33 10 

55376  0 

37665  0 

55374  1 

37657  1 

55377  1 

,“33207 

37657  1 

55375  0 

31373  1 

61374  0 

04 ire  0 

20,3330 

40000*  0 

55377  1 

00006  1 

1 3336  0 

37644  0 

05312  1 
37665  0 
03351  0 
03337  0 


03311  1 
55371  1 


34506  0 


37666  0 
55373  0 

55373  0 


20733^0 3?66T“0 55371  1 37657  1 

20,3350 03362  0 55372  1 61371  0 

20,3360 61373  1 00002  0 10000  0 

■20,3370 30001  0 03351  ~0 03434  1 


5 53'75“  0 
55371  1 


03373  0 


00006  I 51373  1 30D0TTD  03351~0~ 

37665  0 61371  0 553?1  1 41372  1 

03373  0 03373  0 11375  0 03374  1 

55375  0 1137  6 0 1 0067  1 0440  4 0 
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20,3400 

“03402"  1 

""04457  0 

25373  1 

11377  1 

03322  1 

03322  1 

03344  “I 

03344  1 

20,3410" 

31374  0 

67645  1 

55374  1 

03416  1 

37641  0 

55374  1 

63437  1 

00006  1 

20,3470 

"T3427  1 

11377  1 

03314  1 

37657  1 

03330  1 

37651  I 

03314  1 

11376  0 

20,3430 

0331F  1 

C:  37777  1 

C;  40000  0 

03515  0 

11376  0 

03471  0 

C;  00501  0 

C;  33777  0 

20,3440" 

T1371  1 

03445  1 

C:  41471  0 

03445  1 

37667  1 

55371  1 

31374  0 

05207  1 

20 ,3450 

40000  0 

61371  0 

02041  0 

03410  1 

37657  1 

55376  0 

37665  0 

55361  0 

20 ,3460 

32017  0 

55360  1 

00004  0 

37645  1 

04363  0 

c;  03304  0 

c:  40002  1 

00003  1 

20,3470 

04440  0 

31374  0 

05207  T 

57372  0 

55373  0 

32015  1 

54142  1 

33436  0 

2 0 * 3 5 00 

G5IO7  1 

03513  0 

05274  0 

05140  1 

03507  0 

03410  1 

03475  1 

05401  1 

20,3510 

3201?-1D“ 

55371  1 

04440  0 

33442  0 

05327  1 

02047  0 

33431  1 

55372  1 

2 0 1 3 5 20 

33431  1 

00006  1 

71372  1 

60001  0 

63432  1 

02033  0 

04457  0 

11372  1 

20 ,3560 

55372  1 

11372  1 

03520  0 

33431  1 

55372  1 

37667  1 

00006  1 

71372  1 

20,3540 

02033" 0 

30001  0 

61372  0 

02033  0 

04457  0 

11372  1 

55372  1 

IT372~l 

20  9 3 1> $Q 

03535  1 

33431  1 

55371  1 

31371  0 

00006  1 

73431  0 

60001  0 

63432  1 

20 1 3 560 

02033  0 

04457  0 

11371  1 

55371  1 

11371  r 

03553  1 

33431  T 

55371  1 

20 ,3570 

31371  0 

00006  1 

77667  0 

02033  0 

30001  0 

61371  0 

02033  0 

04457  0 

2 U 9 3 600 

11371  1 

55371  1 

11371  1 

03570  0 

02047  0 

47644  1 

55374  1 

25374  0 

20 f 36 1 0 

37642  0 

55371  1 

40000  0 

55372  1 

43431  0 

54001  1 

32006  0 

00006  1 

20,3620 

11371  1 

5337 1 1 

33432  1 

56001  0 

02040  1 

32006  0 

00006  1 

11372  1 

20  ,"3630 

61377  0 

02033  0 

33431  I" 

56001  0“ 

02040  1 

"42006  7 

00006  1 

I 1371  1 

20,3640 

55376  0 

61377  0 

02033  0 

33431  l 

56001  0 

02041  0 

42006  1 

00006  1 

20  9 3650 

1 1372  "X  "" 

61376  1 

02033  0 

33431  1 

56001  0 

02041  0 

" 31376  1 

67670  1 

20  9 3660 

63431  1 

02040  1 

32006  0 

00006  1 

11371  1 

63432  1 

02033  0 

47642  1 

20  9 3670 

6000 1 0 

02041  0 

37665  0 

54001  1 

32011  0 

55371  1 

00006  1 

11371  1 

20,3700  40000  0 62011  0 0204l~0 30001  0 

20,3710 54001  1 40000  0 55372  1 00006  1 

"2073720 40000  0 00006  1 IT37^""I 55376  0 

20,3730  02032  1 “ 00006  1 11371  1 61377  0 


63432  1 02041  0 37665  0 55371  1 

11371  1 55377  1 30001  0 02032  1 

61377  0 02033 “0  40000  0 56001  0 — 

02033-0“  300010  - 02033  0 00006  1 


20,3740" 

1 1372  "I 

61376  1 02033  0 

3000T"  0 

02033  0 

31376  1 

63011  0 " 

"02  0 4 1 0 

20  f3750 

0445?  0 

31374  0 00006  1 

6360  l 0 

25370  1 

02101  0 

03756  0 

03757  1 

20.3760  Ck5M 

76511  0 

@ ¥ 

@ 

@ 

e 

e 

20  V3770 

¥ ¥ 

¥ 

¥ 

¥ 

¥ 

§ 
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21,2000 
21,2010 
21,202  a' 

21  ,2030 


X46T4  CT 

C:  00101  1 

00004  0 

30025  0 " 

55745  1 

37665  0 

54037  1 

54040  1 

54U41  U 

3440a  0 

54406  1 

54410  0 

00003  1 

02753  1 

33360  1 

55776  1 

'3336I- 0 

0^063  0 

C:  37236  1 

OCOOO“TT  I : 

77775  1 

Cj  03353  1 

C:  01601  1 

I:  77776  1 

11742  0 

02033  0 

02667  1 

3152?  0 

55746  1 

04667  1 

CS  00005  1 

04063  0 

2 X 1 2040 

C:  16345  1 

02740  0 

00004  0^ 

30025  0 

55745  1 

31664  1 

55716  1 

04614  0 

21 9 2 0 5 0 

c;  00201  1 

02653  0 

00004  0 

3171 6 0 

55664  0 

10000  0 

30000  i 

55665  1 

21 9 2 0 &0 

4000C  0 

55664  0 

30037  0 

54403  1 

30040  0 

54405  1 

30041  1 

54407  0 

21 ,2070 

37665  0 

54037  1 

54040  1 

54041  0 

04614  0 

C:  00701  I 

00003  I 

37642  0 

2 1 ,2 100 

04374  0 

c;  02 104  0 

C!  42005  1 

04602  1 

03047  1 

046],4  0 

c:  00601  0 

11742  0 

2r,2110 

02 1 12  1 

“02116  0 

04063  0 

C;  16000  0 

02116  0 

"03070  0 

06000  1 

I;  ?7745  T 

21 ,2120 

X ! 0335 1 0 

C ; 0005 1 0 

I:  53135  0 

c:  01743  0 

c: 

42127  0 

I!  77650  1 

C5  42144  0 

I 5 50135  0 

21,2130 

C ! 01666  0 

C!  42144  0 

15  72174  0 

c:  00014  1 

c: 

01600  0 

I 5 62143  0 

C5  03343  0 

CJ  77775  1 

2 1 , 2 1 40 

c:  05701  1 

I J 06^04  1 

L!  42 i35  0 

c:  01600  0 

IS 

6^375  1 

c:  00404  1 

c:  0 l75o  1 

15  77772  0 

21,2150 

I ; 57545  I 

C:  00144  0 

C:  07657  1 

C:  00146  1 

C: 

01663  0 

I:  76001  1 

C:  00001  0 

C:  00010  0 

21  ,21 60 

!•  53135  0 

c:  01743  0 

CT  42165"  0 

1:  77650  1 

XT 

42466  0 

15  41343  0 

C5  01667  1 

Cs  03364  0 

21,2170 

I # 4266 1 0 

C ! 0 1 2 1 2 1 

C!  OI7I5  0 

15  64623  1 

cs 

01635  0 

C!  01655  0 

15  41223  1 

CT  01627  0 

2i, 2200 

C 5 X3  J55  i 

IT 

77732 

1 

I 5 454 1 5 

0 

CY~74052  0 

CS  I77i7  0 

CJ  01655  0 

XT 

11627  1 

C!  03347  1 

21,2210 

C;  03635  1 

I : 

77100 

0 

C:  42165 

0 

C;  00004  0 

I;  56743  1 

C;  76170  0 

C: 

76104  0 

C;  05607  0 

21,2220 

I 5 77104  1 

C! 

42214 

Or 

CS  00010 

X 

I 5 66140  1 

C!  01601  1 

c;  01601  1 

1 5 

56743  1 

0 1 604  1 

21 ,2230' 

"CS  75062  I 

I : 

77  b 13 

CT' 

C5  76142 

1 

XT  2T635~  1 

CT  76160  1 

IT  77613  0 

cs 

76074  0 

C 5 05617  1 

- 2i,224o 

I 5 42673  0 

~ C 5 76062  1 

C! 

76J.32-0- 

CS  21645 

13 

C!  03371  1 

IT 

76403  1 

CS  76062  1 

IT  776i 3 0 

2 1 , 2 2 5U 

C;  76122  1 

C:  05655  1 

I S 

CT  42223 

T 

C:  00010  0 

Is 

64743  0 

C;  01657  1 

C;  01655  0 

21,2260 

XT'  55523  0 

CS  01665  0 

IS 

76521  0 

c:  01721 

1 

IS  77745  1 

cs 

00141  0 

C : i 1 66b  1 

CS  00144  0 

21,2270 

CT"  11655  1 

CS  '00146  1 

CS 

03657  0 

IS  77700 

0 

CS  42255  0 

I S 

76174  1 

C S 00006  i 

CS  00002  0 

21,2300  “ 

I!  57343  r 

CS  01637  1 

CS  03374  1 

“ IT  77722  0 

I r 73406  1 

IS 

56172  0 

x: 

00046  0 

CS  l202i  l 

21 ,2310 

IS  77746  1 

C:  04027  0 

I J 71304  0 

Cj  42300  1 

C:  00017  1 

I : 

43312  0 

C: 

01625  1 

C:  07625  1 

2 r,  2320 

CS  TOC  1 5"C 

IS  56405  0 

CS  "0a025  X' 

I X 77~615~X 

CS  01631  1 

cs 

U7631  1 

c; 

00021  1 

1;  57275  0 

2 1 ,2330 

CS  00023  0 

cs  00017  1 

IS  77712  0 

IS  57325  1 

c;  00013  0 

CS 

00015  0 

1 s 

77615  0 

IS  77675  0 

2i  ,2340 

CS  01573  1 

IS  37325  ! 

CS  00023  0 

CS  00025  0 

IT  66405  0 

CT 

01571  0 

1; 

77621  l 

c;  01  oil  1 

21 ,2350 

I;  45425  0 

C;  70156  1 

C:  00021  1 

I:  41275  1 

C:  00025  0 

C j 

01573  1 

I : 

77732  1 

I ; 57325  1 

21 ,2360 

cs  01571  0 

cs  00017  1 

IS  77615  0 

CS  01641  0 

1;  77625  0 

I s 

57325  1 

c; 

01573  1 

C:  01573  1 

2112370 

IT  45  4 15  0 

CS '70062  I 

CS  00023  0 

t;  764X51 

" CT  00013'  0 

1 5 

57325  1 

C; 

U00I5  U 

CJ~  000^1  1 
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21,2400 

1:  76406  I 

c:  00017  1 

1 ; 

77621 

1 

I!  77675 

0 

c:  01573 

1 

IS  57325  1 

CS  00015  0 

C!  00025  0 

21 ,2410 

I!  76405  1 

c:  01571  0 

I • 

77621 

I 

c:  01577 

0 

IS  77615 

0 

IS  77606  1 

I!  74475  1 

c:  00015  0 

21,2420 

Tj  '57325  1 

C;  01621  0 

CS  00023 

0 

Is  77615 

cr 

IS  77671 

I 

C:  00025  0 

IS  57206  1 

C;  03376  0 

21,2430 

XT  43261  0 

c:  0 1 6i 6 l 

c • 

01635 

0 

CS  07635 

0 

IS  43275 

0 

c:  00017  1 

CS  01715  0 

I : 54275  0 

2 1 ,2440 

C:  03376  0 

C:  O1616  i 

I; 

77615 

0 

CS  01633 

0 

CS  07633 

0 

c:  00023  0 

15  76405  1 

IS  57325  1 

2 1 ,2450 

C;  00015  0 

C:  01621  0 

I : 

77621 

1 

Is  54275 

0 

Cs  03376 

0 

C;  01616  1 

I S 77615  0 

Cs  01627  0 

21,2460 

c:  01627  0 

r:  77404  1 

CS 

42716 

1 

11527 

1 

02666 

0 

02631  1 

IS  44743  1 

CS  01667  1 

21,2470 

CS  01655  0 

I : 42675  0 

C: 

03400X 

CS  01655 

0 

CS  03655 

1 

IS  77613  0 

CS  01657  1 

C;  03657  0 

c 1 *2^00 

i:  42675  0 

c:  03402  1 

c: 

01655 

0 

IS  41475 

l 

CS  03400 

0 

IS  67300  0 

CS  42466  0 

CS  01747  1 

21 ,2510 

I ! 11254  1 

C:  42522  1 

Cs 

01627 

0 

I!  45425  0 

CS  70150 

1 

IS  77621  1 

Cs  CTI631  1 

Cj  01631  1 

21,2520 

I : 77650  1 

C:  42544  1 

i r 

43345 

1 

CS  01625 

1 

CS  01645 

1 

CS  07625  1 

CS  01645  1 

Is  44275  1 

21 ,2530 

C!  03404  1 

C:  01631  1 

c: 

07631 

1 

C S 01651 

1 

IS  44275 

1 

CS  03404  1 

CS  01627  0 

I s 41325  0 

21 ,2540 

CS  1)1653  0 

c:  03406  0 

r: 

4542i 

1 

CS  76i5o 

1 

IS  64375 

1 

CS  01625  1 

CS  Oi?5Q  1 

IS  53372  1 

21,2550 

C:  01617  0 

C ; 0 1 6 1 j u 

I : 

77776 

1 

11527 

1 

02666 

0 

10357  l 

12742  0 

04614  0 

21 ,2560 

C!  00401  1 

06000  1 

1 : 

53375 

0 

C;  OI6I7 

0 

C!  01772 

I 

CS  01772  1 

IS  77776  1 

04063  0 

21,2570 

c:  30422  0 

00004  0 

31717 

1 

00006 

1 

62727 

1 

0310?  1 

04614  0 

CS  01001  1 

Zl  ,2600 

37665  0 

357l7  0 

00003 

1 

06000 

1 

IS  77770 

1 

C:  00022  1 

IS  77731  1 

Cs  00051  0 

21  ,2610 

C ; 00006  1 

I;  50373  0 

C; 

01423 

0 

Cs  01764 

0 

IS  50313 

0 

C;  01423  0 

Cs  01756  1 

I ; 50313  0 

21 1 2 62  0 

C:  01423  0 

C • 0 1 7^0  1 

r; 

53466 

0 

C!  03445 

1 

is  47100 

0 

C!  42611  1 

CS  32367  1 

I!  77776  1 

21 1 2 630 

02645  1 

~ Ob 0T70  1 

IT 

65345 

"0 

CS'  01627 

“0“ 

CS  01633 

0“  - 

IS  55525  0 

CS  01635  0 

IS  74276  1 

21 ,^6*0 

IS  7452 1 1 

c: 

01750 

1 

c:  oisoi 

1 

IS  77776 

1 

046 i4  0 

CS  00001  0 

iiibt  0 

2 I , 2650 

04063X0 

C • 2 63 1 7 0 

04063 

0 

C;  26716 

0 

02721 

1 

11574  1 

02664  1 

02753  1 

2 1 ,2660 

11742  0 

02725  0 

04063 

0 

CS  36075 

04063 

0 

CS  36223  1 

5552?  1 

04614  0 

21 ,2670 

Cl  00301  0 

11574  1 

02674 

0 

02676 

1 

04063 

0 

CS  30422  0 

00004  0 

40025  1 

21 ,2  roo 

61745  0 

0000°  1 

62704 

0 

6764  j 0 

6 1 744 

1 

OOOOO  1 

627l4  1 

0453b  0 

2 1 ,2710 

C:  02042  0 

C:  42005  1 

00003 

r 

04440 

0 

37656 

0 

02707  0 

05413  1 

C;  01600  0 

21 <2720 

~02J23~XT 

0^54 13  1 

c: 

0 1 60 1 

T~ 

04063“ 

“0 

_ CT  30745 

1 

04063  0 

CS  37612  0 

" 00003  1 

2 1 ,2730 

06000  1 

I : 77775  1 

C! 

03343 

0 

C;  OI6I7 

0 

C 5 U 1 6 2 5 

1 

I ; 77776  1 

11746  1 

55746  1 

"“21,27*0  37662  i 55527  i H746  i 02667  1 04702  0 CS  00003“!  02750  1 02667  1 

21*2750  04667  1 C;  00002  0 — 02667  1 00006  1 23547  0 06000  l I : 77634  0 C;  30405  0 

21,2760  I*  77775  1 04063  0 CJ  30727  0 01547  0 51074  0 02765  1 02776  0 03003  1 

2172770 03010  0 03O15~O 03022  1 03027  1 03034  0 03040”0 37642“0 04374  0 — 
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21,3000 

Cs  02002  1 

Cs  42005  1 

04076  1 

37657  1 

04536  0 

C; 

02052  1 

C;  42005  1 

04076  1 

21,3010 

376421  “ 

04374  0 

CT  02676  1 

CS  42005  1 

04076  1 

37642  0 

04374  0 

CS  02571  0 

21 ,3020 

CS  42005  1 

04076  1 

37642  0 

04374  0 

CS  02655  0 

CS 

42005  1 

O4O76  1 

376421  “ 

21,3030 

1743741 

CS  02115  0 

CS  420051 

04076  1 

37657  1 

04536  0 

cs  02077  0 

CS  42005  1 

2 1 ,3o4o 

3764*:  0 

04374  0 

CS  02600  0 

CS  42005  1 

04076  1 

CS 

02000  0 

CS  02400  1 

33o45  0 

2 1 1 3Q5O 

54001  1 

33360  1 

54140  0 

5OI4O  1 

31600  0 

22003  1 

50140  1 

55407  1 

21 9 3 0^0 

22003  1 

10140  0 

1306^  i 

00002  0 

54l40  0 

33U45  0 

54001  1 

13053  0 

21,3070 

33560  1 

54T40  0 

33U45  0 

56003  1 

54001  1 

50140  1 

3IA07  0 

22UU3  1 

21 

21 

21 

21 


3100 

titc r 

3120 

2130 


21 


21 


2T 

21 


3 J.40 
3150 
3160 
3170 


5OI4O  1 55600  1 10140  0 13105  1 00002  0 54140  0 I3O72  0 00006  1 

— 23547  0 334101 54140  0 500001  31720  0 5OUO  1 55400  0 10140  0~ 

13112  1 01547  0 C:  77743  1 C;  77776  1 C:  35143  1 C;  102370  C;  31766  1 Cj  26106  1 

c:  77772  0 c:  43677  0 c:  77777  0 C:  77661  0 CS  00002  0 C:  05420  1 C:  77705  0 CS  77776  1 


1!  37560  0 C:  05346  0 CS  37522  0 C;  i5525  1 C;  77763  0 C!  4^04  0 CS  77777  0 CT  76470  0 

C:  00007  0 C:  02201  0 C:  77767  1 C;  77776  1 C:  37773  0 Cs  10042  0 C:  37747  1 C;  30232  1 

~CT  00006  1 CM 7666  0 M7777D  0157031  CTIOOOTO  CS  36147  0 C:  77635  1 CS  77776  1 

c:  37666  0 — C!  11022  1 C!  37532  1 CS  33647  1 CS  00007  0 CS  03641  1 C!  77777  0 CS  75713  0 


21 

21 

21 

-2T 


2200 

3210 

3220 

3230“ 


~ C7  777747)  CT  546(05  'o  C:  77407  i CT 

C:  OOOOC  1 C;  23600  0 - CJ77777  0 C j 

C S 377 631  CT  23341  0 CS  37 755  1 CT 


77776  1 
63663  1 
26170  0 
77776  1 


CS  3771 2 1 

C;  77777  0 
c:  00000  1 
Cs  377721 


CS  16755  1 Cs  37630  0 CTolWT 
Cs  56527  1 C;  77255  0 C;  77776  1 
CT  00254  1 CS  77777  0 CS  52755  1 
C S 72343 ~ 1 C!  37761  0 CS  30560  1 


21*3240 

CS  10000 

1 

CS  00362  0 

1 00000 

1 

Cs  1726!  1 

CS 

77777  0 

CS  77671 

1 

“~CT 

7701 5 0 

cs 

77776 

l 

21 ,3250 

CS  3776P 

C:  12403  0 

CS  37752 

C * 2 0 0 t>  2T^  X 

Cl 

“OOOUCT  1 

CS  00224  0 

CT 

ooooo  1 

^ • 

0 

21  ,3260 

c:  77 til 

0 

CS  77762  1 

CT  77161 

7 

CS  77776  1 

cs 

37767  0 

CS  12613 

u 

cs 

37756  1 

Cs 

30343 

0 

21  ,3270 

c:  00000 

1 

CS  00060  1 

cs  00000 

1 

CS  01445  0 

c; 

77777  0 

CS  77774 

0 

c • 

76651  1 

cs 

77776 

1 

*1*3300 

OS  37 (7 1 

1 

c : 02&03  0 

CS  37762 

0 

cs  10061  1 

cs 

00000  1 

CS  00023 

0 

cs 

00000  1 

C! 

001* 

1 

21 ,3310 

c : 1000  c 

1 

C;  00000  1 

C;  76505 

0 

C;  77776  1 

C: 

37772  1 

Cs  22005 

1 

c 2 

37765  1 

^ • 

05560 

1 

21,3320 

CT~  00X00“ 

1 

C;  OOOO5  1 

CS  70000“ 

1“ 

CS  00113  1 

CS 

00000  1 

C s ocrootr 

7 “ 

x: 

/bbb 1 1 

X! 

77776 

1 

21 ,3330 

CS  37773 

0“ 

cs  20750  1 

CS  37767 

0 

CS  03044  1 

c; 

00000  1 

c;  00003 

1 

c: 

00000  1 

CS 

00033 

1 

21*3340 

c:  00000 

1 

c:  10000  1 

Ci  00000 

1 

CS  00000  1 

CT 

00000  1 

CT  00000 

1 

cs 

00000  1 

c;  00000  1 

21 *3350 

C:  GOOOa 

0 

C;  00002  0 

Cs  00220 

1 

C;  77776  1 

C: 

35730  0 

Cf  00035 

1 

C; 

10317  0 

l : 

i 

l 

21* 33&0 

CS  10115 

1 

C!  OI577  0 

c:  02300 

0 

CS  04133  1 

cs 

02265  1 

C • i?  f 2 2 3 

u 

c : 

66451  1 

C; 

0542  7 

u 

21 *3370 

L#  I ^ 3 7 7 I 

CS  77567“  0 “ 

CS  44202 

CS  24276  1 

CT 

14066  1 

CS  23073 

1 

c: 

11773  1 

cr 

03146 

I 
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21 *3400 

c:  14632  0 

C:  70121  0 

C5  35341 

1 C!  00631 

0 

CJ  23146  0 

c:  ooooo  l 

c: 

17565 

1 

c:  06200  0 

21*3410  " 

C!  00021  1 

c:  00023  0 

c:  00062 

0 37657 

1 

55742  0 

04667  1 

C: 

00001 

0 

33407  1 

21  734  2CT 

55110  V~ 

37665  0 

557T7" 

0 33412 

0 

55744  0 

04063  0 

C: 

36005 

1 

03427  0 

21,3430 

73  4 301} 

CK.5M  63236  0 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21*3440 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3450 

& 

@ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3460 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3470 

e 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3500 

@ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3510 

@ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3520 

e 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3530 

@ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3540 

@ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3550 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21 ,3560 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3570 

¥ " 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3600 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3610 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3620 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3630 

“¥ 

<1 

@ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3640 
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¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

227,3650 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21, 3660 

¥ 

@ 

¥ 

¥ 

¥ 

¥ 

21,3670 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3700 

§ 

¥ 
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¥ 

¥ 

¥ 

¥ 

¥ 

21,3710 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21,3720 

¥ 

¥ 

~ § 

¥ 

¥ 

e 

¥ 

21,3730 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

§ 

¥ 

21,3740 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21 ,3750 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

21 ,3760 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

2 1 , 3770 

¥ 

" @ “ 

¥ 

¥ 

- 

¥ 
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23,2000  “ 

22765  0 

37651  1 

00006  1 

06001  0 

54765  1 

77651  0 

00006  1 

12146  1 

23,2010 

37656  0 

54065  0 

50000  1 

11476  1 

12037  0 

1201/  1 

12037  0 

50065  1 

23  f 2020 

41476  T 

“50065  1 

57473^0 

50065  1 

61476  0 

00006  1 

77643  0 

50065  1 

23,2030 

54050" 0 

10065  0 

12011  1 

33405  0 

00006  1 

05014  1 

12146  1 

67657  1 

T3»T040 

40000  0 

65040  0 

00006  1 

62045  1 

12017  1 

50065  1 

11476  1 

35040  0 

23,2050 

12052  0"" 

45040  1 

50065  1 

55476  1 

12017  1 

33072  1 

54030  0 

22016  0 

23,2060 

00006  1 

22012  1 

00006  1 

00031  0 

40000  0 

77700  0 

00006  1 

13124  1 

23,2070  “ 

' 00006'  1 

31602  1 

52346  I 

30032  0"" 

54001  1 

00006  1 

“ 21431  1 

23431  0 

23“,  2100 

00006  1 

77b5l~0 

22066  1 

30033  1 

5400TT7I 

00006  1 

21432  1 

23432  0 

~ 23,2110 

00006  1 

77651  0 

3T404  0 

00006  1 

70001  1 

60066  1 

00006  1 

" 71655  1 

23  ,2120 

57416  0 

00006  1 

73066  0 

6l6l5  1 

27416  1 

04177  1 

37656  0 

54073  1 

23,2130 

500730 

30774  0 

oouOfc  1 

50073  0 

21673  0 

10000  0 

67657  1 

12141  0 

23,2140 

40  000  0 

50073  0 

54774  1 

IOO73  1 

12127  0 

12000  1 

01613  1 

33361  0 

23,2150 

55613  "0 

37665  0 

55615  0 

31625  1 

63071  1 

10000  0 

02167  0 

14606  1 

‘ 23,2160 

02167  0 

4T615  0 

27416  I 

37665  U 

35615  0 

14606  1 

C ; 20000  0 

67657  1 

23,2170 

00006  1 

77653  1 

30001  0 

00006  1 

73074  0 

55625  0 

31655  0 

62166  1 

23 ,22U0 

00006  1 

71625  0 

00006  I 

77654  CT 

31627  0 

00006  1 

7O0OI  1 

"00  006“  1 

23 ,2210 

“71624  1 

23615  1 

00002  0 

37647  0 

70765  1 

00006  1 

12220  1 

12617  1 

23,2220 

37646  1 

70765  1 

0OU06  1 

12305  1 

30773  1 

00006  1 

12260  0 

43102  0 

25 ,225U 

'550b  T 

55625  0 

37655“  XT 

00006  1 

02031  1 

0OUU6  1 

12  Z 5 1 1 

37654  "1 

23,2240 

“00006  1 

02031  1 

00006  1 

12253  o~ 

10773  0 

54773  0 

00006  1 

12277  0 

23 , 2250 

12612"! 

37657  1 

12254  I - 

"47057  “0  ““ 

55440  ! 

37565  0 

54773  0 

12462  1 

23,2260 

00006  1 

00031  0 

40000  0 

“ “73103  1 

00006  1 

12267  1 

12612  1 

37654  1 

23 ,2270 

70765  1 

&UUU6  i 

12277  0 

47654  0 

70765  1 

54765  1 

12612  1 

37654  1 

23 ,2300 

26765  1 

37644  0 

00006  1 

05013  0 

12612  1 

37641  0 

00006  1 

02031  1 

2 3 , 2 3 1 U 

00006  1 

12346  0 

37657  1 

70765  1 

0OU06  i 

12617  1 

37643  1 

UOOOb  1 

237  2320 

O2O3 1 1 

00006  1 

12417  0 

11416  r 

12330  1 

12334  0 

12330  1 

12334  0 

23 , 2330 

61506  0 

00006  1 

62334  1 

12417  0 

47657  0 

70765  1 

54765  1 

30032  0 

23,2340 

54774  l 

60033  T 

54775  0 “ 

30034 

0 

23 ,2350 

OOOU6  1 

12371  1 

30043  0 

00006 

i 

23 ,2360 

55441  0 

57665  0 

54043  1 

54042 

0 

23 ,2570 

1 242!  0 

24765  0 

37056  0 

' 00006 

"T 

54776  0 IZSYTT— 

1 30001  0 

54044  0 33111  0 

02030  0 00000“  T “ 


37657  1 
00006  1 
00006  T 
12403  0 


70765  1 
73073  1 
05013  0 


473423A  YJL  SYSTEM  FOR  BLK2 : REVISION  12  OF  PROGRAM" AURORA  BY'  DAPi  GROUP 


NOV  10*1966  PAGE  745 


OCTAL  LISTING  OF  P ARMMPFTIFl 3 5 1 WlTHi  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  OF  EACH  WORD}  »@»~DeIM0TB5  UNUSED  FIXED  MEMORY > 


APT  VALID  W0RP5~ARe~BA5K  INSTFKJCTIUN5-  EXCEPT  THOSE  TARKeD^T”  (INTERPRET  IVE^PeRATOR  WORDST~OR  "C*  (CONSTANTS), 


23,2400 

55507  0 

33075  0 

12406  0 

33077  1 

55507  0 

33100  0 

55506  1 

37665  0 

23,2410 

54043  1 

54042  0 

54044  0 

3 3 i 1 1 0 

00006  1 

05013  0 

12612  1 

37665  0 

23,2420 

55441  0 

41416  1 

61441  1 

55440  1 

10000  0 

12431  1 7 

12612  1 

12431  1 

23 ,2430 

12612  1 

67657  1 

55472  0 

04177  1 

31506  0 

61472  1 

00006  1 

62612  0 

23,2440 

41472  0 

00006  1 

61507  1 

00006  1 

62537  1 

31472  1 

00006  1 

71444  0 

23 ,2450 

00006  1 

77b54  0 

30001  0 

00006  1 

73101  0 

55625  0 

55505  1 

63102  1 

2 3 ,2460 

00006  1 

62612  0 

00uC6  1 

00006  1 

00006  1 

12471  0 

33067  0 

27505  1 

23,2470 

12500  1 

33070  0 

27505  1 

37653  D 

22765  0 

00006  1 

06001  0 

54765  1 

23,2500 

11440"  1 

37653  0 

12504  0 

12521  1 

70765  1 

00006  1 

12514  1 

37664  1 

23 ,2510 

04Z22  1 

3764?  O' 

55302  0 

12676  0 

33110  1 

04222  1 

37647  0 

55502  0 ' 

23,2520 

12676  0 ' 

37653  0 

70765  1 

00006  1 

12532  0 

33107  1 

04222  1 

37647  0 

23,2530 

55502  0 

12700  0 

33106  U 

04222  1 

37647  0 

55502  0 

12700  0 

31472  1 

23,2540 

23,2550' 

23,2560 

23,2570 


00006  1 

71444'  0 

00006  1 

77655  1 

30001  0 

00006  1 

73101  0 

55625  0 

55505  1 

41440  1 

00006  1 

62573  1 

00006  1 

00006  1 

00006  1 

12563  1 

33067  0 

' 27505  1 

12565  1 

33070  0 

27505  1 

33105  0 

042Z2  1 

37647  0 

55502  0 

47655  1 

12701  1 

00006  1 

00006  1 

00006  1 

12602  0 

3306?  0 

23, 2600 

“ 27505  1 

12604  0 

33070  0 — 

27505  r 

33104  1 

04222'  1 

37647  0 

55502  0 

2 3 , 3 6 1 0 

37655  O' 

12701  1 

37665  0 

55615  0 

55505  1 

04222  1 

146U6  i 

30033  1 

23,2620 

CO  OTO  6'  1 

20775  0 

00006  1 

71404  1 

57411  1 

30032  0 

00006  1 

20774  1 

23  ,2650 

'27411  "0 

53476  1 

31444  1 

'55471  0 

04177  1 

41426  1 ~ 

61416  0 

55423  1 

23,2640 

23,2650 

23,2660 

23,2670 


04156  1 CJ  51525  1 000061  12612  1 10000  0 63112  0 12650  T 63112  0 

00006  I 6Z6'6T1 37637  I 55470  "I 31444  1 0000  5 1 77642  1 55471  0 

12663  1 47637  0 55470  1 04177  7 33114  0 04152  0 12612  1 55625  0 

11470  1 31625  1 12550  1 31625  1 55505  1 12462  1 37 6 5 6 0 12 701  1 


' 23^,2700 

4 7 656"  I 

55624  1 

31622  0 

00006  1 

71627  I 

00006~1 

71624  1 

23615  1 

23,2710 

41505  1 

63065  1 

00006  1 

64606  0 

33113  1 

55613  0 

10031  1 

12y42  0 

22,2720 

' '12T2V0 

12742  0 

-04203  1 

12716  1 " 

3T5 05  0 

540jl  1 

37641  0 

000U6  1 

23,2730 

05013  0 

31502  1 

54770  0 

37665  0 

57504  1 

54766  1 

37665  0 

57503  0 

c 3 * JhU 

54771  1 

14606  r " 

10766  1 

1 3023  1 

'41505  1 

60031  0 

10000  0 

67657  1 

23 ,2750 

12765  0 

12752  1 

6765?  1 

54766  1 

31502  1 

54771  1 

3 7665  0 

5750H  1 

23  1 2 7 60 

54767  0 

37665  0 

57503  0 

54772  1 

14606  1 

54766  1 

31505  0 

54031  1 

23,2770 

31502  1 

56770  1 

54771  1 

41504'  0 

00006  T 

14606  1' 

60 766  0 

IOOOO  0 
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23,3000 

67657  1 

13012  0 ~ 

13003  0 

67657  1 

54767  0 

“37665^3 

55504  0 

57503  0 

23,3010 

54772  1 

14606  1 

54767  0 

37665  0 

57504  1 

54766  1 

37665  0 

57503  0 

23,3020 

56771T  0 

54772  1 

14606  1 

“41305  I 

60031  0 

6O766  0" 

10000  0 

67657  1 

23,3030 

13037  1 

13032  1 

67657  1 

54767  0 

31502  1 

54772  1 

14606  1 

54001  1 

23,3040 

41505  1 

60031  0 

10000  0 

67657  1 

13054  1 

13046  1 

67657  1 

54766  1 

23,3050 

30001  0 

54767  0 

31502  1 

13062  1 

56766  0 

54767  0 

31505  0 

54031  1 

23  f 3060 

31502  1 

56770  1 

56771  0 

56772  0 

14606  1 

C;  00360  1 

C;  20000  0 

Cj  77767  1 

23  ,3070 

C:  “00  013  0 

c:  77537  0 c; 

37775  0 

C!  34362  I 

C:  24366  1 

c:  77555  1 

C:  77OOI  0 

C;  76447“T 

23*3x00 

C!  77223  1 

C:  3x000  0 

CS  77763 

0 

C; 

00077  1 

CJ 

00125 

1 

C!  00252  1 

C:  00012  1 

CS  00240  1 

23  , 3T1 CT 

“C:  00T2TJ  I 

Cj“00600~  1 

C:  71462 

1 

c: 

02147  1 

Cj 

52000 

0 

22016  0 

33357  c 

54345  1 

23,3120 

33123  I “ 

54030  0 

14610 

0 

C • 

37634  1 

00006 

I 

3336°  1 

52346  1 

37665  0 

23,3130 

00006  1 

0J.UU5  0 

00006 

1 

01006  0 

43140 

0 

00006  1 

03012  1 

14606  1 

23,3140 

CJ  07403  1 

22016  0 

00006 

3 

22012  1 

37652 

1 

70367  1 

10000  0 

13354  1 

23,3150 

37654  1 

67653  0 

00006 

1 

02012  0 

10000 

0 

13354  1 

37646  1 

U0006  1 

23,3160“ 

13354 

nr 

37643  1 

00006 

I 

32031  I 

00006  1 

T3175~  0 

23,3170 

37642  0 

00006  1 

02031 

1 

10000  0 

13354 

1 

37665  0 

54031  1 

55545  0 

23,3200 

55546  0 

55473  r 

55474 

0 

55475  1 

55476 

1 

55477  0 

55500  1 

54766  1 

23,3210 

54767  0 

54773  0 

55615 

0 

55616  0 

55617 

1 

55642  1 

55643  0 

55512  1 

23,3220 

55513  0 

54066  0 

5541b 

1 

55417  0 

55421 

0 

55426  1 

55427  0 

55430  0 

23,3230  - 

" 35626  "0“ 

55620  0 

55621 

3337F  0 

55464 

1 ' 

33377  1 

55465  0 

30032  0 

23,3240 

“55431  1 

“54774  1 

30033  1 

55432  1 

55433  0 

54775  0 

30034  0 

55434  1 

23  f 32 ^0 

54776  0 

57652  1 

UUO06  1 

05012  1 

33361  O 

55613  7T 

33410  1 

55622  1 

23  1 3 2 60 

55623-  0 

33400  0 

55655  1 

33401  1 

55656  1 

■37657  1 

04536  0 C; 

03525  0 

23,3270 

CJ  52006  0 ~ 

37657  1 

04536  0 

CJ  03536  1 

CJ  52006  0 

37657  1 

04^3 60  C • 

03547  1 

23  »3300 

CJ  52006  0 

33403  0 

0000°  1 

7 1526  0 

00006  l 

7x533  X 

52066  0 

0000&  1 

23,3310 

30066  1 

OOOOo  1 

11463  0 

55543  0 

52066  0 

00006  1 

11462  1 

55541  1 

23,3320 

“00006  T 

73404  0 

56535  1“ 

OOOOVTT 

70000  0 

56536  1 

31543  1 

00006  1 

23,3330 

“73404  0 

55537  0 

00006  1 

70000  0 

55540  0 

33406  0 

55651  0 

55652  0 

— 23,3340  ” 

5'5653  1 

55654  0 

55650  1 

33407  1 

55646  0- 

66647  1 

00006  1 

33374  1 

23,3350 

53602  0 

00006  1 

33370  0 

52346  l 

33373  0 

54030  0 

14606  1 

C ; 03141  0 

23,3360 

C • 4600 6 0 

CJ  02213  0 

33402  1 

55655  1 

55656  1 

14602  0 

C J 26501  i 

Cj  02055  0 

237337O 

C:  4600~6  C 

C J 02544  0 

cr  54006  0 - 

CJ-37T66  1 

CJ  00033  1 

c • 23712  1 

CJ  00022  1 

CT  25705  1 
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ALL  VALID  WORDS  ARe  BASIC  I1^TRUCTlON5"EXCEPTTtiOSE  MARKEP  "I”  ( INTERPRET rVin3FERATO^WORt3S~)  OR  wC^r7C0NSTANTST7 


• ~ 1 1 f - 

26,3400 

c:  24000  1 

c:  15146  0 

c:  12000  i 

c; 

02215  0 

C:  23146 

o c:  70000  0 

c:  11643  0 

Cl  00033  1 

23*3410 

c; 0323X5  1 

03411  0 

03412  0 

CKSM 

51626  1 

© 

© 

© 

© 

23*3420 

@ 

@ 

© 

S 

© 

© 

© 

© 

23*3430 

e 

® 

@ 

e 

© 

© 

& 

© 

23,3440 

s 

@ 

© 

© 

© 

© 

© 

© 

23  * 3450 

@ 

@ 

© 

§ 

© 

© 

© 

© 

23,3460 

@ 

@ 

© 

© 

© 

© 

© 

© 

23,3470 

@ 

® 

© 

© 

© 

© 

© 

© 

23,3500 

© 

© 

© 

© 

© 

© 

© 

@ 

23,3510 

© 

© 

© 

© 

© 

© 

© 

© 

23,3520 

© 

§ 

© 

© 

§ 

e 

© 

e 

23,3530 

© 

© 

© 

© 

© 

© 

e 

© 

23,3540 

@ 

© 

@ 

© 

S 

s 

@ 

® 

23,3550 

~ © ' 

@ 

# 

© 

s 

e 

§ 

e 

23,3560 

© 

© 

@ 

© 

s 

s 

& 

s 

23,3570 

© 

© 

© 

S 

s 

© 

s 

s 

23,3600 

e 

@ 

® 

@ 

s 

@ 

e 

23,3610 

~ ©~ 

@ 

® 

e 

@ 

e 

® 

@ 

23,3620  “ 

s 

@ 

@ 

s 

e 

s 

s 

s 

23,3630 

@ 

@ 

s 

@ 

@ 

s 

§ 

23,3640 

S 

@ 

© 

@ 

e 

e 

® 

e 

23,3650 

e 

@ 

s 

e 

@ 

@ 

© 

@ 

23,3660 

~ ® 

@ 

s 

s 

© 

@ 

e 

e 

23,3670 

-g 

® 

® 

s 

e 

® 

® 

© 

23,3700 

e 

s 

e 

© 

e 

© 

® 

e 

23,3710 

~ © 

s 

© 

© 

s 

s 

© 

® 

23,3720 

I 

© 

e 

s 

s 

s 

e 

23,3730 

© 

® 

@ 

@ 

® 

e 

23,3740 

e " 

© 

@ 

e 

e 

s 

e 

23,3750 

@ 

@ 

@ 

S 

e 

@ 

§ 

ST 

23,3760 

@ 

@ 

- @ 

S 

® 

s 

s 

s 

23  ‘,3770 

@ 

‘ @ 

© - 

— w~ 

- --@  - 

© 

473423A  YJL  SY S 7 EM  FOR  B LK2?  REVISION.  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 


NOV  10»  1966  PAGE  748 


OCTAL  LISTING  OF  PARAGRAPH 

# 140,  WITH-  PARITY  BIt  IN 

“Binary  at  thc 

right  of  each 

WORD  j 

denotes 

UNUSeD  fixed 

memory. 

ALL  \TALTD~ 

WORDS  ARe  BASIC 

INSTRUCTIONS 

EXCEPT  THOSE 

marked  "i"  (interpretive  operator  words)  or  mc 

" (CONSTANTS) 

« 

24,2000 

C:  02555  0 

C;  54006  0 

32705  1 

54030  0 

22016  0 

00006 

1 

22012  1 

00006  1 

24,2010 

32001  1 

52346  1 

30033  1 

54001  1 

00006  1 

21433 

0 

23433  1 

00006  1 

24 ,2020 

77651  0 

220  6 5 1 

30034  0 

54001  T 

00006  I 

2 1434 

1 

23434  0 

00006  1 

24,2030 

77651 ”0 

2 2.  0 6 6 1 

31406  1 

00006  I 

70065  0 

54O7O 

1 

31403  1 

00006  1 

24  ,T040 

7OO66  0 

26070  1 

31405  1 

00006  1 

70065  0 

56066 

l 

00006  1 

71401  1 

24,2050 

26066  0 

00006  1 

71656  1 

57417  1 

00006  1 

71657 

0 

61616  1 

61642  0 

24,2060 

27417  0 

30070  0 

OUOU6  1 

71656  I 

57421  1 

00006 

1 

71657  0 

61617  0 

24,2070  - 

61646  1 

27421  0 

01614  0 

32164  0 

55614  1 

37665 

0 

55616  0 - 

55617  1 

24,2100 

31626  1 

62721  1 

10000  0 

02113  0 

14606  1 

02113  0 

4l6l6  0 

27417  0 

24,2110  ’ 

41617  1 

27421  0 

14606  1 

67657  1 

00006  1 

77653  1 

30001  0 

00006  1 

24,2120 

72722  0“ 

55626  0 

00006  1 

71620  0 

30001  0 

0QUU6  1 

71630  1 

55616  0 

24,2130 

27640  0 

31626  I 

00006  1 

71621  1 

30001  0 

U0006  I 

71631  0 

55617  1 

24,2140 

276411“ 

31656  0 

00006  1 

71626  0 

6 1660  0 

00006  1 

77654  0 

22065  1 

24,2150 

31616  1 

00006  1 

70065  0 

55616  0 

31617  0 

00006  1 

70065  0 

55617  1 

2 4 9 2 1 6^ 

37665  0 

55620  0 

55621  1 

-00002  0 

C:  02165  I 

37643  1 

00006  I 

(72  0 3 1 1 

24,2170 

00006  1 

12205  0 

37642  0 

00006  1 

02031  1 

00006  1 

12743  1 

0000b  I 

24  % 2200 

32204  0 

52346“  1 

14606  1 

c:  03141  0 “ 

c:  46006  0 

37646  1 

70765  1 

()0006  1 

24,2210 

12250  0“ 

3O773  1 

00006  1 

12504  0 

32713  0 

55514  1 

37657  1 

UUU06  1 

24,2220 

-“02031  1 

ooooe  1 

13453  1 

37656  0 

00006  1 

02031  1 

00006  1 

13271  1 

24 , 2230 

37653  XT— 

oouo6  1 

0203 1 1 

■000X16  1 

13433  1 

37652  1 

00006  1 

02031  1 

24,2240 

OOOOfc  1 

13224  1 

12504  0 

32702  0 

55626  0 

37665  0 

54773  0 

12554  0 

24,2250 

— 3T64T  0- 

00006  T 

0 2 031  1 

— 00006  1 

12317  1 

37657“! 

70765  1 

00006  1 

24,2260 

62743 “0 

31416  0 

00006  1 

70000  0 

52066  0 

31417  1 

00006  i 

7OOOO  0 

24,2270 

20066  0 

31421  1 

00006  1 

70000  0 

20066  0 

42707  1 

6006b  1 

U0u06  1 

24,2300 

62306  0 

31417  1 

55424  0 

31421  1 

55425  1 

12352  U 

47657  0 

70765  I 

24,2310 

54765  1 

30032  0 

54774  1 

30033  1 

54775  0 

30034  0 

54776  0 

37657  1 

24,2320  - 

- 70765  1 

00006  1 

12504  0 

30042  1 

00006  1 

77647  1 

32714  1 

00006  1 

24,2330 

70001  1 

61417  1 

55424  0 

30044  1 

00006  1 

776*7  1 

32714  1 

00006  1 

24,2340 

70001  1 

61421  1 

55425  1 

37665  0 

54043  r 

54042  0 

54044  0 

- 327IO 

0 

24,2350 

00006  1 

- 05013  0 

32734  0 

55514  1 

11424  0 

12416  1 

1256U  1 

12365 

1 

24,2360 

11425  1 

12445  1 

12504  0 

12456  0 

12504  0 

&1506  0 

00006  I 

62360 

0 

24,2370 

11425  1“ 

12402'  1 - 

12374  I 

12407  1 

41424  0 

55443  1 

6X507  I 

00006 

1 
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24,2400 

63453  0 

13447  1 

61506  0 

00006  1 

62374  0 

03656  1 

13360  0 

61506  0 

24,2410 

0 0 U 0 6 1 

62374  0 

03652  0 

00006  1 

61425  0 

13405  1 

t>i 506  0 

00006  1 

24,242a 

“6Z3~60“a 

11425  1 

12433  “D 

12425  T 

12440  1 

31424  1 

55443  1 

61507  I 

24,2430 

00006  I 

63271  U 

13265  1 

6l 506  0 

00006  1 

62425  0 

03652  0 

13245  0 

24,2440 

6l506  0 

a 00 06  1 

62425  0 

03656  1 

13312  0 

61506  0 

00006  I 

62504  1 

24,2450 

31425  0 

55443  1 

61507  1 

00006  1 

63224  0 

13220  0 

61506  0 

00006  1 

24,2460 

62504  1 

41425  1 

55443  1 

61507  1 

00006  1 

63433  0 

13427  1 

11443  1 

24,2470 

67657  I 

12473  1 

67657  1 

00006  1 

71471  0 

4)0006  1 

77654  0 

30001  0 

24,2500 

00006  1 

72703  0 

55626  0 

12554  0 

37665  0 

55504  0 

55503  1 

37652  1 

24,2510 

70765"  I 

00006  1 

1 201 6 0 

32723  0 

04225  0 

14606  r 

37651  1 

00006  i 

24 , 2 32Q 

02031  1 

00006  1 

12532  0 

37650  0 

00006  1 

02031  1 

00006  1 

12543  0 

24,2530 

37665  0 

12514  1 

32724  1 

00006  1 

06032  0 

00006  1 

12541  1 

32726  0 

24,2540 

12514  1 

32725  0 

12514  1 

32727  1 

00006  1 

06032  0 

00006  1 

12552  0 

24,2550 

32730  1 

12514  1 

32731  0 

12514  1 

41626  0 

62702  0 

00006  1 

62567  1 

24,2  56a 

5 7665  0 

55505  1 

556l6  0 

55617  1 

31502  I 

04225  0 

14606  1 

31626  1 

24,2570 

55505  1 

62701  0 

00006  1 

62630  0 

31630  0 

00006  1 

71620  0 

30001  0 

24  1 2600 

54065  0 

00006  1 

71623  0 

55616  0 

30065  1 

00006  1 

72627 

1 

27640  0 

24,2610 

- 1 63 1 l 

00006  1 

71621  1 

30001  0 

54065  0 

00006  1 

71623 

0 

55617  1 

24  f 2 62 0 

30065  1 

00006  1 

72627  1 

27641  1 

31501  1 

12514  1 

C:  02073 

1 

C;  03146  1 

24,2630 

3*1626  ! 

55614“! 

'31501  1 

00006  1 

02005  a 

00006  1 

12663 

1 

“67641  0 

24,2640 

00006  1 

61501  1 

54001 

1 

00006  1 

12670 

0 

31502 

T 

7763?  0 

0000b 

1 

2412650 

12654  CT 

32712  1 

27505 

1 

12674  1 

40001 

1 

67641 

0 

57502  1 

55503“ 

1 

24  f 2 660 

32712  1 

55504  0 

12674 

1 

32712  1 

27505 

“1 

37665 

0 

55504  0 

12674 

1 

24,2670 

32711  1 

27505  1 

37665 

a ~ 

55504  0 

31501 

1 

04225 

0 

00006  1 

32733 

1 

24,27UU 

52UU6  U 

c:  77417  0 

Cl 

00014 

1 

C:  31000  0 

Ci  37776 

0 

c: 

37775 

0 

c:  37773  0 

Cl 

00010 

0 

24,2710 

C ! C0600  1 

C:  77765  0 

c: 

00013 

0 - 

Cl  02243  0 

C!  43415 

0 

c; 

20000 

0 

c:  02000  0 

Cl 

77557 

0 

24 ,2720 

Ci  00220  1 

c:  77537  0 

ci 

24366 

1 

Cl  "40257  “0“" 

cr  00201 

c: 

40042 

0 " 

c:  40210  a 

CT 

00104 

1 

24,2730 

C?  40104  0 

c:  40021  0 

c: 

02716 

0 

C * 46006  0 

c:  02467 

0 

32742 

1 

54345  1 

14606 

1 

24  2740 

cr  UT4ao"i 

CS  03644  1 

C!  02000  0 

40765“  l 

77642  1 

10000  0 

13025  1 

“ 30765  0 

24,2750 

/765b  i 

10000  0 

12771  0 

00006  1 

30034  0 

52776  0 

30032  0 

54774  1 

24,2760 

00006  1 

31417  1 

53427  0 

31421  1 

55430  0 

37655  0 

26765  1 

14606  1 

24,2770 

C:  0G6  3mr 

37657  1 

55672“! 

41427  0 - 

00006  1 

51672  0 

71400  0 

54065"  0 

473423A  YJL 
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REVtStOv 
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OCTAL  LISflN 

5 OF  PARAGRAPH  # 

142  » W I THI 

PARITY  BIT  IN 

BINARY  AT  THc 

right  OF  EACH 

word;  Denotes 

UNUSED  fixed  memory. 

All  VAlIo  words  are  basic  instruct  ions 

EXCEPT  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORdS)  OR  "C 

» (CONSTANTS) 

• 

2 A i 3000 

41430  0 

00006  1 

51672  0 

71402  1 

60065  1 

00006  1 

72770  1 

54065  0 

24,3010 

11672  1 

13014  0 

30065  1 

26065  0 

10065  0 

67657  1 

13020  1 

40000  0 

24,3020 

51672  0 

55674  I 

TT672~I 

T2772  0 

55673  0 

30033  1 

00006  1 

20775  0 

24,3030 

5 40  6 5 0 

00006  1 

71405  0 

57413  0 

30034  0 

00006  1 

20776  0 

5^066  0 

24,3040 

00006  1 

71401  1 

27413  1 

55477  0 

30065  1 

00006  1 

71406  0 

57411  1 

24,3050 

30066  1 

00006  1 

71403  0 

27411  0 

55500  1 

37656  0 

70765  1 

10000  0 

24,3060 

13122  1 

00006  1 

00005  1 

10000  0 

13122  1 

00006  1 

00012  1 

72740  1 

24,3070 

roooo  o 

13122  1 

37657  1 

54073  “I 

60000  1 

50000  1 

11417  0 

63120“  1 

24^3 100  “ 

13102  0 

63120  1 

00006  1 

63105  0 

13122  1 

50073  0 

11477  0 

63121  0 

2 4 , 3 IX  0 

r3TT2“T 

63121  0 

00006  1 

63115  1 

13122  r 

10073  1 

13073  1 

12735  0 

24,3120 

C:  77512  1 

C:  77601  0 

32741  1 

55514  1 

04177  1 

3 1 662  1 

55471  0 

41430  0 

24,3130 

61421  1 

55425  1 

03525  0 

55516  0 

53412  0 

53414  0 

55411  0 

31407  0 

24,3140 

55410  1 

31661  1 

55471  0 

41427  0 

61417  1 

55424  0 

03525  0 

55515  0 

24,3150 

“ 00006T  1 

13321  0 

0000b  1 

73336  0 

61516  1 

00006  1 

73334  1 

55521  1 

" 24,3160 

41516  0 

“ 00006  1 

7 333  6 “0 

6l  5 1 5 X. 

00006  I 

73334  I 

55522  1 

61521  0 

24,3170 

55517  1 

41522  1 

61521  0 

55520  0 

31522  0 

00006  1 

63337  0 

31521  0 

24,3200““ 

W006  1 

63254  1 

31520  1 

_00“006  1 

63232  1 

00006  1 

31414  1 

“53412  0 

24,3210 

3141CTO" 

55407  1 

31652  1 

55650  1 

33524  1 

6 1 5 1 6 1 

00006  1 

63224  0 

24,3220 

31446“  0 

55471  0 

47663  1 

13460  1 

11666  1 

13220  0 

31446  0 

55471  0 

24,3230  ' 

46162  0 

“ 13460  1 

01653  cr 

55650  1 

31515  1 " 

61516  1 

10000  0 

63024  1 

24,3240 

13242  1 

63524  “1 

00006  r 

63247  0 

03474  0 

47664  0 

13460  1 

11667  0 

24,3250 

13244  1 

03474  0 

47655  1“ 

13460  1 

31517“ 0 

00006  1“ 

63277  0 

31661  1 

24,3260 

55650“  1 

33524  1 

61515  1 

00006  1 

63273  I 

31445  0 

55471  0 

46165  1 

24,3270 

13460  1 

11665  1 

13265  1 

31445  0 

55471  0 

47656  1 

13460  1 

316^4  1 

24,3300 

55650  1 

41515  0 

61516  1 

10000  0 

63524  1 

13307  1 

63524  1 

UUUU6  1 

24,3310 

63314  1 

03466  0 

47657  0 

13460  1 

11670  0 

13311  0 

03466  0 

3 ?6&3  0 

“ 24*3320 

13460  1 

3X516  1 

00006  r 

12534  3 

00006  I 

“ 73335  0 

55522  1 

31516  1 

24,3330 

00006  1 

73334  1 

55521  1 

13171  1 

Cj  35441  0 

C:  14176  1 

C;  62575  1 

31521  0 

24,3340 

0000^6“  1 

63367  0 

3X517  0 

UOOOfc  1 

63441  0 

31654  1 

55650  1 

4X515  0 

24,3350 

61516  1 

10000  0 

63524  1 

13355  0 

63524  1 

U00U6  1 

63362  0 

03466  0 

24  f 3 360 

37657  1 

13460  1 

11670  0 

13357  1 

03466  0 

37656  0 

1 3460  I 

1 

24,3370 

00006“  1 

634X4  ^0 

3X653  0 

556  50  1 

31515  1 

6 1 5 1 6 1 

10 000  0 

63524  1 

473423A  YJL  SYSTEM  FOR  BLK2 ! REVISION  12  OF  PROGRAM  AURORA  BY  DAP  GROUP 

NOV  10,  1966 

PAGE  751 

OCTAL  LISTING  OF  PARAGRAPH  # 143,  WITH!  PARITY  Bit  IN  BINARY  Aj  THE  RIGHT  OF  EACH  WORD;  »§"  DENOTES  UNUSED  FIXED  MEMORY, 


ALL  VAPD  W0RD5T"ARe~B^S ICT  INSTRUCTIONS-  EXCEPT  TH05e~TTORKeD~  " 1 11  (INTERPRETIVE  OPERATOR  WORDS)- “OR^C11  ("CONST A N T S )Y 

24,3'AUO  - 13402  0 635241  00006  1 &3407  1 03474  0 36165  0 13460  1 11667  0 

24,3410  13404  0 03474  0 37655  0 13460  1 00006  1 31414  1 53412  0 31410  0 

“ 24,3420"  55407"  1 " “31652  1 “ 55650  1“  33524  1 61516  1 00006~1  " 63433  0 “ ““31446  0 

24,3430  55471  0 37664  1 13460  1 11666  1 13427  1 31446  0 55471  0 36162  1 


24,3440 

13460  1 

31651  1 

55650  1 

33524  1 

61515  1 

00006  1 

63455  0 

31445 

0 

24 ,3450 

55471  0 

37663  0 

13460  1 

11665  1 

13447  1 

31445  0 

55471  0 

37654 

1 

24,3460 

55523  0 

00006  1 

33465  0 

52006  0 

C;  02216  0 

C:  52006  o 

31450  1 

55471 

0 

24,3470 

41411  0 

5 5 411  0 

41424  0 

13477  1 

31447  1 

55471  0 

31424  1 

61425 

0 “ 

c.H  * 5 500 

OOQQfc  1 

73523  1 

55407  1 

00006  1 

77655  1 

0000b  1 

13510  1 

13672 

0 

24,3510 

3UU0T"  0 

55407  1 

00006  1 

70000  0 

55412  0 

31411  1 

61413  0 

00006 

1 

24,3520 

73523  1 

55411  0 

00002  0 

C:  26501  1 

Cs  71777  0 

55407  1 

00006  1 

77655 

1 

24,3530 

00006  1 

13533  0 

13666  0 

10001  1 

67656  0 

13537  1 

40000  0 

67667 

1 

24,3540 

55440  1 

55407  1 

00006  1 

7OOOQ  0 

55412  0 

00006  1 

71471  0 

00006  1 

2 4 * 3 5 50 

61415" 0 

55451  1 

31412  1 

00006  1 

71650  1 

61415  0 

55467  1 

11407  1 

24^,  3560 

" “3141 1 I 

13563  0 

13602  1 

27451  1 

11407  1 

11451  1 

13573  1 

11451  1 

24,3570 

13  60  6 “O'" 

13606  0 

13573  1 

41440  1 

55440  1 

31407  0 

00006  1 

77645  0 

24,3600 

61451  0 

13626  1 

41451  1 

61411  1 " 

55451  1 

13564  I 

11451  1 

41467  1 

24*3610 

13612  0 

31467  0 

61411  1 

55467  1 

11407  1 

11467  1 

13623  1 

11467  1 

2 4 * 3 62 0 

13625  1 

13625  1 

13623  1 

37665  0 

13642  0 

31467  0 

00006  1 

71471  0 

24,3630 

00006  1 

"77652  0 

00006  I 

13641  0 

10000  0 

37637  1 

13642  0 

47637  0 

24,3640 

13642  0 

30001  0 

00002  0 

C*?- 51644  0 

04177  1 

33643  0 

04162  0 

12504  0 

24 ,3650 

5T>626"“0~ 

12554  0 

3144?  1 

55471  "0 

31424  1 

13661  1 

31450  1 

55471  0 

24  * 3660 

41424  0 

61425  0 

00006  1 

73523  1 

55443  1 

00002  0 

41407  1 

61423  0 

24,3670 

00006  1 

13703  1 

03715  1 

00006  1 

71424  0 

55424  0 

31425  0 

00006  1 

£*+  * 37OO 

71407  1 

55425  1 

12352  0 

03715  1 

00006  1 

71423  1 

55423  i 

5544U  i 

24,3710 

00006  1 

33714  0 

52006  0 

C:  02424  1 

C:  46006  0 

33722  0 

00006  1 

11407  1 

24T3720 

“5 5407“"!“ 

00002  “0  " 

C:  07313  1 

03722“  1 

03724  0 

CK~SM“76  723  0 

@ 

e 

24,3730 

§ 

¥ 

£ 

@ 

@ 

24,3740 

@ 

@ 

6 “ 

e 

e 

§ 

g 

@ 

24 ,3750  ST  W g § g:  W ¥ 


24,3760  g @ g g g g "g 

24,3770  £ g g g g g ¥ ¥ 
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octal  LI  5j  I No  OF  PARAGRAPH  a 144,  WIjHl  PARITY  BIT  IN  BINARY  At  THe  RIGHT  OF  EACH  WORD;  DENOTES  UNUSeD  FIXED  MeMORY, 

“ALXV71L"! D WORDS  AKe  BASIC  INSTRUCTIONS  EXCEPT  tHQ5e  MARKEp~lrI,rl INTERPRET1  vE  OPERATOR  WORDS)  OR  "C11  (CONSTANTS). 

“2572000  4I4O7  1 ' 000 06  I “62006  “0  ~ 5540‘7  I ’ 414110  55411  0 “31412  1 00006  1 

25,2010  “71471  0 ~ 00006  1 77642  1 61411  I 000061  61415  0 55454  1 00006  1 

25,2020  “620 7O  1 31407  0 00006  1 71471  0 “55521  1 62205  1 " 0000fe~"l  ""620X2"  1 

25,2030  ~ “37642  ° 12057  0 41454  1 ~ ~ 6164?  0 00006  1 62116  0 “ 3152T~0“  ^2211  1 


25,2040 

00 OOfc  1 

62044  0 

62210  0 

12164  1 

42067  0 

60076  0 

00006  1 

12061  0 

25,2050 

3162CT  1 

00006  1 

12063  1 

31621  0 

00006  1 

12065  1 

32206  1 

24076  0 

25*2060 

00002  0 

55416  1 

12056  1 

55421  0 

12056  1 

5541 7 0 

12056  1 

C;  02666  0 

25, “2  O7O 

XT412  1 

00006  1 

71650  1 

“61411  1 

61415  0 

6 1646  1 

00006  1 

62X01  0 

25,2100 

00002  C 

42212  0 

61407  0 

00006  1 

62106  1 

00002  0 

41407  1 

00006  1 

25 ,21 1U 

7147TTD 

"55521  1 “ 

4T454  X 

61411  X" 

61411  r 

61647  0 

55454  1 

31471  I “ 

25,2120 

C0006  1 

77642  1 

61650  0 

55456  0 

00006  1 

72213  1 

61454  0 

00006  1 

25,2130 

62170"  0 

31454  0 

00006  1 

11456  0 

00006  1 

71471  0 

00006  1 

71471  0 

25,2140 

55522  1 

32205  1 

61521  0 

00006  1 

70000  0 

61522  0 

00006  1 

62030  0 

25,2150 

32207  0 

61521  0 

00006  1 

62175  0 

00006  1 

23517  0 

04177  1 

41522  1 

25  ,2T60 

04275  0 

00006  1 

"235X7  0 

61521  0 

60000  1 

00006  r 

72215  1 

T2057  V 

25,2170 

32212  1 

62214  1 

00006  1 

71471  0 

12163  0 

32207  0 

61521  0 

00006  1 

25,2200  " 

70000  0 

61522  0 

"00006  1 

62X54  0 

00002  0 

C!  77631 

"0 

c:  00014  l 

CS  77767  1 

25,2210 

c*  00030  1 

C!  77753  0 

C!  34344  0 

c:  31221  1 

Ci  01552  1 

c:  31000 

0 

37651  1 

00006  X 

25,2220 

02031  1 

00006  1 

12245  1 

37650  0 

00006  1 

02031 

1 

00006  1 

12242  0 

26,2230 

" 30765  0 

77650  1 

orrao^  1 

12  2T7  ”1 

51523  X 

33013 

0 

12247  0 

51523  1 

25,2240 

32773  0 

12247  0 

51523  1 

330 53  X 

12247  0 

5 1 5 2 3 1 

33033  1 

55523  0 

25,2250  — " “ 

5T5Z3'  1 

"3Z3X4"  1 

— O0OT6  X " 

7T65T  0 

77663  1 

555Z4  1 

12262  1 

55524  1 

25,2260 

00006  1 

27523  0 

51523  1 

32364  1 

54001  1 

51523  1 

32564  1 

00006  1 

25,2270 

0 5 0 0 1 l) 

71512  1 

10000  0 

12275  1 

12301  0 

11524  1 

12257  1 

00006  1 

2 5 , 2 3UQ 

27623  0 

51523  1 

32364  1 

75235  1 

67641  0 

55501  0 

51523  1 

3236*  1 

25,2310 

00006  1 

77654  0 

10000  0 

12315  0 

12326  0 

10000  0 

12322  1 

31471  1 

25 1 2 3 2 0 

60000  1 

~ 12325  0 

XT47X  1 

00006  1 

77642  1 

55471  0 

51523  1 

32564  1 

25,2330 

00006  1 

77654  0 

30000  1 

32355  0 

55620  0 

30001  0 

00006  1 

77654  0 

25,2340  50000  1 32355“0 55621  1 30001  0 00006  I 77647"!  67641  0 555O2“0 

— 25,2350 32354  1 54001  1 31574  0 52006  0 C:  50006  1 C:  77773  1 C;  77775  1 C;  77776  1 

25,2360 cr  00000  1 c:  00001  0 c:  00002  0 c:  00004  0 c:  00220  1 c;  00006  l c:  00602  0 c:  10226  0 

— 25,2370 CT  11626  0 C7  00201  1 Cl  00044  1 Cl  00640  0 Cr_T0245_  0 CXTT645  0 C!  00140“! C:“OOOU  1 
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OCTAL  LISTING  OF  PTOTOFFT*  145*  WlTHl  PARlfmT  IN  BINARY  At  THg  RIGHT  OF  EACH  WORD?  "e"  DENOTES  UNUSeD  FIXED  MeMORV*~~ 

"ALL  VALID  WQRD5"AR~E "BASIC  INSTRLTCTTONS  EXCEPT  THOSE  WRKeD'  » I 't  (INTERPRETIVE  OPERATOR  WORDS)"  OR  11  C»  (CONSTANTS)  , 

"25T2400  CTGO45C  0 Ci  IOI5TO  Ci  1 1 5 5 1 0 C:  00102  1 C!  00030  1 CS  00412  0 C; 40132-0  Ci  11532  0 

25*2410 C!  C"0270  1 cl "00006"  T Qi  00424"0"  CT  10226  0 cT  T1626  0 ci  00044 "t"'  Ci  00201  T Ci  00405  0 

25*2420  CT "I07'45  "0  C;  11645  0 ~"CT"00140  1 C|  OO'O'ir  1 C'j  0050T  0 C j 10151  0 C:  11551  0 CJ~O^OJU~  I 

75 *2430 Ci  ooro7"r  C:  00520  0 c:  10132  0 C;  11532  0 ci  O4O46  1 c:  04242 “I”  c:  04600  0 cs  00204  l 


25,2440 

CT  0 1 6 0 4 1 

Ci  04142  1 

Ci  04052  1 

Ci  04410  0 

Ci 

00110  1 

Ci 

0l5i0  1 

C! 

04211  1 

C;  04250  1 

25*2450 

C:  04440"  0 

C:  00041  1 

Ci  01441  1 

C:  04230  1 

C: 

04212  1 

c: 

04402  0 

c: 

00022  1 

C:  01422  1 

25,2460 

Ci  04221  1 

c:  04025  1 

c:  O44O4  0 

C ! 00204  1 

Ci 

01604  1 

c: 

04031  1 

c; 

04121  1 

Ci  04500  0 

2572470 

ci  00110"  1 

C:  C1510  I 

C!  04144  1 

Ci  04105  1 

c; 

04401  0 

C! 

C0041  1 

Ci 

01441  1 

C!  C4106  1 

25,2500 

Ci 

04x24  x 

Ci  04420  0 

Ci 

00022  x 

Ci  01422 

1 

Ci 

04004 

1 

Ci 

04200 

1 

Ci  00604  0 

CS 

04001 

1 

25,2510  " 

c : 

0404*0" 1 

C:  00441  0 

Ci 

04100  1 

Cs  04010 

1 

Ci 

00510 

0 

C; 

04020 

r 

C:  04002  1 

CT 

00422" 

0 ~ 

25,2520 

Ci 

00024  1 

Ci  00220  1 

c: 

00006  1 

Ci  01202 

0 

c: 

00005 

1 

Ci 

00201 

1 

Ci  00044  1 

Ci 

01240 

0 

25,2530 

CI 

00101  1 

Ci  00140  1 

cr 

00011  1 

Ci  OIO5O 

0 

Ci 

00120 

1 

Ci 

00102 

1 

c:  00030  1 

Ci 

01012 

0 

C 0 f L 

Ci 

00024  1 

c;  00202  x 

Ci 

00220  1 

C!  01006 

0 

Ci 

11626 

0 

Ci 

00005 

1 

Ci  00240  1 

Ci 

00201 

1 

25,2550 

c ; 

01044  0 

C;  11645  0 

Ci 

00050  1 

C:  00101 

r 

C: 

00140 

1 

Ci 

01011 

0 

C:  11551  0 

C; 

00120 

1 

25,2560 

Ci 

"000*12  1 

Ci  00X02  1 

cr 

U103U  U 

Ci  11532 

0 

CT 

25610  1 

Ci 

25442  1 

CS  25400  1 

Ci 

3 1 6 r cr 

1 

25,2570 

Ci 

31442  1 

Ci  1 66 1 0 1 

C! 

16442  1 

Ci  16400 

1 

c: 

17210 

1 

Ci 

17042 

X 

Ci  05442  0 

Ci 

05610 

0 

25  *2600  Ci  05400  0 CT”0l6lO"l  CT  01442  x Ci  14442  0 Ci  14610  0 CT  14400  0 CT  142io  1 Cj  i4o42  x 

25,2610  C;  25421  1 Cj  25504  1 C:  25400  1 C;  31504  1 C:  31421  1 — Cl  T. 6504  1 C;  16421  1 C:  16400  1 

25,2620  Ci  17104  1 Ci  1?021  1 CT  O55O4  0 Li  05424  0 Ci "05400  0 Ci  OI5O4' 1 Ci  01421  1 Ci  14421  0 

^25 72530  Cl  14504  0 Cl  14400  0 Cl"t4T04~T CT~T407T"I Ci"  22042"! Cl-  22042"!  CT  22210  1 Ci  26610  1 


2572640 

Ci  26442 

1 

Ci 

TTQA2~i 

cs 

11042 

1 

Ci  1 1 2 x 0 1 

"Cs 

046x0  1 

Ci  04442  X " 

Ci  122x0  l 

C:  122x0  1 

25 ,2650 

CJ  12042 

i 

c : 

06442  0 

CT 

06610 

"0 

Cj  21210  1 

C: 

21710  1 

Cs  21042  1 

C:  24442  0 

C T 24*610  " 0 

25,2660 

Ci  22021 

1 

c: 

22021  1 

C ! 

22104 

1 

Ci  26504  1 

cs 

26421  1 

Ci  1 1 02 1 1 

Ci  11021  1 

C;  11104  1 

25,2670 

Ci  04504 

1 

c: 

04421  1 

C ! 

12104 

1 

C i 12104  1 

Ci 

12021  1 

Ci  06421  0 

Ci  06504  0 

Ci  21104  1 

C.0  9*1  ( 00 

0!  ^110^ 

1 

CS 

_ 1 0 2 x X 

Ci 

2442  x 

0 

Ci  24504  0 

Ci 

22000  1 

C!  22000  1 

Ci  26400  1 

C:  12000  1 

25,2710 

C ; 12000 

1 

c • 

06400  0 

Ci 

11000 

1 

C ; 1 iuuo  1 

c: 

04400  1 

Ci  21000  1 

C:  21000  1 

C;  24400  0 

25 ,2720 

C r 2 5 4*0  0"" 

1 

Ci 

2 5400"  1 

CT 

25400 

1 

Ci  25400  1 

CT 

16400"  1 

cr  16400  1 

Ci  16400  1 

Ci  16400  1 

25,2730 

05400 

0 

C : 

05400  0 

cr 

05400 

0 

C!  U5400  U 

CS 

1440U  u 

CS  14400  0 

Ci  14400  0 

CS  14400  0 

0 

C!  25400 

1 

cs 

0400  X 

cs 

25400 

1 

Ci  25400  1 

CS 

3x^00  X 

Ci  X6400  1 

c:  16A00  1 

Ci  16400  x" 

25,2750 

C;  16400 

1 

c : 

17000  1 

c : 

05400 

0 

Cj  05400  0 

c : 

05400  0 

C:  05400  0 

C;  01400  1 

C;  14400  0 

25,2760 

Ci  14400 

0 

c ; 

I44OO  0 

c ; 

14400 

0 

Ci  14000  1 

cs 

00177  0 

Ci  U0l76  1 

c:  00130  0 

Ci  00130  0 

25,2770 

L • U 

Ci 

00171  0 

C s 

UU125  1 

c:  00175  1 

cs 

00 133  0 

CS  OOl"33  0 

c : 00 172 "0 

ci  00122  0 
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zy* 3000 

CT 

00165 

“0 

c:  00164 

"T 

c:  ooi60  o 

C!  00157 

1 

c: 

00177 

0 

c;  00153  0 

c:  00130  0 

c:  00130  0 

25 ,30 10 

c: 

00172 

“0 

c:  00147 

0 

C!  00125  1 

c:  00125 

1 

c? 

00133 

0 

c:  00133  0 

c:  00122  0 

c:  00122  0 

25,3020 

C: 

“00165 

~0~ 

C:  00143 

1 

c:  00160 ~o~ 

C"i  OUl  37 

1 

Cj 

00023 

0 

c:  00021  l “ 

C;  00061  0 

C;  00057  0 

25,3030 

CT 

“00016 

73 

c:  00014 

1 

c:  00066  1 

c:  00064 

0 

c: 

000?3 

0 

c:  00071  1 

C:  00054  0 

C:  00052  0 

2573040 

c:  ooon 

1 

C:  ooooT 

0 

c:  00004  0 

C;  00002 

0 

C!  00047  1 

c:  00045  0 

C:  00105  0 

c:  ooio3  0 

25,3050 

C:  00042 

1 

C : 00040 

0 

C:  00112  0 

C:  00110 

1 

c:  00117  0 

c:  00115  1 

C:  00100  0 

C:  00076  0 

25,3060 

CS  00035 

1 

c:  00033 

1 

c;  00030  1 

C:  00026 

0 

37650  0 

70765  1 

00006  1 

13325  1 

~ 25,3070 

31671 

0 

00006 

1 

13275““0“~ 

33367 

u 

00036  7 

63077  7 

13301  I 

33410  1 

25,3100 

00006  7 

71677  I 

37643  1 

60001  0 

54066  0 

33411  0 

00006  1 

71671  1 

25,3110 

33472  0 

" 60001  0 

54065  0 

“70000“  0 

67537  1 

55657  0 

0UUU6  1 

77644  1 

25,3120 

5 5 6 6 0“  7 

30065  1 

00006  1 

73403  1 

55656  1 

40065  0 

00006  1 

73375  1 

25,3130 

63376  0 

54065  0 

50U66  1 

00006  1 

71634  0 

55634  0 

30066  1 

00006  1 

25,3140 

71635  T 

55635  1 

40066  0 

00006  1 

77643  0 

67643  1 

54066  0 

41417  0 

25,3150 

“ 57644  0“ 

00006  1 

61640  1 

61417  1 

00006  1 

7O066  0 

27634  0 

41421  0 

2573760 

57645  1 

00006  1 

“61641  0 

61427  1 

00006  1 

70066  0 

27635  1 

30065  1 

25,37  7 0 

0 0 006  1 

71634  0 

55642  1 

30065  1 

00006  1 

7 1635  1 

55643  0 

31634  1 

25,3200 

676  35  0 

00006”! 

77377  0 

55636  1 

41634  0 

61635  0 

00006  1 

73377  0 

25,3210 

“ “55637  0 

36165  0 

54065  0 

50065  1 

11634  0 

67657  1 

13220  0 

6765  t 1 

23,3220 

50065  1 

5 4 0 7 0 1 

63400  0 

00006  1 

63263  0 

63413  1 

54066  0 

37651  1 

25“,  3230 

2300?  7T~ 

“”  0000 6 1 

10066  0 

50065  1 

55651  0 

33400  0 

00006  1 

50065  1 

25,3240 

6007CT(1 

50065  1 

61630  0 

00006  1 

63265  0 

37665  0 

50065  1 

55665  1 

25,3230 

~ 50065  1 

31445  0 

00003“  1 

77642  1 

50065  I 

55661  0 

10065  0 

13261  0 

23, 3260 

13313  1 

54065  0 

13213  0 

33402  1 

13233  1 

37637  1 

50065  1 

55665  1 

25,3270 

50065  1 

31445  0 

00006  1 

77643  0 

13254  0 

37656  0 

55671  1 

3 7665  0 

25,3300 

““ 13 TO 40 

37665  0 

220  07““Q" 

53660  1 

33403  0 

55656  1 

33375  0 

54065  0 

25,3310 

33404  1 

54066  0 

13132  0 

33^05  0 

04536  0 

C:  03064  0 

C;  52006  0 

37656  0 

25 ,3320 

27671  1 

37665  0 

556 AO  73  ” 

55641  r 

“14602  0 

33406  0 

55656  1 

U0006  1 

25,3330 

33415  r 

53660  1 

37655  0 

70765  1 

67655  0 

54765  1 

33402  1 

55650  1 

Of  3340 

55651  0 

55652  0 

55653  1 

55654  O 

00006  1 

31446  0 

53662  0 

00006  1 

25,3350 

3 1450  1 

53664  0 

33407  1 

55647  1 

55646  0 

37665  0 

55634  0 

55635  1 

25,3360 

55642  1 

55643  0 

55665  1 

55666  1 

55667  0 

55670  0 

14602  0 

C:  77160  0 

25,3370 

“CT  00027  1 

c:  2051 0““T 

0:  77557  u 

C:  00047  1 

CS  13555  0 

C:  03146  1 

c:  06315  0 

C:  26501  1 
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OF  PARAGRAPH  * 

147*  “filTH1 

'PARITY  BIt  IN 

BINARY  AT  THE 

right  of  each 
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unused  fixed 

memory 

• 

' ALL  VA  L IDWOR  0 5 ARE  BASIC  IN 

EXPERT  THOSE 

MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C»  (CONSTANTS). 

2 b % 3400  C! 

: 77456  0 c: 

00641  1 

C!  11643  0 

c:  24000  1 

C!  30000  1 

c:  00310  o c: 

12000  i c; 

00033  1 

25,3410  C 

: 00024  1 CS 

"00027  1 

C!  16051  1 

c:  00321  1 

c;  20000  o 

C!  02000  0 

37665  0 

55512 

1 

” 25,3420 

55513  0 

"00006  1 

00032  0 

55511  1 

40000  0 

00006  1 

77651  0 

37665 

0 

25,3430 

54065  0 

30001  0 

13435  1 

67657  1 

24065  1 

60000  1 

54066  0 

13434 

0 

25,3440 

50065  1 

03445  1 

10066  0 

13433  1 

14606  1 

13455  1 

13462  0 

13467 

O' 

25,3450 

13474  1 

13501  1 

13506  0 

13513  1 

13520  1 

37652  1 

27512  1 

37654 

1 

25,3460 

27513  0 

00002  0 

37653  0 

27512  1 

37653  0 

27513  0 

00002  0 

37651 

1 

25,3470 

12  1 

37655  0 

27513  IT 

00002"  0 

37650  0 

27512  T 

37650  0 

27513 

0 

25,3500 

00002  0 

37654  1 

27512  1 

37657  1 

27513  0 

00002  0 

37657  1 

27512 

1 

25,3510 

37656  0 

27513  0 

00002  CT 

37655  0 

275TZ  1 

37652  1 

27513  0 

00002 

0 

25,3520 

37656  0 

27512  1 

37651  1 

27513  0 

00002  0 

03570  0 

03563  1 

00006 

1 

25 ,3530 

27461  1 

33560  1 

04536  0 

C:  03525  0 

C:  52006  0 

14602  0 

03604  0 

03563 

1 

25,3540 

00006  1 

27462  I 

33561  U 

04536  0 

CS  03536  1 

c:  52006  0 

14602  0 

03621  1 

25,3550 

03563  1 

00006  1 

27463  0 

33562  0 

04536  0 

c:  03547  1 

C:  52006  0 

14602  0 

25 , 3560 

" cmo3icrrr 

C ! " 02424"  1 

(-  • 00264  1 

37650  0 

70765  1 

10000  0 

00002  0 

14602  0 

25,3570 

31461  0 

22007  0 

00006  1 

11464  1 

60000  1 

55444  0 

33660  1 

22007  0 

25,3600 

"00006  1' 

~01I46l  1 

55627  1 

00002  0 

31462  0 

22007  0 

00006  1 

11465  0 

2 b 9 3 6 1*  0 

55661  0 

60000  1 

55445  1 

33661  0 

22007  0 

00006  1 

11462  1 

55630  1 

25,3620 

00002  0 

31463  1 

22007  0 

00006  1 

11465  0 

55662  0 

60000  1 

55446  i 

25,3630 

33661  0 

22007  0 

00006  I 

11463  0 

55631  0 

3 1 44  5 0 

61446  0 

00006  1 

25,3640 

73377-0“ 

55447  0 

31445  0 

00006  r 

71446  1 

00006  1 

11447-0  - 

55447  0 

25 ,3650 

-55450  0 

31630  0 

61631  1 

00006  1 

7366 Z 1 

' 55632  0 

55633  1 

"000172  0 

2b  f 3660 

C;  0005Q" 1 

C;  00054  0 

C:  13241  1 

03663  1 

03664  0 

CkSM  71304  0 

@ 

@ 

25 ,3670 

@ 

S 

@ 

@ 

@ 

@ 

§ 

® 

25,3700 

S' 

S 

@ 

s 

s 

e 

e 

25,3710 

S 

S' 

s 

s 

« 

s 

s 

® 

25*3720 

e 

~w~ 

~s 

“S- 

' ' s 

~'S 

s 

25*3730 

"S  ' 

@ 

'S' 

s 

s 

s 

& 

s 

25*3740 

S 

@ 

S“ 

s 

" s 

s 

& 

e 

25  *3750 

IS 

s 

s 

s 

s 

s 

s 

25  *3760 

e 

s 

§ 

s 

s 

s 

s 

s 

23*3770 @ @ @ @ @ @ @ S' 
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26,2000 

32372  0 

540 3 0 0 

22016  0 

00006  1 

22012  1 

0000b  1 

32071  0 

52346  1 

26,2010 

32015  1 

55553  1 

12032  0 

C:  02315  1 

C;  02051  1 

32372  0 

54030  0 

22016  0 

26,2020 

00006  1 

22012  r 

00006  1 

31604  1 

52346  r 

53604  0 

53612  1 

53610  0 

26,2030 

53606  1 

53fe04  0 

04177  1 

00006  1 

30034  0 

53550  1 

00006  1 

00004  0 

26,2040 

54001  1 

00006  1 

06004  0 

00006  1 

12050  1 

00006  1 

00004  0 

54001  1 

26,2050- 

01553  0 

40001  1 

61552  1 

23552  1 

00006  1 

62060  0 

67640  1 

67640  1 

26  f 2060 

00C06  1 

77651  0 

42367  0 

00006  1 

70001  1 

55551  0 

11556  1 

12073  0 

26,2070 

C:  02055  0 

C;  46006 ”0 

1 2104  r~ 

46165  T 

27336  1 

00006  1 

51556  0 

32404  0 

26,2100  - 

53(5  6 0 1 

51556  0 

32405  1 

5556l7“0_ 

37656 

0 

54073  1 

12112  0 

37665 

0 

26,2110 

54073  1 

04177  1 

50073  0 

53563  1 

52077 

O"  - 

50073  0 

53567'  0 

53066 

0 

26,2120  - 

50073  0 

53573  0 

52071  0 - 

50073  0 

31576 

1 

57577  0 

30070  0 

00006 

1 

26,2130 

71551  0 

00006  1 

77646  0 

60065  1 

00006 

1 

71551  0 

00006  1 

77647 

1 

26,2140 

20077  0 

31577  0 

00006  1 

71551  0 

54072  0 

00006  1 

77651  0 

6OO7O  0 

26,2150 

“ 00006  1 

71551  0 

00006  I 

77645  0 

20066  0 

30072  1 

00006  1 

77650  1 

26,2160 

2OO7I-O 

170006  1 

30077  1 

02303  1 

31550  U 

0000b  1 

20072  0 

55554  0 

26,2170 

40077  0 

60000  1 

57555  0 

00006  1 

31555  0 

20001  1 

22072  1 

00006  1 

26,2200 

71557  0 

20077  0 

30072  1 

00006  1 

71557  0 

26077  0 

54001  1 

12211  0 

26,2210 

26076  1 

31554  1 

00006  1 

77647  1 

22072  1 

31555  0 

00006  1 

77647  1 

26,2220 

60072  1 

22072  1 

00006  1 

71560  1 

20066  0 

30072  1 

00006  1 

71560  1 

— 26T223Q- 

26066'O  " 

54001  1 

1 223^TI 

2&065  0 

31554  r 

00006  I 

77650  1 

22072  1 

2 6 f cc4U 

31555  0 

00006  1 

77650  1 

6OO72  1 

22072  1 

00006  1 

71561  0 

2UU7 1 u 

2672250 

' 30072  1 

00006  1 

71561  0 

- 26071  0 

64001  1 

1225  l 1 

26070  7 

5207J  0 

26,2260 

50073  0 - 

53563  1 

52066  0 

50073  0 

53567  0 

52071  0 

50073  0 

53573  0 

26,2270 

575470 

57550  0 

57547  0 

10073  1 

12107  1 

40345  1 

62677  0 

00006  1 

- 26^2300 — 

12575  0 

14606  1 

20001 

I 

10000 

0 

67657  1 

1230  I 0 

40000  0 

54072  0 

26*2310 

12314  1 

50000  1 

37640 

1 

26072 

0 

00002  0 

23552  1 

32371  0 

55556  1 

26,2320 

~ 320X4  —0 — 

55533  1 

00006 

1 “ 

32375 

1 

53604  0 

00006  1 

33U71  0 

53606  1 

26,2330 

00006  1 

32071  0 

53612 

1 

00006 

1 

32400  1 

53610  0 

OOuOt>  1 

32402  0 

26  *2340 

5 3 602  C 

57547  u 

00006 

T 

77642 

I 

53563  1 

31550  0 

U0U06  1 

776*3  1 

26,2350 

53565  1 

37665  0 

55566 

1 

55567 

0 

55570  0 

55571  1 

55572  1 

55573  0 

26  1 2 3 60 

55574  1 

55575  0 

55576 

0 

55600 

1 

55532  0 

55534  0 

14606  1 

C;  24366  1 

26,2370 CT~X4000  1 C:  00172  1 Ci  37776  0 C;  37775  0 C!  02535  0 CT~ 54006  "0 CT  02055-  0 CY“tr2564  1 
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NS  of  paragraph 
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EXCEPT  THOSE  MARRED  " I » (INTERPRETIVE  OPERATOR  WORDS) 

OR  "C"  (CONSTANTS). 

2fc » 2400 

c:  54006  0 

c;  02015  1 

C:  54006  0 

c;  05751  1 

CS  00672  1 

CS  05362  0 

CS  04460  1 

Cs  00731  1 

26 » ZATTT 

CT  05530  I 

c:  04522  0 

cr  00745  1 

CS  05632  0 

CS  04572  0 

CS  11602  0 

CS  05764  1 

CS  04650  0 

26,2420 

crrnoxrs^ 0““ 

C!  06153  0 

c:  04735  1 

C:~0T032  TT 

Cs  06405  0 

CS  05027  1 

C:  01063  0 

CS  06707  1 

26*2430 

cs  05130  or 

c:  01120  0 

c:  07270  0 

cs  05237  1 

CS  01163  1 

CS  O7742  1 

Cj  05354  0 

Cs  01232  0 

26,2440 

c:  10513  1 

c:  05475  1 

c;  01306  0 

c:  11375  0 

C!  05622  1 

CS  01367  1 

CS  12402  1 

CS  05752  1 

26,2450 

C ! 01456  i 

C*  13541  0 

c ; 06101  1 

Cj  01551  1 

C:  15040  1 

C:  06225  1 

C;  01647  0 

C;  16503  0 

26  f 2^60 

C • 06341  1 

C:  01746  0 

c:  20244  1 

c:  06440  1 

CS  02041  0 

CS  22055  1 

CS  06514  1 

Ci  02123  0 

26  1 2470 

C S 2561 U 1 

C ! “06542  1 

CS  02166  r 

CT  2"5072  0 

CS  06546  0 

CS  02205  1 

CS  25640  1 

C;  06543  G 

CO  9 COQQ 

CS  0217/  1 

c:  3542  ( 1 

c:  06564  0 

c:  02160  1 

CS  24077  1 

CS  06671  1 

CS  02 i5a  0 

CS  21470  1 

26 , Z 5 1 U 

CS  U7125  u 

Cs  02225  6 

c:  16256  1 

C:  07544  a 

C;  02430  1 

Cs  12624  1 

C:  10401  0 

Cs  C3054  0 “ 

26,2520 

C:  0731 7 or 

c ; 1 1 50  7 0 

c:  04070  1 

C!  04404  0 

CS  13146  0 

CS  06020  0 

CS  02213  0 

Cs  15230  1 

26,2530 

C 5 11756  u 

c:  00613  0 

CT  17670  0 

CS  23514  0 

CS  00001  0 

32373  1 

54030  0 

22016  0 

26,2540 

00006  1 

32402  0 

52346  1 

1*610  0 

32372  0 

54030  0 

22016  0 

00006  1 

26 ,2550 

32554  1 

52346  1 

14610  0 

C:  02002  1 

Cs  50006  1 

32372  0 

54030  0 

22016  0 

26 ,2560 

C 0 0 0 6 1 

32071  0 

52346  1 

14606  I 

32373  1 

54030  0 

22016  0 

D0006  1 

26,2570 

22012  1 

00006  1 

32402  0 

52346  1 

12666  1 

00006  1 

31563  0 

02302  1 

26 , 2 6UU 

00006  1 

20775  0 

55477  0 

00006  1 

31565  0 

02302  1 

“00006  1 

20776  0 

26 ,2610 

55500  1 

00006  1 

31500  0 

"0342 1 0 

53500  1 

03431  1 

57500  0 

31570  1 

26,2620 

54001  1 

31566  0 

" 03421  0 

55417  0 

31570  1 

54001  1 

31566  0 

03431  1 

26 ,26S0 

63421  0 

31574  X) 

54001  1 

31572  0 

03421  0 " 

55420^1  " 

31574  0 

"54X701  1 

26 ,264U 

31572  0 

03431  1 

55422  0 

31417  1 

00006  1 

72664  0 

27477  0 

31421  1 

26 , Z650 

00006  1 

72664  0 

27500"  1 

“31420  0" 

“ 0DXT06  1““ 

72665  1 

27417  0 

31422  I 

26 ,2660 

00006  1 

72665  1 

27421  0 

14606  1 

C;“  00122  0 

C:  00051  0 

37656  0 

70765  1 

26  ,2670 

1 01)  0 0 0 

12723  1 

37657  1 

54073  1 

50073  0 

11477  0 

62721  1 

12701  1 

26 ,27UU 

62721  1 

U 0 0 0 6 1 

62704  0 

12723  1 

30073  0 

60000  1 

50000  1 

11417  0 

cO % 27  1U 

62722  1 

12713  1 

62722  1 

00006  1 

62716  0 

12723  1 

10073  1 

12673  0 

26 ,2)20 

1276 6 0 

C ; 77512  1 “ 

Cs  77423"  1 

32745  0 — 

54345  1 

32746  0 

55601  0 

00006  1 

26 ,2730 

30034  0 

53434  1 

00006  1 

31500  0 

57500  0 

23477  1 

37657  1 

04536  0 

COyC  1 HU 

c,  rsi  u 

CS  54UU6  u 

uuwg  1 

32750  1 

52006  0 

C702555  0 

CS  "02544  0" 

CS  C3122  0 

C 0 )C JOU 

0 9 3000 6 1 

3?665  0 

03442  0 

04536  0 

c:  03370  0 

CS  54006  0 

37656  0 

03442  0 

£0 9 c 7 0 u 

U H*  p o 0 0 

0 * Vo  o Jo  0 

CS  54006  0 

03400  0 

14602  0 

CS  76504  1 

37656  0 

54073  1 

26 ,2770 

22:773  1 

37665  3 

54073  1 

00006  1 “ 

50Q73~"0 

31536  0 

52066  0 

XT0006"  1 
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26,3000 

5OO73  0 

31420  0 

5207 1 0 

3OO73  0 

00006  1 

13010  1 

31500  0 

13011  0 

26,3010 

31477  1 

00006  I 

77651  0 

22075  0 

30065  1 

62765  1 

00006  1 

63033  1 

26,30215 

37642  0 — 

54076  I 

37644^  0 

5AO77  cr 

IOO7O  1 

63056  1 

13030  0 

63056  1 

26,3030 

~ cooo6~  1 

63047  1 

13071  0 

30065  1 

00006  1 

77653  1 

22065  1 

30065  1 

26,3040 

0000&  1 

70000  0 

54066  0 

37646  1 

54076  1 

37654  1 

13023  1 

IOO7I  0 

26,3050 

63057  0~ 

130530 

63057  0 

00006  1 

63060  1 

13071  0 

C;  76450  1 

C;  75120  0 

26,3060 

3O07CT0  ” 

0 0 0 0 6 i 

77653  1 

22070  0 

3OO7I  1 

00006  1 

77654  0 

22071  1 

26  * 3O7O 

^1310115“ 

30076""0r 

00005  I 

77643  0 

54076  I 

30077  1 

00006  1 

7765  2~~ 0 

26,3100 

54077  0 

30075  0 

00006  1 

70066  0 

22074  1 

00006  1 

7OO77  0 

52075  1 

26,3110 

00006  1 

700  7 7 0 

26075  1 

30570  0 

00006  1 

70065  0 

22065  1 

00006  1 

26,3120 

7OO76  1 

52066  0 

00006  1 

7OO76  1 

46066  0 

3OO7I  1 

00006  1 

7OOOO  0 

26,3130 

52077  0 

30071  1 

00006  1 

63137  1 

00006  1 

30077  1 

13141  1 

OOUUb  1 

26,3140 

4OO77  0 

53531  0 

00006  1 

30066  1 

21531  0 

11530  1 

13152  0 

13151  0 

26,3150 

13154  0 

11531  0 

37656  0 

13155  1 

37665  0 

67667  1 

54072  0 

10072  0 

2 6 1 3 1 60 

13X65  1 

CT  25253  1 

00506  1 

40066  ”0" 

52066  0 

00006  1 

3 0 0 6 6 1 

26*3170 

50006  1 

30077  1 

21531  0 

30076  0 

00006  1 

73161  0 

52077  0 

56001  0 

26,3200 

C0006  1 " 

73161  0 

26077  0 

' 54001  1 

_ 13206  1 

60076  0 

52066  0 

20077  0 

26,3210 

30076  0 

~00006  1 

70071  0 

52077  0 

56001  0 

00006  1 

70071  0 

26077  0 

26,3220 

54001  1 

13223  0 

26076  1 

52077  0 

20075  1 

11530  1 

13273  0 

13231  0 

2 6 1 32 30 

orison 

04177  1 

31531  1 

04275  0 

■"00006  1 

71531  0 

00006  1 

77650  1 

26,3240 

56001  0 

37665  0 

53531  0 

13260  1 

31530  0 

00006  1 

77651  0 

5553U  U 

26,3250 

37665  0 

-5753I  I 

00006  1 

77651  0 

21531  0 

37665  O 

55527  1 

13300  0 

26*3260 

47637  0“ 

55527  1 

10072  0 

33230  0 

13266  1 

43230  1 

13302  1 

37637  1 

26*3270 

55527  1 

37652  1 

13302  1 

64362  1 

54000  0 

13244  1 

37637  1 

5552  7 1 

26  * 3 300 

3153  0 0 

04275  0 

57530  0 

00006  1 

71530  1 

53531  0 

00006  1 

7UUU 1 1 

26*3310 

27531  0" 

54001  1 

13314  0 

27530  1 

11527  1 

13260  1 

13267  0 

00006  X 

26  *5320 

31 551  1 

20075  1 

10074  0 

133Z7~  0 

13326  1 

13331  1 

IOO75  1 

57656  0 

26*3330 

13332  1 

37665  0 

67667  1 

50073  0 

55532  0 

40000  0 

00006  1 

50073  0 

26,5340 

71541  1 

50073  0 

23542  0 

IOO73  1 

12771  0 

31542  0 

00006  1 

7 1 4UU  U 

26  * 3350 

55576  0 

31544  0 

00006  1 

71402  1 

27576  0 

27576  0 

31542  0 

00006  1 

26*3360 

71401  1 

55600  1 

31544  0 

00006  1 

71403  0 

27600  1 

03400  0 

14606  1 

2b  * 3 370 

37665  0 

55532  0 

13375  I' ” 

37 6 65  0 

55534“  0 

03400  0 

14602  0 

C;  07400  1 
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AT_L  VALID  W0Rp5  ARE  BASIC  INSTRUCTIONS  EXCEPTTHCTSE  MARKED  11 1 " ( INTERPRET  1 VE  OPERATOR  WORDS)  OR  »C"  (CONSTANTS?  » 


26,3400 

43377  CJ 

00006  1 

02012  0 

54073  1 

11532  0 

37647  0 

13410  0 

37646  1 

26,3410" 

26073  1 

11534  0 

37645  1 

13415  0 

37644  0 

26073  1 

00006  1 

01012  0 

26,3420 

00D  02~  0" 

22073  0 

00006  1 

71405  0 

56073  0 

00006  I 

71401  i 

60073  0 

26,3430 

500002  0 

22073  0 

00006  1 

71406  0 

56073  0 

00006  1 

71403  0 

60073  0 

26,3440 

00002  0 

C:  25253  1 

54065  0 

50065  1 

31542  0 

00006  1 

13511  0 

54066  0 

26,3450 

0000  5 1 

50065  1 

71420  1 

10000  0 

13460  1 

13460  1 

13466  1 

13466  1 

26,3460 

50065  1 

^ 1 5 32  0 

50065  1 

55532  0 

40066  0 

54066  0 

50065  1 

41420  1 

2 6- , 3 4 7 0 

00006  1 

77645  0 

00006  1 

10066  0 

63517  1 

1000CT  0 

43516  1 

00002  0 

26,3500 

67657  1 

00006  1 

73520  1 

20001  1 

63516  0 

40000  0 

00006  1 

63511  1 

26,3510 

00002  0 

37665  0 

50065  1 

55532  0 

50002  0 

00003  1 

C:  50437  1 

C;  60777  0 ' 

26,3520 

c;  31000  o 

03521  1 

03522  1 

CKSM  50453  0 

§ 

§ 

© 

0 

26,3530 

0 

0 

0 

0 

0 

0 

26,3540 

0 

0 

0 

0 

0 

© 

e 

0 

26,3550 

§ 

© 

© 

© 

© 

© 

© 

0 

26 ,35  670 

0 

© 

0 

© 

0 

0 

© 

0 

26,3570 

© 

© 

0 

© 

0 

© 

s 

© 

26*3600 

0 

0 

© 

0 

© 

0 

0 

0 

26 , 3610 

© 

0 

0 

0 

0 

0 

0 

0 

26 ,3620 

0 

0 

0 

© 

0 

0 

0 

0 

26,3630 

© 

0 

© 

0 

© 

0 

0 

26,3640 

0 

0 

© 

© 

© 

0 

© 

0 

26,3650 

© 

0 ' 

© 

0 

0 

© 

0 

© 

26 ,3660 

0~ 

0 

© 

© 

0 

0 

© 

0 

26,3670 

0 

0 

© 

© 

0 

© 

0 

0 

26,3700 

0 

0 

© 

0 

0 

© 

0 

© 

26,3710 

© 

0 

0 

0 

0 

0 

0 

0 

26,3720 

0 

0 

0 

© “ 

0 

0 

0 

26 ,37  30 

© 

- - 

0 

0 

0 

0 

0 

26,5740 

0 

-0 

© 

0 “ 

© 

0 

0 

© 

26 ,3750 

© 

0 

r 

© 

© 

© 

0 

0 

26,3760 

0 

© 

@ 

0 

0 

© 

0 

0 

26 , 37T0 

— 0 

— r~ 

~r' " 

- g -- 

0 

0 

0 

© 
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473423A  YJL  SYSTEM  MAINTENANCE  FUNCTION!  DIRECTORY  LISTING  OF  NANSTONE  #176  NOV  10,  1966  PAGE,  j 

COMPUTERS  AGC4 

* li  4i<  H HHUtHn 

Software 

A55EM3LY  PASS  1~  ASSEMBLY  PASS  2.  ASSEMBLY  PASS  3 MANUFACTURING  SIMULATION 

AVAILABLE-  available-  available-  available  AVAILABLE- 

“PROGRAMS 


(NONE) 


SUBROUTINES 

(NONE) 


A73A23A  YjL  SYSTEM  MAINTENANCE  rjNCTION;  DIRECTORY  LISTING  Op  NANSTONEJf  176 


NOV  10*  1966 


pAGE 2 


computer;  agc 

■ > m u « a * « * * d t * 


SOFTWARE 


A5SEMflLT~FASS  1 ASSEMBLY  PASS  2 ASSEMbLF  PASS  3 MANUFACTURING  ""SIMULATION" 

AVAILABLE  AVA.I LABLl~~  AVAILABLE  AVAILABLE  NOT  AVAILABLE 


PROGRAMS 


NAME  R~EVISION  ~ AUTHOR  LAST  ASSEMBLED  M'F« ABLE  SUBROUTINES  (OBSOleTING  SUBROUTINES  PREFIXED  BY  »/»7 


SJNDANCE  " 

3 208GROUP 

NOV  10»  1966 

NO  MASTER 

utility 

IMUCOMPL 

PINDANCE 

sElfchek 

COAsTFlT 

LEMqAP 

prelunch 

systestl 

geometry 

STARTAB 

SJNDISK 

6 207GR00P 

NOV  10,  1966 

NO  MASTER 

UTILITY 

IMUCOMPC 

PINDISK 

selfchek 

COASTFLT 

DAPCSM 

prelunch 

SYSTESTC 

geometry 

STARTAB 

SUBROUTINES 


NAWg  R eV I SION  AUTHOR 

MASTER  "1  REICHERT 

_UTILIJY 3 — REICHERT" 

UNU5EP  "RUFTINSC  (NEW)  REICHERT 
" IMUCQMPC  ' l REICHERT 

I'MU  COMFIT 1"  REICHERT 

” PIN  DISK 3 ~ REICHERT 

PTNUANCE  2 REICHERT 

~~~SELFCHEK T "REICHERT 

COASTFLT 3 REICHERT 

DAPCSM  2 REICHERT 

3 CEM"GHUUP 


LAST  ASSEMBLED  CONTROL 


NOV  7 


1966 


"NO 


NOy  10 


■NO- 


1966 


NOV  3 


1966 


"NO 


NOV  10 


1966 


"NO 


"NOV  10 


1966 


"TO" 


NOV  7 


1966 


NO 


NOV-  10 


1966 


NO 


NOVTj 


1966 
1966 
1966 
T9  66" 


"NO" 


NOV  10 
NOV  10 
'NOV TO" 


NO 


NO 

“NO" 


SUBROUTINES  "(OBSOLeTINQ  SUBROUTINES  PReFIXeP  BY  »/") 
(NONET 

" tnonei 

"(NONE)  ~~ 

(NONE)"" 

(NONE) 

(NONE)  "" 

CNQNE) 

(NONE) 

(NONET"  " " 

(NONE)  , 


UEMURF 


TNONE)" 


473A23A  YJL  SYSTEM  MAINTENANCE  FUNCTIONS  DIRECTORY  LISTING'  OF  NANSTONE  *176  NOV  10,  1966  PAGE  3 


P^ELJnO  1 REICHERT  __  NOV  10,  1966  NO  (NONE) 

5YSTE5TC  A REICHERT  NOV  lOt  1966  NO  (NONE) 

i) 

"STSTESTT-T  2 REICHERT  " NOV  jOt  1966  NO  (NONE) 

GEOMETRY  2 RETCHERT  NOV  10»  1966  NO  ~ (NONE) 

5TAKTAB  (NEWT  "REICHERT  NOV  3t  1966  NQ.  (NONE) 


473423A  VUL  SYSTEM  >.Al NTENANgE  FUNCTION ; DIRECTORY  LISTING  OF  NANSTONE  #176 
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COMPUTER!  BLK2 


software 


assembly  pass  i assembly  pass  2 assembly  pass  3 manufacturing  simulation 

available  available  _ available  available  not  available 


PROGRAMS 


NAME  REVISION  AUTHOR 
_ AURORA  12  _ DAP  GROUP 
SUNbURST  TT  LEM  GROUP 

SHfcFATIN  6~ eYLeS~ 

MAMOLJTH3  3 FI  LENE+GREEN 

LOCAVOIL  9 DT KEENE  ~ 

MAM0UTH2  17  FILENE+GREEN  ' 
NEWPRET  ( NEW")  STANDARD  PAC<AoE 
5 PCD A MCE  I SDC  LEM  ~ 

~ RADAR  (NEW)  GILBERT' 

LEADIN2  (NEW)  5TANDARD  PACKAGE 
COMPASSS T5 SCHMIDT 


LAST  ASSEMBLED  M*Fi ABLE 


NOV  10 
NOy  10 
NOV  2 
OCT  31 
OCT  28 


1966 

1966 

1966 

1966 

1966 


YES 

NO 

Yes 

yes 

yes 


oct  27 


1T966 


TE5“ 


OCT  22 
OCT  S 
5EP  20 


1966 

1966 

1966 


SEP  16 


1966 


AUG  24*  I9&6 


YES 

NO 

test- 

YES 

YET 


SUBROUTINES  (0650LETING  SUBROUTINES  PREFIXED  BY  »/») 
(NONE) 

(NONET" 

(NONET" 

TNONE)  1 1 " 

(NONE) 

(NONET" 

("NONE)  ' 

(NONE) 

(NONE) 

(TNONE) 

(NONET 


SUBROUTINES 


(NONE) 


A73423A  YJL  SYSTEM  MAINTENANCTTUNCTI UN ; DIRECTORY  LISTING  OF  NANSTONE  *176  NOV  10,  19 66  PAGE  5 


COMPUTER : SACO 

s 1a,Ci'i»SBE»ESS 


SOFTWARE 


assembly  pass  i assembly'  pass  2 ~ assembly  pass  3 manufacturing  simulation 

available  available-  AVAILABLE  available  available" 


programs 


(NONE) 


SUBROUTINES 


(NONE) 


A73A23A  yUL  System  vA INTeNANCE  FUNCTION:  DIRECTORY  LISTING  OF  NAN5T0NE  *176 


NOy  10,  1966 


pAGE  6 


author;  207GR0UP  number  of  programs  and  subroutines;  1 

author;  208GR0UP  number  of  programs ~and  subroutines;  1 

AUTHOR;  DAP  GRqcP  NUMBeR  OF,  PROGRAMS  AND  SUBROUTINES;  T 

AUTHOR;  D t KEENE  ~ NUM3£R  OF  PROGRAMS  AND  SUBROUTINES;  T 

author;  eTleT number^of  programs  and  subroutines; 1 

"author;  filene*green  number  of?  programs  and~tubrqutiness  2 

AUTHOR;  GILBERT  NUMBER ~OF  PROGRAMS  AND  SUBROUTINES;  1 

AUTHOR;  I_eM  GRqUP  NUMBER  OF  PROGRAMS  AND^SUBRoUtINeS;  2 

AUTHOR"!  ReICFTeR^T"  "NUMBeR  OF  PROGRAMS  AND  SUBROUTINES?  i5 

AUTHOR ;~5^HMTDt  NUMBeR  OF‘  PROGRAMS  AND  SUBROUTINES;  1 

AUTHOR;  SDC  LEM  NUMBER  OF  PROGRAMS- AND  SUBROUTINES!  T 

~AUTH0RT"5tANDARD  PACKAGE  NUMBeR  OFn^RoQRAMS  AND  SUBROUTINES;  2 


* _ ENDJQ3 


PRINTED  00112  time;  11:51.4 


— 


— 


FIXED  START  CALL 


BISEQ  _ BITS 


FS  BITS  1 


oQiooaoo 


PCR:  00005162  20650414 

DEMAND  BITS  00110101 


0 0000 
0 ooic 
0 0020 
"0  0030 


6*0074  5 * 0400  61T231  6*1633  6*0220  6*0221  6*1164  5*0102 

-0 >0002  -0*0X00  5 *037 A 6*3435  B*15l5~~  BU515  B*T5l5  5*0200 

^~»TZ37  ET*T  515.  B * 1515  B»1515  B*l5l5  B~»  1 5 1 5 B*1515  B»T 5 1 5 

B*15T5  BUSTS  B'TSTS  6*1515  -1  3777  -2*0420  -p*3107  -6 >2061 


1 0000  6*1405  6 * 14X5  6*1501  6*1501  7U7I7  7' 1725  6*1164  5*0102 

1 0010  4tT06X  7*2400  6*1441  5*0037  -0  0000  6*1414  2*00ll  5*0200 

1  0020  -0  0000  2 * 1 737  2* 0X64  2*0165  7 0007  6*1405  2TO734  6*2724 

1 0030  6 *1405  TT  1625  1 0000  1 1266  -7*3777  -1  3777  2*0220  -1  3777 


2 0XOTT~  -0*0000  -0 * 0000  7 * 2506  7*2532  7*2721  7T2566  6' 1164  5*0102 

2 0010  TTCTOOO  7T2403  “7*24I 5 6*3270  7 * 2417  XV0267  6 » 0000  5*0200 

X~~ 0~Q20  6*0074  B * 1515  7*3047  7*3*40  7*2505  6*1365  7*3262  BU515 

2 0030  "61X501  6'»3TT2~B'T5T5  BTT5I5  7*1344  -1  3777  7*1451  -1  3777 


3  0000  7*1552  7*1553  7*0305  7*0325  7*0304  7*0321  7*0776  7*07T6~~ 

3X3010  5*2700  7*1371  7*0100  7*0101  7*1240  7*1554  7*0127 5*0200 

3  0020  7T0672 — BTI5X5 — 7*0207 — TTCTOOO HOTOl  7*0101 5 » 2700  513000 

3  0030 ^010004 — 7*  0X62 — 5*2745 — 61X515 — 613 600 — 6*2570 — 7r240I — 7' 2162 


4  OOOO  6*1410  61X4X5 — 6*1X01 6*150 1 — 71X7X7  7H725  6*1164  510X02 

" 4 0010  “2*1643  7*2337  1X3TH34 — 4 0146 — 7 1131 — 7 0006  7 1130  5*0200 

4  0020  7 1303  7 0031  7 0165  1 2766  -6  3775  -6  3755  4 OI74  4 0166 

4~0O30  -^OtOOOO  -0  0000  G 0013  -0  0000 — 712651  -1  3777  7*1111  -1  3777 


5  OOOO  4 1 046?  5 0004  4 F3061 4*26l6  4T253 7 — 4*2614 — 6XIX54  4*3674 

5“0OlO  4*0443  4*0657  3*2240  4*0660 — 4*0725 — 0 * 0035  4*3545  5*0200 


5 0020  4 1 1 343  1 2550  7*3631  6*  1404  2 0627  4U450  -0*0001  4*2272 

5 0030  -G  3777  5 0425  -0*0020  -OiOOOO  4*2371  -1  3777  4*2605  -1  3777 
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00 00" 0X00  0X77  0000 


0000  7777  0000  0000 


0000  0000  7777  0000 


0000  0000  0000  7777 


0000  0000 
7777  7777 


0007  777T 
0000  0000 


0000  0000  0017  7777 


00070000  0000  0000 


0000  0000  0000  0007 


0000  0000  0000  0077 


““00X0 "0X00' 0077 


0000  0000  0077  777T 1717  X717  1717  3717' EBA“  3113  4073  405X0215“ 


TN  1120  4060  0200  0255  EBA “3413  X0r5“405l"4X73"EBA  3113  4054  405T0015EBA  3113  40 5 3 4051  001 3 
Eba  3113  4052  4051  0012  Ts  2004  7777  7777  7542  SWS  2006  4062  0407  4060  SWS  2006  4062  0610  4060 


SW5  200640621611  4060  SW5 


4060  SWS  2006  4062  3023  4060  SWE  201 6 4060  0026  4X60“ 


SWE  2016  4062  3016  5O75  SWE 
Ts  2004  7777  7777  5030 


2016  4062  1414  5O76 
0000  0000  0000  0000 


DM  0003  5O76 
0000  0000 


2X02  X 000  “4002  “T64“5“ 


5075  4061 
4002  4000 
0000  TS  * 0044“  0002  0X00  0X00“ 


4070  5076  DA 
4003  4121 


2001  5076 
0000  0000 


FBA  1501 
0000 

■“  “T40X  0140  XOOX  0000 


0114  0501  3304 
0000  0000  0074 


0000  0000  0007  0424 
0000  0000  0000  0005 


0021  2424 
0000  0000 


XOOX  X004 
0000  0006 


0000  0000 
0000  0001 


0010  0000 
0000  0000 


0000  5X22  4013“ 1405 


0000  0X00  4OII  0100 


0000  00X0“  ^011  “0102 


0X00 
MPC  2600 


0000  4012  4102 
0000  14X1  7734 


0000  0000  4013  1435 


0000  0000  4013  1164 


0300  7777  7772  6400 


5*  2400 


7777  7777  7777  7777 


0000  0000  0000  0101  TS  2404  6435  4062  7777 


5TZ~404  5WE  2416  6^36  0322  506°  SWE  2016  4062  0013  4062  SWS  2006  *062  5524  5060  Tx  2020  4062  7777  5061 

5*2410  EBA  3413  0013  4O5I  ~40~53  WA  Z015  T56T  4062~4P6Z  LA,  2574  406240 64  5OI6  WD  2035  4062  40 6^  4062 

5*2414  dA  2201  4062  0442  4062  OUOO“PO~2Q  0000  0000  ^A  , 2574  4062  4065"4ff36  WD~20?5~4062  4066  4062~ 

5 1 2420  DA,~T44l  4062.  4067  4062  LA,  1474  4062  5057  5012  DA,  1741  4062  5056  4062  LA,  0774  4062  4056 

5 * 24 2 4 D5,  1 7 6 1 4062  4057  4062  TS  6404  0102  7777  7535  0000  0205  0002  0000  Ts  2004  502?  5025  5016 

5~»243C  ~~NA,  2154  7723:  4051  5050  Tx  2020  4062^7777  7561  Ts  2404  6435  5076  7777  TX  2120  4063  7777  ~5435 

5*2434  WD , 1375  5076  5061  5076  LA,  1374  5076  4051  5037  WA,  2255  7561  5002  756T  TX  2120  7534  7777  OPTS 

5*24 40”  WA  2115  6406  5062  0013  5wE  2116  6442  2020  0015  LA,  2574  4025  6407)  5050  TS  6004  7777  7777  5051 

5*2444  TF  6604  0113  0015  5051  T5~~66W  0113  0015  5051  TS  6604  0113  0015  5O5I  TS  6604  0013  0015  5051 


“5*2450 

5*2454 

Ig*2»»P~~ 

512470 

512474 

5*2500 
5 1 2504 
' 5*2510 
— 5*2514 
5*2520  ~ 
— 5*2524 
—5*2  530 — 
5*2534 
■ 5*-2-540  “ 
5t2544 
5*2550 


TS  20W7561  7560  4027  LA,  6574  4025  6400  5055  LA,  6574  5060  6400  5054  TS,  6544  4051  6400  5055 

WD,  65?5  6400'  5060  6400  Tx  2020  5075  7777  507 5 ^ 0000  2000  00000000”  0000  2631  0000  0000 

oooo  oooo  oooz  5750  qooooooo  oooo  2575  ooocnjooo  ouocmju46  bs,  0171  01171733  4372 

~4700  2216  4420 "7777  E0I~5Z40"0~5~56'T55T  35'24  EOI5240  0356  735l“35T4  E0I5240  0356  7351^524 


EO]  5240  03  56  ?35l”3524  ' ED 1 5240  0356  7351  3524  E0i5Z4O~P355~755r~~3?24  E0i5240  0356  73^1r~3524 


EOT 5240  0356  7351  3524 


OOOO  OOOO  OOOO  2424 


OOOO  OOOO  0010  OOOO 


0300  7654  6017  7777 


'"OOOO  OOOO  4013  4000  “ OOOO  OOOO  OOOO  OOO'O  55  0006 

■woo  oooo  oooo  0007  ttooo  oooo  oooo  0017  oooo 


7551  OOOO' 02071  TS  2204  7534  0011  4013 
OOOO” 0003  4000  0000  0000  0000  7400 


CQOO  000 0 
"WA  2 ny  4441 


OOOO  0077 


LA  2434  0040  4431  4040 


OOOO'OOOO  0017  7777  4000 

0140  4021  NA , 0454 
NA  2014  5001  4042  4025” 'TS  6404 


OOOO  OOP 0 OOOO  SWS  2006  '57r34r  3404  7722 
7722  4433  4020  SWS  2006  7721  3604“ 7722 
0102  7777  7535  OOOO'  0201  0001  OOOO 


TS  2004  7777  7777  7542  /sjA  2014  5001  4043“  4027  PR#  0046  5000  0200  7777  TX  2120  4006  7777  OOOO 


~NA  2414  0100  4432'4030  5WS  2106“ 4441  4011  0014  5W5  2106  4442'  00 11  “WO  1 LA,  1274  4012  7721  4036 


TS,  1244  4012  7721  7777  TN  1520  0054  0600  0041  TX  2120  4431  7777  0054  WA  2015  40?3  4432  4073 
“WA  2015  4073  4432-4073  Ts  2004  7777  7777  7542“MPC  2200  0003  1401  7734  MPC  2600  0001  1401  7734 


OOOO ' oooo  oooo 


0000  0000  00 00” DO 077 


'OOOO  OOOO'  OOOO  OOOO 


OOOO  OOOO  OOOO  OOOO 


OOOO  OOOO  OOOO  OOOO 


OOOO  OOOO  OOOO  OOOO 


OOOO  OOOO  OOCO  OOOO 


— i 


preceding  lime  is  repeated,  until: 


5*2570  OOOO  OOOO  OOOO  OOOO  OOOO  1162  4012  4612  OOOO  OOOO  4013  0527  OOOO  OOOO  4013  0531 

5*2574  OOOO  OOOO  4012  4102  OOOO  OOOO  0010  OOOO  OOOO  OOOO  4013  0540  0300  7777  7777  7777 


5 *2600  MPC  ?650  0000  1401  ffW~  7777  7777  7777  7777  "0000  0000  0000  0113  sWS  2106  4431  0010  0041 

5! 2604  TS  2204  4O7S7  001T  7542  SWE  21 164071  0004  0000  WA~2515  0000  44060000  SWE  25 l 6 0040  2004  0005 

5*2610  ~ WA  2515~OW5~W)fe  0000  LA  2434  0005  4431  6007  WA  2?15  0040  01 42  0001"  0000  0000  0000  0011 

5 *26  ITT"  SWS  ^ lQfe  4406  0007  0001  TX  2420  1541  7777  4050  Ts  2404  0041  4051  4026  WA  62l5~40T6  0143  4056 

5*2620  0000  0000  0000  2000  SWS  6006  4052~Q"IIT"aO52  EX  4016  AO5O  4052  4054  5S  4006  4431  4052  4050 

5 *2524  EX  API 6 4053  4052  4055  NA  601A  ^0S4^053  ~60T7~  TX  "2020  7777  7777  7777  BM0713T525  1303  0041 

5 * 26 30  T s«  7144  0474'  5 504"  6342  E0I5240  0356  7351  3524  EQI5240  0356  7351  3524  E0T5240  0356  7351  3SZ4~ 

5 *2634  EOI5240  0356  73513524  £015240  0356  7351  3524  "E0I5240  0356  7351  3524  E0I5240  0356  7351  3524 

PRECEDING  LINE  IS  REPEATED*  UNTIL t 

5 1 2674  E0I5240  0356  7351  3524  E0I5240  0356  7351  3524  E0I5240  0356  7351  3524  0300  7657  4017  7777 

5^2700  MPC  Z6PCOOQOHL4OI  7734  0000  0000  0000  0000  0000  0000  0000  0000  Tl63  2043  2000  0001 

5 * 2704  ~ 0000  0000  0400  OOQO  POOP  OOOQ  0200  0000  0000  0000  0013  5450  2163  2043  2000  0001 

gTZ7T0  0000  0000  0001  1432  0000  OOOQ  0000  0000  TX  2420  0056  7777  6003  TX  2520  0004  7777  0002 

5*2 7 1 4 TS,  1344  4423:  4073  6016  SWS  2006  <>423  40 13^4073  TX  2120  6006  7777  0015  TX  2120  4053  7777  0014 

5*2720  TS  2204  4052  0011  7542 WP  '6l35 ~4427  4004  0016  NA;  5154"  7OOI' 6OO7  6027  NA,  4654  7OOI  6007  6'D2T~' 

5*2724  NA,  5054  7001  6OO7  602?  LA  6434  0016  442?  6031  TS  6004  7OOI  6010  6032  NA  6414  0156  4051  6022 

5 1 2 73C  WD  2535  0016'  40Q4"T)0r6  TX  2420"0T:i6  777T~7777  Tx  6420  0056  TT77  7OOI  T»T2120  6010  7777  0056" 

5*2734  LA  2034  4011  6003  6015 — TX  2120  442?  7777  "0016  NA,  115^~'7D^O~6003  6041  NA,  1054  7000  4Q5T~40(50 

“ 5"*2740~ NAV  °654-  7OOO  5400  6012  nA  2414  0156  4051  6036  Tx  2020  4011  7777  4525  ^A,  0654  6003  5000  6051 

5*2744  TS,  1344  6003  6403  6437 — TS  6004  6003  6OO7  6021  TS  2004  7OOO  4525  6050  LA  2434  0056  4051  6014 

5*2750  TS  2204  7001  0156  6047 — TS  2204  4427  0016  6053 — LA  2434  0156  4051  6414  NA , 0654  TOOTT  5000  6052 

5,2754  Tx,  1160  4051  7777  4501  Tx  2020  4013  7777  6403  Tx  2120  4427  7777  0016  LA  2434  0056  4051  6404 

5*2760—  NA,  0654  7OOO  5000  6O7O  NA,  TO54-7OOO  4051  6063  TS,  1644  4016  4501^6070  NA,  0754  70004051  6067 

5*2764  CAT 'T 3 74  6403  7OOO  6O7O — S5  0006  4521  4521  4501  TS,  1344  7000  6403  6O7O  LA,  1374  5010  7000  6071 

5*2770 Ts  2404  0116  7777  6057  TS*  1544  4015  4501  6O7O  OOOOOOOO  0000  0000  0000  0000  OOOQ  0000 

5T2774  0000  0000  0000  OOOQ  — — OOOO  0000  00000000 — 0402  2336  5155  1355  — 0300  7655  4012  7 000 

5 * 300C  “MPT  2600  OOOO  1401  7734  " — OOOO  0000  0000  OOOO  OOOO  OOOO "OOOO  OOOQ  OOOO  OOOO  OOOO  000; 

5 * 3004  LA,  1174  4501  4051  6415  Ex  0216  4501  0142  6OO7  7O77  OOOO  OOOO  OOOO  NA  2014  6OO7  4521  6411 


5*3010 


T s 2404  0102  7777  6437  Ts*  1344  5010  6403  6410  5WS  2006  ^4423  2013  4O73  T5  2004  7777  7777  6016 


y 





